"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )0009 DATA ICH.IRINl/0,1/
0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) ООП 150 ICH=16 0012 IFIRST-0 0013 XHI-6.283I835*XFR*XC 0014 XROPT-l./XHI 0015 TYPE 10.XROPT 0016 10 FORMAT (X,'ROPT'T15,'='1PE10.3) 0017 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,IN) 0018 XR1-XR 0019 XR3-XR 0020 XR5=XR 0021 XR7-XR 0022 XC6=XC 0023 XC8=XC 0024 XR4-XR"(XHI*XR)**2 0025 XR2=XR*(XQP*(1.+XR4/XR) (SQRT(XR4/XR)-l.J 0026 XKHP=(1.+XR4/XR)/(XR/XR2+1.) 0027 XKBP=XR2/XR 0028 XKLP=XKHP*XR/XR4 0029 CALL OUTPUT(IPA.ICOUT.IROUT.TEXl) 0030 CALL TEST(IFR,IV,IGIN>IRIN,TEX1,IN) 0031 IF(.NOT.STOP) GOTO 150 0033 RETURN 0034 END С ***************************************************************** 0002 COMMON/STO/STOP 0003 COMMON/FIRST/IFIRST 0004 COMMON/DATA1/XFR,XQP,XKBP,XKLP,XROPT,XR1,XR2, XC3,XR4,XR5,XC6 1,XR7,XR8,XC.XR 0005 DIMENSION TEX1(16),IN(7) 0006 LOGICAL* 1 STOP 0007 DATA TEXl/'FREQ7QP7KBP7KLP','R0PT7R17R27C3', rR4','R5'/C6'.'R7','R8','C','R',"/IN/U,3.4,0, 0008 DATA IFR.IV.ICIN.ICOUT.IRIN.IROUT.IPA/1,4,2,0,7,4/ 0009 DATA ICH.IRINl/0,1/ 0010 CALL INPUT(IFR.IV,ICIN,IRIN,ICH,TEX1,IN) ООП 160 XKLPIN-XKLP Приложение Б 267 0012 1СН= 15 0013 IFIRST-0 0014 XROPT- 1./(6.2831853*XFR*XC) 0015 TYPE 10.XROPT 0016 10 F0RMAT(X,'R0PT',T15,'-'.1PE10.3) 0017 CALL INPUT(IFR,IV,ICIN,IRIN,1,ICH,TEX1,IN} 0018 XR2=XR 0019 XR7=XR 0020 XR8-XR |
|
|