Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0025/scvsiz.bas
There are 2 other files named scvsiz.bas in the archive. Click here to see a list.
00020	 GO TO  500
00025	DATA 1,0
00028	DATA 6E36,0,0
00029	PRINT"RATIO OF HIGH/LOW COEFF.=REQUIRED VALVE RANGEABILITY"
00030	PRINT
00031	PRINT "*** THE  IDENTITY OF THIS VALVE IS "
00035	PRINT
00036	READ T
00040	PRINT"WHEN SUPERHEAT IN DEGREES F =" T
00045	PRINT
00050	PRINT"INLET PSIG","OUTLET PSIG","PR.DROP,PSI","FLOW,PPH",
00051	PRINT"VALVE COEFF."
00060	READ W,P1,P2
00061	IF W=6E36 THEN 9999
00065	IF T=0 THEN 80
00070	LET Y=1+(7E-4)*T
00075	GO TO 85
00080	LET Y=1
00085	IF (P2+14.7)/(P1+14.7) < .5 THEN 100
00090	LET H=(P1+14.7)-(P2+14.7)
00095	GO TO 105
00100	LET H=(P1+14.7)/2
00105	LET C0=((Y*W)/2.1)*SQR(1/(H*(P1+P2+29.4)))
00110	PRINT P1,P2,H,W,C0
00120	GO TO 60
00500	PRINT"THIS PROGRAM CALCULATES STEAM CONTROL VALVE COEFFICIENTS"
00505	PRINT"AND ALLOWS YOU TO DETERMINE REQUIRED VALVE RANGEABILITY."
00510	PRINT"REFERENCE IS EQUATION 8 OF THE NOVEMBER,1961 FLUID CONTROLS"
00515	PRINT"INSTITUTE, INC. VOLUNTARY STANDARD."
00520	PRINT
00525	PRINT"WHEN PRESS. DROP IS CRITICAL, THE PROGRAM ASSUMES OUTLET"
00530	PRINT"PRESS. IS HALF THE ABSOLUTE INLET PRESS. THE PROGRAM ALSO"
00535	PRINT"CONVERTS PRESSURES TO ABSOLUTE."
00540	PRINT
00545	PRINT"TYPE: 20 DATA (ENTER DEGREES F OF SUPERHEAT IN THE STEAM"
00550	PRINT"         OR ENTER ZERO IF IT IS ZERO."
00555	PRINT
00560	PRINT"TYPE: 25 DATA (ENTER DATA IN GROUPS OF 3, AS MANY GROUPS"
00565	PRINT"         AS YOU WISH OR NEED, IN THIS ORDER...FLOW IN PPH,"
00570	PRINT"         INLET PSIG, OUTLET PSIG; THEN SECOND FLOW, SECOND"
00575	PRINT"         INLET PRESSURE, SECOND OUTLET PRESS., ETC........"
00580	PRINT
00590	PRINT
00595	PRINT"TYPE: RUN"
00600	PRINT
00605	PRINT"TO SIZE MORE VALVES, ENTER NEW DATA IN 20 AND 25 AND TYPE"
00610	PRINT"RUN. IF FOR SATURATED STEAM , ZERO IN 20 NEED BE ENTERED"
00615	PRINT"ONLY ONCE. IT WILL STAY IN."
09999	END