C w= 1.57 * M * kxp' toc do lon nhat piston rw =
T a= 340' Nhiet do moi chat dau qua trinh nen K lam = 25' y so lam da
tnc = 320 '338 nhiet do trung binh cua nuoc lam mat tc = 400 ' 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
k = 1.37
df = .5'...Buoc tinh toan , do t.k. e = 12.5'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
RETURN72 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 LOCATE 4, 1
PRINT " Da tinh xong " PRINT " Lua chon che do: "
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 = 20 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 " 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
LOCATE 4, 12: PRINT " Ket qua tinh toan " 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
Tài liệu tham khảo