"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )0023 XR8-XQP*XROPT
0024 XR4=XROPT**2/XR 0025 CALL OUTPUT(IPA,ICOUT,IROUT,TEX1) 0026 CALL TEST(IFR,IV,ICIN,IRIN,TEX1,IN) 0027 IF(NOT.STOP) GOTO 150 0029 RETURN 0030 END 0001 SUBROUTINE BRHQ С ***************************************************************** 0002 COMMON/STO/STOP 0003 COMMON/FIRST/IFIRST 0004 COMMON/DATA1 /XFR.XQP.XK.XROPT.XR 1 ,XR21XC3,XR4, XR5,XC7,XR7,XR8, 1XC.XR 0005 DIMENSION TEX1(16),IN(5) 0006 LOGICAL* 1 STOP 0007 DATA TEXl/'FREQ',/QP//K//ROPT//Rr,'R2'/C3',/R47R5','C7', l'R77R87C7R7','',' '/IN/1,2,0,13,14/ 0008 DATA IFR.IVJCIN.ICOUT.IRIN.IROUT.IPA/l^.l^A?^/ 0009 DATA ICH.IRINl/0,1/ 0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) ООП 150 ICH= 14 0012 IFIRST-0 0013 XROPT-1.(6.2831853*XFR*XC) 0014 TYPE 10.XROPT 0016 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,IN) 0017 XK=2 0018 XR1=XR 0019 XR2 = XR 0020 XR5=XR 0021 XC3=XC 0022 XC7=XC 0023 XR8=XQP*XROPT*2 0024 XR4=XROPT**2/XR 0025 XR=XR8 0026 CALL OUTPUT(IPA,ICOUT,IROUT,TEXlj 0027 CALL TEST(IFR,IV,ICIN,IRIN,TEX1,IN) 0028 IF(.NOT.STOP) GOTO 150 0030 RETURN 0031 END 0001 .SUBROUTINE HLPNHQ С ***************************************************************** 0002 COMMON/STO/STOP 0003 COMMON/FIRST/IFIRST 0004 COMMON/DATA 1 /XERP)XFRZ,XQP,XKHP,XKLP,XROPT)XR 1, XC2,XR3,XR4,XR5 1,XC7,XR8,XC,XR 0005 DIMENSION TEX1(16),IN(6) 0006 LOGICAL* 1 STOP |
|
|