CLS
DIM i AS INTEGER
DIM j AS INTEGER
DIM t2(1000)
DIM efficiency(1000)
OPEN "Output.txt" FOR OUTPUT AS #1
tin = 600
tout = 298
deltat = 1
ranget = 10
PRINT ""
PRINT "                           Carnot Cycle Calculation"
PRINT ""
PRINT "                             Enter the Input Data!"
PRINT "                          Followed by  the enter key!"
PRINT ""
INPUT " Heat addtion temperature (default value is 600 [K])! ", tin
PRINT ""
INPUT " Heat rejection temperature (default value is 298 [K])! ", tout
PRINT ""
INPUT " Delta temperature step (default value is 1 [K])! ", deltat
PRINT ""
INPUT " Delta temperature range (default value is 10 [K])! ", ranget
PRINT ""
PRINT " Step     Tin      Tout     Efficiency"
PRINT " [/]      [K]      [K]      [/]]      "
PRINT ""
IF tin = 0 THEN tin = 600
IF tout = 0 THEN tout = 298
IF deltat = 0 THEN deltat = 1
IF ranget = 0 THEN ranget = 10
PRINT #1, " Heat addition temperature [K]: ", TAB(45); tin;
PRINT #1, ""
PRINT #1, " Heat rejection temperature [K]: ", TAB(45); tout;
PRINT #1, ""
PRINT #1, " Delta temperature step [K]: ", TAB(45); deltat;
PRINT #1, ""
PRINT #1, " Delta temperature range [K]: ", TAB(45); ranget;
PRINT #1, ""
PRINT #1, ""
PRINT #1, ""
PRINT #1, " Step     Tin      Tout     Efficiency"
PRINT #1, " [/]      [K]      [K]      [/]       "
PRINT #1, ""
t2(1) = tin - ranget
efficiency(1) = 1 - tout / t2(1)
FOR i = 1 TO 1000
IF t2(i) > tin + ranget THEN GOTO test:
PRINT TAB(1); i; TAB(10); t2(i); TAB(19); tout; TAB(28); USING "##.####"; efficiency(i);
test:
IF (i + 1) > 1000 THEN GOTO finish:
t2(i + 1) = t2(i) + deltat
efficiency(i + 1) = 1 - tout / t2(i + 1)
IF t2(i) > tin + ranget THEN GOTO finish:
PRINT #1, TAB(1); i; TAB(10); t2(i); TAB(19); tout; TAB(28); 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