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