.


:




:

































 

 

 

 





2

7 . . 2.

, , 8. , , .2.

( 5). .1, , , , 5 .

( 4). , , .2.

.2 OZ- . 19, 20, 21, 22.

 

.19 .20

.21 .22

, -1, , - , . ( ), , , , , , .

:

1. - , ,

2. - (),

3. - (),

4. - , .

5. - (),

6. - (. . 4, 6),

7. - ,

8. , - (),

9. - (),

10. - , : .

11. - ,

12. - ,

13. - ,

14. - ,

15. - (-1),

16. - (*2),

17. - (*).

10-220. 280-430.

: , , - , - .

:

- () , , , .

 

10 OPEN LP1

20 REM

30 PRINT Ŕ

40 INPUT

50 INPUT A=; A

60 INPUT BET=; BET

70 INPUT E=; E

80 INPUT PP=; P

90 INPUT A1=; A1

100 INPUT Q=; Q

110 INPUT B=; B

120 INPUT C=; C

130 INPUT L=; L

140 INPUT L1=; L1

150 INPUT D=; D

160 INPUT OMEGA=; OMEGA

170 INPUT EE=; EE

180 INPUT EO=; EO

190 INPUT QO=; QO

200 INPUT Q10=; Q10

210 INPUT BO=; BO

220 INPUT HO=; HO

230 DZ=L/L1

240 K=SQR (D/ (EO*OMEGA))*BET/(A^2)

250 B=4.8*A*BET^3*E/E

260 MM=-PP*E*A

270 M=-Q*E*A

280 PRINT # ߔ

290 PRINT #

300 PRINT # ; NZ

310 PRINT #

320 PRINT #A=; A, BET=, BET, E=, E

330 PRINT #

340 PRINT #PP=, PP, A1=, A1

350 PRINT #

360 PRINT #Q=; Q, B=; B; C=; C

370 PRINT #

380 PRINT #L=; L; L1=;, L1; D=; D; OMEGA=; OMEGA;

390 PRINT #EE=; EE; EO=; EO

400 PRINT #

410 PRINT #QO=, QO; Q10=; Q10; BO=; BO; HO=; HO

420 PRINT #

430 PRINT #K=; K; θ=; θ; MM=; MM; M=; M

440 PRINT #

450 DEF FNS(X)=(EXP(X)-EXP(-X))/2

460 DEF FNS(X)=(EXP(X)+EXP(-X))/2

470 FOR Z=0 TO L STEP DZ

480 KZ=K+Z

490 T=QO+FNS(KZ)/K*Q10+(1-FNC(KZ))/6*90+(Z-FNS(KZ)/K)/6*110

500 T1=FNC(KZ)*Q10-K*FNS(KZ)/6*70+(1-FNC(KZ))/6*110

510 BB=-G*FNS(KZ)/K*Q10+K+FNS(KZ)*80+FNS(KZ)/K*110

520 MOMEGA=MOMEGA-MM*FNC(KZ)

560 IF Z<=A1 GOTO 710

540 KZ=K*(Z-A1)

550 T=T-MM*((Z-A1)-FNS(KZ)/K)/6

560 T1=T1-MM*(1-FNC(KZ)/K)/6

570 BB=BB-MM*FNS(KZ)/K

580 MOMEGA=MOMEGA-MM*FNC(KZ)

590 IF Z<=B GOTO 710

600 KZ=K*(Z-B)

610 T=T-M/6*((Z-B)^2/2+1/K^2*(1-FNC(KZ)))

620 T1=T1-M/6*(Z-B-FNS(KZ)/K)

630 BB=BB-M/K^2*(FNC(KZ)-1)

640 MOMEGA=MOMEGA-MM*FNS(KZ)/K)

650 IF Z<=C GOTO 710

660 KZ=K*(Z-C)

670 T=T+M/G*((2-C)^2/2+1/K^2*(1-FNC(LZ)))

680 T1=T1+M/6*(Z-C-FNS(KZ)/K)

690 DD=DD*M/K^2*(FNC(KZ)-1)

700 MOMEGA=MOMEGA+M/K/FNS(KZ)

710 REM

720 REM

730 BB=BB/A^2

740 MOMEGA=MOMEGA/A

750 MO=G*T1/A

760 PRINT 0 Z=; Z

770 PRINT 0 T=; T; T1=; T1; BB=; BB

780 PRINT 0 MOMEGA=; MOMEGA; MO=; MO

790 PRINT 0

800 NEXT Z

810 CLOSE

820 STOP


 

 





:


: 2015-01-29; !; : 504 |


:

:

, , 1:10
==> ...

2071 - | 1962 -


© 2015-2024 lektsii.org - -

: 0.024 .