->

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

2 LETS1=2:LETK1=0.1

3 LETF0=0.45!LETft6=0 A LETM0=tPI»4E-7

5 PRINT

6 PRINTC . G

7

8 .. < ) 15 1

20 () L=L 22 INPUTPHA () = 24 () =

26 1 . () LSIGMA»L1 28 1. . () SIGMAO=J 30 INPUTMO (/"2) E=R 32 100 N=N

34 INPUTMHH. .. () 1= 36 INPUTMAKC, .. () 1=12 38 INPUT (G) A=G

40 (/-) GAMHA=61 2 INPUTKOHTAKTHOE () =

44 INPUTMAKC. . . QMAKC=Q INPUTMAKC. UMAKC=U1 48 INPUTMHH. UMHH=U2 50 INPUT =6 55 LETC=(2.»R»B«H"3./(2.*L-Ll)-3.) 60 LETK9=2.2«I2/(I1*I2) 65 LETFl=C*J«K6if (l. + l./(Kl+Sl))/3. 70 LETF2=0.033*B*H«L»GH<G 75 LETY9=(F1+F2)/F1 80 LETT9=1.+0.004*(Q-20.) 85 LETH9=(U1+U2)/(2.«U2)

90 LETZ9=K9»T9)(H9«SQR(Y9)

91 PRINTBBETE

92 INPUT 1 , !

94 IF 1=0 GOTO 98

95 IF 1=1 GOTO 115

96 PRINTHEPABH 91

98 () =4

99 LETY8=K6»C«(J-lE-5)+F

100 LETF1=Z9»SQR(2»M0»B)(L1*N»Y8) 105 LETS=Fl/(0.9itB6>-

JIO LETB=2»SaR(S/iPI)

lis (A/M2) J=J3 120 LETQ1=Z9»(I1+I2)*SQR(N)/(J3»2»F0) 125 () LOsLO

130 LETH0=Q1/L0

131 1 () DB

132 INPUTOTHOCHT. . . 134 IF 1=1 GOTO 138

136 IF 1"0 GOTO 270

138 PRINTBHCOTA

139 IF 1=1 GOTO 141

140 IF 1=0 THEN 270:PRINTHEPABH :0 133

141 INPUTBHyTPEHHHH DBH.=U7

144 1« DH.=D7

145 () LK»L7

146 INPUT- () 11)»4

147 INPUTOTHOC. . . 4

148 INPUTOTHOC.. . 7 132 ? 2

153 IF 2=1 THEN 204

154 IF 2=0 GOTO 156

155 152

156 DO=DO 160 LETR1=(L7-H4)/(2.512E-6*M»B»H) 165 LETR2=L0G(B0/D8)/(2*M0«SFI»H4)



170 LETR3=l.DC (tB7+V7) 7 (7.»D0)) / (2»M0)(tPI«M4»hi) 175 LETR4=4»(L7~h»/(M0»JPI)fH7»(B7\2~V7"2)) 180 LETGA=1/ (R4+2!<R3+7-)(R2/N+2«Rl/H) 185 LET65=2*M0i({PI)((ri7-2«lM}/<L0G(V7/D8/N)> 190 GOTO 380

204 .=1.

208 INPUTHApyxHtifl Ii3.H. = D3

21b Ii3.BH.=V3

212 INPUTOTHOCHT. . . =

215 LETR1»(L7-L3-H4)/(2!«M0»M»H«B)

220 LETR2=(LOO(V3/B8))/(2«0»1«13)

225 LETR3-2*(L3+0.5«H4)/(0»?1»(--))

230 4=1.06 ((D7+V7)/(+))/(2»M0isfpIxM4«H4)

£35 LETR5= (I.7-H4) / (M0)(tPI)(M7» (D7"2-V7-2! >

240 LET04»l/(R5-i-2»R4+2»R3-i-2!«R2/N+2»Rl/N)

243 LETOSS*tPI»MO» (L7-2)(H4} / (LOG (V7/Ii3))

;£50 GOTO 300

270 4 LC=L5

273 .09

275 INPUTOTHOCHT. . . 4 =

274 INPUTOKPAH 7 »2 278 IF 2=1 GOTO 324

280 IF 2=0 GOTO 285

281 1 0! 274

25 INPUTOTHOCHT. . . 288 »»9

290 1)0=

291 LE1RI=4H.5/(H0)(*PI»H5«2) 295 1.2(5+9)/(2)(0«»)

300 LETR3=L0G(B9/DJ/(2*M0XJPI»«9)(H9) 305 LETR4=L0G(B0/»8)/(2»M0ii-iPI»H9) 310 LET64»:l/(Rl+2*R3bR3+2»R4/M+2)!R2/N) SIS LETX5=((0.5»b9)-B\;-B82)/(2)!b«D8)

317 LETN8=2)(X5+SQR(4)(XS-2-l)

318 LETN9=L0G(N8J

320 l.ETG5=4PI)(M0Xt5)(N/N9 325 GOTO 380

324 INPUT ..» S27 INPUT ..

328 INPUT .=4

329 L3. = L3

330 INPUTOTHOCHT. . , =

335 LETRI=4«L5/(N0i(JPI«N5«B>2)

340 LETR2=Loe ((D3+v3) / (2*»))/ (20!«41)(5»4)

345 LETR3»2«(L3+0.5KH4)/(m0)(fPI»M3«(D3"2-V32))

350 = (L5-L3) / {2

353 LETXS=(B9\2-Da2-D"2)/(2»BifD8)

355 LETR5=I.OG(XS+3QR(X5"2-l))/(2!(MOXtPI)(L3)

340 LETG4=l/(Rl+2»R2+2»r3+2i(R5/N+2)(R4/N)

370 LETeS=2)(h0»JPI»L5/L0G(v3/D)

380 LETG7=M0i(N»B«Ll/J

385 tXTK2=G4/G7

390 letk3=0.02»G3/G7

395 . -Gi

PRINTMAFHHT. . =G5

/(05 PRINtK03«. =2

410 . . . =

ill PRINT 4 i MOIETE

412 PRINT 4

413 PRINTH . 415 LETJ2=J/3i((2-l/(K2+K3))

418 INPUT 4 V >4 420 IF 4=0 GOTO 431 423 IF 4=1 GOTO 91

430 PRINTHEnPABIWbHtro :00 418

431 101=2/3«Jit CI / (K2+K2) 1 «»((6/ »!.!)



434 let 1=2/3)1 J*(1/k2+1+k3/k2)»s0r (01) 438 t.eti3=h<29

442 LET02=SQR(2«N«C«(J-lE-5)«K6/(H0«B»Ln) 446 14=0«1-5«(15+2+)/2 450 LET05=1.5K- (1 + 1-5/3» (k2+k3)) /(1+k2+k3) 454 let06=3«(1-1E-s/j)»(k2+k3)/(1+k2+k3)

458 LETK8=05»sor(06)

459 PRINTCnOCOB 104 V

460 INPUTnO 1 , as 475 IF A1=0 goto 482

4b0 GOTO 485

482 4 D-D H

4b5 INPUT DB0=V2

490 letss=02+h0

491 IF 45=1 GOTO 605

492 IF A5=0 GOTO 495

493 1 : 460 495 LETS6=S0R(I4E-8»s5»I3/(U1+U2)) 500 1 =S6

505 INPUTBblBEFMTE

510 S7

516 INPUTKOSO. FO=F0

520 SOTO 650

565 LETMI=01/s7"2

570 LETW2=4»01»FO/(iPI«S8"2)

575 LETR8=7E-8«S5«Ml/(tPl»s8"2)

580 LETR9=7E-8»s5«M2/(tPI»S8"2)

585 1040 -Ml 587 PRINTEE =R8

589 1040 () =W2 591 PRINTEE =R9 600 GOTO 660

60S ? 1 = 46

610 LETW=I3/I6

615 LETS7=SQR(Q1/M)

619 1

620 FRINTnPH B1=s7

621 PRINTBWBEPMTE 1

622 FRINT);A 625 INPUTee3 D=S8

627 INPUTC =S2

630 INPUTh ». FO=FO

635 LETS6=SOR(4»01»fo/(}PI«U))

636 PRINTAMETP <)

637 LETR8=7E-8«S5«w/(jpi»s8"2)

638 INPUTBblBEPHTE « s9

639 LETR9=7E-8»SS»M/(iPI«S?"2)

641 1040 =W 644 100 R8 646 PRINTCOPOTBEHE () =R9 648 LET04=G7»G6/(G7+G6)

650 PRINT

651 PRINTOHEHHTE 4

652 PRINTnO . 0.4

653 INPUTnOETOPHHH 4 77

654 IF 7=1 GOTO 120

655 IF 7=0 goto 657

656 FRINTHEnPAEHflbHHH :00 653

657 IF 5=0 GOTO 565

658 LET04=g7»G6/(G7+G6)

660 PRINTXKAXHTE

661 10 1 , <) 8

662 if 8=1 GOTO 670

664 if 6-0 GOTO 750

665 0:0 661 670 if 5=1 GOIO 675



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