This program computes the friction loss of water flowing in various pipes using the empirical formula developed by Williams and Hazen. The program also computes water velocity, flow in gallons, and weight of the water and pipe.
The empirical formula used in this program is:

F = 0.2083 * (100 * G / C)^1.852 * (L/ 100) / D^4.O655

where:

F = friction loss in feet of water
C = water flow in gallons
G = water flow in gallons per minute
D = inside diameter of pipe in inches
L = length of pipe in feet

Downloads:

basic program (liberty basic) lbflp.bas

Test Case:

Compute the friction loss for 20 gallons per minute of water flowing in a 1 inch, type L copper pipe that is 100 feet long.

FRICTION LOSS IN PIPE

WHAT TYPE OF PIPE -

1 -COPPER TYPE L
2 -STEEL SCHEDULE 40
3 -PVC PLASTIC SCHEDULE-40
4 -PVC PLASTIC SCHEDULE-8O
5 -COPPER TYPE K

Select 1-5 = 1

WATER FLOW (GALLONS/MINUTE)= 20
TOTAL LENGTH OF PIPE (FEET)= 100
NOMINAL PIPE SIZE (.5-8 INCH) =  1

NOMINAL PIPE SIZE -INCHES = 1
OUTSIDE DIAMETER -INCHES = 1.125
INSIDEDIAMETER-INCHES = 1.025

FRICTION LOSS- FT OF WATER = 23.2352929
FRICTION LOSS- #/SQ INCH = 10.0585683

VELOCITY OF WATER (FTISEC) = 7.77682622
GALLONS OF WATER IN PIPE = 4.28617538
WEIGHT OF WATER(POUNDS) = 35.6995548
WEIGHT OF PIPE(POUNDS) = 65.5155142
WEIGHT OF WATER AND PIPE= 101.215069

RE-RUN PROGRAM WITH NEW DATA? (Y/N)  n