195 13S

13l=i 113 111

FORMAT<x, PARAMETER S ? >

FORMAT< KAISER FILTER NT=r I3r IX, S=V-F5.3. IX, ж F1=, F7.5, IX, F2=, F7.5/ a X.. SF1Э. S>

FORMAT < HAMMI MS FILTER NT=, 13 - 1X, S=, F5. 3, 1X, Ж Fl=, F7.5,TX, F2=, F7.5/-< IX, SF13. бУ >

FORMATS FIR-FLTER NT=,I3, F1=,F7.5, : F2=,F7.5/aX,5F13.6>>

FORMAT < AMPLI TUBE RESPONSE, DS , < , 12F5. 1 > )

FORMATSAl>

FORMAT GO TO START ? >

STOP

SUBROUTINE INO<X>

У=Э.5ЖХ

Т=1.ЭЕ-3

Е=1.Э

DE=1.3 .

DO 1 1=1,25

DE=DEЖV/FL0AT<D

50Е=0Ежж2

E=EfSDE

1Р*;ЕжТ-30Е) 1,1,2 CONTINUE

S<;=E

RETURN END

! РАСЧЕТ ФУНКЦИИ БЕССЕЛЯ

ВВОД ПРИЗНАКА ТИПА ФИЛЬТРА: 1 - ФНЧ, -1 - ФВЧ, 3 - ПФ-

PROGRAM FILTR2

DI MENS I ON Р < 49 > , НН < 49 >, HL ( 49 - BVTE рр,эа DATA PP/V/ Pl=4.y ATAN<1.3> NX=49

IiX=PI/<NX<-l) 2ЭЭ TVPE 136

АССЕРТЖ, К !

IF-;K; 7,9,8 !

7 ASSIGN 27 TO M

GO TO la S ASSIGN 27 TO N

GO TO 19

9 ASSIGN 19 TO M ASSIGN 24 TO N

10 TVPE 137 ! АССЕРТЖ,NH,FMIN ! DO 11 K=1,NX

11 HHCK>=3.3 R=COS С PI*FMIN)1N < PIжРМIN) DO 13 J=1,NH TVPE 138,J

АССЕРТЖ, X, V !

Х1=РжХ<-1.Э !

Х2=РжХ-1.3 . !

RP=SQRT < < X1ЖЖ2 fV1ЖЖ2 J/(Х2жж2 fV1 *2>> FIP=ATAN2 С V1, X1)-ATAN2 < V1, X2 > Al=-2.a

81=2.ЭжЯржС03СР:1Р>

ВВОД ЧИСЛА СРЕЗА ФВЧ

БЛОКОВ И ЧАСТОТЫ

ВВОД КООРДИНАТ ПОЛЮСА РАСЧЕТ КОЭФФИЦИЕНТОВ БИКВАДРАТНОГО БЛОКА 84

TVPE ШЗ-J..H1..B1..S2 WRITE (3.. 1ЭЭ> J-AbBl.B2

DO 12 !<=1-NX ! РАСЧЕТ ЛАЧХ БЛОКА ВЧ

Х=Кж11Х

CX=COSCK>

C2X=C0g;2.3:*K>

Z=4.343;*ALOS(Л2.3:*СИА О*:*2/< 1.3 fB.l *;*2 fB2;*:*2f :* 2.3:*В 1 ж < В2 -1.3 > ЖСХ -2. Эж32жС2Х У>

12 4H;K>=HH::K>fZ

13 CONTINUE

TVPE 13 Ь CHH4KX-K=bNH> WRITE <3.. 1ЭП ::нча<).К=1.НК> so TO M-a9..27>

13 TVPE 137

ACCEPT*. NL.P FMAX ! ВВОД ЧИСЛА БЛОКОВ И ЧАСТОТЫ

R=SIN;PI*FriAK;.--CuS:PI*FMftX> ! СРЕЗА ФНЧ

ГО 14 K=1.NK

14 hl(:k>=3.3

DO IS J=bHL TVPE 138.J

АССЕРТЖ.-K., V ! ВВОД КООРДИНАТ ПОЛИСА

yi=R*yfl.3 ! РАСЧЕТ КОЭФФИЦИЕНТОВ

X2=1.8-R: X ! БИКВАДРАТНОГО БЛОКА НЧ

V1=V*R

рр=Я;:!рТ,;,ГХ1жж2*-.-1: ж2>.-0;гжж2+У1Жжг)) FIР=ATAN2СV Ь И1) -ЙТАМ2С -VUKZ} А1=2.8

81=2.0жкржСО8;Р1Р; В2=-РРжж2

ТУРЕ 102-J.Hl.yl.-B2 WRITE (3.- 1Э2> J..A1..B1..B2

DO 15 K=1..NX ! РАСЧЕТ ЛАЧХ БЛОКА НЧ

у-.=\ст<

CK=COS<K>

Z= 4.343ЖAL05<2. ЭжСХ t-A 1 >жж2/а. 9<-В 1 жж2 f В2жж2 :* 2. ЭжВ 1Ж';В2-1.Э)жСХ-2. ЭжВгжСЗХ> >

15 HLCK>=Hl-CK>fZ IS CONTINUE

ТУРЕ 133. CHL(K>.K=1.-NX) WRITE <3.. 1ЭЗ> (HL<K>,.K=bNX> SO TO N,.; 24.-27 >

24 DO 25 K=1..NX ! РАСЧЕТ ЛАЧХ

25 Р<К)=Н1-;К><-НН<К) ! ПОЛОСОВОГО ФИЛЬТРА TVPE 134/ <P<K>.K=1..NX>

WRITE СЗ.. 134> <P(K.X.K=1..NX:> 27 TVPE 1ЭЭ

READ (S,. 135> Qa

iFcaa.Ea.pp> so то 2эз

1ЙЭ FORMATdX.. BLOCK HF-.-11.. 3X.. Al=-/ F4. Ь ЗХ/ ж Bl=-.-F9.Sf3X.-B2=-.-F9.S>

131 F0RMAT<4X.-HPF AMPLITUDE RESPONSE/ DS/аХ/13FS. 1 >>

132 FORMATaXr BLOCK LF-.. I1..3X..A1=..F4.1..3X. ж Sl = /Fy.S..3X.. B2=..F9.S)

103 FORMAT(4X..LPF AMPLITUDE RESPONSE/ DB/<IX.. 13FS.1 >)

134 FORMAT<4Х/BPF AMPLITUDE RESPONSE/ D3.-aX/13FS. 1 >>

135 FORMAT; Al>

13S FORMAT<K/ H.IBIBSKSVPEREQ: CUTOFF

133 FORMAT(w/ COMPLEX ХР/VP; / 11/ > 109 FCiRMAT<M/ 60 TO START ? >

STOP END

PROGRAM AMPLIF

REAL -MODCL- M0DC2/ LG.. LUr M0DS21.. MODGG

REAL I MSr MOrri.r MODS 11M0DS22.. Ki MODGN

COMPLEX SCZ, 2X. D.. ZC DS- CL- C2

COMPLEX GGr GN.- ZG.- Zib Z1 N.. ZOUT

SVTE PP..aQ

DATA FFW.-

PI=4.0: ATftN<1.3> 293 DO 1 J=1..2 ! ВВОД ИСХОДНЫХ ДАННЫХ:

DO 1 1=1.г2 ! МОДУЛЬ И ФА:ЗА (РАД.)

TVPE 10LI.J ! ЭЛЕМЕНТА МАТРИЦЫ РАССЕ-

ACCEPT ..SM..FI М ЯНИЯ ТРАНЗИСТОРА..

WRITE (3.-127У I..J..SM.rFI 1 S < Ь J > =ЗМЖСЕХР < CMPLX С 3. 3. FI >

TVPE 132 ! РАБОЧАЯ ЧАСТОТА (ГГЦ) И

АССЕРТЖ.. F.. Z9 ! СОПРОТИВЛЕНИЕ ЛИНИИ <0М)

WRITE (3,. 1ЭЗ> F..Z3

4 D=SС Ы )Ж8(2.. г> -S< 1.. 2У жЗ(2.. 1 > С РАСЧЕТ КРИТЕРИЯ УСТОЙЧИВОСТИ К

MODD=D*CON.JSCD> M0DS11=S< 1.. 1 >жС0Ниье5С Ы > ) M0DS22=S < 2.. 2 > жCON JG С S С 2.. 2 > > гС=ЗСЬ2>жЗС2.. О

г=5скт<гсжсонизсгс;о

K=a.ЭfM0DD-M0DSll-M0uS22>/;2.3жг> IFCK.GE. 1.Э.) GO то 15 TSPE 195 WRITE СЗ.. 1Э5> GO ТО 281

С РАСЧЕТ КОЭФФИЦИЕНТОВ ПЕРЕДАЧИ И ОТРАМЕНИЯ 15 DS=S<2.. 1У--За..2>

&МA=SaRT с: DSЖC0N.JG (DS;) у

в1=1.3fMODS11-M0DS22-MODD

32=1. 3fM0DS22-M0DS11-MODD

C1=S< Ы >-DжCONJi5S<2.. 2 J >.

C2=SC2.. 2У -DKCONJG,S< 1.. 1) >

M0DC1=C1 :C0N.JG;C1>

M0DC2=C2жC0NJ&CC2>

IF<81> S.S.S

5 &МЗ=0МАж 0< fSQRT < Кжж2-1. Э > >

&&=CONJS(01>ж<8 H-SQRT(В1ЖЖ2-4.ЭЖМООС1>) ж (2.2* 0Ъа} GO то 7

S &MS=GMАж <К -SQRT <. Кжж? -1.3 > >

GG=CON JS С С1) ж ( В1 -SORT С S1ЖЖ2 -4. ЭжMODC 1) У

* /<2.3жМ00СО 7 GMSL=4.343жAL0GGMS>

TVPE 134, Кг GMS.. GMSL

WRITE О, 134.) K..GMS..GMSL

IF<B2> 8..Э..Э S GN=CONJG(02 > ж с В2 fSQRT С В2жж2-4.ЭжM0DC2 У У

ж /<2.3*M0DC2>

GO ТО 13

9 GN=C0NJ&C2>ж.;B2-SQRT<S2жж2-4. ЭжМ00С2) У

ж .Ч2.3ЖМ00С2> 13 ZG=( 1. 3f GGX-a. a-GG.)

ZN=a.3fGN>.>a.3-GN>

TVPE 139.. GG.. GN, ZG.- ZN

WRI ТЕ ( 3.. 139 У GG.. GN.. ZG.. ZN С РАСЧЕТ ЭЛЕМЕНТОВ СОГЛАСУЮЩИХ ЦЕПЕЙ

R&=REAL<ZG>

Xc-i=-AIMAG(ZG)