PRO&RftM FSS

REfti- l<F<512>..!<FSS.-LSR.>LKR COMMON/ F FbF2..ri3

BVTE pp..ya

DATA pp.-V TVPE 113

! ВВОД ИСКОДНЫХ ДАННЫХ:

ACCEPT:*.-ЫМ ! МАКСИМАЛЬНОЕ ЧИСЛО ЗВЕНЬЕВ.

TVPE 111

ACCEPT:*.. FO.. P.-DELFSK ! ЦЕНТРАЛЬНАЯ ЧАСТОТА.. ПОЛОСА..

ТУРЕ li: ACCEPT:*.. BPD.DSKT TVPE J 1.3 ACCEPT*. QO. :.J

! РАСЧЕТ ЧИСЛА ! ЗВЕНЬЕВ

! РАССТРОЙКА (СОСЕДНИЙ КАНАЛ), ! НЕРАВНОМЕРНОСТЬ.. :ЗАТ.У,ХАНИЕ/ ! НАЧАЛЬНАЯ ДОБРОТНОСТЬ.. ! ВОЛНОВОЕ СОПРОТИВЛЕНИЕ WRI ТЕ С 7.. 1ЭЗ > NM.. F3.. Р.. DFD,. riELF:5K.. D:5KT.. ЭЭ.. W Г1Э=1.Э.С!Э F1=F3-8.5:*P F2=F3fe..5: P .FP=F8-3.5: P F:5K=F3 -DELFSK CALL DS F3,. riSF9.. DRSF3 > CALL D:3r.FSK..D:3FSK,DRSF:5I<) CALL DS < PP.. DSFP.. DRSFP > N= <: DSKT -DRSFSK f DRSFa )< BSFSK -D:3Fe) f 1 IF(N.GT.MM) N=№1 DFF3=HWDSF3 -DRSF3 riFFP=H: DSFPHiRSFP DF3K=N: DSF:3K+DR:5F:3!< riSK=DFSK-DFF3 ,DP=DFFP-DFF3 IF;DPD-i)P> 3..4..4 F1=F1-3.32kP F2=F£ -3.32: P ,60 TO 2

IF<DSKT-DSK) 6..S/5 БЭ=3.9жГ1Э Q3=1.3.--H3 SO TO 1 TVPE 114 ACCEPT*:.. NF

! ПРОВЕРКА УСЯгЭВИЯ НЕРАВНО-! МЕРНОСТИ S ПОЛОСЕ

! ПРОВЕРКА УСЛОВИЯ ПОДАВЛГ.-! НИЯ СОСЕДНЕГО КАНАЛА

! ВВОД ЧИСЛА ТОЧЕК АЧХ

! РАСЧЕТ АЧХ ФСС

HF=HFt-l FN=F3-D IM=MF:*2 DO 7 K=1,.HF F=FNt-DELFSH: <:K-i; CALL DSCF.-DSF..DR3F:j IiFF=N: D:3F+-DRSF-DFF3 J=K:*2 KFCJ-i;=F l<F(:J>=riFF

CSi.iJ=7. 9SE4:* С F1 ♦F2 )< F1 :*F2:*W > CSR=3.18F5:*F 1 . < F2:* С F2 -F1 :> :*I.O > CKR=a.5:*CSR

LSR=7. 96E4: С F2 -F1 > жУ/ < F1 :*F2 ) LKR=2.0: L:3R

KFSS= 1Э. Э:*ж < -DFF3/23.3 У WRITE <7.. 138> Fl..F2..riP..DSK MRITE (7.. laS) \b02

WRITE (7.135> CSW.. CSR.CKR/LSR.. LKR.. KFS:3 WRITE <7.. 104;- (KF0J>..J=1.. IH> WRI ТЕ С 3.. 133 :j MM.. F3.. P.. IiPD.. DELFSK.- D:3KT, 03 У WRITE <3.. 138> Fl..F2,.riP..D:5K

! РАСЧЕТ ЭЛЕМЕНТОВ ФСС

УКIТЕ (3,laS) N,03

WRI ТЕ < 3.. 195 > CSI.J,. CSR.- CKR, LSR.. LKR.. KFSS WRI ТЕ П.. 134 > < KF < J :v J= 1.. IH > WRITE <7.. 139> READ <5.V37:> QQ. IF<QQ.EQ.PP> GO TO 231

133 FORriftTC NM=,I2..T21.. F3=-, F?. 2.. KHZT41.. P=>

ж F5.2.. V:HZ/ riPIi=..F4. Ь DS-..T21.. IiELFSI<=-F5,2.-* KHZ-.. 141.- - DSKT=,F4.1.- - US/- 93=.. F5. 1..T21.. : !.iJ=.-F6.3r KOri->

134 FORMAT;- AMPLITUDE RESPONSE-.l:i..

ж 4c:- F(KHZ> DCDS) >/-а:К..4CF9. 2..F7. Ь llO )>

135 FORMAT; CSiil=, F7. 1.- T21.. - CSR=F7.1.- T4b 0<Я=, F7.1, ж Pfy LSR=-.-F7. ЬТ2Ь LKR=.. F7. 1.-- MKH.

ж T41.- KFSS=-/F5,3>

136 FORMAT; N=..12-121, Qa=.-F5.1>

137 FORMAT;A1>

138 FORMAT ; F1=,F7.2.- KHZ.-T21.- F2=.-F7. 2.- KHZ.- ж - SEP=.-F7.2.- DB.-T2b SESK=.-F7.2.- USj

139 FORMATM, GO TO START? >

110 FORMAT C=:.- N MAX ? >

111 FORMAT;*:.- F3.-P.-DELFSK ;KHZ> ? >

112 FORMAT.;.-, DPDrDSKT кШУ ? >

113 FORMATCK.- аз,- 1лКком> ? :>

114 FORMATCK.. NF ? О STOP

! ПОДПРОГРАММА РАСЧЕТА ! ПАРАМЕТРОВ 3SEHA ФСС

SIJBROUTINE DS ; F.- DSF.- DRSF ) COMMON-- F ..--F1..F2.-D3 F12=F1 *2 Р22=Р2жж2 ГТ2=Ржж2

ft=2. Эжр 12ж С FT2 -F22 У -FTZy < F22 -F12 > 1. 3 В= -2. ЗжР 12жР2гжВЭ.РТ2.СF22-F12> G=SQRT.; С А t-1J ЖЖ2 f Зжжг > H=SQRT; (А-1. Э)жж2*-8жжг)

снв5=;5ж:жэ.5

IiSF=8. S85жAL0G;CHDЗ^-SaRT ;СНВЗжж2-1. Э:> >

UiN=2.3: F 1 жР2:-- >: РЖ Г F H-F2 > жSaRT ; G Ж) ::

FIW=;ATAN; (АИ . 3>.-В> fATAN< СА-1.3)/8 жЭ. 5

DRSF1 =4.343 -ftL.0G < < 1. 3 И . Э/да- ж21-2. Э/ЫНжСОЗ С FI йО > ЖЭ. 25 >

DRSF2=4.343 ftL0S<< 1.3*УМЖЖ2*-2. a*WN*C0S<FIW)) 3.25)

riRSF=DRSFH-IiRSF2

RETURN

PROGRAM FILTRI,

DIMENSION X<128),H<512>,HL<I512) BVTE PP-QQ DATA PP/V. Р1=4.3жАТАН(1.91 WRITE <7.-131)

нССЕРТж,- i WRITE <7.-1Э2) АССЕРТж.- М WRITE (.7т1&ЗУ АССЕРТЖ.- NT- NF WRITE .;7,-134> АССЕРТЖ,-F1,F2 E2=(NT-1)..3

! ВВОД ИСХОДНЫХ ДАННЫХ!

! ТИП rin&TPA

! ТИП ОКНА

! КОЛИЧЕСТВО ОТСЧЕТОВ ИМПУЛЬСНОЙ

! И ЧАСТОТНОЙ ХАРАКТЕРИСТИК,

! ЧАСТОТЫ СРЕЗА ФИЛЬТРА

U1=2,3: FT*F1 1..12=2.ЭжР1жР2 WF2=FL0ftT (. HF > :*3.5 +3.5 NT2=FL0ftT ( m :> жд. 5 f 3.5 HO 2 1=1.. NT ! РйСЧЕТ

P=I-1-E2 ! ИППУЛЬС

X<I>=<I,J2-W1>,/PI IFCP.EQ.S.S) GO TO 2 X < D=< SIN < ржу 2 > -SIN <: ржу 1)) / < РжР I) CONTINUE DF=2.3.*PI/NF 50 TO i;5/43>,.ri WRITE (7/135) ЙССЕРТЖ/ В Z3=B

CALL IN0<Z3) DO 6 K=bNT P=K-1-E2

яР&=ВжздрТ a. У - ( P.--E2 ) ЖЖ2 ) CALL INOCARG) W=ARS/Z3 X(i<)=X(K>*W WRITE (7.. 13S) WRITE (З.ХЭЬ) bO TO 15 WRITE <7.1Э5) ACCEPT*.В !

КОЭФФИЦИЕНТОВ НОЙ лАРАКТЕРИС

ВВОД ПАРАМЕТРА ОКНА

ВЗВЕШИВАНИЕ ОКНОМ КАЙЗЕРА

NT/B/Fl..F2..<X<K);K=bHT2) NT. В.. F1. F2,. f X(К)/ К= 1, NT2)

NT..Fl..Fb (;X(K).>K=1,.NT2) NT.. Fl,. Р2ПХ(К),. К=Ь NT2)

! РАСЧЕТ АЧХ ФИЛЬТРА ТИПА 2

ВВОД ПАРАМЕТРА OKlA DO 7 K=1..NT

D=2. ЭжР I /NTS ( к: - ( NT f 1 > .-2.3 >

У=В*-(1.Э-В>жС0:3(:в> 7 Х<К)=Ха()жу ! ВЗВЕШИВАНИЕ ОКНОМ ХЭММИНГА

WRITE (7.. 137) NT,.B..F1..F2.. (;X(K)..K=1/NT2>

WRITE <3.. 137) NT,.B/F1.-F2.. <XCK)/K=bNT2)

GO TO 15 5 WRITE (7,-138)

URITE (3.-138) 15 GO TO (9.8)/L 3 N2=HT.-2

m 11 l<=l..NF2

DO 10 J=1..N2

10 S=SfXC.J)*C03(DF (K-l) (N2-Jf3,5)>

11 Н(К)=2=ЭЖ5 GO TO IS

3 N3=(NT-1 ).-2 ! РАСЧЕТ АЧХ ФИЛЬТРА ТИПА

Nl=(HTH)/-2 DO 13 K=1.-NF2 S==0,0

DO 12 J=l.-N3

12 S=S f2.ЭЖХ(J)жСОЗ((N3-J+1)ж(К-1)*DF)

13 H(K)=SfX(Nl) IS DO 17 K=1..NF2

HL(К)=13.3 AL0G13(H(К)жж2) 17 CONTINUE

WRITE (7.. 139> (HL(K),.K=1..NF2) WRITE (3,. 139) (HL(K)/K=bNF2) WRITE (7И11) READ (5.. 113) QQ

iF(pp.Ea.aa) go to 231

131 format (ж.. FILTER TVPE (l.-2) ? )

132 F0RMAT(; > window TVPE (REC-bHAMM-2/KAIS-3) ? )

133 F0RMAT(x.- NTr NF ? )