CLS
DIM i AS INTEGER
DIM j AS INTEGER
DIM p2(1000)
DIM efficiency(1000)
OPEN "Output.txt" FOR OUTPUT AS #1
pin = 1
pout = 25
deltap = 1
kappa = 1.4
PRINT ""
PRINT "                           Brayton Cycle Calculation"
PRINT ""
PRINT "                             Enter the Input Data!"
PRINT "                          Followed by  the enter key!"
PRINT ""
INPUT " Compression inlet pressure (default value is 1 [atm])! ", pin
PRINT ""
INPUT " Compression outlet pressure (default value is 25 [atm])! ", pout
PRINT ""
INPUT " Compression delta pressure step (default value is 1 [atm])! ", deltap
PRINT ""
INPUT " Working fluid kappa (default value is 1.4 [/])! ", kappa
PRINT ""
PRINT " Step    p1       p2      Efficiency"
PRINT " [/]     [atm]    [atm]   [/]       "
PRINT ""
IF pin = 0 THEN pin = 1
IF pout = 0 THEN pout = 25
IF deltap = 0 THEN deltap = 1
IF kappa = 0 THEN kappa = 1.4
PRINT #1, " Compression inlet pressure [atm]: ", TAB(45); pin;
PRINT #1, ""
PRINT #1, " Compression outlet pressure [atm]: ", TAB(45); pout;
PRINT #1, ""
PRINT #1, " Compression delta pressure step [atm]: ", TAB(45); deltap;
PRINT #1, ""
PRINT #1, " Working fluid kappa [/]: ", TAB(45); kappa;
PRINT #1, ""
PRINT #1, ""
PRINT #1, ""
PRINT #1, " Step      pin       pout      Efficiency"
PRINT #1, " [/]       [atm]     [atm]     [/]       "
PRINT #1, ""
p2(1) = pin
efficiency(1) = 1 - 1 / ((pin / pin) ^ ((kappa - 1) / kappa))
FOR i = 1 TO 1000
IF p2(i) > pout THEN GOTO test:
PRINT TAB(1); i; TAB(9); pin; TAB(18); p2(i); TAB(26); USING "##.####"; efficiency(i);
test:
IF (i + 1) > 1000 THEN GOTO finish:
p2(i + 1) = p2(i) + deltap
efficiency(i + 1) = 1 - 1 / ((p2(i + 1) / pin) ^ ((kappa - 1) / kappa))
IF p2(i) > pout THEN GOTO finish:
PRINT #1, TAB(1); i; TAB(11); pin; TAB(21); p2(i); TAB(31); USING "##.####"; efficiency(i);
NEXT
finish:
PRINT ""
PRINT ""
PRINT "                    Output.txt file contains the output data!"
PRINT "                                The Run is Over!"
PRINT "                         Hit anykey to close the program!"
PRINT ""
PRINT "                               Engineeering Software"
PRINT "                          http://wwww.engineering-4e.com"
CLOSE #1
DO
LOOP UNTIL INKEY$ <> ""
END