'PRINT " Nhiet truyen cho nuoc Qw "; qw; " kJ "
'LOCATE 2, 45: PRINT " Nhiet do thanh xi lanh Tc"; tc; "K"
'LOCATE 3, 3: PRINT "Nhiet luong khi truyen cho xi lanh Qw1 "; qw1; " kJ" 'LOCATE 8, 50: PRINT "agmax "; agmax; " kW/(m^2K)" '"Tzmax"; tzmax; " K" 'LOCATE 9, 50: PRINT "ag1max"; ag1max; " kW/(m^2K)"
'LOCATE 10, 50: PRINT "ag2max"; ag2max; " kW/(m^2K)" '"pzmax "; pzmax; " Pa"
'LOCATE 10, 50: PRINT "ag2max"; ag2max; " kW/(m^2K)" '"pjmax "; pjmax; " Pa"
'LOCATE 11, 50: PRINT "ag3max"; ag3max; " kW/(m^2K)" '"ptmax "; ptmax; " Pa"
'LOCATE 12, 50: PRINT "ag4max"; ag4max; " kW/(m^2K)"
'LOCATE 13, 50: PRINT "ag5max"; ag5max; " kW/(m^2K)" '"pzmax "; pzmax; " Pa"
'LOCATE 14, 50: PRINT "ag6max"; ag6max; " kW/(m^2K)" '"pjmax "; pjmax; " Pa"
'LOCATE 15, 50: PRINT "ag8max"; ag8max; " kW/(m^2K)" '"ptmax "; ptmax; " Pa"
'LOCATE 13, 50: PRINT USING "(dx0/dfi)max = #.######"; x0max 'LOCATE 14, 50: PRINT USING "(dx2/dfi)max = #.######"; x2max 'LOCATE 15, 50: PRINT USING "(dx4/dfi)max = #.######"; x4max; 'LOCATE 16, 50: PRINT USING "(dx5/dfi)max = #.######"; x5max; 'LOCATE 15, 50: PRINT USING "(dx22/dfi)max = #.######"; x22max; 'LOCATE 16, 50: PRINT USING "(dx21/dfi)max = #.######"; x21max;
'LOCATE 15, 50: PRINT "U "; U; " kJ" 'LOCATE 16, 50: PRINT "qw "; qw; " kJ" 'LOCATE 17, 50: PRINT "x2 "; x2; "%" 'LOCATE 19, 50: PRINT "dqx "; dqx; "j" 'LOCATE 20, 50: PRINT "dqx1 "; dqx1; "j"
LOCATE 3, 12: PRINT " DAC TINH VA THONG SO CUA DONG CO" LOCATE 5, 48: PRINT "THONG SO DAU VAO "
LOCATE 8, 48: PRINT "KET QUA TINH TOAN" LOCATE 5, 1: PRINT "2300K"
LOCATE 6, 50: PRINT USING "P0 = ###### Pa, T0 = ### K"; P0; T0 LOCATE 7, 50: PRINT USING "doamf = ##% , fps = ##doTK"; doamf; fps LOCATE 9, 50: PRINT USING "Tzmax = ####.## K"; tzmax;
LOCATE 10, 50: PRINT USING "pzmax = ##.###### MPa"; pzmax / 1000000; 'LOCATE 8, 50: PRINT USING "(dx2/dfi)max = #.######"; x2max
LOCATE 11, 50: PRINT USING "ti = #.#### mc"; ti 'LOCATE 11, 50: PRINT USING "fps = ## doTK"; fps;
LOCATE 12, 50: PRINT USING "agmax = ####.# kW/m^2K"; agmax LOCATE 13, 50: PRINT USING "Pi1 = #.#### MPa"; pi1 / 1000000 LOCATE 14, 50: PRINT USING "Ni = ####.## kW"; Ni
LOCATE 15, 50: PRINT USING "gi = #.#### kg/(kW.h)"; gi 'LOCATE 15, 50: PRINT USING "etai = #.####"; etai
LOCATE 16, 50: PRINT USING "Pm = #.#### MPa"; Pm / 1000000 LOCATE 17, 50: PRINT USING "etam = #.####"; etam
LOCATE 18, 50: PRINT USING "Ne = ####.## kW"; Ne LOCATE 19, 50: PRINT USING "ge = #.#### kg/(kW.h)"; ge LOCATE 20, 50: PRINT USING "etae = #.####"; etae
LOCATE 22, 50: PRINT USING "dtP = ##.### MPa"; dtP / 1000000 'LOCATE 12, 50: PRINT "ptt "; ptt; " Pa"
LOCATE 23, 3
PRINT USING " Ap suat chi thi trung binh #.###"; pi1 / 10 ^ 6; : PRINT USING " MPa Hieu suat chi thi #.###"; etai
L = 0: qw1 = 0: ag = 0:
''''GOTO 845
IF f = fv THEN END 'BEEP: GOTO menu: '********* 40 Pa = 170000: tc0 = 310: N = 775: d = .28: s = .32: fps = 13: b = 363.2: i = 8 doamf = 80: d1 = .035 'tc0 = 380: N = 750: d = .16: s = .225: fps = 26: b = 23.65: 'tc0 = 380: N = 375: d = .35: s = .5: fps = 17: b = 160: zet = .01: ' GOTO first:
Ta = 340'...Nhiet do moi chat dau qua trinh nen K lam = 2!'...Ty so lam da
tnc = 350 '338 nhiet do trung binh cua nuoc lam mat tc = 420 ' nhiet do trung binh cua thanh xi lanh pi = 3.14159
'qn = 41900000'...Nhiet tri thap cua nhien lieu , j r = 287'...Hang so khi
df = .5'...Buoc tinh toan , do t.k. e = 14'12.5...Ty so nen
CLS : GOTO 20 '********
100 LOCATE 25, 1: PRINT " ";
'100 LOCATE 25, 1: PRINT " An phim bat ky"; 101 k$ = INKEY$: IF k$ = "" THEN 101
RETURN 72
'LOCATE 25, 8: INPUT ; " Quit y/n", k$
'IF k$ = "N" OR k$ = "n" THEN CLS : GOTO 20: 'IF k$ <> "Y" AND k$ <> "y" GOTO 82
82
SCREEN 0: WIDTH 80: COLOR 10, 5, 4: CLS LOCATE 4, 1
PRINT " Da tinh xong " PRINT " Lua chon che do: "
PRINT " 1- Dua ra man hinh so lieu ban dau " PRINT " 2- Dua ra man hinh ket qua tinh" PRINT " 3- Xay dung do thi chi thi " PRINT " 4- Xay dung do thi mo men " PRINT " 5- Xay dung do thi Ps "
PRINT " 6- Xay dung do thi Pt " PRINT " 7- Xay dung do thi N " PRINT " 8- Xay dung do thi Z "
PRINT " 9- Xay dung do thi vec to T-Z " 'PRINT " 0- Xay dung do thi co bien " 'PRINT " 10- Thoat khoi chuong trinh " INPUT " Che do "; y '1280 IF y = 1 THEN 111 IF y = 2 THEN 112 IF y = 3 THEN 113 111 : CLS
LOCATE 4, 12: PRINT " SO LIEU BAN DAU DE TINH: " PRINT " Ap suat dau qua trinh nen , Pa ", Pa PRINT " Nhiet do dau qua trinh nen ,K ", Ta PRINT " Ty so nen ", e
PRINT " Ty so lam da ", lam PRINT " Vong quay truc khuyu, v/ph ", N PRINT " Duong kinh xi lanh, m ", d PRINT " Hanh trinh piston, m ", s PRINT " So xi lanh ", i
PRINT " Suat tieu hao nhien lieu gio, kg/h ", b bc = b / N / 30 / i
PRINT " Luong nhien lieu cap cho chu trinh, kg/cht "; bc PRINT " He so chay ", m
PRINT " Goc bat dau chay nhien lieu, do TK ", fps PRINT " Thoi gian chay , do TK ", fz
PRINT " Buoc tinh , do TK ", df INPUT " Che do "; y
112 : CLS
PRINT " Nhiet do trung binh thanh xi lanh, K ", tc;
PRINT " Nhiet do cuc dai cua chu trinh Tmax, K "; tzmax; '", goc "; ftmax
PRINT " Ap suat cuc dai cua chu trinh Pzmax, MPa"; pzmax / 1E+07; ' ",goc "; fpmax
PRINT " Ap suat chi thi trung binh, Pi, Mpa "; pi / 1E+07 PRINT " Hieu suat chi thi "; etai;
INPUT " Che do "; y 113 : CLS
vse:
KEY(1) STOP END