"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )0007 DATATEXl//FRP'/FRZ','QP'/KHP','KLP','ROPT'/Rl'('C2'/R3'i
1 'R4'>'R5/,'C7//R8'/C',/R/,/ '/IN/1,2,3,0,14,15/ 0008 DATA IFR.IV.ICI.ICOUT.IRIN.IROUT.IPA^.l,2,0,6,5/ 0009 DATA ICH.IRINl/0,1/ 0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) ООП 150 IF(XFRP.NE.XFPZ) GOTO 160 0013 TYPE 20 0014 20 FORMAT/(X/FRP IS EQUAL FRZ!') 0015 CALL TEST(IFR,IV,ICIN,IRIN,TEX1,IN) 0016 GOTO 150 0017 160 ICH-15 0018 IFIRST-0 0019 XHI=6.2831835*XFRP*XC 0020 XROPT=1./XHI 0021 TYPE 10.FROPT 0022 10 FORMAT (X,'ROPT',T15,'=',1PE1O.3) 0023 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,INI 0024 XR1=XR 0025 XR3=XR 0026 XC2=XC 0027 XC7=XC 0028 XR8=XQP/XHI 0029 XHI1 = (XFRZ/XFRP) **2-1 0030 IF(XHIl.GT.O) GOTO 200 0032 XR4=- XR8*XHI1 0034 31 FORMAT(/X/HIGH-PASS NOTCHED') 0035 GOTO 220 0036 200 XR4=XR8*XHI1 │0037 TYPE 30 0038 30 FORMAT (/X/LOW-PASS NOTCHED') 0039 220 XR5=XROPT**2/XR4 0040 XKLP = 1. 0041 XKHP- 1. 0042 CALL OUTPUT(IPA.ICOUT.IROUT.TEXl) ?!? CALL TEST(IFR,IV.ICIN,IRIN.TEX1,IN) 011 RFETSST0P) G0T° 15° 0047 END 0001 SUBROUTINE GP1 С ***************************************************************** 0002 COMMON/STO/STOP 0003 COMMON/FIRST/IFIRST 0004 COMMON/DATA 1 /XFR,XQP,XKHP,XKBP,XKI.P,XROPT(XR 1, XR2.XR3.XR4.XR5.XC6 1(XR7,XC8,XC,XR 0005 DIMENSION TEX1( 16),IN(5) 0006 LOGICAL* 1 STOP 0007 DATA TEXl/'FREQ7QP7KHP7KBP7KLP7R0PT','R17R2\ 1 ,Т?47К57С6'(^7'/С87^С','Р7Ш/1.2,0,15,16/ 0008 DATA 1FR,IV,IC1N,ICOUT,IRIN,IROUT,IPA/1,4,1,2,0,7,4/ |
|
|