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

12=<12> 22=: 2

=2: 1< PaR 1 : 122 4-2 1)

SK=SKfK

SK2=SK2*-:<: ; 2 3 CONTINUE

KCP=SK.--SN

810=: ':: 1=.31&1 TVPE 11... DELTA.. SN URITE <3/11> KCPfDELTA.-3N 1 0..15&12.4>

101 F0RriAT(:4X/ -KCP.TIS.. DELTA-.-2.. SNV : IX.. 3312. 4)

102 FORMAT<w., PARAMETERS lb 12 => STOP

SUSROUT1NE GAUSS Sr A- X > COMMON.-RAN.-T 12 =.

DO 1 J=l.. 12 S3=Syt-RANai.. 12:) 1 CONTINUE

X=<S0rS.3):*ESfft

RETURN

PROGRAM REL REAL LOtKN.KE

BVTE pp..aa

DATA PP..V/ 231 33=3.9 0=3

1 33=3.3 1=3

2 S=3.9

3 WRITE (;r,191>

ACCEPT :*fKN.KE..L3fN !

WRITE (.7fi03> KN.-KE.. La.. N ! S=Si-KN:*KE:*La*lE-7.*N WRITE (7.134>

READ 45.. 105> aa ! ;1:::.15: ?

iFCPP.NE.aa:; go to i=ifi

WRITE ;:7.. iin

ACCEPT*..NM i

3N=S*rii

Ta=1.3.--S

S3=S3*-3N

WRITE ;7.1:) I..NM..S..T3 WRITE CS.. ISS:) I.NM..S.Ta WRITE <7.. 137)

RFAD i--i.lkiby -! ! hCE ?

IF CPP.NE.aa:; go to 2

3 7-230 65



WRITE ?.. 112>

.ND ! ;<:

SS=SS<-S8*ND

=1./5

.J=JH

[miZ ilf 108) J.NI!83. WRITE CSlaS) .J..MD.-S3.T3 WRITE w.139)

READ <5.-135) QQ ! ?

IF CPP.NE.QQ) 80 TO 1

T3=1.3/SS

WRITE ;7.113) SS.Ta WRITE fS. 113) 88.T3 WRITE (7-113) READ .;5.-135) QQ IFCPP.Ea.OQ) 50 TO 291 101 FORMAT( DATA KN.KE.-L3.-N = )

1 FORMATC KN=..F8.3.- KE=F8. 3- La=- FS. 3.- N=.-1= 104 FORMATCK- £ND OF MODULE ? <V/CR) )

135 FORMAT Al)

136 FORMATC MODULE NUMBER.-14.- - NM=.-I2.- L3=..E13.3..- T3=.-F13. 1.. h)

107 FORMAT<K- END OF DEUICE ? <V/CR) )

18 FORMAT< DEUICE NUMBER.-14-.- ND=.-12.-.- L3=.E19.3.

.. T3=.-F13.1.. h) 109 FORMAT END OF SYSTEM (V.-CR) ) lie FORMATS SVSTEM L3=.-E13.3/ T3=.-F13. 1- h)

111 FORMAT>:.- N MODULE = )

112 FORMAT>:., N DEUICE = )

113 FORMAT(:<- GO TO START ? CV--CR) ) STOP

SUSR JTINE GRAFP(F/ L.- M- N.- AM.- ) DI MENS I ON F L.- M).- AM L.- 2) DIMENSION Gl ).. G:83) DATA Gb-f / . -# /< > .-: .-- /! .- / DO 1 I = l.-L

IF<AM<I.l).NE.AMa.-2)) GO TO 2 <)=.- 1) . .-2)=<1.-1) DO 4 =

IF<Fa.-J).5T.AMa.. D) GO TO 8

AM<b 1)=F<I.. J) 6 IF<F<I.. J).LT.AM<I/2)> GO TO 4

<2)=. J) 4 CONTINUE

2 =<:.2)-.. i))-N

WRITE (7/133) I..AM(bl)/AM(I..2)/H.-Gl(I) WRITE (3.-133) I.. AM( 1,-1).- AM( I.- 2).- / Gl ( I)

1 AM(I..2)=H

53 NV=NH IR=0

DO 20 K=1.-NV KM=NV-KH DO 13 J=1..M 10 G(J)=&l(ly)

IF(KC.Ea.0) SO TO IS IFdR.NE.O) GO TO 14



14 15

23 133

132 133

12 J=bM

S<J)=G1<8> IR=13

DO 15 J=bM,13 S<J>=G10) G(M>=UU9> DO 18 I=bL DO 18 J=b!1

l<T=(:FCbJ)-Ari<bl))/AMa.p2)fl IFfKT.GT.H) KT=N

iF(KT.Ea.KM> g<:j)=gii;i)

CONTIHLIE KV=NV-K

WRITE 7> i;GiCJ>..J=bri) WRITE <3.. 133) <G<J),J=bM) IR=IR-1

FORMAT a lb-TH FUNG/ MIN=fG13.3, MftX =, G13.3 STEP=..G13.3..- GRftF-,Al> FORMAT*: 1. 19110) FORMAT(IX,81) RETURN END

SUBROUTINE PLOT

C0MM0N/DR/A(256),N

LOGICAL*! NbN2

INTEGER X3, XK, V3, VK, R1, R2

DATA Nl.-27/.rH2.13/

ft\-]=ft (1J

DO 1 1=2, N ! !)>

IF(A(I),LT.AM) AM=A(I) CONTINUE . IDA=AM/ia.S-1.3 AM=IDA!K13.3 DA=IDA

TVPE 133,N1,N2 ! TVPE: , . !

TVPE ,I<

TVPE.*,?

TVPEk,S

X3=13

VK=389

DO 2 1=1,13

VK=VK-33

Rl=DAi (I-l?

TVPE: , 4,X8,VK

TSFE 193, Rl

CONTINUE

V9=4a

xa=29

DO 3 1=1,S

XK=(i-i) i39t-xa

TVPE*,4,XK,V9 =(1-1)*.1 TVPE 191,8 CONTINUE

TVPE*,J 40 53 543

VK=393

V9=53

K9=43

S -

! .

!

399 !

!



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

2007 EPM-IBF.RU