.., ..

290 ZK1

240 )\ 21

1 momvsET

320 PDT\I=2\HH0DM\GET 2

330 OTfODCVSET 20

340 ffliOfOVSET DC2

350 22

360 **ODA\SET ZA2

370 HHODHVSKT

400 POT -L "

410 DANXT\IF PR=1 THEN 2001

500 PUT 5/,HAHE:A>5U

510 I=1\WVK\PUT 8 HC1:F7.3

520 HYYCVUT 5C10:F6.3

530 TFYWDSFUT 5 DC1:F6.3

540 5 ZK1:I2

550 HYWA\POT 5 ZA1:I2

550 5 H:I2,//

57B I=2\WVM\P11T 5 HC2:F7.3

58B 5 C2B:F6,3

590 HTTOVPOT 5 DC2:F6.3

500 HYHK\POT 5 ZK2:12

510 WYXA4FOT 5 ZAZ:I2

520 MYHHNJUT 5 M: 12

590 POT 5 //

900 IL-73\LIKI

930 PUT -L 6 ": -: 940 PUT 5 " : - ' "

850 PUT -L 5 ':IDB1 1 -! 2 -: -: -

960

97

380

990

1000

1010

1020 1030 1040 1060 1070 1030 1090 1100 1110 1120 1130 1140 1150 1160 1170 1200 1210 1230 1240 1250 1290 1270 1260 1290 1300 1310 1320 1330 1340 1350 1360 1370 1360 1390 1400 1410 1420 1430 1440 1460 1460

. / /

PUT 5 " PUT -L 6 / PUT 5 " LIKE 1=10 FOR J-l 2=20

FOR 1=1

O.=0.5*(C1*ZK1*ZK1+C1*ZA1*ZA1+C2*ZK2*ZK2+C2*ZA2*ZA2) H=SORT(Q)

e=-0.514*ZKl*ZAHH/[ 1*)*0.1

F=EXF (Q*LOG (10.0))

CU=C1*F

Pl=-(LOGlCU))/LOO(10.e)

P2=14-P1

CC=MC1*C1*MC2*CZ

PUT -L 5" : " , CI :F11.3, ": " , C2: Fl 1. 3, " :", PI :F11.3, " :" ,P2 :*'il. 3,

PUT 5 F:FU .3, ":'", CC: F11.3, " : " .

C2=C2+DC2

EHDFNLINEVCCl+DCl EMDF

PUT 5 /// VEL

IF FR=0 THEN OOTO 100\EHBI

PUT /.

PUT -L" 3. "

PUT - ."

PUT -L" : , " PUT- .

PUT- , .' PUT /,? ",/

I=3\WWODC\UET

NMODDMJET DC3

PUT -f Dl

PUT -L- " \

IF =1 I310\ENDI

6 C30:F6.3 . >\ 5 DC3:F6.3 HlWa)\FUT 5 D1:E6.2 PUT 5\IL=60\LINE

PUT -L 5": : :"

PUT 5"

PUT -L 5": : :

PUT 6"

PUT -L 5":: I"

PUT 6"

LINE

1600

1510

1520

1530

1540

1550

I860

1ST0

1560

1600

1610

1620

1630

1640

1650

1660

1670

1660

1680

1700

1702

1704

1710

1720

1730

1740

1750

1760

1770

1760

1790

1600

1610

1620

1630

1640

1660

1660

1670

1660

1690

1900

9999

10000

10010

10020

C3=C30\FOR L=l N STD=SQRT(D1/C3) CB=STDC3

FD1=-(LOG(CD))/LOO<10.0)) PD2=14-FD1

PUT 5":".C3:F13.4.":",STD:F14.4,":',,FD1:F14.4.":",FD2: C3=C3+DC3 INDF

LIMEXFUT 5

VEL\IF FR=0 THEN GOTO 100\EMDI PUT" " PUT 4. :" PUT" , ," PUT" , PUT' .'

PUT/." 1- ",/ I=4\WWODC\OET 40 HHODD\OIT DC4 HHODXSNOIT D2 VmODN\OET H

PUT -L " '\DANET IF FR=1 THEN OOTO 1670\EHDI һ\Ы 6 C40:F6.3 WTwD\FUT 5 DC4:F6.4 WYKKDSFUT 5 D2:E6.2 WYWHNPUT 5 N:12 IL=60\LINE

"\LINE

PUT -L 5~ : : i'

PUT 5- PH :

PUT -L 5": PUT 6"

C4=C40\FOR lil TO N STG=SeKT(lI-14/(D2*C4)) CG=BTGC4

PG1=-(LOG(CG)]/(LOG(10.0)) P02=14-P01

PUT 5":".C4:F18.3.": " . STO: F14. ,'': ? 1 ,PG1 :F14 . ', " : ~ ,PQ2 :F14.3,

C4=C4*DC4

INDF

LINE

PUT 6 ////

PUT ////\OOTO 100

STOP

PROS DANIT

PUT --( )"\QET XXX:A:NN\XXX(0)=XXX(01.BIC.177600B IF () = THEN FR=1\RITURN\INDI IF XXX(0)=156B THEN PR=U\RITURK\ENDI ">"\ 100104ENDF

504

505

11000 PROC WWODH

11010 POT -'

196
< > 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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205

" " (3.96Mb)


[]  []  [ ]  [-]  []  [ ]

 

 




.

. . , , . , . , , .

.

- . , , , , , , . , , , , , , , . , , , , , , , . , . , , , . , 1972 .

 

 



@Mail.ru Rambler's Top100

Copyright 2001-2012
(19.01.2017)