CLS
PRINT "FRICTION LOSS IN PIPE"
PRINT
DIM C(5)
DIM W(5)
DIM N1(12)
DIM D2(5,12)
DIM D1(5,12)
REM ==READ PIPE DATA==
FOR I = 1 TO 12
 READ NN
 N1(I)=NN
NEXT I
FOR K = 1 TO 5
 READ CC
 C(K)=CC
 READ WW
 W(K)=WW
  FOR J = 1 TO 12
   READ D2D2
   D2(K,J)=D2D2
   READ D1D1
   D1(K,J)=D1D1
  NEXT J
NEXT K
[twsize]
PRINT "WHAT TYPE OF PIPE -"
PRINT
PRINT "1 -COPPER TYPE L"
PRINT "2 -STEEL SCHEDULE 40"
PRINT "3 -PVC PLASTIC SCHEDULE-40 "
PRINT "4 -PVC PLASTIC SCHEDULE-8O "
PRINT "5 -COPPER TYPE K"
PRINT
PRINT "Select 1-5 = ";
INPUT " ";K
PRINT
PRINT "WATER FLOW (GALLONS/MINUTE)= ";
INPUT " ";G
PRINT "TOTAL LENGTH OF PIPE (FEET)= ";
INPUT " ";L
[fozeze]
PRINT "NOMINAL PIPE SIZE (.5-8 INCH) = ";
INPUT " ";N
PRINT
REM ==CHECK PIPE SIZE==
IF N > 8 THEN [fozeze]
J = 1
[fosize]
IF N1(J) = N THEN [fizeze]
IF N1(J) > N THEN [fizeze]
J = J + 1
GOTO [fosize]
[fizeze]
REM ==CALC PIPE CROSS SECTIONS==
A2 = (D2(K,J) / 24) ^ 2 * 3.14159
A1 = (D1(K,J) / 24) ^ 2 * 3.14159
REM ==CALC FRICTION LOSS==
F = .2083*(100*G/C(K))^1.852*(L/100)/D1(K,J)^4.8655
P = F/2.31
REM ==CALC WATER VELOCITY=:
V = G / (60 * 7.48 * A1)
REM ==CALC WEIGHT OF WATER==
W1 = A1 * L * 62.3
REM ==CALC WEIGHT OF PIPE==
W2 = (A2-A1) * L * W(K)
REM ==CALC GAL WATER IN PIPE==
G2 = W1/8.329
REM ==CALC WEIGHT WATER & PIPE==
W3 = W2 + W1
REM ===PRINT RESULTS==
PRINT "NOMINAL PIPE SIZE -INCHES = ";N1(J)
PRINT "OUTSIDE DIAMETER -INCHES = ";D2(K,J)
PRINT "INSIDEDIAMETER-INCHES = ";D1(K,J)
PRINT
PRINT "FRICTION LOSS- FT OF WATER = ";F
PRINT "FRICTION LOSS- #/SQ INCH = ";P
PRINT
PRINT "VELOCITY OF WATER (FTISEC) = ";V
PRINT "GALLONS OF WATER IN PIPE = ";G2
PRINT "WEIGHT OF WATER(POUNDS) = ";W1
PRINT "WEIGHT OF PIPE(POUNDS) = ";W2
PRINT "WEIGHT OF WATER AND PIPE= ";W3
PRINT
PRINT "RE-RUN PROGRAM WITH NEW DATA? (Y/N) ";
INPUT " ";Z$
IF Z$ = "Y" or Z$="y" THEN [twsize]
END
REM ==DATA NOMINAL PIPE==
DATA .5,.75,1,1.25,1.5,2
DATA 2.5,3,4,5,6,8
REM ==DATA COPPER PIPE TYPE L==
DATA 147,558.7
DATA 0.625,0.545,0.875,0.785
DATA 1.125,1.025,1.375,1.265
DATA 1.625,1.505,2.125,1.985
DATA 2.625,2.465,3.125,2.945
DATA 4.125,3.905,5.125,4.875
DATA 6.125,5.845,8.125,7.725
REM ==DATA STEEL PIPE SCH 40==
DATA 135,488.8
DATA 0.840,0.622,1.050,0.824
DATA 1.315,1.049,1.660,1.380
DATA 1.900,1.610,2.375,2.067
DATA 2.875,2.469,3.500,3.068
DATA 4.500,4.026,5.563,5.047
DATA 6.625,6.065,8.625,7.981
REM ==DATA PVC SCHED-40==
DATA 150,86.6
DATA 0.840,0.622,1.050,0.824
DATA 1.315,1.049,1.660,1.380
DATA 1.900,1.610,2.375,2.067
DATA 2.875,2.469,3.500,3.068
DATA 4.500,4.026,5.563,5.047
DATA 6.625,6.065,8.625,7.981
REM ==DATA PVC SCHED-80==
DATA 150,86.6
DATA 0.840,0.546,1.050,0.742
DATA 1.315,0.957,1.660,1.278
DATA 1.900,1.500,2.375,1.939
DATA 2.875,2.323,3.500,2.900
DATA 4.500,3.826,5.563,5.312
DATA 6.625,5.761,8.625,7.625
REM ==DATA COPPER TYPE K==
DATA 147,558.7
DATA 0.625,0.527,0.875,0.745
DATA 1.125,0.995,1.375,1.245
DATA 1.625,1.481,2.125,1.959
DATA 2.625,2.435,3.125,2.907
DATA 4.125,3.875,5.125,4.805
DATA 6.225,5.741,8.125,7.583