Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - 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