- - . ( 150 ) , . GOSTRF.com - 1 . - . . ! , - !

  


||   ||   ||
- :
 


( )

-

()

224

17.07.87

 

.
-

 

50-54-20-87

 

 

1987

 

. -

50-54-20-37

01.01.88 .

-226 - (), - .

1.

- .

, , . .

. . 16532-70; 19326-73; 19624-74 19650-74.

() -226. - . - .

( , ) ( ), -015-87 .

, , .

, -, 306 (77 ).

, , : 127003, ., . , 4, .

- (8-).

2.

2.1. () .

():

b - ;

z1 - ;

z2 - ;

m - ;

aw - ;

bw - ;

X1 - ;

2 - .

aw, X1 2 , - X1 X2 w ( ).

13755-61 .

:

a - ;

ha* - ;

hl* - ;

* - .

.

2.2. (), . 2 - 6 16532-70. ( , ).

, ( , ), , .

- . 2.1.

- - 16532-70.

. 2.1. -

2.3. , . 2.2. 2.3. , 2.403-75.

, , .

2.4. 1.

2.5. :

- GCL;

- -02;

- -226 ( : , );

, , - 57 ( 15 ).

: LOADDCR{F}GCL

. 2.2. ()

. 2.3. ()

, .

3.

3.1. , :

z1 - ;

z2 - ;

me - ;

- ;

do - ( ).

13754-81 .

:

a - ;

ha* - ;

* - ;

ρf* - .

. , , .

3.2. , . 2.4 19624-74. ( ) ( , , ).

X1 , , . 1 2 19624-74:

u - .

X1.

- . 3.1. - - 19624-74.

3.3. . . 3.2 3.3 2.405-75.

, .

3.4. 2.

. 3.1. -

. 3.2. ()

. 3.3. ()

3.5 :

- G;

- 02;

- -226 ;

, , - 70 (≈ 17 ).

: LOADDCR{F}GKP.

, . .

4.

4.1. , ;

z1 - ;

z2 - ;

:

mn - ,

mt - ;

i - ;

bn - , ;

∑ - ;

n1 - ;

O - ( ).

Xn1 Xn1 z1, u bn.

. .

:

an - ;

ha* - ;

* - ;

ρf* - .

16202-81 .

4.2. 19326-73.

- . 4.1. - 19326-73.

4.3. , . 4.2 4.3. , 2.405-75, , .

4.4. 3.

. 4.1. -

. 4.2. ()

. 4.3. ()

4.5. :

- GKK;

- 02;

- -226 ;

, , - 136 ( 34 ).

: LOADDCR{F}GKK.

, . .

5.

5.1. () (), :

m - ;

q - ;

z1 - ;

ZA, ZI - () (, );

aw - ;

X - ;

z2 - ;

b1 - .

aw b1 . .

aw X, .

.

:

a - ;

h* - ;

ha* - ;

S* - ;

ρf* - .

5.2. 19650-74 ( 1 - 4) 19036-81 ( 226-76).

- . 2.1. - 19650-74.

5.3. , . 2.2. , 2.406-76.

5.4. .

5.5. :

- GC;

- -02;

- 43 (11 );

- -226 .

: LOADDCR{F}GCH.

, .

.

. 5.1. -

. 5.2.

1

GCL

- 16532-70

10 % -----------------------------------------------------------------------------------------------------

20 % . .

30 % - . 01.12.86.

40 % -----------------------------------------------------------------------------------------------------

50 J1%: IF S%>0 N 70

60 RIN (03):RIN ? (+ , - ): INPU :IF Ѥ:+ N 3560

70 CLEAR N:DIM 40, 40, 48, 25, 45

80 = , *

90 G= R/LF Ļ

100 ʤ= 21, 22,

110 = IF S%>0 N 530

120 RIN (03); ɻ

130 IN ߻, (0)

140 IN (12); Ȼ, (0)

150 RIN (11)

160 =1; D=2; =.25; 2=20

170 INUT ? (+ ; - ); 1IF 1=+ N 280

180 RIN

190 INUT . ..... A=,

200 INPUT . . ..... HL=, D

210 INPU . . .... =,

220 PRINT A (15-25) ... A2=, A2

230 IF A2<15 R A2>30 N 220

240 INPU (0-60) ... =, Y5

250 IF Y5<0 R Y5>60 N 230

260 INPUT C(0-60) ... =, Y6

270 IF Y6<0 OR Y6>60 N 260

280 INPU (0-40) =, Y1

290 IF Y1<0 R Y1>40 N 280

300 INPU (0-60) =, Y2

310 IF Y2<0 OR Y2>60 N 300

320 INPUT (0-60) =, Y3

330 IF Y3<0 R Y3>60 N 320

340 PRINT (1-50) ...... =,

350 IF <1 OR >50 N 340

360 INPUT (8-200) .. =, Z1

370 IF Z1<8 R Z1>200 N 360

380 INPUT (8-200) ... =, Z2

390 IF Z2<8 OR Z2>200 N 380

400 INPUT (5-1000) ... =, 1

410 IF 1<5 R B1>1000 N 400

420 INU . ? (+ ; - ), 2

430 IF 2=+ N 440: 1=0; 2=0; GO 490

440 RIN . , ; 1=0, 2=0

450 INPU . (-2 - +2) ... 1=, 1

460 IF 1<-2 OR 1>2 N 450

470 INPUT . (-2 - +2) ... 2=, 2

480 IF X2<-2 R 2>2 N 470

490 INPUT (0 - 5000) =, :(1)=

500 IF <0 OR A>5000 THEN 490: IF H2=+ AND X1=0 AND X21=0 AND A=0 THEN 510: GOTO 520

510 RIN X1, 1 AW: G 420

520 19=#PI/180: =(Y1 + Y2/60 + Y3/3600) * I9:A2=(A2 + Y5/60 + Y6/3600)*19

530 =(03):D=(12):=H(11):F=(07):SL R

540 Z3=Z1 + Z2: A3=Z3*/(2*OS())

550 R1=AN(R2)/OS():A4=ARAN(R1):A5=AN(A4)-A4

560 5=--Z1*(SIN(A4))↑2/(2*OS()):5=ROUND(5,3)

570 6=B--Z2*(SIN(A4))↑2/(2*OS()):6=ROUND(6,3)

580 IF A=0 N 710

590 A1=A3/A*OS(A4): IF A1>1 N 610

600 A6=ARCCOS(A1): A7=AN(A6)-A6: IF 2=+N 640: A=A3: GOO 770

610 RIN ,F

620 PRINT AT(10,5):PRINT D, K: PRINT AT(12,18): PRINT G,E

630 INPUT I: IF I<99 HN 70

640 IF 1=0 AND 2=0 N 650: G 710

650 3=Z3*(A7-A5)/(2*AN(A2)):A3=ROUND(X3,3)

660 RINT Ѥ: RIN A(9,5): RIN 1+2=; X3: RIN: IF 3>3 OR X3<-3 N 700

670 RIN . : 1(IN)=; 5

680 RIN 2(MIN)=; 6: RIN

690 INU 1=, 1:2=3-1: GOO 780

700 RIN , Ļ: PRINT: GO 160

710 X3=1+2: A7=2*3*AN(A2)/Z3+A5

720 1=.00001:A0=(3*A7)↑(1/3)

730 0=AN(A0)-A0:D5=A7-0:D6=D5/A0↑2

740 D6=D6*/63:A0=A0+D6

750 IF AS(D6)>1 N 730

760 A6=A0:A=Z3**OS(A4)/(2*OS()*OS(A6))

770 3=1+2

780 Z5=2*(D--1)*OS()/SIN(A4)↑2:Z5=ROUND(Z5,4)

790 Z6=2*(D--2)*S()/SIN(A4)↑2:Z6=ROUND(Z6,4)

800 IF 5>1 AND 6>2 N 840

810 IF 5>1 AND 6<2 N 870

820 IF 6>2 AND 5<1 N 900

830 GOO 930

840 PRINT , F

850 PRIN A(10,2): RIN D,; IN1>1, MIN2>2

860 RIN A(12,10): RIN G,: INPU I: IF I<999 HN 70

870 RIN , F

880 RIN A(10,5): RIN D,: XMIN1>1

890 RIN A(12,10): RIN G,: INU I: IF I<999 N 70

900 RIN , F

910 PRINT AT(10,5): PRINT D; B; XMIN2>X2

920 RINT A(12,10): RIN G,: INU I: IF I<999 N 70

930 IF Z5>Z1 AND Z6<Z2 N 970

940 IF Z6>Z2 AND Z5<Z1 N 1000

950 IF Z5>Z1 AND Z6>Z2 HN 1030

960 GOTO 1060

970 RIN C, F

980 RIN A(10,5): RIN D, : ZMIN1>Z1

990 RIN A(12,10): IN G, : INPU I: IF I<999 N 70

1000 RIN , F

1010 RIN A(10,5): RIN D, B; ZMIN2>Z2

1020 RIN A(12,10): RIN G, : INPUT I: IF I<999 HN 70

1030 RIN , F, F

1040 PRINT AT(10,5): PRINT: D, E; ZMIN1>Z1, ZMIN2>Z2

1050 RIN A(12,10): RIN G, : INPU I: IF I<999 HEN 70

1060 =/OS(B): D1=Z1*: D2=Z2*

1070 U=Z2/Z1: D3=2*A/(U+1): D4=D3*U

1080Y=(A-A3)/

1090 Y7=3-Y

1100 D5=D1+2*(+1-Y7)*

1110 D6=D2+2*(C+X2-Y7)*M

1120 D7=D1-2*(+-1)*

1130 D8=D2-2*(+-2)*M

1140 G1=D1*OS(A4):G2=D2*OS(A4)

1150 G3=G1/D5:A8=AROS(G3)

1160 G4=G2/D6:A9=AROS(G4)

1170 G5=AN(A8)-A8:G6=AN(A9)-A9

1180 P1=A*SIN(A6)-.3*G2*AN(A9)

1190 2=A*SIN(A6)-.5*G1*AN(A8)

1200 N1=2*P1/G1:N2=P2*2/G2

1210 3=SIN(B)*OS(A2):4=ARCSIN(3)

1220 5=2*A2

1230 S1=(#I/2*OS(A2)↑2+1*SIN(5))*M

1240 S2=(#I/2*OS(A2)↑2+2*SIN(5))*

1250 S3=.5*(G1*AN(A4)+S1*OS(4)/OS(A2))

1260 S4=.5*(G2*AN(A4)+S2*OS(4)/OS(A2))

1270 I S3>1 AND S4>2 HN 1330

1280 RIN , F

1290 RIN A(10,5): RIN , ջ

1300 RIN A(11,5): RIN . ߻

1310 PRINT AT(12,10): PRINT ROS<RO

1320 RIN A(14,10): RIN D; G, : INUT I: IF I<999 N 70

1330 1=.5*(D5-D1-S1*AN(A2)):2=.5*(D6-D2-S2*AN(A2))

1340 Z7=Z1*OS(A4)/(Z1+2*X1*OS(B))

1350 L1=AROS(Z7)

1360 Z0=Z2*COS(A4)/(Z2+2*X2*COS(B))

1370 L2=AROS(Z0)

1380 Z8=Z1/#I*(AN(L1)/OS(4)-2*1*TAN(A2)/Z1-A5)+.5

1390 Z9=Z2/#I*(AN(L2)/OS(4)-2*2*AN(A2)/Z2-A5)+.5

1400 Z8=RUND(Z8,0)

1410 Z9=ROUND(Z9,0): IF Z7>1 N 1420: GOO 1430

1420 Z8=3

1430 W1=(#I*(Z8-.5)+2*1*AN(A2)+Z1*A5)**OS(A2)

1440 IF Z0>1 N 1450: G 1460

1450 Z9=3

1460 W2=(#I*(Z9-.5)+2*2*TAN(A2)+Z2*A5)*M*OS(A2)

1470 W3=.5*W1/OS(4): W4=.5*W2/OS(4)

1480 W5=.5*D5*SIN(A8): W6=.5*D6*SIN(A9)

1490 IF 1<W5 AND 2<W6 N 1510

1500 W1=0: W2=0: Z8=0: Z9=0: G 1650

1510 IF 1<W3 N 1530

1520 Z8=Z8+1: GOO 1430

1530 IF 2<W4 N 1550

1540 Z9=Z9+1: GOTO 1460

1550 IF W3<W5 N 1570

1560 Z8=Z8-1: GOO 1430

1570 IF W4<W6 N 1590

1580 Z9=Z9-1: GOO 1460

1590 IF =0 N 1650

1600 =1/SIN(P4)

1610 IF H>W1 THN 1630

1620 W1=0:Z8=0

1630 IF >W2 THN 1650

1640 W2=0:Z9=0

1650 S5=(#I/2+2*1*AN(A2))*

1660 S6=(#1/2+2*2*AN(A2))*

1670 L3=#PI**OS(A2)

1680 IF B>0 THEN 1700

1690 6=0: G 1710

1700 6=#PI*M/SIN(B):7=Z1*6:P8=Z2*6

1710 L4=.5*D1*SIN(A4)-((D--1)/SIN(A4))*M

1720 L5=.5*D2*SIN(A4)-((D-C-X2)/SIN(A4))*M

1730 H= **********

1740 IF L4<0 AND L5>0 THN 1780

1750 IF L5<0 AND L4>0 THN 1780

1760 IF L4<0 AND L5<0 THN 1780

1770 G 1810

1780 RIN C; F

1790 RIN A(22,20): RIN D, B

1800 RIN A(23,20): RIN G, :I=:INUT I: IF 1<999 N 70

1810 IF L4>1 AND L5<2 THN 1850

1820 IF L5>2 AND L4<1 N 1850

1830 IF L4>1 AND L5>2 THN 1850

1840 G 1880

1850 RIN ; F

1860 RINT F78XWKKVWE7C9E AT(23,5): PRINT ;

1870 RIN A(24,20): RINT G, :I NUT I: IF I<909 N 70

1880 T2=(A1*TAN(A8)+Z2*TAN(A9)-Z3*TAN(A6))/(2*#PI): E3=0: IF B=0 THEN 1900

1890 3=B1/6

1900 4=2+3

1910 B2=D5/D1*AN():3=ARAN(2)

1920 4=D6/D2*AN():5=ARAN(4)

1930 S7=D5*((#I/2+2*X1*AN(A2))/Z1+A5-G5)*COS(3)

1940 S8=D6*((#1/2+2*X2*TAN(A2))/Z+A5-G6)*OS(5)

1950 6=B1+2: B7=6+3

1960 G9=180/#I

1970 A4=A4*G9:A6=A6*G9:=*G9:A2=A2*G9

1980 I8=B:B%=B: IF -B%>.99999 N 1990: GOTO 2000

1990 I8=ROUND(18,0):B%=%+1

2000 I7=I8-B%: I6=I7*60:I5=I6: I6%=I6: I4=I5-I6%

2010 I3=I4*60: I3=ROUND(I3,0)

2020 J8=A2 A2%=A2: J7=J8-A2%:J6=J7*60: J5=J6: J6%=J6: J4=J5-J6%: J3=J4*60: J3%=J3

2030 A3=ROUND(A3,3): A=ROUND(A,3): X1=ROUND(X1,3): X2=ROUND(2,3): 5=ROUND(A5,3)

2040 X6=ROUND(X6,3): D1=ROUND(D1,3): D2=ROUND(D2,3): U=ROUND(U,3): W2=RUND(W2,3)

2050 D4=ROUND(D4,3): D3=ROUND(D3,3): V=ROUND(V,3): V7=ROUND(V7,3): D5=ROUND(D5,3)

2060 D6=ROUND(D6,3): D7=ROUND(D7,3): D8=RUOND(D8,3): 1=ROUND(1,3)

2070 P2=ROUND(P2,3): S1=ROUND(S1,3): S2=ROUND(S2,3): H1=ROUND(H1,3)

2080 H2=ROUND(H2,3): Z8=ROUND(Z8,3): Z9=ROUND(Z9,3): W1=ROUND(W1,3)

2090 L3=ROUND(L3,3): P6=ROUND(P6,3): H7=ROUND(H7,3): P8=ROUND(P8,3)

2100 L4=ROUND(L4,3): L5=ROUND(L5,3): 2=ROUND(2,3)

2110 E3=ROUND(E3,3): E4=ROUND(E4,3): S5=ROUND(S5,3): S6=ROUND(S6,3): G1=ROUND(G1,3): G2=ROUND(G2,3): P4=ROUND(P4,3)

2120 4=4*G9: F1=P4: 4%=4: F2=F1-4%:

F3=F2*60: F4=F3: F3%=F3: F5=F4-F3%: F6=F5*60: F6%=F6

2130 N1=N1*G9: F(1)=N1: N1%=N1: F(2)=F(1)-N1%: F(3)=F(2)*60: F(4)=F(3): F%(3)=F(3): F(5)=F(4)-F%(3): F(6)=F(5)*60: F%(6)=F(6)

2140 N2=N2*G9: N(1)=N2: N2%=N2: N(2)=N(1)-N2%: N(3)=N(2)*60: N(4)=N(3): N%(3)=N(3): N(5)=N(4)-N%(3): N(6)=N(5)*60: N%(6)=N(6)

2150 RINT Ѥ

2160 RINT D; Ȼ; : RINһ

2170 RIN . . . =; 3; (40); AW=;

2180 RIN . . . 1=; 1; (40); . . 2=; 2

2190 RIN . . . Y=; (40); . . . Y1=; Y1

2200 RIN =; %; л; 16%; ´; I3; ´´; (40); U=; U

2210 RIN D1=; D1; (40); ************ D2=; D2

2220 RIN DA1=; D5; A(40); ************ DA2=; D6

2230 RINT DF1=; 7; (40); ************ DF2=; D8

2240 RIN DW1=; D3; A(40); ************ DW2=; D4

2250 RIN S1=; SC1; A(40); ************ S2=; S2

2260 RIN . 1=; 1; (40); ************ 2=; 2

2270 RINT W1; W1; AB(40), ************ W2=; W2

2280 RIN . "

2290 RIN ZNR1=; Z8; A(40); ************ ZNR2=; Z9

2300 RIN ALFA=; L3; (40); =; 6

2310 RIN ; ; : STOP NTINUŻ

2320 RIN

2330 RINT Z1=; 7; (40); *************Z2=; 8

2340 RIN .

2350 RIN RL1=; L4; A(40); *************RL2=; L5

2360 RIN .

2370 RIN RP1=; 1; (40); *************R2=; 2

2380 RIN . ******************** ALF=; 2

2390 RIN . *********************** =; 3

2400 RIN ******************** NY=; 4

2410 RIN ; : RIN D, Ż,

2420 RIN =; %; л; I6%; ´; I3; ´´; Z1="; Z1; Z2=; Z2; =;

2430 RIN W=; 1; AW=; R1(1); 1=; 1; 2=; 2

2440 RIN A(20,5)

2450 RIN A(22,1): PRIN D; . 1 ´CR/LF

2460 RIN . R/LF;

2470 I=0: INU I: IF I=1 N 2150

2480 INPU Ȼ, ̤: INPU , 1

2490 IF =0 N 2520

2500 INPU (, ), 2

2510 IF 2N 2520: G 2530

2520 3=Ż: GOO 2540

2530 3

2540 IF 52%>1 HN 2560

2550 INPU Ȼ, 4

2560 SLECT PRINT0C

2570 RINT ɻ

2580 RINT ߻

2590 RIN ߻

2600 RIN !-------------------------------------------------!"

2610 PRINT ! ......! !; ; (49); !

2620 RINT ! !Z1 ; Z1; A(49); !

2630 IF =0 N 2660

2640 RIN ! . . . ! !; %; û; I6%; ´; I3; ´; (49); !

2650 RIN ! ! !; 2; (49); !

2660 IF 1=+ N 2670: GOO 2680

2670 RIN !. ! ! 13755-81 !: G 2730

2680 RIN ! . ! ! !

2690 RIN ! ߠ !ALFA !; 2%; û; J6%; ´; J3%; ´´; (49); !

2700 RIN ! . Ƞ ! !; ; (49); !

2710 RIN ! . ۠ !L !; D; (49); !

2720 RIN ! . . ! !; ; (49); !

2730 RIN ! Š !AW !; , (49); !

2740 RIN ! . . Š ! !; 3; (49); !

2750 RIN ! ߠ !1 !; 1; (49); !

2760 RIN ! Ƞ ! !; 4; (49); !

2770 RIN !------------------------------------------------!

2780 RIN ! !S1 !; S1; A(49) !

2790 RIN ! . ۠ !1 !; 1; (49); !

2800 PRIN ! Ƞ !W1 !; W1; A(49); !

2810 RIN !   ! ! !

2820 RIN ! Ƞ !ZNR1 !; Z8; (49); !

2830 RIN !---------------------------------------------------!

2840 RIN ! !W !; 1; (49); !

2850 RIN ! Р !D1 !; D1; (49); !

2860 RIN ! Р !D1 !; G1; A(49); !

2870 RIN ! !1 !"; 5; <49); "!"

2880 RINT ! Р !DR1 !; D5; A(49); !

2890 RIN ! !SN1 !; S5; A(49); 1

2900 RIN ! . Π ! !; (49); !

2910 RIN ! . Š !R1 !; 1; (49); !

2920 RIN !   ! !; (49); !

2930 RIN ! . Š !NU1 !; N1%; û; F%(3); ´´; (49); !

2940 RIN ! ! !; 4%; û; F3%; ´; F6%; ´´; (49); !

2950 RIN ! ߠ !LFA!; L3; (49); !

2960 RIN ! à ! !; 6; (49); !

2970 RIN !Z1 !; 7; (49); !

2980 RIN !------------------------------------------------!

2990 RIN ! -!; (49); !

3000 RIN ! . !; 1; (49); !

3010 RIN !----------------------------------------------!

3020 RIN λ

3030 RIN !-------------------------------------------------!

3040 RIN ! ܠ ! !; ; (49); !

3050 RIN ! !Z2 !; Z2; (49); !

3060 IF =0 N 3090

3070 RINT ! ! !, %; û, I6%; ´; I3; ´´; (49); !

3080 RIN ! ! !; 3; (49); !

3090 IF 1=+ N 3100: GOO 3110

3100 RIN . ! ! 13755-61 !: G 3160

3110 RIN ! . ! !

3120 RIN ! ߠ !ALFA !; 2%; û; J6%; ´; J3%; ´´; (49); !

3130 RIN ! . Ƞ ! !; ; (49); !

3140 RIN ! . ۠ !L !; D; (49); !

3150 RIN ! . . 3 ! !; ; (49); !

3160 RIN ! Š !AW !; ; (49); !

3170 RIN ! . . Š ! !3; (49); !

3180 RIN ! ߠ !2 !; 2; (49); !

3190 RIN ! Ƞ ! !; 4; (49); !

3200 RIN !------------------------------------------------!

3210 RIN ! !S2 !; S2; (49); !

3220 RIN ! . ۠ !2 !; 2; (49); !

3230 RINT ! Ƞ !W2 !; W2; (49); !

3240 RIN !   ! ! !

3250 RIN ! Ƞ !ZA2 !; Z9; (49); !

3260 RIN !------------------------------------------------

3270 RIN ! !W !; 1; (49); !

3280 RIN ! Р !D2 !; D2; (49); !

3290 RIN ! Р !D2 !; G2; (49); !

3300 RIN ! !DA2 !; D6; (49); !

3310 RINT ! Р !DW2 !; D4; (49); !

3320 RIN ! !SW2 !; S6; (49); !

3330 RIN ! Π ! !; (49); !

3340 RINT ! . Š !R2 !; 2; (49), !

3350 RIN ! ! !; (49); !

3360 RIN ! . Š !NU2 !; N2%; û; N%(3); ´; N%(6); ´´; F(49); !

3370 RIN ! ! !; 4%; û; F3%; "´"; F6%; ´´; (49); !

3380 RIN ! ߠ !ALHA!; L3; (49); !

3390 RIN ! à !%; !; 6; (49); !

3400 RIN ! !Z2 !; 8; (49); !

3410 RIN !------------------------------------------------!

3420 RIN ! -!; (49); !

3430 RIN ! . !; ; (49); !

3440 RIN !------------------------------------------------!

3450 SL RIN05

3460 RIN H(03)

3470 INPU ?(+ ; - ), I

3480 IF I=+ N 50

3490 INPU ?(+ ; - ), I

3500 IF I=+ N 3510: GOO 3540

3510 IF J1%=0 HN 3520: LOAD D RGEOM: G 3530

3520 LAD D FGM

3530 ND

3540 RINT X(03): RIN A(12,23): RIN !

3550 ND

3560 PRINT HX(03)

3570 RIN ɻ: RIN

3580 RINT 1. .

3590 RIN 2. ( ).

3600 RIN 3. ۻ

3610 RIN - AW ;

3620 RIN - . X1 2 ;

3630 RIN 4. . X1 2, Ż

3640 RIN AW (

3680 SLCT PRINT05

3690 PRINT : PRINT

3700 PRINT . R/LF . !

3710 RIN 1 .R/LF

3720 I=0: INPUT I: IF I<1 THEN 60

3730 SLE RIN0: G 3570

2

G

Z1 = Z1

d0 = D9

δa2 = 6

= S7

dvtl1 = V1

Z2 = Z2

Uvb = U1

δf1 = 7

= A5

dvtl2 = V2

me = M

Zvb1 = Z8

δf2 = 8

lx1 = D(2)

davtl1 = V3

∑ = S

hal1 = 1

dl1 = D5

lx2 = D(3)

davtl2 = V4

α = A2

hal2 = 2

dl2 = D6

dyl2 = D(1)

atal1 = 6

ha* =

hfl1 = 3

dal1 = D7

Rx1 = D(4)

atal2 = 7

* =

hfl2 = 4

dal2 = D8

Rx2 = D(5)

S*al1 = S8

ρ1* = R1

hl1 = 5

B1 = 2

Sx1 = D(6)

S*al2 = S9

Zc = Z3

hl2 = 6

B2 = B3

Sx2 = D(7)

εa = 1

Re = R2

Sl1 = S1

= S3

= D(8)

εb = 2

b = 1

Sl2 = S2

= S4

= D(9)

εc = 3

R = R

Xl1 = 3

= H7

= D(10)

εα = 4

m = M1

Xl = 1

= H8

= D(11)

 

d1 = D1

X2 = X2

Ψl1 = 1

= D(12)

 

d2 = D2

θf1 = 1

Ψl2 = 2

dyx2 = D(13)

 

mi = 2

θf2 = T2

= S5

hayx2 = D(14)

 

δ1 = D3

θa1 = T3

= S6

Z1min = Z4

 

δ2 = D4

θa1 = 4

= A3

Zvt1 = Z5

 

u = U

δa1 = 5

= A4

Zvt2 = Z6

 

- 19624-74

10 ! %---------------------------------------------------------------------

20 % .

30 % - 01.12.86 * 19624-74 *

40 %---------------------------------------------------------------------

50 J1%:RINT X(03)

60 INU ? (+ , - ), :IF =+ N 2790

70 LEAR N

80 DIM A52, 10, 10, G63, 40, W25, O(10), (10), %(10), W%(10), A%(10), A(10), W(16), J(10), (10), A(10), B(30), D(14)

90 W=

100 =, R/LF Ż

110 ¤=(XIN1>X1): =ZIN1>Z1)

120 G= ջ

130 ʤ= Ȼ

140 Ѥ=(03): D=X(12): =(11): F=(07)

150 A2=20: =1: =.2: R1=.2

160 RIN

170 PRINT AT(2,1): PRINT D; G; : PRINT AT(3,15): PRINT D; ;

180 RIN Ż

190 RIN ( R/LF)

200 RIN INPUT ? (+ ; - ), 1

210 IF 1=+ N 220: G 230

220 Y7=1:GOO 360

230 RIN ߻

240 7=0: INPU (15-25) =,2:2(1)=2

250 IF A2<15 R A2>25 N 230

260 INPUT (0-60)=, Y5

270 IF Y5<0 R Y5>60 N 260

280 INPUT (0-60) =, Y6

290 IF Y6<0 OR Y6>60 THN 280

300 INPU . (.5-1.5) =,

310 IF <.5OR>1.5N300

320 INU . . (0.1-0.3) =,

330 IF <.1 OR >.3 N 320

340 INUT . (0.1-0.3) R =, R1

350 IF R1<.1 OR R1>.3 N 340

360 INPU (8-200) Z1=, Z1%

370 IF Z1%<80 OR Z1%>200 THN 360

380 INPUT (8-200) Z2=, Z2%

390 IF Z2%<8 OR Z%>200 N 380

400 INU (1-50) =,

410 IF M<1 OR M>50 THN 400

420 RIN ˻

430 PRINT (10-170) =, Y1

440 IF Y1<10 OR Y1>170 N 430

450 INPU (0-60) =, Y2

460 IF Y2<0 R Y2>60 N 450

470 INPUT (0-60) =, Y3

480 IF Y3<0 R Y3>60 N 470

490 INUT (0-200) =, 1%

500 RIN Ȼ

510 RIN D0(MM), D0=0

520 INPUT D0=, D0: G 530

530 W=#1/180: SL R: A2=A2+Y5/60+Y6/3600

540 S=Y1+Y2/60+Y3/3600: A2=A2*W: S=S*W

550 Z3=1/SIN(S)*SQR(Z1%↑2+2*Z1%*Z2%*OS(S5)):Z1=Z1%:Z2=Z2%

560 R2=.5*M*Z3: IF 1%>1 N 580

570 1=.3*R2:1%=1

580 R=R2-.5*1%:1=M*R/R2:D1=1*Z1%:D2=M1*Z2:

590 N2=*(R2-1%)/R2: D3=ARCTAN(SIN(S)/(Z2%+OS(S)))

600 D4=S-D3: U=Z2%/Z1%: U1=U: W(15)=ROUND(D3/W,2): W(16)=ROUND(D4/W,2)

610 IF D3/W<50 OR D3/W>85 OR D4/W<5 OR D4/W>85 N 620: G 670

620 RINT : RIN A(10,1): RIN D;

630 RIN DL1=, W(16);

640 PRINT D; DELT2=; W(16); E

650 RIN A(12,1): RIN D; (5-85 );

660 PRINT AT(14,10): PRINT . CR/LF Ż: INPUT J: IF J<990 N 70

670 IF Y1>90 OR Y1<90 N 680: G 700

680 U1=SQR(U*OS(D3)/OS(D4))

690 Z1=Z1%/OS(D3)*U1/SQR(1+U1↑2)

700 IF Y7=1 N 760

710 (1)=COS(A2): (2)=SIN(A2)↑2: (3)=U(1)↑2: (4)=(3)/B(3)-1: (5)=(3)+1

720 (6)=Z1/U1*SQR((5): (7)=.5*(2)*(4)*(6): (8)=SQR((7)↑2+↑2): (9)=(8)-(7): (10)=.5*(6): (11)=(3)*(10): (12)=(10)++(9): (13)=(11)+-(9)

730 (15)=ARCCOS((1)*(10)/(12)): (17)=ARCCOS((1)*(11)/(13)): (18)=(15)-A2: (19)=(17)-A2: (20)=1-S((18)): (21)=1-S((19)): B(22)=(12)*(20)

740 (23)=(13)*(21): (24)=-(22): (25)=-(23): (26)=(22)-(23): (27)=(7)-.5*(26): (28)=(26)*(27): (29)=(7)*(26)+(28): (30)=SQR((27)↑2+(29))

750 1=(30)-(27): 1=ROUND(1,2): GOO 830

760 1=-(4.84/(Z1-4/75)+.083)/U1↑2+(1.428/(Z1-5.1)-.12)/U1+8.48/(Z1+5.9)+.11

770 1=ROUND(X1,2)

780 IF Z1>=18 AND Z1<=30 N 800

790 G 830

800 IF U1>=2.5 N 810: IF U1<1.8 N 820: GOO 830

810 1=1+.02: GOO 830

820 1=X1-.01

830 2=-1: IF U1<2.5 N 850

840 3=.03+.008*(U1-2.5)

850 RIN E(03): RIN A(10,2)

860 RIN . 1=; 1

870 PRINT , CR/LF

880 INPU X1 R/LF, 1

890 1=(+1)*: 2=2**-1: 3=2+*: 4=1**

900 RIN (03): RIN A(10,2)

910 RIN . . U1=; 3

920 RIN , R/LF

930 INPUT U1 R/LF, 3

940 5=1+3: 6=2+4

950 S1=(#I/2+2*1*AN(A2)+3)*: S2=#I*M-S1

960 1=ARCCTAN(3/R2): 2=ARCCTAN(H4/R2)

970 3=2: 4=1: 5=D3+3: 6=D4+4

980 7=D3-1: 8=D4-2

990 D5=*Z1: D6=M*Z2

1000 D7=D5+2*1*OS(D3): D8=D6+2*2*OS(D4)

1010 2=R2*OS(D3)-1*SIN(D3)

1020 3=R2*OS(D4)-2*SIN(D4)

1030 S3=S1*(OS(A2))↑2: S4=S2*(OS(A2))↑2

1040 7=1-.25*S1*SIN(2*A2): 8=2-.25*S2*SIN(2*A2)

1050 1=S1*OS(D3)/D5: 2=S2*OS(D4)/D6

1060 S5=D5/OS(D3)*SIN(1): S6=D6/COS(D4)*SIN(2)

1070 A3=1+.25*S1*1: A4=2+.25*S2*2

1080 D1=D6-*OS(D4): S7=D6/OS(D4)*SIN(2)+*AN(A2)

1090 R0=*/(1-SIN(A2))

1100 A5=2+.25*S2*2+.5*

1110 R0=*/(1-SIN(A2))

1120 D(2)=/5*(D7-D7/1.031)*((1-TAN(T5))+TAN(D3))*COS(D3): D(3)=.5*(D8-D8/1.031)*((1-TAN(T6))+TAN(D4))*COS(D4): D(4)=R2-D(2): D(5)=R2-D(3): D(6)=S1*D(4)/R2: D(7)=S2*D(5)/R2: D(8)=D5*D(4)*SIN(H1)/R2/COS(D3): D(9)=D6*D(5)*SIN(H2)/R2COS(D4)

1130 D(10)=1+.25*D(6)*1-D(2)*AN(3): D(11)=2+.25*D(7)*2-D(3)*AN(4)

1140 D(12)=D6*D(5)*SIN(P2) R2/COS(D4)+M*TAN(A2): D(13)=D6*D(5)/R2-M*COS(D4)

1150 D(14)=2+.25*D(7)*2-D(3)*AN(4)+.5*M

1160 D(1)=ROUND(D(1),4): D(2)=ROUND(D(2)/4): D(3)=ROUND(D(3),4): D(8)=ROUND(D(8),4): D(9)=ROUND(D(9),4): D(10)=RUND(D(10),4): D(11)=RUND(D(11),4): D(12)=RUND(D(12),4): D(13)=RUND(D(13),4): D(14)=RUND(D(14),4)

1170 IF D0=0 TN 1190

1180 W5=1%2*OS(A2)/(4*D0*1): GO0 1200

1190 W5=0

1200 Z4=2*(-X1+W5)*OS(D3)/SIN(A2)↑2

1210 4=-Z1*SIN(A2)↑2/2/OS(D3)+W5

1220 IF Z4>Z1 HN 1240

1230 IF X4>1 N 1270: G 1300

1240 RINT

1250 PRINT AT(10,2): PRINT D; A; H

1260 I=0: INUT I: IF I<999 N 70

1270 RIN

1280 RIN A(10,2): RINT D; A; B

1290 I=0: INUT I: IF I<999 N 70

1300 Z5=Z1/COS(D3): Z6=Z2/COS(D4)

1310 V1=Z5*: V2=Z6*

1320 V3=V1+2*1: V4=V2+2*2

1330 6=AROS(V1/V3*OS(A2))

1340 7=AROS(V2/V4*OS(A2))

1350 A8=TAN(A2)-A2: A6=AN(B6)-6: A7=AN(B7)-7

1360 S8=V3/M*(S1/V1+A8-A6): S9=V4/M*(S2/V2+A8-A7)

1370 IF S8<.3 R S9<.3 N 1380: G 1430

1380 RIN

1390 RIN A(10,2): RINT D: Ȼ; Ť

1400 RINT A(11,2): RIN D; ( ) SA<0.3;

1410 RIN

1420 SO NTINUE, - RUN R/LF

1430 Z7=(Z5/2+1/)2: Z8=(Z5/2*OS(A2))↑2

1440 Z0=(Z6/2+2/)2: Z9=(Z6/2*OS(A2))↑2

1450 9=1/#I/OS(A2): 1=E9*SQR(Z7-Z8)

1460 2=9*SQR(Z0-Z9)

1470 3=(Z5+Z6)/2/3.1415926*AN(A2)

1400 4-1+2-3

1490 =180/#I: D3=D3*K: D4=D4*K: (1)=1*: (2)=*T2: (3)=3*K: (4)=4*K: (5)=5*

1500 (6)=6*: (7)=7*: (8)=T8*: (9)=D3: (10)=D4: R2=A2*: A2%=A2

1510 Z3=ROUND(23,4): R2=ROUND(R2,4): R=ROUND(R,4): M1=ROUND(M1,4): M2=ROUND(M2,4)

1320 D1=ROUND(D1,4): D2=ROUND(D2,4): Z1=ROUND(Z1,4)

1530 U=ROUND(U,4): U1=ROUND(U1,4): Z8=ROUND(Z8,4): X3=ROUND(X3,4): H1=ROUND(H1,4)

1540 2=ROUND(H2,4): 3=ROUND(H3,4): 4=ROUND(H4,4): 5=ROUND(H5,4)

1550 6=ROUND(H6,4): S1=ROUND(S1,4): S2=ROUND(S2,4)

1560 D5=ROUND(D5,4)

1570 D6=ROUND(D6,4): D7=ROUND(D7,4): D8=ROUND(D8,4): 2=ROUND(2,4)

1580 B3=ROUND(3,4): S3=ROUND(S3,4): S4=ROUND(S4,4): 7=ROUND(7,4)

1590 H8=ROUND(H8,4): P1=ROUND(P1,5): P2=ROUND(P2,5): S5=ROUND(S5,4)

1600 S6=ROUND(S6,4): A3=ROUND(A3,4): A4=ROUND(A4,4): E4=ROUND(E4,4): S7=ROUND(S7,4): A5=ROUND(A5,4)

1610 FOR I=1 TO 10: O(I)=T(I): T%(I)=T(I): Q(I)=O(I)-T%(I)

1620 MAT W=(60)*Q: J(I)=W(I): W%(I)=W(I): C(I)=J(I)-W%(I)

1630 MAT A=(60)*C: A%(I)=A(I)

1640 N I

1650 RIN

1660 RIN AT(5,1): PRINT D; ɻ

1670 RIN Ȼ, : RIN

1680 RIN Z1=; Z1%; Z2=; Z2%

1690 PRINT =;

1700 RIN Z=; Z3

1710 RIN R=; R2

1720 RIN 1=; 1%

1730 RIN R=; R

1740 RINT =; 1

1750 RINT I=; 2

1760 RIN D1=; D1; D2=; D2

1770 RINT DELT1=; T%(9); .; W%(9); .; A%(9); .

1780 RIN DELT2=; %(10); .; W%(10); .; A%(10); .

1790 RIN U=; U

1800 IF Y1=90 N 1030

1810 RIN . . . UVB=; U1

1820 RIN . . ZVB1=; Z1

1830 RIN 1=; 1

1840 RIN . XT1=; 3

1850 STOP . CONTINUE

1860 RIN A1=; H1; A2=; 2

1870 RIN HF1=; 3; F2=; 4

1880 RIN 1=; 5; 2=; 6

1890 RIN S1=; S1; Z2=; S2

1900 RIN F1=; %(1); .; W%(1); .; A%(1); .

1910 RIN F2=; %(2); .; W%(2); .; A%(1); .

1920 RIN A1=; %(3); .; W%(3); .; A%(3); .

1930 RIN A2=; %(4); .; W%(4); .; A%(4); .

1940 RIN DEL1=; %(5); .; W%(5); .; A%(5); .

1950 RIN DEL2=; %(6); .; W%(6); .; A%(6); .

1960 RIN DF1=; %(7); .; W%(7); .; A%(7); .

1970 RIN DF2=; %(8); .; W%(8); .; A%(8); .

1980 RIN D1=; D5; D2=; D6

1990 RIN DA1=; D7; DA2=; D8

2000 RIN . . . . B1=; 2; 2=; 3

2010 RIN S1=; S3; S2=; S4

2020 RIN 1; 7; 2=; 8

2030 RIN . SI1=; 1; SI2=; 2

2040 RIN . S1=; S5; S2=; S6

2050 RIN . . A1=; A3; A2=; A4

2060 RIN . SALF=; 4

2070 PRINT

2080 RIN D, 1 CR/LF; I=0

2090 RIN . CR/LF: INPUT I

2100 IF I>=1 N 1650

2110 INPU Ȼ, ̤: INPU , 1

2120 INPUT Ȼ, 2

2130 SEL PRINTO(120)

2140 RIN Ȼ

2150 RIN Ȼ

2160 RIN

2170 RIN !----------------------------! !--------------------------!

2180 RIN ! ! !; ; A(57); !; A(60); !; ! !; ; A(116); !

2190 RIN ! , !Z1 ! Z1%; A(57); !; A(60); !; !Z2 !; Z2%; AB(116); !

2200 RIN ! ! - ! ɻ, A(57); !; A(6); !; ! - ! ɻ; A(116); !

2210 IF Y7=0 TN 2230

2220 RIN ! - ! 13754-68 - ! ! - 13754-68; A(116); !: GOTO 2280

2230 RIN ! . ! - !; A(57); !; A(60); !; . ! - !; TA(116); !

2240 RIN ! !ALFN !; A2%; û; Y5; ; Y6; ´´; A(57); !; A(60); !; !ALFN !; A2%; û; Y5; ´; Y6; ´´; TA(116); !

2250 RIN ! . !A !; ; A(57); !; A(60); !; . !A !; ; AB(116); !

2260 RIN ! . ! !; ; A(57); !; AB(60); !; . ! !; ; A(116); !

2270 RIN ! . !R !; R1; A(57); !,AB(60); !; . !R !, R1; A(116); !

2280 PRIN ! !1 !; 1, A(57); !; AB(60); !; !2 !; 2; AB(116); !

2290 RIN !. !AU1!; 3; A(57); !; A(60); !; . !AU2!; -3; A(116); !

2300 RIN ! !DL1!; %(9); û; W%(9); ´; A%(9); ´´; A(57); !; A(60); !; !DLT2!; %(10); û; W%(10); ´; A%(10); ´´; A(116); !

2310 RIN ! ! - !; 2; A(57); !; AB(60); !; ! - !; 2; A(116); !

2320 RIN !--------------------------------------------------------!

2330 IF 1>.4 N 2430

2340 RIN !. !S1 !; S3; A(57); !; AB(60); !; . !S2 !; S4; A(116); !

2350 RIN ! . . !1 !; 7; A(57); !; A(60); !; . . !2 !; 8; A(116); !

2360 RIN !. . . !S1 !; S5; A(57); !, AB(60); !; . . . !S2 !; S6; AB(116); !

2370 RIN . . !A1 !; 3; (57); !; (60); !; . . !2 !; 4; (116); !

2380 RIN ! . . . . !LX1 !; D(2); A(57); !; (60); "; . . . . !LX2 !; D(3); A(116); !

2390 RIN ! !; (57), !; (60); !; ! !; (116); !

2400 RIN !S1 !; D(8); A(57); !; (60); !; !SX2 !; D(9); A(116); !

2410 RIN ! ! !; (57); !; (60); !; ! !; (116); !

2420 RIN 1 !; D(10); A(57); !; (60); !; !2 !; D(11); A(116); !: G 2510

2430 RIN . !S1 !; S3; A(57); !; (60); !; . . -! !; (116); !

2440 RIN ! . . 1 !; 7; (57); !; (60); !; . D=; D(1); A(93); !; SY2 !; S7; F(116); !

2450 RIN . . . !S1 !; S5; A(57); !; (60), !; . ! !; (116); !

2460 RIN ! . . ! 1 !; 3; (57); !; (60); !; . D; =; D(1); A(93); !; AY2!; A5; AB(116); !

2470 RIN ! ! !; (57); !; (60); !; . . ! !; (116); !

2480 RIN !SX1 !; D(8); A(57); !; (60); !; . .D=; D(13); AB(93); !; SY2 !; D(12); A(116); !

2490 RIN ! !; (57); !; (60); !; .! !; (116); !

2500 RIN !1 !; D(10); A(57); !; (60); !; . . . D=; D(13); A(93); !; AYX2!; D(14); A(116); !

2510 RINT !--------------------------------------------------------!

2520 RIN !SU !; Y1; û; Y2, ´; Y3; ´´; (57); !; (60); !; ! SUM !; Y1; û; Y2; ´; Y3; ´´; (116); !

2530 RIN ! ! !; 1; (57); !; (60); !; ! !; 1; (116); !

2540 IF Y7=1 N 2550

2550 RIN !R !; R2; F(57); !; (60); !; R !; R2; A(116); !

2560 RIN ! R!; R; A(57); !; (60); !; !R !; R; A(116); !

2570 RIN !D1 !; D1; A(57); !; (60); !; !D2 !; D2; A(116); !

2580 RIN . !DA1 !; D7; A(57); !; (60); !; . !SA2 !; D8; A(116); !

2590 RIN ! !; 1%; (57); !; (60); !; ! !; 1%; (116); !

2600 RIN !DELA1!; %(5); û; W%(5), ´; %(5); ´´; (57); !; (60); !; !DELA2 !; %(6); û; W%(6); ´; %(6); ´´; (116); !

2610 RIN !DLF1!; %(7); û; W%(7); ´; %(7); ´´; (57); !; (60); !; !DELF2 !; %(8); û; W%(8); ´, %(8); ´´; (116); !

2620 RIN ! 1 !; 5; (57); !; (60); !; !2 !; 6; (116); !

2630 RIN !1 !; 1; (57); !; (60); !, !2 !; 2; (116); !

2640 RIN !S1=; S1; A(57); !; (60); !; !S2 !; S2; (116); !

2650 RIN !--------------------------------------------------------!

2660 RIN ! !; (57); !; (60); !; !; (116); !

2670 RIN !; 1; (57); !; (60); !; !; ̤; (116); !

2680 RIN !--------------------------------------------------------!

2690 SL RIN05

2700 RIN ; F

2710 INUT ?(+ ; - ), I

2720 IF I=+ N 10

2730 INU ?(+ ; - ), I

2740 IF I=+ N 2750: G 2780

2750 IF J1%=0 N 2760: LOAD D RDM: GOO 2770

2760 LOAD D FD

2770 ND

2780 RIN ; F: RIN A(12,23): RIN , ߻: G 2770

2790 RIN X(03): PRIN ɻ

2800 RIN 1. »

2810 RIN ( )

2820 RIN 2. R/LF

2830 RIN 3. ( 19624-74)

2840 RIN --------------------------------------------------

2850 RIN . !1N .

2860 RIN --------------------------------------------------

2870 RINT 12 ! 30

2880 RIN 13 ! 26

2890 RIN 14 ! 20

2900 RIN 15 ! 19

2910 RINT 16 ! 18

2920 RIN 17 ! 17

2930 RIN --------------------------------------------------

2940 RIN 4. . ̻

2950 RINT Ȼ

2960 RIN 5. ̻: PRIN

2970 INPU . R/LF ܻ, I: IF I<999 N 70

3

G

Z1 = Z1

Xn1 = 1

Dhfl2 = T9

dal1 = G4

lx2 = H7

Z2 = Z2

Xn2 = X2

Dhfl1 = F0

dal2 = G5

Rx1 = R3

Mn = M1

Xr1 = 3

Dhfl2 = F1

B1 = G6

Rx2 = R4

Mtl = 2

W2 = W2

ha1 = F2

B2 = G7

Stx1 = R5

bn = B

δhf = D1

ha2 = F3

= S1

Stx2 = R6

= S

ll = L3

hal1 = F4

= S2

bnx1 = R7

a = A2

Kl = K0

hal2 = F5

= S3

bnx2 = R8

h*l = H

hf1 = D2

hfl1 = F6

= S4

Ψnx1 = H8

* =

hf2 = D3

hfl2 = F7

Ψn1 = S5

Ψnx2 = H9

ρ*f = R1

Sn1 = D4

hl1 = F8

Ψn2 = S6

KΨnx1 = A3

Z = Z3

Sn2 = D5

hl2 = F9

KΨn1 = S7

KΨnx2 = A4

R = R

θfz = N5

δa1 = G0

KΨn2 = S8

= A5

R2 = R2

θf1 = T1

δa2 = G1

= S0

= A6

δ1 = L1

θf2 = T2

δf1 = G2

= S9

Khx1 = A7

δ2 = L2

θa1 = T3

δf2 = G3

= H1

Khx2 = A8

b = B1

θa2 = T4

d1 = D6

= H2

= A0

U = U

δha1 = T5

d2 = D7

bnl = H3

= A9

Uvb = U1

δha2 = T6

dl1 = D8

bni = H4

bnai1 = U4

Zvb1 = U3

Dhal1 = T8

dl2 = D9

lx1 = H6

bnai2 = U5

Stl1 = U5

Kv2 = Y7

dvt1 = Z6

dvti1 = M5

eb = E2

Sti1 = J1

vd1 = Y8

dvt2 = Z7

dvti2 = M6

ec = E3

Stl2 = J2

dd2 = Y9

davt1 = Z8

hai1 = M7

ea = E8

Sti2 = J3

a = B2

davt2 = Z9

hai2 = M8

eb = E9

Snal1 = J4

ati = B3

atl1 = 3

davtl1 = M9

eg = E7

Snal2 = J5

at = B4

atl2 = 4

davtl2 = M0

= T(12)

Snai1 = J6

hfi1 = B5

bna1 = C5

davti1 = P0

= T(13)

Snai2 = J7

hfi2 = B6

bna2 = C6

davti2 = P5

= T(14)

invatl = J8

fl1 = B7

invat = C7

atal1 = P6

= T(15)

invatal1 = J9

fl2 = B8

invata1 = C8

atal2 = P7

= T(16)

invatal2 = L4

ρfl = R0

invata2 = C9

atai1 = P8

= T(17)

invati = L5

fi1 = C1

S*na1 = U8

atai2 = P9

 

invatai1 = L6

fi2 = C2

S*na2 = U9

bnal1 = U2

 

invatai2 = L7

Zvt1 = Z4

dvtl1 = M3

bnal2 = U3

 

Kv1 = Y2

Zvt2 = Z5

dvtl2 = M4

ea = E1

 

- 19326-73

10 %-------------------------------------------------------------

20 % . .

30 % - . 01.12.06. * 19326-73

40 %-------------------------------------------------------------------

50 J1%

60 RIN (03); ? (+ ; - )

70 INPU ʤ

80 IF K=+ THN 6370: G 90

90 DIM G60, K(2), W28, V(36), B(10), V40, V140, D(37), R0(2), B1(12), T(17), T(11), Q(11), G(11), W(11), W%(11), J(11), C(11), A(12), A%(11), D0(2)

100 LAR N

110 Ѥ=(03): D=(12): =(11): W=

120 G= ջ

130 V= . : V1= .

140 2=20: =1: =.25: R1=.25

150 RIN : RIN D; G

160 RIN A(3,22): RIN Ȼ;

170 RIN A(5,20): RIN Ż

180 RIN : INU ? (+ ; - ),

190 IF <+ OR >- N 180

200 IF =+ N 290

210 RIN : PRIN . . .:

220 PRINT : INPUT ALFAN =, A2

230 INPU =, 1(4)

240 INPU =, 1(12)

250 INPUT . HA=,

260 INPUT . Ѥ=,

270 RIN . ɻ

280 INPU ROF=, R1

290 RIN

300 INPU (1 - ; 2 - ) =, %

310 IF %<1 OR %>2 N 290

320 INPU (6-200) Z1=, Z1%

330 IF Z1%<6 R Z1%>200 N 320

340 INU (6-200) Z2=, Z2%

350 IF Z2%<6 R Z2%>200 N 340

360 RIN (10-150)SUM

370 INPU 0 =, S

380 INPUT =, 1(7)

390 INPUT =, 1(8)

400 IF S<10 R S>150 N 360

410 INPU ( . )

420 INPU (0-25) N= 1: D(18)=M1

430 IF 1<0 R 1>25 N 410

440 INPU (0-25) =, 2: (19)=2

450 IF 2<0 R M2>25 N 440

460 INPUT (1,2,3) I =, I%

470 IF I%<1 R I%>3 TN 460

480 PRINT . (0-45)BEN

490 INPU =, 1(9)

500 INPU =, 1(5)

510 INPU =, 1(6)

520 IF B1(9)<0 OR B1(9)>45 THEN 480: IF I%=3 AND B1(9)<25 THEN 580: IF Z1%=6 AND B1(9)<42 N530: IF Z1%=0 AND B1(9)<40 THEN 550: IF Z1%=0 AND B1(9)<38 THEN 560: IF Z1%=0 AND B1(9)<35 THEN 570: GOTO 600

530 RIN : RIN Z1=6 N . 42 »

540 RIN , Z1: RIN : G 320

550 RIN : RIN Z1=7 N . 40 »: G 540

560 RIN : RIN Z1=8 N . 38 »: G 540

570 RIN : RINT Z1=9 N . 35 : G 540

580 RIN D; III N 25 »

590 RIN W; : G 460

600 W=#I/180: SL R: =1(9) +1(5)/60+1(6)/3600: A2=A2+1(4)/60+1(12)/3600: S=S+1(7)/60+1(8)/3600: B=B*W: S=S*W: B(1)=B: A2=A2*W

610 Z3=1/SIN(S)*SQR(Z1%↑2+Z2%↑2+2*Z1%*OS(S))

620 IF 1=0 N 640

630 R=1*Z3/2/OS(): GOO 650

640 R2=M2*Z3/2

650 L1=ARAN(S1N(S)/(Z%/Z1%+OS(S))): L2=S-L1

660 IF 1=0 N 680

670 IF B/W<20 OR 1<=2 OR I%=3 THEN 690: 1=.35*R-3: GOTO 710

680 IF B/W<20 OR M2<=2 OR I%=3 THEN 70: 1=.3*R2-3: GOO 710

690 1=.3*R: GOO 710

700 1=.25*R2

710 1=ROUND(1,0): U=Z2%/Z1%: U=ROUND(U,3): U1=U: Z1=Z1%

720 IF S/W-90>.0001 OR S/W-90<-.0001 HN 40

730 U1=SQR(U*COS(L1)/COS(L2)): Z1=Z1%*U1/COS(L1)/SQR(1+U12): U1=ROUND(U1↑): Z1=ROUND(1,2)

740 IF = + N 750: GOO 770

750 IF B/W>=0 AND B/W<=15 THEN 830

760 IF B/W>15 AND B/W<=29 THEN 890: G 1230

770 J=COS(B)↑3

780 U2=COS(A2): U3=SIN(A2)↑2: U4=U1!2/(U1↑2-1): U5=U1!2+1: U6=Z1*SQR(U5)/U1/J

790 U7=.5*U3*U4*U6: U8=SQR(U7!2+!2): U9=U8-U7: 3=.5*U6: 4=U!2*3: 5=3++V9+

800 6=M4+-U9: M7=ARCCOS(U2/5*3): 8=ARCCOS(U2/6*4): 9=7-A2: 5=8-A2

810 6=1-COS(M9): 7=1-COS(5): 8=5*6: 9=6*7: 0=-8: 5=-9: 6=8-9

820 P7=U7-.5*6: 8=0*5: 9=U7*6+8: 0=SQR(72+9): 1=0-7: 1=ROUND(X1↑2): X2=-1: GOTO 1600

830 1=-(4.84/(Z1-4.75) + .083)/U!2+(1,428/(Z1-5.1)-.12)/U+8.48/(Z1+5.9)+.11

840 1=ROUND(1,2): IF Z1<=18 AND Z1=30 THEN 850: GOTO 880

850 IF U>=2.5 THEN 860: IF U<1.8 THEN 870: GOTO 880

860 1=1+.02: 2=-1: GOTO 1600

870 1=1-.01: 2=-1: GOTO 1600

880 2=-1: GOTO 1600

890 RIN ; . .

900 RIN 16202-70

910 RIN D; Z1=; Z1; U=; U1; N=; 1(9); л: RIN

920 RIN --------------------------------------------------------------

930 RINT ! . N1 ̻

940 RIN Z1! U ( N>15 <=29)

950 RIN !----------------------------------------------------

960 RIN ! 1 ! 1.12 ! 1.25 ! 1.40 ! 1.60 ! 1.80 ! 2.00 ! 2.50 ! 3.15 ! 4.00 ! 5.00 ! 6.3 Ż

970 RIN ------------!---!----!----!----!--!----!----!----!----!----

980 IF Z1>=10 AND Z1<=12 N 990: IF Z1>12 AND Z1<=14 N 1030: IF Z1>14 AND Z1<=16 N 1060: IF Z1>16 AND Z1<=18 N 1090: IF Z1>18 AND Z1<=25 N 1100: GOTO 1150

990 RIN 10(B N>=28)! - ! - ! - ! - ! - ! - ! - ! - ! .49 ! .52 ! .53 ! .54

1000 RIN 11( N>=.25)! - ! - ! - ! - ! - ! - ! - ! - ! .48 ! .49 ! .51 ! .52

1010 RIN 12( >=20)! - ! - ! - ! - ! - ! - ! - ! .42 ! .46 ! .48 ! .49! .50

1020 IF Z1<=12 N 1170

1030 PRINT 13 ! - ! - ! - ! - ! - ! .33 ! .37 ! .40 ! .43 ! .45 ! .47 ! .48

1040 PRINT 14 ! - ! - ! - ! .21 ! .26 ! .32 ! .36 ! .39 ! .42! .44 ! .45 ! .46

1050 IF Z1<=14 THEN 1170

1660 PRINT 15 ! - ! - ! .14 ! .20 ! .25 ! .30 ! .34 ! .37 ! .40 ! .42 ! .43 ! .43

1070 RIN 16 ! - ! .07 ! .14 ! .20 ! .24 ! .29 ! .32 ! .35 ! .38 ! .40 ! .41! .42

1080 IF Z1<=16 N 1170

1090 RIN 17 ! 0 ! .06 ! .13 ! .19 ! .23 ! .28 ! .31 ! .34 ! .37 ! .39 ! .40 ! .41

1100 RIN 18 ! 0 ! .06 ! .12 ! .18 ! .22 ! .27 ! .30 ! .33 ! .36 ! .38 ! .39 ! .39

1110 IF Z1<=18 N 1170

1120 RIN 20 ! 0 ! .05 ! .11 ! .16 ! .21 ! .24 ! .26 ! .29 ! .33 ! .35 ! .36! .36

1130 RIN 25 ! 0 ! .05 ! .10 ! .14 ! .18 ! .20 ! .23 ! .25 ! .28 ! .30 ! .31! .32

1140 IF Z1<=25N1170

1150 RIN 30 ! 0 ! .04 ! .08 ! .12 ! .15 ! .18 ! .20 ! .22 ! .25 ! .26 ! .27 ! .27

1160 RINT 40 ! 0 ! .03 ! .05 ! .06 ! .12 ! .14 ! .16 ! .18 ! .20 ! .20 ! .21 ! .22

1170 RIN ------------------------------------------------------------

1180 RIN N1 . R/LF

1190 RIN A(21,50): RINT D; : INU N1=,1: RINT Ť

1200 IF X1<0 OR X1>.7 N 220

1210 GTO 1600

1220 RIN W: G 1190

1230 RIN ;

1240 RIN . . Ȼ

1250 RINT . 16202-70

1260 RIN D; Z1=; Z1; U=; U; =; 1(9); л: RIN

1270 RIN ------------------------------------------------------------

1280 RIN ! . . XN1 . U

1290 RIN Z1 !-----------------------------------------------

1300 RIN ! 1 ! 1.12 ! 1.25 ! 1.40 ! 1.60 ! 1.80 ! 2.00 ! 2.50 ! 3.15 ! 4.0 ! 5.00 ! 6.3 Ż

1310 RIN -------!----!-----!-------!------!----!----!----!----!

1320 IF Z1>=6 AND Z1<=10 THEN 1330: IF Z1>10 AND Z1<=12 THEN 1390: IF Z1>12 AND Z1<=5 THEN 1420: IF Z1>15 AND Z1<=18 THEN 1460: IF Z1>18 AND Z1<=25 THEN 1470: GOTO 1520

1330 RIN 6(BN>=42) ! - ! - ! - ! - ! - ! - ! - ! - ! - ! - ! 70

1340 RIN 7(N>=40) ! - ! - ! - ! - ! - ! - ! - ! - ! - ! - ! .65 ! .66

1250 PRIN 8(BN>=38) ! - ! - ! - ! - ! - ! - ! - ! - ! - ! .51 ! .53 ! .54

1360 RIN 9(N>=35) ! - ! - ! - ! - ! - ! - ! - ! .46 ! .49 ! .50 ! .52

1370 RIN 10(N>=32) ! - ! - ! .- ! - ! - ! - ! - ! - ! .44 ! .47 ! .47 ! .48

1380 IF Z1<=10 HN 1540

1390 RIN 11 ! - ! - ! - ! - ! - ! - ! .38 ! .41 ! .44 ! .45 ! .45

1400 PRINT 12 ! - ! - ! - ! - ! - ! - ! .32 ! .37 ! .39 ! .41 ! .42 ! .43

1410 IF Z1<=12 THEN 1540

1420 PRINT 13 ! - ! - ! - ! - ! - ! .27 ! .30 ! .35 ! .27 ! .39 ! .40 ! .41

1430 PRINT 14 ! - ! - ! - ! .18 ! .23 ! .26 ! .29 ! .33 ! .35 ! .37 ! .38 ! .38

1440 PRINT 15 ! - ! - ! .12 ! .17 ! .22 ! .25 ! .27 ! .31 ! .33 ! .35 ! .36 ! .37

1450 IF Z1<=15 THEN 1540

1460 PRINT 16 ! - ! .06 ! .11 ! .16 ! .21 ! .24 ! .26 ! .30 ! .32 ! .34 ! .35 ! .35

1470 RIN 18 ! 0 ! .05 ! .10 ! .15 ! .19 ! .22 ! .24 ! .27 ! .30 ! .32 ! .32 ! .33

1480 IF Z1<=18 N 1540

1490 RIN 20 ! 0 ! .05 ! .09 ! .13 ! .17 ! .20 ! .22 ! .26 ! .28 ! .29 ! .29 ! .30

1500 RINT 25 ! 0 ! .04 ! .08 ! .11 ! .15 ! .17 ! .19 ! .21 ! .24 ! .25 ! .25 ! .26

1510 IF Z1<=25 N 1540

1520 RIN 30 ! 0 ! .03 ! .07 ! .09 ! .11 ! .15 ! .16 ! .18 ! .21 ! .22 ! .22 ! .23

1530 RIN 40 ! 0 ! .03 ! .05 ! .07 ! .09 ! .11 ! .11 ! .14 ! .16 ! .17 ! .17 ! .18

1540 RIN -------------------------------------------------------------

1550 RIN XN1 . CR/LF

1560 RIN A(21-50): RIN D: INU XN1=, X1: PRINT : X2=X1

1570 IF X1<0 OR 1>.8 N 1590

1580 GOTO 1600

1590 RIN W: G 1560

1600 IF 1=0 N 1620

1610 IF M1>2 AND U>=2.5 N 1630: G 1680

1620 1=(2-1/Z3)*COS(B): GOO 1610

1630 IF B>=0 AND B/W<=15 THEN 1650: IF D/W>15 AND B/W<=29 THEN 1660: IF B/W>29 AND B/W<=40 THEN 1670: IF B/W>40 THEN 1640

1640 X3=.15+.012*(U1-2.5): G 1690

1650 X3=.03+.008*(U1-2.5): G 1690

1660 X3=.07+.01*(U1-2.5): G 1690

1670 X3=.11+.01*(U1-2.5): GOO 1690

1680 X3=0

1690 D(21)=20: D(22)=25: D(23)=32: D(24)=40: D(25)=60: D(26)=80: D(27)=100: D(28)=125: D(29)=160: D(30)=200: D(31)=250: D(32)=315: D(33)=400: D(34)=500: D(35)=630: D(36)=800: D(37)=1000

1700 IF 2=0 N 1710: R=.42*M2*Z3

1710 IF I%=1 N 1720: G 1750

1720 IF B/W>27 THEN 1730: GOTO 1740

1730 B(2)=.44: B(3)=.32*(B/W/10)↑2-1.03-B/W/10+3.33: GOTO 1600

1740 B(2)=.122*(B/W/10)*2-.645*B/W/10+1.3: B(3)=.04*(B/W/10)2-.4*B/W*.53: GO 1800

1750 IF I%=2 THEN 1760: GOTO 1770

1760 B(2)=.35; B(3)=.05606*(B/W/10)↑2-.5647*B/W/10+2.02: GOTO 1800

1770 IF B/W>35 THEN 1780: GOTO 1790

1780 B(2)=.05686*(B/W/10))↑2-.5647*B/W/10+2.0: B(3)=.1*(B/W/10)↑2-1.03*B/W/10+3.38: GOTO 1800

1790 B(2)=.05606*(B/W/10)↑2-.5647*B/W/10+2.02: B(3)=1

1800 D0(1)=R/B(2): D0(2)=R/B(3): D(20)=D0(1)+D0(2))/2: D0(1)=ROUND(D0(1),0): D0(2)=ROUND(D(2),0)

1810 FOR I=21 TO 37

1820 IF D(20)<=D(1) THEN 1870

1830 IF D(20)>(D(I)+D(I+1))/20 AND D(20)<=D(I+1) THEN 1880

1840 IF D(20)>D(I) AND D(20)<=(D(I)+D(I+1))/2 THEN 1870

1850 IF D(20)>D(37) THEN 1890

1860 NEXT 1

1870 D(20)=D(I): GOTO 1900

1880 D(20)=D(I+1): G 1900

1890 D(28)=D(37)

1900 PRINT Ѥ; . D0: PRINT

1910 RIN Ȼ

1920 RIN ( ) D0 ջ

1930 RIN D; RIN D0(MAX)=; D0(1): RIN

1940 RIN D; PRINT D0(MIN)= D0(2): RIN : RIN

1950 RIN D0:

1960 RINT ------------------------------------------------------------

1970 RIN ! 20 ! 25 ! 32 ! 40 !60 ! 80 ! 100 !. 125 ! 160 ! 200 ! 250 ! 315 ! 400 ! 500 ! 630 ! 800 ! 1000!

1980 RIN --------------------------------------------------------------------

1990 RIN : PRIN D0=; D(20): D0=D(20)

2000 PRINT , . CR/LF

2010 INPU D0=, D0

2020 IF D0<20 R D0>1000 THEN 1900

2030 IF I%=1 OR I%=3 THN 2040: GOTO 2060

2040 IF 1>D0/5 N 2050: GOO 2080

2050 1=D0/5: GOO 2080

2060 IF D1>0.4 N 2070: GOTO 2080

2070 1=D0/4

2080 1=ROUND(1,0)

2090 V(1)=.2: V(2)=.25: V(3)=.32: V(4)=.4: V(5)=.5: V(6)=.6: V(7)=.7: V(8)=.8: V(9)=.9: V(10)=1: V(11)=1.1: V(12)=1.3: V(13)=1.4: V(14)=1.6: V(15)=1.8: V(16)=2: V(17)=2.2: V(18)=2.6: V(19)=2.8: V(20)=3.2: V(21)=3.6: V(22)=4: V(23)=4.6: V(24)=5.2: V(25)=6: V(26)=6.5: V(27)=7

2100 V(28)=8: V(29)=9: V(30)=10: V(31)=12: V(32)=13: V(33)=14: V(34)=16: V(35)=18: V(36)=20

2110 IF D(19)>0 THN 2360

2120 W2=M1*(.5*3.1415926-2*(+)*AN(A2)+X3): W3=W2

2130 FR =1 O 36

2140 IF W2<=V(K) TN 2190

2150 IF W2>(V()+V(K+1))/2 AND W2<=V(K+1) N 2200

2160 IF W2 AND W2<=(V(K)+V(K+1))/2 THEN 2190

2170 IF W2>V(36) THEN 2210

2180 NEXT K

2190 W2=V(K): GOTO 2220

2200 W2=V(K+1): GOTO 2220

2210 W2=V(36)

2220 IF D(19)>0 N 2390

2230 W4=W3-W2: W5=.5*W4*TAN(1.5707963-A2)

2240 IF 3=0 AND 1>1 THEN 2280

2250 IF 3=0 AND M1<=1 N 2290

2260 IF 3>0 OR 3<0 AND M1>=2 N 2310

2270 GOTO 2350

2280 D1=W5: IF W4>.06*1 OR W4<-.02*1 N 2340: GOO 2350

2290 D1=W5: IF W4>.1*W1 OR W4<-.02*1 N 2340

2300 G 2350

2310 3=W2/1-.5*3.1415926+2*(H+)*AN(A2)

2320 IF W4>.05*M1 OR W4<-.05*M1 THEN 2340

2330 G 2350

2340 1=W2/(1.5707963-2*(+)*AN(A2)+3)

2350 L3=.5*D1: R2=R+L3: V2=2*R2/Z3: GOTO 2570

2360 0=1

2370 IF 5>0 OR 5<0 N 2400

2380 W5=1.5707963-2*(Y+C)*TAN(A2)+X3: W2=(V2-R0/Z3*B1)*W5*COS(B): W3=W2: GOTO 2130

2390 W4=W2-W3: IF W4=0 THEN 2500: GOTO 2420

2400 W5=W6+X3: L0=(M2*W5*COS(B)-W2)/(B1/Z3*W5*COS(B): IF K(0)>=.0 AND K0<1.21 TN 2500

2410 G 2530

2420 W6=1.5707963-2*(+)*TAN(A2): W7=2-0*1/Z3

2430 X4=(W2-W7*W6*COS(B))/W7/COS(B): X5=X4-X3: IF X5>0 AND X5>0.05 THEN 2440: GOTO 2450

2440 X3=X3+.05: GOTO 2400

2450 IF X5>0 N 2470

2460 IF X5<-.05 N 2480: 3=3+5: GO 2500

2470 3=3+5: GO 2500

2480 3=3+.05: GOO 2400

2490 G 2445

2500 1=(2-K0+1/Z3)*OS()

2510 G 2570

2520 3=4: GO0 2500

2530 PRINT : PRINT AT(10,5): PRINT D: K0=: K0: PRINT

2540 PRINT K0 0.8-1.2

2550 RIN ( N)

2560 INPUT . CR/LF, I: CLEAR N: IF I<9999999999 HN 90

2570 R=1*Z3/2/COS(): L3=R2-R

2580 %============================================

2590 %

2600 %============================================

2610 D2=(+-1)*1+D1: D3=(++1)*1+D1

2620 D4=(1.5707963+2*1*TAN(A2)-3)*1: D5=3.1415926*M1-D4

2630 IF I%=1 R I%=3 N 2910

2640 IF >0 N 2720

2650 0=10800/Z3TAN(A2): IF 0>900 N 2670

2660 G 2880

2670 RIN : PRIN A(10,2)

2680 RIN D; 900 ͻ

2690 RINT 1 3

2700 RIN : PRIN CR/LF)

2710 INPUT I: CLEAR V: IF I<99999 N 90

2720 K=10800*TAN(B)/Z3/TAN(A2)*(1-2*R*SIN(B)/D0)

2730 IF M1<2 THEN 2770

2740 1=/20: 1%=1: 2=1-K1%: IF K2>=.5 N 2760

2750 K1=K1%+20: GOTO 2780

2760 1=1%+1: =1+20

2770 IF K>500 THEN 2790: IF K<=0 THEN 2850

2780 T0=/SIN(B): GOTO 2880

2790 PRINT C: PRINT AT(1,15): PRINT D; PRINT !: PRINT E

2800 PRINT . K>500. Ȼ

2810 RIN / !

2820 RIN : RIN D0 0

2830 RIN . CR/LF

2840 INPUT I: CLEAR N: IF I<99999999999 N 90: G 2880

2850 RIN C: RIN A(1,15): RIN D; RIN !: RIN

2860 RIN . <6, . D0

2870 RIN »: GOO 2820

2880 T1=T0*(.5-2/3.1415926*X1*TAN(A2)): T2=T0-N1: N0=T0/60*W: T1=T1/60*W: T2=T2/60*W

2890 3=2: 4=1

2900 T5=(B1-L3)*(TAN(T2)-TAN(T3)): T6=(B1-L3)*TAN(T1)-TAN(T4)): GOTO 2940

2910 IF I%=1 N 2930: IF I%=3 N 2920: G 2940

2920 T0=0: 1=0: 2=0: 3=0: 4=0: 5=0: 6=0: T8=0: 9=0: F0=0: F1=0: G 2950

2930 1=ARCTAN(D2/R): 2=ARCTAN(D3/R): T3=2: T4=1: T5=0: 6=0

2940 0=L3*TAN(3): 9=L3*TAN(4): F0=L3*TAN(1): F1=L3*TAN(2)

2950 F2=(+1)*1-5: F3=(-X1)*M1-6

2960 F4=F2+0: F5=F3+9: F6=D2+F0: F7=D3+F1

2970 F8=F4+F6: F9=F5+F7: G0=L1+T3: G1=L2+4

2980 G2=L1-1: G3=L2-2

2990 D6=1*Z1%/COS(B): D7=1*Z2%/COS()

3000 G8=2*Z1%: D9=2*Z2%: G4=D8+2*F4*COS(L1): G5=D9+2*F5*COS(L2)

3010 G6=R2*COS(L1)-F4*SIN(L1): G7=R2*COS(L2)-F5*SIN(L2)

3020 %=====================================================

3030 % . .

3040 %=====================================================

3050 S1=D4*COS(A2)↑2: S2=D5*COS(A2)↑2

3060 S3=F2-.25*D4*SIN(2*A2): S4=F3-.25*D5*SIN(2*A2)

3070 S5=D4*COS(L1)*COS(B)↑3/1/Z1%: S6=D5*COS(L2)*COS(B)↑3/M1/Z2%

3080 S7=1-S5↑2/6: S8=1-S6↑2/6: S8=D4*S7: S9=D5*S8

3090 1=F2+.25*D*S5: H2=F3+.25*D5*S6

3100 %================================================

3110 %

3120 % ================================================

3130 IF (R/R2*SIN(B)+(R2/R/R2)*R/D0)>1 HN 3140: G 3160

3140 RIN ۻ

3150 RIN . [NINU] Ż: SO :G 90

3160 IF (R/(R2-B1)*SIN(B)+((R2-B1)/R-R/(R2-B1))*R/D0)>1 N 3140

3170 H3=ARCSIN(R/R2*SIN(B)+(R2/R-R/R2)*R/D0)

3180 H4=ARCSIN((R/(R2-B1))*SIN(B)+((R2-B1)/R-R/(R2-B1))*R/D0)

3190 H5=.5*R2*SIN(H3)*COS(H3)/R/COS(B): H6=H5*D4: H7=H5*D5

3200 R3=R2-H6: R4=R2-H7

3210 R7=ARCSIN(R/R3*SIN(B)+(R3/R-R/R3)*R/D0)

3220 R9=ARCSIN(R/R4*SIN(B)+(R4/R-R/R4)*R/D0)

3230 IF D%=1 N 3270

3240 R5=(W2+2*(F7-H6*TAN(T2))*TAN(A2))/COS(R7)

3250 R6=3.1415926*M1*R4/COS(B)/R-(W2+2*(F7-H7*TAN(T2))*TAN(A2))/COS(R8)

3260 G 3280

3270 R5=R3/R*D4/COS(B)): R6=R4/R*D5/COS(B)

3280 H8=R5*R2*COS(L1)*COS(R7)↑3/R3/D8: H9=R6*R2*COS(L2)*COS(R8)↑3/R4/D9

3290 A3=1-H8↑2/6: A4=1-H9↑2/6: A5=R5*A3*COS(R7): A6=R6*A4*COS(R8)

3300 A7=.25*COS(R7): A8=.25*COS(R8)

3310 A0=R4+R5*A7*H8-H6*TAN(T3): A9=F5+R6*A8*H9-H7*TAN(T4)

3320 %===============================================

3330 %

3340 %===============================================

3350 B2=ARCTAN(TAN(A2)/COS(H3)): B3=ARCTAN(TAN(A2/COS(H4))

3360 B4=ARCTAN(TAN(A2)/COS(B)): B5=F6-B1*TAN(T1): B6=F7-B1*TAN(T2)

3370 Z4=Z1%/COS(L1): Z5=Z2%/COS(L2): Z6=Z4*M1/COS(B): Z7=Z5*M1/COS(B)

3380 Z8=Z6+2*F2: Z9=Z7+2*F3

3390 C3=ARCCOS(Z6*COS(B4)/Z8): C4=ARCCOS(Z7*COS(B4)/Z9)

3400 C5=ARCTAN(Z8*TAN(B)/Z6): C6=ARCTAN(Z9*TAN(B)/Z7)

3410 C7=TAN(B4)-B4: C8=TAN(C3)-C3: C9=TAN(C4)-C4

3420 U8=Z8/M1*(D4/Z6/COS(B)+7-8)*COS(5): U9=Z9/M1*(D5/Z7/COS(B)+7-9)*COS(6)

3430 IF U8<.30 OR U9<.3 N 3440: GO 3490

3440 RIN C: PRINT AT(1,15); RIN D; RIN !: RIN

3450 RIN . . Ȼ

3460 RIN ( ) λ

3470 RIN . CR/LF ( N)

3480 INPUT I: CLEAR N: IF I<9999999999 N 90: GOO 3490

3490 M3=Z6*R2/R: M4=Z7*R2/R: M5=Z6/R*(R2-B1): M6=Z7/R*(R2-B1)

3500 M7=F4-B1*TAN(T3): M8=F5-B1*TAN(T4)

3510 M9=M3+2*F4: M0=M4+2*F5: P0=M5+2*M7: P5=M6+2*M8

3520 P6=ARCCOS(M3*COS(B2)/M9): 7=ARCCOS(M4*COS(B2)/M0)

3530 P8=ARCCOS(M5*COS(B3)/P0): P9=ARCCOS(M6*COS(B3)/P5)

3540 U2=ARCTAN(M9*TAN(H3)/M3): U3=ARCTAN(M0*TAN(H3)/M4)

3550 U4=ARCTAN(P0*TAN(H4)/M5): U5=ARCTAN(P5*TAN(H4)/M6)

3560 D(1)=M3-2*F6: D(2)=M4-2*F7: D(3)=M5-2*B5: D(4)=M6-2*B6

3570 D(5)=.5*M3*(TAN(P6)-TAN(B2))*COS(B2): D(6)=.5*M4*(TAN(P7)-TAN(B2))*COS(B2): D(7)=.5*M5*(TAN(P8)-TAN(B3))*COS(B3): D(8)=.5*M6*(TAN(P9)-TAN(B3))+COS(B3)

3580 D(9)=2*2(.25*M3↑2+D(6)↑2-M3*D(6)*SIN(B2)): D(10)=2*SQR(.25*M4↑2+D(5)↑2-M4*D(5)*SIN(B2))

3590 D(11)=2*SQR(.25*M5↑2+D(8)↑2-M5*D(8)*SIN(B3)): D(12)=2*SQR(.25*M6↑2+D(7)↑2-M6*D(7)*SIN(B3))

3600 D(13)=(D(9)-D(1))/2/(1-SIN(A2): D(14)=(D(11)-D(3))/2/(1-SIN(A2)): D(15)=(D(10)-D(2))/2/(1-SIN(A2): D(16)=(D(12)-D(4))/2(1-SIN(A2)

3610 IF D(13)<=D(14) THEN 3620: R0(1)=D(14): GOTO 3630

3620 R0(1)=D(13)

3630 IF D(15)<=D(16) THEN 3640: R0(2)=D(16): GOTO 3650

3640 R0(2)=D(15)

3650 7=R2*TAN(L1)*SIN(B2)↑2+R0(1)*(1-SIN(A2))

3660 8=R2*TAN(L2)*SIN(2)2+R(2)*(1-SIN(A2))

3670 IF 7<F6 OR 8<F7 N 3710

3680 1=(R2-1)*TAN(L1)*SIN(3)2+R0(1)*(1-SIN(A2))

3690 2=(R2-1)*TAN(L2)*SIN(3)2+R0(2)*(1-SIN(A2))

3700 IF 1<5 R 2<6 N 3750: G 3800

3710 RIN ; RIN A(1,15): RIN D; RIN ! PRIN Ť

3720 RIN A(3,20): RIN V

3730 RIN AT(5,10): RIN . CR/LF .

3740 INPU I: CLEAR N: IF 1<999999999 N 90: GOO 3770

3750 RIN ; PRIN A(1,15): RINT D: RINT : RINT

3760 RIN A(3,20): RIN V1: GOO 3730

3770 %=====================================================

3780 % .

3790 %=====================================================

3800 IF D%=1 N 3820

3810 U6=(W2+2*F7*TAN(A2))/COS(H3): J1=(W2+2*B6*TAN(A2))/COS(H4): GOTO 363

3820 U6=D4*R2/COS(B)/R: J1=D4/COS(B)/R*(R2-B1)

3830 J2=3.1415926*M1*R2/COS(B)/R-U6: J3=3.1415926*M1/COS(B)/R*(R2-B1)-J1

3840 J8=TAN(B2)-B2: J9=TAN(P6)-P6: L4=TAN(P7)-P7: L5=TAN(B3)-B3: L6=TAN(P8): L7=TAN(P9)-P9

3850 IF Z4>150 N 3880

3860 J4=M9*COS(U2)*(U6/M3+J8-J9): J6=P0*COS(U4)*(J1/M5+L5-L6)

3870 J5=M0*COS(U3)*(J2/M4+J8-L4): J7=P5*COS(U5)*(J3/M6+L5-L7): GOTO 3920

3880 J4=U6*COS(H3)-2*P4*TAN(A2): J6=J1*COS(H4)-2*M7*TAN(A2)

3890 IF Z5>150 N 3910

3900 J5=M0*COS(U3)*(J2/M4+J8-L4): J7=P5*COS(U5)*(J3)/M6+L5-L7): GOTO 3920

3910 J5=J2*COS(3)-2*F5*TAN(A2): J7=J3*OS(H4)-2*M8*AN(A2)

3920 Y2=J4/J6

3930 IF Y2<.7 OR Y2>1.3 N 3940: GOO 4010

3940 RIN : RIN A(1,15): RIN D; RIN !: RIN

3950 RIN . KNU1=; Y2

3960 RIN NU<0.7 . D0

3970 RIN / N

3980 RIN NU1>1.3 : D0 . BN

3990 RIN : RIN R/LF »

4000 INPU I: CLEAR N: IF I<999999999 N 90: GOO 4080

4010 Y7=J5/J7

4020 IF Y7<.7 OR Y7>1.3 N 4039: GOO 4080

4030 RIN : RIN AT(1,15): RIN D; : RIN !: PRIN

4040 RIN . KNU2=; Y7

4050 RIN KNU2<0.7 D0

4060 RIN / N

4070 RINT NU2>1.3 : D0 . BN: GOT 3990

4080 Y8=(J6-J4)*OS()/1: Y9=(J7-J5)*OS(B)/1: Y8=ROUND(Y8,3): Y9=ROUND(Y9,3)

4090 IF Y8<-.05 OR Y9<.05 OR Y8>.7 OR Y9>.07 N 4100: GOO 4110

4100 RIN NUA1=; Y8; NUA2=; Y9: SO . . .. -0.05 - +0.07

4110 0=1.3.1415926/COS(4)

4120 1=0*SQR((Z4/2+F2*COS(B)/M1)↑2-(Z4/2*COS(4))↑2)

4130 2=0*SQR((Z5/2+F3*COS(B)/M1)↑2-(Z5/2*COS(4))↑2)

4140 3=(Z4+Z5)*AN(4)/2/3.1415926

4150 8=1+2-3: 9=1*SIN(B)/#I/1: 9=ROUND(9,3)

4160 IF /W>20 AND 9<1.25 N 4170: GOO 4230

4170 RIN : RINT A(1,15): RIN D: RIN !: RIN

4180 RIN A(3,8): RIN . S<1.25.(S=; 9; )

4190 RIN N

4200 RIN R/LF Ż

4210 INPU I: LAR N: IF I<999999999 N 4220

4220 RIN : G 90

4230 7=SQR(8↑2+9↑2)

4240 (14)=D7-1*OS(L2): (12)=D5*S8+1*AN(A2): (13)=F3+.25*D5*S6+.5*M1

4250 (16)=R6*OS(R8)*A4+1*AN(A2): (17)=F5+R6*A8*9-7*AN(4)+.5*1

4260 T(15)=D7*R4/R-1*OS(L2)

4270 1=1/W: G0=G0*1: G1=G1*1: G2=G2*1: G3=G3*1: L1=L1*K1: L2=L2*1: 0=0*K1: 1=1*1: 2=2*1: 3=3*1: 4=4*1: S=S*1: G0=RUND(G0,8): G1=ROUND(G1,8): G2=ROUND(G,8): G3=ROUND(G3,8): L1=ROUND(L1,8): L2=ROUND(L2,8): A2=A2*K1: A2=ROUND(A2,0)

4280 (1)=G0: (2)=G1: T(3)=G2: T(4)=G3: (5)=L1: (6)=L2: (7)=0: (8)=1: (9)=2: (10)=3: T(11)=4

4290 (14)=D7-1*OS(L2): (12)=D5*S8+1*AN(A2): (13)=F3+.25*D5*S6+.5*1

4300 (16)=R6*OS(R8)*A4+1*AN(A2): (17)=F5+R6*A8*9-7*AN(4)+.5*M1

4310 T(15)=D7*R4/R-M1*OS(L2)

4320 M1=ROUND(M1,4): 2=ROUND(2,4): Z3=ROUND(Z3,4): R=ROUND(R,4): R2=ROUND(R2,4): L3=ROUND(L3,4): D2=ROUND(D2,4): D3=ROUND(D3,4): D4=ROUND(D4,4): D5=ROUND(D5,4): T8=ROUND(T8,4): T9=ROUND(T9,4): F0=ROUND(F0,4): F1=ROUND(F1,4): T5=ROUND(T5,4): T6=ROUND(T6,4)

4330 F2=ROUND(F2,4): F3=ROUND(F3,4): F4=ROUND(F4,4): F5=ROUND(F5,4): F6=ROUND(F6,4): F7=ROUND(F7,4): F8=ROUND(F8,4): F9=ROUND(F9,4): G0=ROUND(G0,4): G1=ROUND(G1,4): G3=ROUND(G3,4): D6=ROUND(D6,4): D7=ROUND(D7,4): D8=ROUND(D8,4):

4340 D9=ROUND(D9,4): G4=ROUND(G4,4): G5=ROUND(G5,4): G6=ROUND(G6,4): G7=ROUND(G7,4): S1=ROUND(S7,4): S2=ROUND(S2,4): S3=ROUND(S3,4): S4=ROUND(S4,4): S5=ROUND(S5,4): S6=ROUND(S6,4): S7=ROUND(S7,4): S8=ROUND(S8,4): S0=ROUND(S8,4): S0=ROUND(S0,4): S9=ROUND(S9,4)

4350 1=ROUND(1,4): 2=ROUND(H2,4): 6=ROUND(6,4): 7=ROUND(7,4): R3=ROUND(R3,4): R4=ROUND(R4,4): R5=ROUND(R5,4): R6=ROUND(R6,4): 8=ROUND(8,4): 9=ROUND(9,4)

4360 A3=ROUND(A3,4): A4=ROUND(A4,4): A5=ROUND(A5,4): A6=ROUND(A6,4): A7=ROUND(A7,4): A8=ROUND(A8,4): A0=ROUND(A0,4): A9=ROUND(A9,4): U8=ROUND(U8,4): U9=ROUND(U9,4)

4370 Y2=ROUND(Y2,2): Y7=ROUND(Y7,2): Y8=ROUND(Y8,2): Y9=ROUND(Y9,2): 8=ROUND(E8,2): E7=ROUND(E7,2): (12)=ROUND(T(12,4): (13)=ROUND(T(13),4): (14)=ROUND(T(14),4): (15)=ROUND(T(15),4)

4380 X1=ROUND(X1,2): X3=ROUND(X3,2): D8=ROUND(D8,4): D9=ROUND(D9,4): D1=ROUND(D1,3)

4390 FR I=1 TO 11: O(I)=(I): %(I)=(I): Q(I)=O(I)-T%(I)

4400 MA W=(60)*Q: J(I)=W(I): W%(I)=W(I): (I)=J(I)-W%(I)

4410 A A=(60)*: A%(I)=A(I)

4420 NEXT I

4430 (16)=ROUND(T(16),4): (17)=ROUND(D(17),4): S=ROUND(S,0)

4440 RIN X(03) Ȼ

4450 RIN A(2,25): RIN Ȼ: RIN

4460 RIN Z1=; Z1%; Z2=; Z2%

4470 RIN N=; 1; =; 2

4480 RIN =; 1(9); л; 1(5); ´; 1(6); ´´

4490 RIN SUM=; S; л; 1(7); ´; 1(8); ´´

4500 RIN R=; R

4510 RIN R=; 2

4520 RIN D0=; D0

4530 RIN ........ =; 1

4540 RIN ....... U=; U

4550 RIN . ...... XN1=; 1

4560 RIN . AU1=; 3

4570 RIN DLF=; D1

4580 RIN . .... W2=; W2

4590 RIN

4600 RIN ....... L=; L3

4610 RIN . SN1=; D4; SN2=; D5

4620 RIN ........ H1=; F8; 2=; F9

4630 RIN ..... : S . NTINUŻ

4640 RIN X(03); : RIN A(1,1)

4650 RIN ..... DLA1=; %(1); л; W%(1); ´; %(1); ´´

4660 RIN ----------------- ..... DLA2=; %(2); л; W%(2); ´; %(2); ´´

4670 RIN ..... DELF1=; %(3); л; W%(3); ´; %(3); ´´

4680 RIN ----------------- ..... DLF2=; %(4); л; W%(4); ´; %(4); ´´

4690 RIN . FS=; %(7); л; W%(7); ´; %(7); ´´

4700 RIN ..... F1=; %(8); ; W%(8); ´; A%(8); ´´

4710 RIN ------------- .....F2=; %(9); л; W%(9); ´; %(9); ´´

4720 RIN ..... 1=; %(10); л; W%(10); ´; A%(10); ´´

4730 RIN ----------- ..... 2=; %(11); л; W%(11); ´; %(11); ´´

4740 RIN .. DL1=; %(5); л; W%(5); ´; %(5); ´´

4750 RIN ---------------------- .. DL2=; %(6); л; W%(6); ´; %(6); ´´

4760 RIN . ..... 1; F4; 2=; F5

4770 RIN . ..... F1=; F6; F2=; F7

4780 RIN ..... D1=; D6; D2=; D7

4790 RIN ..... D1=; D8; D2=; D9

4800 RIN .... DA1=; G4; DA2=; G5

4810 RIN : SO . NINUŻ

4820 RIN

4830 RIN Ȼ

4840 RIN ...... 1=; G6; 2=; G7

4850 RIN ........ S1=; S1; S2=; S2

4860 RIN . ....... 1=; S3; 2=; S4

4870 RIN . . . ... SN1=; S0; SN2=; S9

4880 RIN . . ... 1=; 1; 2=; 2

4890 RIN .

4900 RIN DY2=; (14); SAY2=; (12)

4910 RIN .

4920 RINT . . . DY2=; (14); AY2=; (13)

4930 RIN . . LX1=; 6; LX2=; 7

4940 RIN .... 1=; 0; 2=; 9

4950 RIN . .

4960 RIN . . DYX2=; (15); SNYX2=; (16)

4970 RIN .

4970 RIN .

4980 RIN . . DYX2=; (15); YX2=; (17)

4990 RIN . ........ SA=; 8

5000 RIN . ......... S=; 9

5010 RIN

5020 RIN . R/LF

5030 RIN 1 R/LF

5040 I=0: INU I: IF I<1 N 5050: GOO 4440

5050 RIN : INUT ?, V

5060 INU ?, V1

5070 INU (, ),

5080 INPUT , D

5090 IF = Ż N 5100: G 5110

5100 Ѥ= Ż: GOTO 5120

5110 Ѥ= Ż

5120 SL RIN0

5130 RIN ɻ

5140 RIN Ȼ

5150 RIN ߻

5160 RIN !-----------------------------------------------------------!

5170 RIN ! !NN !; 1; (60); !

5180 RIN ! !Z1 !; Z%; A(60); !

5190 RIN ! !-! ɻ

5200 RIN ! 19325-73 ! - !; !; (60); !

5210 RINT !N !; 1(9); û; 1(5); ´; B1(6); ´´; (60); !

5220 RIN ! ! - !; ; (60); !

5230 IF = + N 5240: GOTO 5250

5240 RINT ! - ! 16202-70!: G 5310

5250 RIN ! ! - ! !

5260 RIN ! !ALFAN!; 2; û; 1(4); ´; 1(12); ´´; (60); !

5270 PRIN ! ! !; ; (60); !

5280 RIN !* !; ; (60); !

5290 RIN - ! !; (60); !

5300 RIN ! !RF !; R1; A(60); !

5310 PRIN ! !XN1 !; 1; (60); !

5320 RIN ! . . !1 !; 3; (60); !

5330 RIN ! !DL1 !; %(5); û; W%(5); ´; %(5); ´´; (60); !

5340 RINT ! . !D0 !; D0; (60); !

5350 PRIN ! !W2 !; W2; A(60); !

5360 RIN ! ! - !; D; (60); !

5370 PRINT !--------------------------------------------------------!

5380 RIN ! !S1 !; S1; F(60); !

5390 RINT ! !1 !; S3; A(60); !

5400 RIN ! !1 !; 0; (60); !

5410 RIN ! !1 !; F4; A(60); !

5420 RINT ! !F1 !; F6; (60); !

5430 PRINT !-------------------------------------------------------------------!

5440 RIN ! !SUM !; S; û; 1(7); ´; 1(8); ´´; (60); !

5450 RIN ! ! !; 2; (60); !

5460 RIN ! !R !; R2; A(60); !

5470 RIN ! !R !; R; A(60); !

5480 RIN ! ! !; 1; (60); !

5490 RIN ! !D1 !; D6; A(60); !

5500 RIN ! !D1 !; D8; (60); !

5510 RIN ! !DA1 !; G4; A(60); !

5520 RIN ! ! !; (60); !

5530 RIN ! !1 !; G6; AB(60); !

5540 RIN ! !DLA1!; %(1); û; W%(1); ´; A%(1); ´´; A(60); !

5550 RIN ! !DLF1!; %(3); û; W%(3); ´; %; ´´; (60); !

5560 RIN !1 !; F8; A(60); !

5570 RIN ! ! !; (60); !

5580 RIN ! !SN1 !; S0; A(60); !

5590 RIN ! ! !; (60); !

5600 RIN ! !1 !; 1; (60); !

5610 RIN ! . . . !L !; L3; A(60); !

5620 RIN ! . . . !LX1 !; 6; (60); !

5630 RIN ! . . !SN1 !; D4; (60); !

5640 RIN ! -----------------------------------------------------------

5650 RIN ! !; (60); !

5660 RIN ! !; V

5670 RINT !----------------------------------------------------------

5680 PRINT X (0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)

5690 PRINT HEX (0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)

5700 PRINT HEX (0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)

5710 RINT

5720 RINT !-------------------------------------------------------------

5730 RIN ! !MN !; 1; (60); !

5740 RINT ! !Z2 !; Z2%; A(60); !

5750 RIN ! ! - ! ɻ

5760 RIN ! 19325-73 ! - !; I%; A(60); !

5770 RINT ! N !; B1(9); û; 1(5); ´; 1(6); ´´; (60); !

5780 RIN ! - !; ; (60); !

5790 IF = + N 5800: GO 5810

5800 RIN ! ! - ! 16202-70; GOO 5870

5810 RIN ! ! - ! ͻ

5820 RIN ! !ALFAN!; 2; û; 1(4); ´; 1(12); ´´; (60); !

5830 PRIN ! ! !; ; (60); !

5840 RIN ! !* !; ; (60); !

5850 PRIN ! - ! !; (60); !

5860 RIN ! !RF !; R1; A(60); !

5870 RIN ! !N1 !; -1; (60); !

5880 RIN ! . . !1 !; -3; (60); !

5890 RIN ! !DL2 !; %(6); û; W%(6); ´; %(6); ´´; (60); !

5900 RIN ! . !D0!; D0; (60); !

5910 RIN !W2 !; W2; (60); !

5920 RIN ! ! - !; D; AB(60); !

5930 RIN !-----------------------------------------------------------!

5940 IF 1>.4 N 5980

5950 RIN ! !S2 !; S2; A(60); !

5960 RIN ! !2 !; S4; A(60); !

5970 RIN ! !2 !; 9; (60); !

5980 RIN ! !2 !; F5; A(60); !

5990 RIN ! !F2 !; F7; A(60); !

6000 RIN !----------------------------------------------------------

6010 RIN ! !SUM !; S; û; 1(7); ´; 1(8); ´´; (60); !

6020 RIN ! ! !; 2; (60); !

6030 RIN ! !R !; R2; A(60); !

6040 RIN ! !R !; R; A(60); !

6050 RIN ! ! !; 1; (60); !

6060 RIN ! !D2 !; D7; A(60); !

6070 RIN ! !D2 !; D9; A(60); !

6080 RIN ! !DA2 !; G5; A(60); !

6090 RIN ! ! !; (60); !

6100 RIN ! !2 !; G7; A(60); !

6110 RIN !DELA2 !; %(2); û; W%(2); ´; A%(2); ´´; A(60); !

6120 RIN ! !DLF2 !; %(4); û; W%(4); ´; A%(4); ´´; AB(60); !

6130 RIN ! !2 !; F9; A(60); !

6140 IF 1>.4 N 6190

6150 RIN ! ! !; (60); !

6160 RIN ! !SN2 !; S9; A(60); !

6170 RIN ! ! !; (6); !

6180 RIN ! !2 !; 2; (60); !

6190 RIN ! . . . !L !; L3; A(60); !

6200 RIN ! . . . !L2 !; 7; (60); !

6210 RIN ! . . !SN2 !; D5, A(60); !

6220 IF 1<=.4 N 6320

6230 RIN ! . .!; (60); !

6240 IF X1<=.4 N 6320

6250 RINUSING ! DY=####.#### !SEY2 !###.#### !, (14), (12)

6260 RIN ! . ! !; (60); !

6270 RINUSING ! . DY=####.#### . ! AY2 !###.####), (14), (13)

6280 RIN ! . ! !; (60); !

6290 RINTUDSING ! . DY2=####.#### . !SNY !###.####!, (15), (16)

6300 RIN ! . ! !; (60); !

6310 RINUSING ! . DY2=####.#### . . !AY !###.####)!, (15), (17)

6320 RIN !----------------------------------------------------------

6330 RINT ! !; (60); !

6340 RIN ! !, V1

6350 RIN !-----------------------------------------------------------!

6360 SL RINT05: GOTO 6480

6370 RIN : RIN ɻ

6380 RIN : RIN 1. ̻

6390 RIN 2. , ɻ

6400 RIN 3. R/LF

6410 RIN 4. : , , ۻ

6420 RIN 5. N ̻

6430 RIN 6. . : Ż

6440 RIN , . Z1 (OO. Z2)

6450 RIN 7. ( ) : RS, RUN, R/LF ջ

6460 RIN 8. . R/LF ܻ

6470 INPU !, I: IF I<999 N 90

6480 PRIN X(03)

6490 INPU ? (+ ; - ), I

6500 IF I=+ THN 90

6510 INPU ?(+ ; - ), I

6520 IF I= + N 6530: GOO 6560

6530 IF J1%=0 THEN 6540: LOAD D R: GOTO 6550

6540 LOAD D FD

6550 ND

6560 RIN : RIN A(12,23): RIN , !

4

GH

m =

ρf* = R1

da1 = D5

q = Q

d1 = D1

da2 = D6

z1 = Z1

d2 = D2

dam2 = D7

z2 = Z2

dw1 = D4

ρf1 = R

w = a3

γ = G1

P1 = 1

x = X

γw = G2

Pz1 = 2

b1 = 1

γb G3

= S1

u = U

db = D3

= 4

a = A1

h1 = 3

D = D1(1)

ha* = 1

ha1 = 2

1 = M1

s* = S

b2 = 2

 

- 19650-74

10 %-----------------------------------------------

20 %

30 % - ; 01.12.86.

40 %----------------------------------------------

50 J1%

60 RIN (03): RIN ? (+ ; - )

70 INPU ʤ: IF = + N 2240

80 LEAR N: DI D(24), A20, G(5), (5,2), D1(10)

90 D(1)=.17: D(2)=.232: D(3)=.291: D(4)=.343: D(5)=.433: D(6)=.572: D(7)=.724: D(8)=.866: D(9)=1.157: D(10)=1.441: D(11)=1.732: D(12)=2.217: D(13)=2.886: D(14)=3.468: D(15)=4.400: D(16)=5.493: D(17)=8.282: D(18)=8.767: D(19)=10.95: D(20)=16.565: D(21)=17.362: D(22)=21.863

100 D(23)=28.25: D(24)=35.5

110 G(1)=-0.5: G(2)=-0.01: G(3)=0: G(4)=0.5: G(5)=1.0

120 (1,1)=11: (2,1)=8: (3,1)=11: P(4,1)=12: (5,1)=13: (1,2)=11: (2,2)=10: (3,2)=13: (4,2)=13: (5,2)=14

130 ¤=(12): =X(11): D=(12): =(03)

140 A=

150 RIN ; Ȼ

160 RIN Ȼ, (0)

170 RIN A(4,10): RIN ; Ȼ,

180 RIN

190 INPU (Z1-O, ZA-); F: IF F= ZI TN 210

200 3=1: GO0 220

210 3=2

220 INPU ? (+; -), ʤ: IF = +N 230: GO 240

230 A=20: 1=1: S=1.571: R1=.3: GOO 310

240 RIN

250 INPU , (.) ..... ALFX=,

260 INPU () ..... =, 4

270 INPU () ..... =, 5

280 INPU . ..... =, 1

290 INPU . ..... S=, S

300 INPU . ..... ROF=, R1

310 INPU (0.1 - 25) ........ =,

320 IF <0.1 OR >25 N 310

330 INPU . (5 - 20) ... Q=, Q

340 IF Q<50 OR Q>20 N 330

350 INPU (1 - 4) .... Z1=, Z1

360 IF Z1<1 OR Z1>4 N 350

370 INPU (20 - 350) ... Z2=, Z2

380 IF Z2<20 OR Z2>350 TN 370

390 IF Z1>1 AND Z2<26 N 520

400 IF Z1=1 AND Z2<22 N 550

410 IF B3<1 OR B3>3 HEN 390

420 INPU (0 - 250) ... AW=, 3

430 IF A3<0 OR A3>250 N 420

440 INPUT . (-1 - +1) ... =,

450 IF X<-1 OR X>1 THEN 440

460 INPU (0 - 150) 1=, 1

470 IF B1<0 R 1>150 N 460

480 PRIN (1- . ., 2-.

490 INPU ) =, 2

500 U=Z2/Z1: U%=U

510 U=Z2/Z1: GOTO 570

520 RINT F

530 RIN ; ; Z1>1, Z2 .. 26

540 INPU R/LF Ļ, I: IF I<99 N 80

550 RIN F

560 RIN ; , Z1=1, Z2 .. 22: GOO 540

570 R=#I/180; 1=(+4/60+5/3600)*R: SL R

580 IF A3<0.001 N 600

590 X=A3/M-0.5*(Z2+Q): GOO 610

600 A3=0.5*(Z2+Q+2*)*

610 D1=Q*: D2=Z2*: D4=(Q+2*)*M: G1=ARCTAN(Z1/Q): G2=ARCTAN(Z1*/D4)

620 IF B3<>2 N 640

630 G3=ARCCOS(A1)*OS(G1)): D3=Z1*/AN(G3))

640 2=1*: D5=D1+2*1*: D6=D2+2*(1+X)*M

650 IF 3=2 OR G1>=0.4637 N 680

660 1=0.2

670 G 690

680 1=0.2*OS(G1)

690 =2.0+1: 3=*

700 D7=D6+(6*/(Z1+2)): D7=ROUND(D7,0): R=R1*

710 IF 1>0.001 N 900

720 IF 2=1 N 760

730 IF <10 N 770

740 IF >10 AND <=16 N 780

750 IF >16 N 790

760 L1=0: GOO 800

770 L1=25: G 800

780 L1=35: GOO 800

790 L1=50

800 FR I=1O5

810 L=I

820 IF <=G(I) N 840

830 N I

840 IF Z1>2 N 880

850 J=1

860 IF L=1 N 890

870 B1=(P(L,J)+0.1*Z2)*M+L1: B1=ROUND(B1,0): G 900

880 J=2: GOO 860

890 1=((L,J)+Z1)*+L1: B1=ROUND(B1,0)

900 IF Z1<=3 N 920

910 B4=0.65*D5: G 930

920 B4=0.75*D5

930 1=#I*: 2=1*Z1: S1=S**OS(G1)

940 4=1*+0.5*S1*AN(0.5*ARCSIN(S*SIN(G1)↑2/D1))

950 D1(1)=1.7*M

960 FR I=1O24

970 IF D(I)>=D1(1) TN 990: IF D1(1)>D(24) N 1000

980 N I

990 D1(1)=D(I): GOO 1010

1000 D1(1)=D(24)

1000 D1(1)=D(24)

1010 IF B3=1 N 1030

1020 A1=0.3491

1030 A1=ARCSIN(SIN(0.3491)*OS(G1))

1040 1=D1-(1-S*)*0S(G1)/AN(A1)+D1(1)*(1/SIN(A1)+1)

1050 A2=ARCTAN(AN(A1))/OS(A)

1060 E=(SQR(D6↑2-D2↑2*COS(A2))↑2)-D2*SIN(A2)+(2*M)(H1-X))/SIN(A2))/(*#PI*M*COS(A2))

1070 =0

1080 G8=180/#I: (1)=G1*G8: (2)=G2*G8: (3)=G3*G8

1090 FOR I=1O3: G(I)=T(I): T%(I)=T(I): Y(I)=O)I)-T%(I)

1100 MAT W=(60)*Y: J(I)=W(I): W%(I)=W(I): K(I)=J(I)-W%(I)

1110 MAT A=(60)*K: A%(I)=A(I)

1120 NX I

1130 =ROUND(X,3)

1140 A3=ROUND(A3,4): D1=ROUND(D1,4): D2=ROUND(D2,4): D3=ROUND(D3,4): H3=ROUND (H3,4)

1150 2=ROUND(2,4): D5=ROUND(D5,4): D6=ROUND(D6,4): D7=ROUND(D7,4): R=ROUND(R,4)

1160 1=ROUND(P1,4): P2=ROUND(2,4): S1=ROUND(S1,4): 4=ROUND(4,4): M1=ROUND(M1,4)

1170 RIN

1180 RIN D; ; : RIN

1190 RIN Z1=; Z1; (40); Z2=; Z2

1200 PRIN . Q=; Q; A(40); AW=; 3

1210 RIN . =; ; (40); =;

1220 RIN D1=; D1; A(40); ********* D2=; D2

1230 RIN . GA=; %(1); û; W%(1); ´; A%(1); ´´; (42); . D=; D3

1240 IF 3<>2 N 270

1250 RIN . GAW=; %(2); û; W%(2); ´; %(2); ´´

1260 RIN . GAB=; %(3); û; W%(3); ´; %(3); ´´

1270 RINT 1=; 3; (40); 1=; 2

1280 RIN DA1=; D5; AB(40); ******* DA2=; D6

1290 RIN . . . DA2=; D7; A(40); R . . ROF1=; R

1300 RIN . . 1=; 1; (40); 2=; 4

1310 RIN . 1=; 1; (40); PZ1=; 2

1320 RIN . . SA1=; S1; A(40); 1=; 4

1330 RIN . D=; D1(1); A(40); . . 1; 1

1340 I=: RIN A(20,5): INU R/LF, I: IF I<999 N 1350

1350 INPU ; ̤: INPUT , 1

1360 INPU (, ); F1

1370 INPU Ȼ; F5

1380 SL RIN0

1390 RIN Ȼ: RIN

1400 PRIN ʻ

1410 RIN !------------------------------------------------!

1420 RIN ! !!; ; (49); !

1430 RIN ! !Z1 !; Z1; A(49); !

1440 RIN ! ! - !; F; A(49); !

1450 IF F=Z1 N 1480

1460 RIN ! !GA !; %(1); û; W%(1); ´; %(1); ´´; (49); !; GJ 1490

1470 IF F=ZA N 1490

1480 RIN ! !GAM !; %(3); û; W%(3); ´; %(3); ´´; (49); !

1490 RIN ! ! !; F1; A(49); !

1500 IF F1= Ż N 1510: G 1520

1510 F2= Ż: GOO 1540

1520 F2= Ż

1530 IF =+ N 1540: GOO 1550

1540 RIN ! ! - ! 19036-81 !: G 1610

1550 RIN ! ! - ! !

1560 RIN ! !ALFA !; ; (49); !

1570 RIN ! . ! !; 1; (49); !

1580 RINT ! . !S !; S; (49); !

1590 RIN ! . ! !; (49); !

1600 RIN ! !ROF !; (49); !

1610 RIN ! ! - !; F5; A(49); !

1620 RIN !------------------------------------------------!

1630 RIN ! . !SA1 !; S1; A(49); !

1640 RIN ! !1 !; 4; (49); !

1650 RIN ! !1 !; 1; (49); !

1660 RIN ! . !D !; D1(1); A(49); !

1670 RIN !------------------------------------------------!

1680 RINT ! !D1 !; D1; A(49); !

1690 RIN ! !1 !; 1; (49); !

1700 RIN ! !PZ1 !; 2; (49); !

1710 RIN ! !AW !; 3; (49); !

1720 RIN ! . !Q !; Q; (49); !

1730 PRIN ! !1 !; 3; (49); !

1740 IF F=ZA N 1760

1750 RIN ! !D !; D3; AB(49); !

1760 RIN ! !DA1 !; D5; A(49); !

1770 PRIN ! !1 !; 1; (49); !

1780 RIN ! ! !; (49); !

1790 RIN ! ! ROF1!; R; A(49); !

1800 RIN ! ! !; (49); !

1810 RIN ! !Z2 !; Z2; A(49); !

1820 RIN !-------------------------------------------------!

1830 RIN ! - !; (49); !

1840 RIN ! . !; 1; (49); !

1850 RIN !------------------------------------------------!

1860 RIN λ

1870 RINT !------------------------------------------------!

1880 RIN ! ! !; ; (49); !

1890 RIN ! !Z2 !; Z2; A(49); !

1900 RIN ! ! !; F2; A(49); !

1910 RIN ! . ! !; ; (49); !

1920 IF =+ N 930: G 1940

1930 RIN ! . - ! 19036-81: GO 2010

1940 RINT ! . ! - ! !

1950 RINT ! !ALFA !; A; (49); !

1960 RIN ! . ! !; 1; (49), !

1970 RIN ! . !S !; S; A(49); !

1980 RIN ! . ! !; (49); !

1990 RIN ! !RF !; (49); !

2000 RIN ! ! - !; F5; F(49); !

2010 RIN !------------------------------------------------ !

2020 RIN ! !AW !; 3; (49); !

2020 RIN ! !D2 !; D2; A(49); !

2040 RINT ! !DA2 !; D6(49); !

2050 RIN ! !DA2 !; D7; (49), !

2060 RIN ! !2 !; 4; (49); !

2070 RIN ! ! - !; F; A(49); !

2080 RIN ! . ! Z1 !; Z1; A(49); !

2090 RIN !------------------------------------------------!

2100 RIN ! - !; (49); !

2110 RIN ! !; ; (49) !

2120 RIN !------------------------------------------------!

2130 SL RIN05

2140 RIN

2150 INU ? (+ , - ); I

2160 IF I=+ N 80

2170 INU ? (+ , - ); I

2180 IF I=+ N 2190: GOO 2220

2190 IF J1%=0 N 2200: LOAD D RDM: G 2210

2200 LAD D FD

2210 ND

2220 RIN : RIN A(12,23): RIN , !

2230 ND

2240 RIN (03)

2250 RIN ɻ: PRIN

2260 RIN 1. .

2270 RIN .

2280 RIN 2. - Ż

2290 RIN . . ɻ

2300 RIN .

2310 RIN 3. . Ũ

2320 RIN .

2330 RIN 4. - (), - ., ., .

2340 RIN 5. Ż

2350 RINT ´RS´, ´RUN´ RLF λ

2360 RIN

2370 RIN . R/LF . ; INPUT I: IF I<999 THEN 80

1.

:

.. , . . ; .. ; .. ; .. , . . ; .. , . . ( ): .. , . . , .. .

2. 224 17.7.87 .

3.

:

- ;

- ;

- ;

- - ;

- ;

- .

 

 

 

 






, .
, , .
150000 - , .
- .

@Mail.ru

Copyright www.gostrf.com, 2008 - 2016