книги из ГПНТБ / Ильченко, М. Е. Твердотельные СВЧ фильтры

56

57ко:=9.зз,о-5*тм1[1];о[1]:».93з*м[1]; s

58”№ " J: »Г8ТЕР,,Г ш г а ,’2',1Х)””ВШПГ

59”REAL”D1 ,ФИ,Ы,12,BE,121 ,MB;

60b i :=2*])b[j ,i ] / d[j ,i] ;фи:=2хпмип-В1 ;

61K[j,i]:=K0xjim2xix![i]t3/D[j,x]+2;

62L2i:=LN(8xD[j,I]/Dn)-2;

63’’XF”LB[J,I]=0”THEM””BBJIN”L1:=0;мв:=o;”oo TO”T0"Wt>” ;

64Li:=LB [j,l]xttN (4xLB [j,I]/D n)-l);

65Ы :»2B-4x(Ll+Dnx(2/niH)n/(8xLB[j ,1 ])))

66”IF"THn=rTHEN’”’BECIN”

67I)E:»S0Er(DB[j)l]t2/4+LB [j>l] t2 ) ;

68MB:»LN(2x(LB[J,I]+DE)/DB[J,I])+DB[J,I]/(2xLB[J,I])5

69mb:—2„-4xLB[j,l]xa® -DEAiB[j,l]);”00 ICTC'END";

70DE:=(LB[j.I]+D[j,I];MB:=LN(aB[j,l]+DEVD[j,l])5

■71 MB:=lffixLB[j,I]+DExLN(4n-6 x (m 2 -L B [j,l]t2 ));

72mb:=„-4x(-2xI)exln(2b-3xiie)+mb);

73T0:”IF"TfflI=l”THHN',''BB0IN”

74”IF”D1<b-5”THEN”L2:=0”ELSE”L2:=LN(D1/4)+i ;

75L2:=b-4 xD [ J,I]x®HxL21+„-4xD[j i i ] xxi2xI)1"0IIi'’

76naSE"L2:-B-4xD [j,l>(№ I,21+.336);

77LS[J ,1] :=2xnHx(2xLl+L2+2xMB)’’END” ;

78"IF”N“1"THEH””B03IN"

80ls[ i ,1 ]:=ls[ i д ] / ш ;ls[ 2 ,1 ]:= L s[2 ,i]m 2 ;”go to”'hp”end" ;

81”1Р”1=1”тни1"”ВЕога"к[1,1]:=к[1,1]/ш ;к[2,1]:»к[гд]/10о;

82 ls[ i , i ]:»=ls[ i ,x] / m i ;ls[2 ,i ]:=lsC2 ,i ] / ioo;"oo то"ир”а о т ;

83”if ,,i =1!”then"”beoin"k[ i >i ]:=k[ i , i ] / ioo;k[2 ,i ]:« k[2 )i ] ^ 2 ;

84ls[ i , i ]:=ls[ i ,x] / ioo;ls[ 2 ,i]:= b s[2 , 1 ]/гл 2 ;”go to”hp’’end” ;

85 кС хд З ^ кС и У ю о ^ С г.и ^ кС гд У ю о ^ ьи ^ Ъ Б С м У Ю О }

103

86L S[2,i]:=L sr2,i]/ioo;H P:

87оо[1]:^и/(2.8хщ [1])/(1-с[1]/РЮ *Я П )” ;

88P0165(l,”_”E0V"5l РЕЗУЛЬТАТЫ АНАЛИЗА ФИЛЬТРА");

89cf:=o;

90”FOR”FO:«FOH”STEP”DFO”UNTIL”FOB”DO””BEOnr

91”REAL”FP, EPS,TMIN,TFP1 ,TFP2 ,H, A ,B,TA ,TB,F ,TF ,TP1 ДР2 ;

92cf:-c f h ;f p i:»fo+p fi ;fp2:»fo+df2 ;bubo[cf,i ]:=fo;

93”IF”N=1”THEN"”00 T0”N1”ELSE””C0 ТО”ЭКСТРШМ;

94N1:”BECIN"”REAL”X1 ,X2, K1,K2,t ;oo:=l-0[ l ]/F0;

95k i:=oo*oo[ i > k[ i ,1] ;k2:=co*oo[ i > k[2 ,i ] ;

96xi:=F0xL s[i,i];x2:”F0xbs[2,i];

97FP:»KHXl/(l+XH2)+K2xX2/(l+X2t2);

98f p i :=fp2:=f p :=fo+foxfp/(2 xooxqo[ i ] ) ;

99mKHHHCFP, l ,tmin , kcbp) ;tfpi :-tfp2:=tmin ;

100"00 TO”nOROCA”ERD” ;

1013KCTPffliyM:”BE0IN””REAL”F l,РУ

1013KCTP№yM:”BE0IN””REAL”Fl,F2,F3,F4,F5,Tl ,T2,T3,T4,T3,

102TKAX.BT.TFl

102WiAX,Er,TFl,TF2,PW,TFM,TM,KT,C;

103"ARRAy”KCBE,FE,TE[i:2xH-l];’’INTB0ER”n,y;

104н:»ппз/20;f i :=FPi-rai3/2;

105Mi:F2:=Fi+H;F3:=F2+H;F4:=F3+H;$yHmnfl(Fi ,i ,t i ,kcb) ;

106«yHK№(F2,l ,T2 ,ксв) ;функция(рз ,1 ,T3,KCB);

107функция(Р4,1,т4,ксв);

108m03:a:=abs((T2-t i)/CF2-f i) ) ; b> abs((T3-T2)/(f3-f2 » ;

109”IF”A”HE БОЛЬШЕ”В”ТНЕЫ””ВЕ01Н”П:”0;F5!»F4+H J

110ФУНКЩ1Я(Р5,1,Т5,КСВ);

111"oo To”H3"f«D";n;=i;M2:A:=ABs((T2-Ti)/(F2-FO);

112B:=ABS((T3-T2)/(F3-F2));C:=ABS((T't-T3)/(F'i-F3));

104

из " if "b"he Eomm rc’’THEN""oo to"moi;

ii4 kt:=(b—c ) /( f3-f4 )/((a- b) /( f2-f3))+.9 ;

115"IF”KT<0”THFN”"00 to’moi;

116F5>F3+B*(F3-F2)/(KT* CA-В)) ;®yHIffliffl(F5,1 ,T5,KCB);

117”IF”ABS(F3-F5)”KE БОЛЬШЕ".1”Т Ш "”С0 T0”U4;

118M3:f i :=F2;t i :=t2;f2:=f3;t2:=t3;f3:=f4;t3:=T4;f4:=f 5;t4:=t 5;

119”IF”n=0”THEH””0O T0"M03;”IF”T4-T3”HE МЕНЬШЕ” .ОГТЯ0Г

120,,BEGINHM0l:A:=T2x(F4t2-F3+2)+T3x(F2t2-F4t2)+T4x(F3t2-F2t2);

121B:wT2x(F4-F3)+T3x(F2-F4)+T4x(F3-F2);F5:=A/(2*B);

122”00 Т0”Ы4”Ш)” ;”С0 T0"M2;H4:"IF”H>0”THfN”"BE0IN”FPi:-F5;

123Fi:-FP2+nn3/2;H:—H;"oo to"mi”hid,”’else”fp2:=f5;

124”IF”FP2-FP1”HE EOJIbfflE”nn3/5O”TH0i””BEOIN”FP:*(FPl+FP2)/2;

125ФУНКишСБР, 1,TMIN ,KCBP)‘,TFP1 :=tfp2:=tmin;”00 Ю”ПОЛОСА

126”ш ” ;н:=ппз/5о;

127фупкция(рр1, i ,tfpi ,ксв) ;fe[ i ] :=f pi ;te[ i ] :=t f p i;

128kcbe[ i ]:» kc3;7:=2;fm:=f p i ;tfm:=t f p i;

129mi2:f :=fm+h;фунниия(р , l ,tf ,hcb) ;

130”IF”TF11<TF”THEN””G0 T0"U7”ELSE””C0 T0”M8;

131117:f i :=f ;f 2:=f i+h ;tfi :=tf ;функция( р2 ,l ,tf2 ,kcb) ;

132"IF"TF2”HE MEHbffiE”TFl"TKEN”’’BEGIH”F:=F2JTFI^TF2\

133”IF”FP2-F>H”TH01””OO T0’V7”ELSE””BECIN”TFP2: =TE[У-1] '

134FP2:=FE[y-i];у:=у-1 ;ксв:=ксве[ у-1 ];”go to”mii

135”Ш ””Э№” ;F:=(Fl+F2)/2 ;5>yRKUKH(F,l .TF.KCB)

136FE[y]:=F;TE[y]:=TF;KCBE[y]:=”KCB;”IF"FP2-F>H”TH№’'

137"begin”FM:cFiTFii:“TF;y:=y+i ;"go то”М12"ш ” ;

138"go to”m u ;

139M8:f i :=f ;f2 :-f i+h;t f i:=t f ;функция(г2,i ,tf2,kcb) ;

140"IF”TF2”HE E0M E”TF1”THEN”

141 ”beoin”f :=F2;tf:=i f 2;”co to’W ehd" ;

105

151F P !» F E [l];”F 0R " i:-2 ”STEP"l”UNTIL"rK)",,BE0IN”

152”IF ,’J*l"THffl"”BEOIN""IF',TE[l]>TM"THEN”TU:=l’E[l]"END"

153" a .sE ””iF ”TE [i3<,m ”iHEN’,"BECiN"TM :°iE[i];f p:=fe[ i ] ;

15* KCBPt-KCBECll’W ’W ;

155 ”iF ”j= -i”THEN”,'BEGiN”Tt.!A x:=ra;j:=o;”ooto”i.w ”end" ;

156 tmin : -tm ; w :=tmax- tm in;

157P10*l(FE,TE,KCBE,Br)"EMD” ;

158nOIOCA:"BEOIN”"REAL"Frl F ri,F r2 ,T F r,L ,T L ,n n ;

159b : -f p i;t b:=t f p i;н:=ппз/ 2 ;ь : -з ;

160 b i:" i f ”tb- tm in-l >o"then””b b o in”b :»f p;t b:^ tm in;н : =h/ 2

161"енв" ;а :=в- н ;во:фунйция( а ,з ,т г,т а) ;ер5:=ь/ ю о;

162”i f "ta- tm in-l<o"them"”b e o in”b :-=a ;t b; -t a;a:=b- h/ 3 ;

163"go to”bo' W ;

16* B2:Fr:-B -SIO N (H )*A BS((TB -IU IN -L)x(B -A )/(TB -<rA )5;

165ФУНКЦИЯСРГ ,3 ,TF ,TFF) ;TL:“TFr-TMIN-L;

166”IF ”ABS(TI,)"HE EOJME"EPS"THEN”"GO T0"B3”a S E "

167”IF"TL>0”THEU""BEGIN”A :»Fr;T A :-TFr;'’GO T0”B2”END” ;

168"IF"TA-TMIN-L<0”THIN",’BEGIN”A:=Fr;TA:"TFr” ® D ”',a S E "

169" вш га" в :“F r ;т в :=TFr"eud” ;”go to”B2;

вз:н: —h ;”i f ”h<o"then”

”BBGIN”F n :=F r;B :=F P 2;T B :w rF P2;”G0 T0”B1’W J

172р г2:=?г ;rni:=FT2-m ;”i f "l =3”th® h

173"BEGIN”ППЗ: -ПП;”IF”yPOBEHb=0"THEN“

174”BBGiN”raiL:-o;KiiP:=o;”Go то”ъо”вд>” ;

175ь :» уровшь;в : - рр1 ;т в : с р р 1;

176H:-nnL/2;”oo T0"Bi”END";raiL:-=nn;Kiip:=nii3/nnL;

177LO:"ENI)”;

178b f i :=f p i- fo;df2 :- fp2-fo;

179"IF ”PACCT1=0”THHN””BEOIN”F:=FP-Iin3 ;ФУНКЦИЯ(Р,1 ,TP1 ,TF)J

180F:=FP+nn3;®J№IM(F,1 ,TP2,TF)”END””HiSE”"BBGIN"

181 f :=fp- paccti;функция( р ,з ,t f ,t p i) ;

182F:=FP*PACCT2 '.ФУНКЦИЯ^ ,3 ,TF ,TP2)”0ID” ;

183BbiB0[cF,2 ]: =fp ;BbB0[cF ,3 ]: < min ;biibo[ cf ,a] : =kcbp ;

184Bbmo[CF,5]:=ппз;BbB0[cF,6]:=пт.;bmbo[cf,7]:=нпр;

185BWB0[CF,8]:-TPi;BbB0[CF,9]:«IP2;

186”FOB”l:=l"STEP”l ”UNTIL’,NA"IX)””BEGIN"

187”i f ”fo=fa[ i ]"th® "’’begin”j :=i ;”go to”am" end”

188" else"j : - o" end" ; ”i f ”j =o”then””go то”выход;

189am: ”begin””real" e ;

190”ARRArrPl[i:2*P+3],rP2[l:2>41IAr+3],R[i;6],L[l:A];

191E:=i;H :-nn3/2;R[i]:=o;L[2]:=o;L[i]:=N T[i];N Ti:=o;

192'FOR”! : —P”STEP"1"UNTIL”P”B0””BEGIN”

193F:=Ff«-IxH;®yHKmCl(F>3,A>TF);rPl[p+I+NTl+l]:=F;

194rpi[p+i+NTi+2]:=A;rp[p+i+NTi+3]:=TF;NTi:=NTi+2"™’5 195 P 0 7 4 3 (rp [l],R [l],L [l],2 *P *l,2 );

197ординат") ;BiB[i]:=R[2];BbBE2]:=(R[3]-R[A ]V i28;

198P07A0(BbIB[l],F,0 ,2 ,5 6 ,2 ,1 5 ,2 ); '

199L[3]:-=LW :-o;H :=nn3/m A r;R[i]:=o;L[i]:=H T[2]a,[2]:-o;

200NTl:=0;”FOR”I:=-raAr”STEP"l”UNTIL”fflAr"DO’”’BECIN"

M i F;=mixB;oyH№HH(F,B№i,A,TF);

107

202 rP2[lHAr*-I+NTi+l]:=F;rp2[lllAr+I+NTl+2]:=A;

203 1? 2[ ш А Ш + ш + з ] : ^ ; т : -2ш” ш+> ” ;

204Р0743(ГР2[1],K[l],L[1],2*ШАГ+1,2);

205Р0165(1,"_”Е0Г44ШАГПООСИАБСЦИС ШАГПООСИ

206ординат”) ;выв[1] :=е[ 2 ];в ы в [2] := (r£ 3 ] -r[ 4 ] ) i/ 28;

207PO74O(BbB[l],F,O,2,56,2,15,2)”0ID” ;

208выход : " Ш ” ;

209Р0165(1,” ЧАСТОТА ЧАСТОТА. ПОТЕРИПРИ KCBПРИ

210ПОЛОСАПРОПУСКАНИЯПОЛОСАПРОПУСКАНИЯ КОЭФИЦИЕНТ

211ЗАТУХАНИЕПРИРАССТРОЙКЕ”)J

214НИЖЕ ВЫШЕ ");

215f”or”i :=i "st e p"i ”™ t i l”n f”ix)””b e(;i n ”

216в ь в1[]:= вы в о[1 ,1];в ы в [2]:= вы в о[1 , 2] ;

217выв[з]:=вьво[1,з];вьв[4]:=вьво[1,4];

218в ы в [5 ]:= в ь в о [1 ,5 ];в ь в С б ]:= в ь в о [1 ,б ];

219вы[7j:-вьво[1,7);вьв[8]:=вьво[1,8];

220ВЫВ[9]:=ВЫВ0[1,9];

221 Р0740(ВЬВ[1],СТР,0,9,8,0,9,1,7,1,9,2,12,1,18,1,15,.

2 2 2 3 ,1 3 , 1 ,1 0 , 1 ) ” ЕН1>”” Ш ”” Ш>” ;

Порядок подготовки исходных данных и смысл соответствующих идентификаторов указаны в специально разработанном бланке (табл. Ш ) . Для контроля правильности подготовки исходных данных после ввода в ЭЦВМ числового массива производится их печать на цифровое печатающее устройство (ЦПУ ) в десятичной системе счис­ ления. Последовательность выводимых значений соответствует после­ довательности ввода исходных данных.

Форма элементов связи задается значением переменной, помечен­ ной идентификатором ТИ П , а именно: этой переменной при вводе сле­ дует присвоить значение, равное 1, если используются элементы связи в виде витков (почти замкнутых витков), и значение, равное 2, для эле­ ментов связи в виде полувитков.

Для вычисления вторичных параметров фильтра в соответствии с описанной выше математической моделью разработана специальная

108

Таблица П1

Бланк подготовки исходных данных к программе ПЛПФ

109

Продолжение табл. П1

110