->

(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30) (31) (32) (33) (34) (35) (36) (37) (38) (39) (40) (41) (42) (43) (44) (45) (46) (47) (48) (49) ( 50 ) (51) (52) (53) (54) (55) (56) (57) (58) (59) (60) (61) (62) (63) (64) (65) (66) (67) (68) (50)

2154IF 8=1 THEN2220

21A0REM .,09 2U2PRINT

2180PRINT"BBESMTE ()"j(THPUT hi

Z181LET H3=D9-D8+2»B

2183LET Q=D9yD8:LET 0=1+1»

Z185LET R1=D9+2«H1:LET Il=D8-2»Hl»a

Z18ALET R2=Rl:LET 12=11

2189PRINT

2190PRINT"B .BHBEPKTEf 21911" () - . 02" Z194PRINT

2195F0R =1 N1-1 Z197LET Y=N4(K)

2200PRINT-0BM0TKA"!Y!- (B)";U8(Y) 22051-)»000 () -,:INPUT H5(Y)

2206PRINT 2210NEXT

Z215PRINT-BBETE 10 ()".;INPUT 2217PRINT

Z220LET Y=N4(Nl):LET H5(Y)=0 2230IF D2(Y)<=1.56 THEN LET KB=1.25 2240IF D2(Y)<=0.8 THEN LET K8=1.2 2250IF D2(Y)<=0.3 THEN LET 8=15 22iS0IF I)2(Y)(0 THEN LET K8=l.i 2270LET T9=0:LET J=0 2273IF J=0 THEN 2280 Z274LET R1=R2:LET 11=12 2280F0R K=l 1*0 N1 2290LET Y=N4(K)

2300IF D2(Y)<=1.56 THEN LET 9=1

2310IF D2(YH=.8 THEN LET 9=15

2320IF D2(Y)(=0.3 THEN LET K9=1.2

2325IF ()(02 THEN LET K9=1.25

Z330LET L=U(Y)»D2(Y)»K9

2340LET X=4l59»(Rl-B2(Y))

2350LET 8»12.56636»L«D2(Y)

2360LET Z=6.28318»D2(Y)

Z370LET Yl=4159(Il+D2(Y))

2380LET N9=(-X+SaR(X»X+S))/Z

2390LET N8=(Yl-S0R(Yl»Yl-S))yZ

2392IF N9()INT(N9) THEN LET N9"INT(N9)+1

2394IF N8C)INT(N8) THEN LET N8=INT(N8)+1

2400LET L9=N9»D2(Y)«K9

2410LET L8=N8»D2(Y)»K9

2420LET R1=R1+2»L9

2430LET U-I1-2»L8

2435REM .CP.

2440IF KOI THEN 2470

24S0LET L2(Y> =H3+1.57295» t2»M0+L9+L8)

2460LET M=L9+L84H5(Y)+H3(Y>»R1/I1

2465G0T02490

2470let L2 <Y)=H3+1.57295»(2»(MO+H)+L9+L8)

2480LET M-M+L9+L8+H5(Y> +H5(Y)«R1/11

24a5REM CP.

2490LET Rl-:R1+2«H5(Y>

2S00LET I1=I1-2»H5(Y>»R1/I1

2505REM

2510LET R(Y>«2.35E-5»L2(Y)«W(Y)/S3(Y)

2315IF T9=l THEN 2590

2S20LET U3(Y)=I(Y)«R(Y>»100/UCY)

2530IF YOl THEN 2560

2S40LET U(1)=U(1)»(1-U3(1>K0.01)SIU

2550GOT02570

2560LETU(Y)«U(Y)»(1+U3(Y)»0.01)«U

2570IF W(Y)(>INT(W(Y)) THEN LET W(yj=INT(W(Y)J«



25801"";!0 -;«() 2590NEXT

2600IF J=l THEN 2630 2610LET T9=1:LET J=l 2A20G0T0 2273 2630LET Rl=Rl+2»Hi 2640LET I1=I1-2«H4»R1/I1 2650LET 11=11»8-»8-1) 2655LET I1=INTCI1*100)/100 2657PRINT

2iS60PRINT"SHAMETP () "! 2670IF 11)=10 THEN 28U 2680PRINT"WEHbBE )"

2iS90PRINTBAHH : (-!)" 2700PRINT"EETE PAC4ETA"!!lNPUT El 2705IF ElOO THEN 28

27101" QBMOTKAX"!!INPUT 2 2715IF 2=0 THEN 2735

2720PRINT" -.

2725PRINT"H0B0E -.5.9 (,.177) "J 2726INPUT 2 2730G0TO 2010

27351" "!:INPUT 2740IF 3=0 276S

27i5PRINTCTftP0E " !1 2750PRINT"H0B0E -.5.9 (..197) 2755INPUT 1 2760G0T0 507

2765PRINT"ETE; "!!INPUT 5 2770IF 5=0 THEN 2780 2775G0T0 505

2780PRlNT"ByaETE " INPUT 4 2785IF 4=0 THEN 2795 2790G0T0 2180

27951" ";:INPUT E2

2800IF 2=0 THEN 266Q

2805G0TO2050

28UPRINT

2815LET Rl=Rl»Ka-D9S((K8-15tLET H=B+D8-U 2820REH . «

2830PRINT-nQ .5.7 (tlT.CTP.18A), PAEOHES" 28311" . " 2840PRINT"PEEHA "!:INPUT 2845PRINT-K03MMHMEHT M"iJ!lNPUT 2850LET =0 2860F0R =1 N1

2870LET P4=U2 (Y) «W tY) StS «)»1-:» (VI SSi;() 2880LET P=P+P4 2890NEXT

2895LET P=INT(P»100)/100 2899PRINT

2900PRINT"CyMHAPHHE ()", 2905PRINT

2910RE«

2920PR:HT"BBEaMTE 11 OKP)X«EK * 2921FRmTCPE«U - 50 70 "! 2925INPUT 2927PRINT

2930IF =50 THEN 2945 2935IF =70 THEN 2943 2940PRINT"nOBTOPnTE 0".!00 2923 2945LET Q1=50:LET J1=1:LET C=l 2946IF P2)15Q THEN LET 0=1.25 2950LET H2=(H+R1-I1)«0.001 2955LET A=5.iS/((Hl)0.25) 2960LET S).=3.).4159itRHt(H+Rl/2)«0.0001



2961LET S1=S1«0.01 29A51-et Tl=t+273+al 2970IF t=70 THEN 2970

29801.ET L3=U)lA+38)«O.0OmTl-(0.91»a+5.a) 298560T0 3000

2990LET L3=(t.6i»a+37.8)»0.0Ol«Tl-(1.23«At4.76)

3000LET Zl=L3ilSl

3010LET a=(P3+p)/CZl-0.004«p«C)

3015(1-;";;" (rpAa.)"jQ

30uif .Jl>a then 3030

3020 lFABSCa-OlXl.5 THEN 3030

3025LET B1=B:LET Jl=Jl+l!G0T029i55

3030let a2=a»c

3032LET a2=INT (02X10)/10

3035PRINT"CPESHE0BEMH0E ()"502 3050PRINT"yCTPAHBAET (-1)INPUT 6 3055IF THEN 3155

3060PRINT"t0a (-1)" 30651" 1 ";:INPUT 7 3070IF 70 THEN 3155

30751 ";:input 8

3080IF =0 THEN 309

3085GOT02050

3090" , »

3091INPUT 9

3095IF 9=0 THEN 3033

3100PRINT"CTAPWE S"

31021" ",1

3103PRINT"T0K (Z)";IO

31101"00 ",2

3120PRINT"H0BHE - .5.9 (1],.197) 31251" ",!INPUT 1 31301"00 ";:INPUT 2 3135G0T0 505

3155LET N4=P2«100/(P2+P3+p) 3156LET 10=1(10*10)/10 3157LET N4=INT(N,»10)/10 31A0LET I(l)=INT(I(l))HOOO>yiOOO 3170F0R =1 TO N1 3180LET R(K)=INT(R(K)«100)/100 3190LET B4()=INT(B4()«1000)/1000 3200LET V1(K)=INT(V1(K)»100)/100 3210LET (K)=INT(U3(K)«100)/100 3250NEXT 3999PRINT

tOOOPRINTEXSETE (SA-i)"!.-INPUT 24

400SIFZ6=0THENEND

4006PRINT!FRINT:PRINT

4007PRINT:PRINT:PRINT

40101" . ()"; 4013PRINT

40201 ()";2 40301".11.. () ";N3«100

4031"... (Z) "!n4

4001"0 (Z) ";10

40A5LET 0=INT(0«10)/10

40471" ()"; 0501"00 ()";02 4051PRINT"n0BEPXH0CTH0E ()"; 4055PRINT /lOAOFOR 1=1 071 40AIPRINT"-";!NEXT bPRINT

4070PRINT"\ 00""\ ","\ 0","\ .",

407irRINT"\ \"

40B0PRINT"\ n","\ "." ft">"\ =+105 C"i

40S1PRINT"\T0KA A/lMMjw



(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30) (31) (32) (33) (34) (35) (36) (37) (38) (39) (40) (41) (42) (43) (44) (45) (46) (47) (48) (49) ( 50 ) (51) (52) (53) (54) (55) (56) (57) (58) (59) (60) (61) (62) (63) (64) (65) (66) (67) (68)