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