RN=R£ftL(ZN) XN=-ftIt1ftu(ZN) IF<RS-1.0) 2Ьгь22

21 xsG=saRT(:Ri3*;< i. э-ru) > -kg

- SSG=SaRTCR3)t(a.3-Rb>)/RG ITVP£=1 GO TO-23

22 GGRREAL. < 1. a/CONJG С ZG ;; > BG=AIMAG <1.0/COHJG <ZG > > 8SG=SaRT(GGR <1.Э-GSR))-3G XSG= 1.3.&GR*SaRT<&GR: < 1. 0-GGR> > ITVPE=2

23 TVPE 113..ITVPE..X3G..8S&

WRI ТЕ 4 3.. 113!) I TVPE.. XSG,. SSG 1 G=23*XSG/ < 2. ужр I : P > CS=ZO*BSG С 2.0: P I F > TVPE ia6,! G..CG WRITE <3.. 13S> LG,.CG IFCRM-1.3) 24/24.25

24 XSN=SQRT(RN* <1.3-RH))-XH SSN=saRTCRH: C 1. 3-RN).)/RN TTVPE=1

GO TO 26 2f! GNR=REAL (1. Э/СОМJG < 2H))

BN=AIMAG< 1.3.C0NJGC2H) ) 8SN=SaRT < SHR-M a . 3 -GNR ) ) -SN XSH=1.3/GNR*saRTX SNR: (1.3 -GMR ) ) ITVPE=2

25 TVPE 11.3.. ITVPE,.XSH/SSN WRITE (3,113) ITVPE/XSN..SSH i.N=Z3*XSH.- ( 2. ЭЖРIЖР ) CW=Z3*SSN. (2.3- PI :*F )

TVPE 136..LH..C:M

WRITE (3.. 13S) LN..CN 231 TVPE 111

ACCEPT 133/QQ

IF(aQ.EQ.PP) GO TO 233 133 FORMAT (AD

131 FORMATC :/ SM( / 11 /11/ )/ FI(RAD) = -)

132 FORMAT (. :/ F ( GHZ) - Z3 ( OM ) )

133 FORMAT( IX/ F= / FS. 3/ GHZ Z3=-. F5.1. OM )

134 FORMATdX/- i<=/F7U/3X/SMS=/FS.2/ ж 3X/-GMSL=.F6.1/ DB)

135 FORMATdX/ СОГЛАСОВАНИЕ НЕВОЗМОЖНО) ,

136 FORMATdX/ L=/F7.2/ NH C=/F7.2/ PF) 107 FORMAT(1X/ S(/11 /11.) MOD/ARG(RAD)=

ж /2FS.4)

139 FORMATdX COMPLEX GG=/2F8.4/ GN=/2F3.4/

Ж IX/ COMPLEX ZG=/2F3.4. ZN=/2F8.4) 111 FORMATCK/ GO TO START ? ) 113 FORMATdX/ CIRQIJIT TVPE - /II/ X=/F8.4/

ж B=/F3.4)

STOP

.prabram SOP

DIMENSION DF<51X-FS.<51> DI MENS ION FF < 151 :>.. FD < 1.. 2 > RErfL L.pLG LOGICADKl FP,aa DATA ??/\ / 281 TVPE 1ЭЗ

с ВВОД исходных данных: крайние частоты с диапазона.- промежуточная частота

ACCEPT*. FMIN, FMAX.- FPR

TVPE 1Э4 С параметры входного контура

ACCEPT*, ср.- L с расчет параметров С0ПРЯ;+1ЕНр1Я настроек

F2=(FMAXfFMIN>*0.5

R=safrrc3.9)/4.y

DF1=FMAX-FMIN F1=F2-R: DF1 F3=F2t-R*.DFl HF=DFl.--50.y

с1=2.53Е4/С f1ЖЖ2Ч. >-CP A=l.a.--4FH-FPR::*: 2 C2?2.53Е4/С F2 *2*L)-CP S=l.a/4F2fFPR>**2 C3=2.53E4/CF3:**2*L> -CP C=1.3/<F3t-FPR>: w2

t=;a-b>/<b-c> с расчет элементов гетеродинного контура

C&l=<C2: ct*ClfC3>-Cl*C3*a.3t-T>>/

ж<:си-тжсз-с2жа.э^т;о

SA=2.53E4*CC-A>

LG=aA;*(CGl t-Cl )жСС&1 fC3).--CCGlK*2: <C3-CO) CG2=2.53Е4Ж A--LG -CG 1: C 1 / < CG H-C1 > WRITE (;7-la2) CP.-L WRITE <7-131>-C&bCG2.-LG

с расчет кривой 133пря:+:ения настроек

DO 4 К= 1.-51

FS<k>=FMIN<-a<-l:)*HF

СК=2.53Е4/(Р5СК:)Жж2ж!->-CP

FG=153.a..-SQRT C&2t-CGl*CK/<CGlfCK)>Kl G>

dF;k>=;f&-fs<k)-fpr): i.3E3

FF<bK:J=DFCK)

рз<:к>=РЗ<к;>ж1.эЕз

4 CONTINUE

FDa.- i:;=fda.-2:

WRITE С7,1ЭЭ) <:FSCK>.-DF(K>.-K=1.-51> TVPE 135

ACCEPT 1Эб.-аа

IFCPP.NE.aa) GO TO 5 PRINT 132.-ср.. L PRINT 13bCGl.-CG2.-L&

PRINT 133.. cfs(:k:j,df:kj,k=i.5i>

5 TVPE .137

ACCEPT i3s..aa iFCPP,NE.aa> 60 TO s

CALL &RAFP<FF. 1,.51..23,FD, D S TVPE 133

ACCEPT la&.-QQ IFCPP.EQ.QQ.) GO TO 231

i3u FORMftTax-зг f<KHz:> dF;khz> >/< .-6G13.2:o

131 formatax.- CP0SL.=-.-F7. 1.- PF CPAR.=,F7. 1.-Ж PF L&ET.=-.F7.1.- MKH->

132 FORMftiaK. CP=/f7. ь' PF l=.-f7.Ш')

133 FORMftTCK, fmin,.FMAK..FPR (MHZ) ? i

134 FORMAT < w.. CP (pf). l(mkh) ? ,) 135 FORMAT<x. PRINT ? Cv.-CR) >

136 F0RMAT<a1)

137 FORMAT<K., DIA5R. СЛ-СР) )

133 FORMATC :.. GO TO !5TART ? (v/CR) ) STOP END

PROGRAM DOP COMMON/RAN/Il.. 12

REAL. V2K13)/a<13)/C! 13)/RlK13),.R22<13X REAL K/Ml<9)..M2(9)..WK3)..W2<3)..Wi<c3) REAL MV/ MQ.. МС/ MR 1.. MR2.. кср/ M12/ м22/ м2э С исходные данные ДЛЯ расчета

DATA DV/23. ЗЕ -4/.. MV.-ЗЭ. зе -3/, nv/1 /

DATA Da/s.ss/..Ma/i33.3.->Na/i3.

DATA DC/33.3/,. МС/1333. Э/.. NC 1Э/ DATA DR11s7, ЗУ, MR 1 / 2. 5E3 NR1 /13/ DATA DR2.-2933f3/..MR2.43.5e3.>NR2.13/ DATA Ul.-49.3/53.3,. 51. 3.-DATA U2/-:9.3/ 13,3/11.3.-

DATA ( . 99.3/133.3/ 131.3./NMl.9 NM2/9.- DATA 0ME&A.2.92E-S.-С ПАРАМЕТРЫ датчика PASHOMEPHU распределенных ЧИСЕЛ TVPE 132 ассертж/11/12 L=3 SN=3.3 SK=3.3 SK2=3.3

с формирозаьме массивов входных данны; DO 1 J=l/13

CALL SAUSSiC-DV/MV/V2KJ)) CALL GAUSS < DQ/MQ/Q < J)) CALL GAUSS < DC/мс/CK < J)) CALL GAUSS < DR1/MR1/R11< J)) CALL GAUSS Сdr2/MR2.R22 < J)) CONTINUE

TVPE 133/v21/Q/CK.R11/R22 IJRITE < 3/133) V21/Q/CK/R11/R22

С Набор статистики выходного параметра

DO 2 1=1/3 DO 2 J=l/3 n=<I-l)*3fJ

MlCN)=WlCr).WK<J)

M2<:N)=W2a).WK<j)

2 CONTINUE

DO 3 IC=1/NC

Р=1.3.<0МЕ0АжСК(1С))

DO 3 ia=l.NQ

PQ=P: Q<IQ)

P9R1=P3/R114IQ)

DO 3 IR2=1..NR2

PaR2=Pa/R22aR2)

VPa=V21<IR2) PQ

DO 3 1M,1=1/NM1

М12=МК1М1)жж2

vpaMi=vpa.*Mi2

PaR2Ml=1.3<-PaR2*M12 DO 3 IM2=1/NM2