CLS
DIM i AS INTEGER
DIM j AS INTEGER
DIM v2(1000)
DIM efficiency(1000)
OPEN "Output.txt" FOR OUTPUT AS #1
vfinal = 1
vinitial = 25
vcutoff = vfinal + .5
deltav = 1
kappa = 1.4
PRINT ""
PRINT "                           Diesel Cycle Calculation"
PRINT ""
PRINT "                             Enter the Input Data!"
PRINT "                          Followed by  the enter key!"
PRINT ""
INPUT " Compression final volume (default value is 1 [m^3])! ", vfinal
PRINT ""
INPUT " Compression initial volume (default value is 25 [m^3)! ", vinitial
PRINT ""
INPUT " Compression cutoff volume (default value is vfinal + 0.5 [m^3)! ", vcutoff
PRINT ""
INPUT " Compression delta volume step (default value is 1 [m^3])! ", deltav
PRINT ""
INPUT " Working fluid kappa (default value is 1.4 [/])! ", kappa
PRINT ""
PRINT " Step    Vfinal   Vcutoff   Vinitial   Efficiency"
PRINT " [/]     [m^3]    [m^3]     [m^3]      [/]]      "
PRINT ""
IF vfinal = 0 THEN vfinal = 1
IF vinitial = 0 THEN vinitial = 25
IF vcutoff = 0 THEN vcutoff = vfinal + .5
IF deltav = 0 THEN deltav = 1
IF kappa = 0 THEN kappa = 1.4
PRINT #1, " Compression final volume [m^3]: ", TAB(45); vfinal;
PRINT #1, ""
PRINT #1, " Compression initial volume [m^3]: ", TAB(45); vinitial;
PRINT #1, ""
PRINT #1, " Compression cutoff volume [m^3]: ", TAB(45); vcutoff;
PRINT #1, ""
PRINT #1, " Compression delta volume step [m^3]: ", TAB(45); deltav;
PRINT #1, ""
PRINT #1, " Working fluid kappa [/]: ", TAB(45); kappa;
PRINT #1, ""
PRINT #1, ""
PRINT #1, ""
PRINT #1, " Step      Vfinal       Vcutoff      Vinitial     Efficiency"
PRINT #1, " [/]       [m^3]        [m^3]        [m^3]        [/]       "
PRINT #1, ""
v2(1) = vfinal
efficiency(1) = 1 - (1 / kappa) * (1 / ((vfinal / vfinal) ^ (kappa - 1))) * (vcutoff ^ kappa - 1) / (vcutoff - 1)
FOR i = 1 TO 1000
IF v2(i) > vinitial THEN GOTO test:
IF vcutoff > v2(i) THEN
                     PRINT TAB(1); i
                     GOTO test
                   ELSE
END IF
PRINT TAB(1); i; TAB(9); vfinal; TAB(18); vcutoff; TAB(29); v2(i); TAB(39); USING "##.####"; efficiency(i);
test:
IF (i + 1) > 1000 THEN GOTO finish:
v2(i + 1) = v2(i) + deltav
efficiency(i + 1) = 1 - (1 / kappa) * (1 / ((v2(i + 1) / vfinal) ^ (kappa - 1))) * (vcutoff ^ kappa - 1) / (vcutoff - 1)
IF v2(i) > vinitial THEN GOTO finish:
IF vcutoff > v2(i) THEN
                     PRINT #1, TAB(1); i
                     GOTO nexti
                   ELSE
END IF
PRINT #1, TAB(1); i; TAB(11); vfinal; TAB(24); vcutoff; TAB(37); v2(i); TAB(50); USING "##.####"; efficiency(i);
nexti:
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