Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0025/lcvsic.bas
There are 2 other files named lcvsic.bas in the archive. Click here to see a list.
00020 GO TO 500
00025 DATA .7,.8
00029 DATA 6E36
00030 PRINT
00031 PRINT"***THE IDENTITY OF THE VALVE IS "
00035 READ N,M,P,O
00040 READ G
00041 IF G=6E36 THEN 9999
00045 PRINT
00050 PRINT "WHEN SPECIFIC GRAVITY =" G
00055 PRINT
00060 PRINT "FLOW,GPM","PRESS.DROP,PSI", "VALVE COEFF."
00065 FOR H= N TO M STEP (M-N)
00070 LET Y= G/H
00075 FOR Q= P TO O STEP (O-P)
00080 LET C0 = Q*SQR(Y)
00085 PRINT Q,H,C0
00090 NEXT Q
00095 NEXT H
00096 PRINT "RATIO OF HIGH/LOW COEFFICIENTS=VALVE RANGEABILITY"
00100 GO TO 40
00500 PRINT"THIS PROGRAM CALCULATES LIQUID CONTROL VALVE COEFFICIENTS"
00505 PRINT"AND ALLOWS YOU TO DETERIMINE REQUIRED VALVE RANGEABILITY."
00510 PRINT"REFERENCE IS THE OLUNTARY STANDARD (NOV.,1961) OF THE"
00515 PRINT"FLUID CONTROLS INSTITUTE, INC. NO VISCOSITY CORRECTIONS"
00520 PRINT"ARE AVAILABLE YET. CONSULT VALVE MANUFACTURERS ABOUT "
00525 PRINT"VISCOUS OR NON-NEWTONIAN FLUIDS."
00530 PRINT
00550 PRINT"TYPE: 20 DATA(ENTER DATA IN ORDER...MIN. PRESS. DROP,"
00555 PRINT" MAX. PRESS. DROP, MIN. FLOW AND MAX. FLOW.)"
00560 PRINT
00565 PRINT"TYPE: 25 DATA(ENTER ONE OR MORE VALUES OF FLUID SPECIFIC"
00570 PRINT" GRAVITY, FOR EXAMPLE, EXPECTED HIGH AND LOW.)"
00575 PRINT
00585 PRINT
00590 PRINT"TYPE: RUN"
00595 PRINT
00600 PRINT"TO SIZE MORE VALVES, ENTER NEW DATA IN LINES 20 AND 25,"
00605 PRINT"THEN TYPE RUN"
09999 END