1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 [ 19 ] 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156

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=DEV/FL0AT<D

50=02

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 < PIIN) DO 13 J=1,NH TVPE 138,J

, X, V !

1=<-1. !

2=-1.3 . !

RP=SQRT < < X12 fV12 J/(22 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. 322 >

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

=;:!,;,12*-.-1: 2>.-0;2+1)) FI=ATAN2V 1) -2 -VUKZ} 1=2.8

81=2.08;1; 2=-2

102-J.Hl.yl.-B2 WRITE (3.- 12> J..A1..B1..B2

DO 15 K=1..NX !

-.=\<

CK=COS<K>

Z= 4.343AL05<2. t-A 1 >2/. 9<- 1 2 f 22 :* 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 >05 > ) 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 .. 15> GO 281

15 DS=S<2.. 1--..2>

&A=SaRT : DSC0N.JG (DS;)

1=1.3fMODS11-M0DS22-MODD

32=1. 3fM0DS22-M0DS11-MODD

C1=S< >-DCONJi5S<2.. 2 J >.

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

M0DC1=C1 :C0N.JG;C1>

M0DC2=C2C0NJ&CC2>

IF<81> S.S.S

5 &=0 0< fSQRT < 2-1. > >

&&=CONJS(01><8 H-SQRT(12-4.1>) (2.2* 0} GO 7

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

GG=CON JS 1) ( 1 -SORT S12 -4. MODC 1)

* /<2.300 7 GMSL=4.343AL0GGMS>

TVPE 134, GMS.. GMSL

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

IF<B2> 8.... S GN=CONJG(02 > 2 fSQRT 22-4.M0DC2

/<2.3*M0DC2>

GO 13

9 GN=C0NJ&C2>.;B2-SQRT<S22-4. 002)

.2.3002> 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)



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 [ 19 ] 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156

2007 EPM-IBF.RU