C w= 1.57 * M * kxp' toc do lon nhat piston rw =
77 LOCATE 2, 3: COLO R
'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 5, 48: PRINT "THONG SO DAU VAO "
LOCATE 8, 48: PRINT "KET QUA TINH TOAN"LOCATE 5, 1: PRINT "2500K" LOCATE 5, 1: PRINT "2500K"
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 21, 50: PRINT USING "Pe = #.#### MPa"; Pe / 1000000 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 IF f = fv THEN END
'*********40 40 Pa = 130000: tc0 = 420: N = 210: d = .46: s = .88: fps = 13: b = 625: i = 6 doamf = 90: d1 = .025 'tc0 = 380: N = 210: d = .46: s = .88: 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 Klam = .25'...Ty so lam da