->

(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) (39)

iyPRINT-yMEHblllAHTE -*

693G0T0 620

700IP F0<=27S THEN BOO 710REM »«»=2»»» 48 720LET Y=2

730IF V<=1 THEN LET A=7.37S-4.375»U 7iOIF V<=0.6 THEN LET A=9.162-7.353x0 7S0IF 0<=0.43 THEN LET A=l 1.755-13.385>fV 760IF V<=0.3 THEN LET A=14.52-22.6»V 770IF V<=0.2 THEN LET A=17.407-37.037*0 780IF V<=0.146 THEN LET A=20.111-55.556» 790G0T0 900 800REH»»»y=l»»»PHC48 810LET Y=l

820IF V<=1 THEN LET A=3.6-2*0

830IF V<=0.5 THEN LET A»5.1-5*0

840IF V<=0.4 THEN LET A=6.1-7.5*0

850IF V<=0.28 THEN LET A=7.29-11.765*0

860IF V<=0.195 THEN LET A=8.362-17.241*0

870IF V<=0.137 THEN LET A=ll.184-37.838«V

880IF V<=.1 THEN LET A=14.4-70*0

890IF V<=.07 THEN LET A=25.25-225*0

900LET D7=A*r

905PRINT

909LET D7=INT(07*100)/10

9101- - "!d7f

911PRINT" MM, (-1)*;

920INFUT W2

930IF .W2O0 THEN 960

939FRINf

940- "

945FRI.NT;"nPEflklflyfflEE , "!

947PRINT"H0B0E (0.75 - 4) "!

950G0T0 631

960IF Y=l THEN 1330

970**»=2«*« 50 - J1=F(T)

9B0IF F0{=425 THEN 1020

990IF F0<=475 THEN 1070

lOOOIF F0<=F9 THEN 1120

1020REM F0=400K

1030IF T>=.75 THEN LET Jl=1.667*T-.5 1040IF >=1.5 THEN LET J1=2.3«T-1.45 1050IF T>=2.5 THEN LET Jl=3.419»T-4.2478 1060IF T5=3.18 THEN LET Jl=5.03-9.37 106SDDT0 1190 1070REH F0=450K

1080,>=.75 THEN LET J1=1.413*T~.44 1090IF T)=1.5 THEN LET Jl=2.02*T-1.35 UOOIF T>=2.5 THEN LET Jl=2.618*1-2.845 lUOIF T)=3. 1825 THEN LET J1=3.926»T-7.015 1115G0T0 1240 1120REM F0=500K

1130IF T>=.7S THEN LET Jl=1.2*T-.5 1140IF T)=1.5 THEN LET J1=1.88»T-1.52 1150IF T)=2.S THEN LET Jl=2.107*T-2.087 1160IF T>=3.25 THEN LET Jl=2.987*1-4.947 1165G0T0 1290

1170REM»»*y=2*»»FHC 52 - J2=F<T) 1190REM F0=400K

1200IF T>=.75 THEN LET J2=19.9-4.533*T 1210IF >=1.5 THEN LET J2=18.125-3.3S«T 1220IF T>=2.5 THEN LET J2=14.333-1.833*T 1230G0TQ 1600 1240REM F0=450K

1250IF T>=.75 THEN LET J2=19.03-4.533»T 1260rF T)1.5 THEN LET J2=17.625-3.35*7



1270IF )=2.5 THEN LET J2,= 13.833-1.833«

1280G0T0 UOO 1290REM FORSOOK

1300IF T>=.75 THEN LET J2=17.7-3.933»T 1310IF >=1.5 THEN LET J2=17.025-3.35»T 1320IF T>=2.5 THEN LET J2=13.233-1.833 1325G0T0 1400

1330REM««»y=l»«»PHC 49 - J1=F(T) 1340IF F0<=175 THEN 1370 1350IF F0(=225 THEN 1430 1355IF F0<=275 THEN 1490 1370REH F0=150K

ISaOIF T>=1.5.THEN LET J1=3.013»T-1.26 1390IF >=1.5 THEN LET Jl=4;24»T-3. i. 1400IF T>=2.5 THEN LET Jl=5»T-5 1410IF T>=3 THEN LET J1=7.22»T*11.44 1420G0T0 1540 1430REM F0=200K

1440IF T> = .75 THEN LET Jl = 1.933«T-.7 1450IF >=1.5 THEN LET JI=2.614«T-1.724 1460IF T>=2.1BB THEN LET J1=3.387»T-3.41 1470IF T>=3 THEN LET Jl=4.5«T-4.75 14B0G0T0 1540 1490REH F0=250K

1500IF T>=.75 THEN LET JI=1.413«T-.56 1510IF >=1.5 THEN LET Jl=2.13«T-1.635 1520IF T>=2THEN LET Jl=2.666»T-2.708 1530IF.T>=3.5 THEN LET Jl=3.25»T-4.75 1540REH)(«)(y=l)(»«PHC 52 - J2=F(T> 1550REM F0=250K 1560IF T)=.75 THEN LET J2=30.7-6.4«T 1565IF T>=2.5 THEN LET J2=26.975-4.95«T 1570IF T>=3 THEN LET J2=23.675-3.B5«T 1590IF T>=3.5 THEN LET J2=ia.6-2.4*T 1600REH . COUP. 1601LET J1=J1»1E-3:LET J2=J2«lE-2 .1610LET Rl=39.47a»PO»F2»Jl/42 1620REM 1630LET C=SDR(0.212ifK«Rl)/(E2«P0>-0.23 1632LET =»10

1633LET C=INT(C»1000V1000 1635PRINT

1640PRINT"AMETP , MM ";C

USOPRINT-yCTPAHBAET (-1)"!

1660INPUT

1670IF U3O0 THEN 1740

1680PRINT

1690PRINT"T0A " 1700PRINT

1710PRINT"1PEHEE , ":

1720PRINT"H0B0E I ">:INPUT

1730G0T0 670

1740REM 4»»**»»»*»»

1750LEt"u=K«R1/1.176

1760LET R-2«U

1770REM .. 17B0IF =1 THEN 1990 1790REM«»«y=2»)«PHC53 NT=F(T) laOOIF F0(=425 THEN 1810 1B03IF F0<=475 THEN 1870 1805IF F0<=F9 THEN 1930 1810REM F0=400K

ia20IF T>=0.75 THEN LET Z=.327»T+2.23S ia30IF >=1.5 THEN LET Z=.44»T+2.09 1840IF T>=2 THEN LET Z=.605»T+1.7.6 1860GOTd2090



1870rem f0=(50k

18b0if T)=>.73 them LET Z=.3(7»T+2.23 1b90if T) = 1.5 then let z=:.51»T+2.035 1900if T>-2 THEN let z=.49«T+1.675 1910if T>=2.5 then LET z=.b«T+1.4 1920G0r0 2090 1930rei1 fo-SOOK

1940if T>=-.75 then let z=.-i«T+2.37S 1950if T>=1,3 then let z=,57»T+2.02 1960if T>=2 then let z=-.82»T+1.52 19701f T>=2.5 then let z=l.U»T + .793 1980g0td 2090

1990rei1»»»>4»»»phc 54 NT=F(T> 2000if f0<=175 then 2010 2005if ro(=275 then 2050 2010rem f0=150k

2020if T>=.75 then LET Z=-0.076»T-1.29a 2030if T>=2 then let Z=-0.0375»T-1.373 2040g0t0 2090 2050rem f0=20OK

2060if T> = .75 then let Z=-.0b3)tT-1.3123 2070iF > = 1.5 then LET Z=-.0685«T-1.333 2080if T>=2.5 then let Z=-.043»T-1.339 2090let F-r/(z»z)

2100rem

2105if n01 then 2115

2108let d8=0.6366»sqr(u.A6A7i<al»p)

2110g0t02118

2115let D8=SaR(5»p/Ql)

2118let 8=8/(»)0.23

2h9let 8=8)0

2120print

2123let d8--iNT<bb«1000)/1000

2131" ";ai!

21331f n0=1 then 2136 2134frint"m ." 2135g0t0 2138

2136print"h "

11" . ";

2139friht

21401" (-1)"»

2isoinput u4

2160IF u4o0 then 2330

2170frint ,

2180FRlNr"4T0 :"

1811" - (."

2121" (2)."

21831" (3)

2190 input w5

2200if w5=2 then 2260

2205if w5=3 then 2310

2210print

22301"1»1 - ) "; 2230print (0.73 - 4) "! 2240 input 22500010 670 2260print

2701" ";0

";ni

2!901-0 "!:INFUT

230

2310print

2320000194

2340tF N0=1 THEN 2370 2330LET l3=3»c3/(2»F0»10O0>



(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)