Г12Э=Мг<1М2> М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 1Э1..КСР. DELTA.. SN URITE <3/1Э1> KCPfDELTA.-3N 1ЭЭ Р0РМАТаХ..1Р5&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) )

1Э8 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,8ЭА1) 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 ! ПОСТРОЕНИЕ ОКНА

! ИЗОБРАЖЕНИЕ СЕТКИ