. . (
05.10.2008 .

.()

 

.

1

1- , :

(200);

; (25);

( -4);

,                ;

,     
           .

2- ( ) , ,                :

.

, , 10 .

, .

( ) 3- 18- :

3- -                11- -

4- -       
         12- -

5- -                13- -

6- -                14- -

7- -                15- -

8- -                16- -

9- -                17- -

10- -  
              18- -

, 3-18- , , .

19- -                :

( ) :

20- -                ; 26- -                ;

21- -                ; 27- -                ;

22- -    
            ; 28- -                ;

23- -                ; 29- -                ;

24- -                ; 30- -                ;

25- -                ;

, 19-30- , , .

 

 

:

     : , , , , , , .      : , , , - , , , , , , , , , , , , , .

«» — , «», , .

{mospagebreak title=" ( -) 2"}

2

( -)

DIMENSION AP(50), AS(50), AS1(50), RSC(50), RPC(50), AP1(50),

* BF1(50), B(50), HF1(50), H0(50), H01(50), AS11(50), AP11(50)

DIMENSION R(2,5), S(2,5), Q(200)

DIMENSION MA4(50), MA41(50), SAL(50), SAL1(50), SASI(50),

* SASW(30), SAPI(50), BQ(50), H0Q(50), C(50), SAPW(50), XT(50), X1(50)

REAL MA4,MA41

COMMON /RANDOM/ M2, IA, IC, MIC, SU

PRINT 15

15 FORMAT (14, X '

* '

2=0

READ 1, N, IY, M, L, KRM, KRQ

1 FORMAT (813)

READ 12, R(1,1), R(1,2), R(1,3), R(2,3)

READ 12, (AP(I), I=1,KRM)

READ 12, (AS(I), I=1,KRM)

READ 12, (AS1(I), I=1,KRM)

READ 12, (RSC(I), I=1,KRM)

READ 12, (RPC(I), I=1,KRM)

READ 12, (SPC1(I), I=1,KRM)

READ 12, (AP1(I), I=1,KRM)

READ 12, (BF1(I), I=1,KRM)

READ 12, (B(I), I=1,KRM)

READ 12, (HF1(I), I=1,KRM)

READ 12, (H0(I), I=1,KRM)

READ 12, (H01(I), I=1,KRM)

READ 12, (AS11(I), I=1,KRM)

READ 12, (AP11(I), I=1,KRM)

READ 12, (XT(I), I=1,KRM)

READ 12, (X1(I), I=1,KRM)

PRINT 14

14 FORMAT (//13X, ' ,

* ,

*

12 FORMAT (8F10.3)

DO 13 IS=1,KRM

READ 12,R(2,1), R(2,2)

PRINT 16, IS

16 FORMAT (/40, ' ', I5)

DO 3 I=1, N, 2

DO 4 J=1, 3

4 CALL NORM2 (R(1,J), R(2,J) ,S(1,J), S(2,J), IY)

I1=I+1

DO 5 J=I,I1

I2=Ii-J+i

Q1=S(12, 1)* AP (IS)+S(12,2)* AS(IS)- RSC(IS)* AS(IS)-(RPC(IS)-SPC1( IS)

* (APi(IS)-S(I2,3)* HF1(IS)* (BF1(IS)-B(IS))* XT(IS) /XI (IS)

5 Q(J)=Q1* (H0(IS)-Q1/(2.* S(I2,3)* B(IS)))+S(I2,3)* (BF1(IS)-B(IS))* HF1

* (IS)* (HQ(IS)-.5* HFi(IS))+RSC(IS)* AS1(IS)* (H01(IS)-AS11(IS))+(RPC(I* S)-SPC1(IS))* (HO(IS)-AP11(IS))

3 CONTINUE

PRINT 17

17 FORMAT (/20, )

PRINT 8,(Q(I),I=1,N)

8 FORMAT (10F11.3)

RETURN

END

 

 

:

     : , , , , , , , , , , , , , , , .

& laquo;» — , «», , .