"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )

0026 GOTO 100
0027 508 CALL BPMQC
6028 GOTO 100
0029 509 CALL BPHQ
0030 GOTO 100
0031 510 CALL HPLQ
0032 GOTO 100
0033 511 CALL HPMQ
0034 GOTO 100
0035 612 CALL HPHQ
0036 GOTO 100
0037 613 CALL APLQS
0038 GOTO 100
0039 514 1 = 2
0040 CALL APLQ(I)
0041 GOTO 100
0042 615 CALL APMQ
0043 GOTO 100
0044 516 CALL APHQ
0045 GOTO 100
0046 517 1 = 1
0047 СШ. APLQ(I)
0048 GOTO 100
0049 518 CALL BPMQ
0050 GOTO 100
0051 519 CALL BPHQ
0052 GOTO 100
0053 520 CALL HLPNMQ
0054 GOTO 100
0055 521 CALL BRHLPN
0056 GOTO 100
0057 522 CALL HLPNHQ
0058 GOTO 100
0059 523 CALL GP1
0060 GOTO 100
0061 524 CALL GP2
0062 GOTO 100
0063 1 FORMAT/X/CIRCUIT :',X,
1 ,T20,'LOWER Q : Q < 0.5',/,
1 .T20/LOW Q : Q < 2',/,
1 ,T20/MEDIUM Q : 2 < Q < 20',/,
1 .T20/HIGH Q : 20 < Q')
0064 2 FORMAT/T10/E OF COMPUTATION',T45,'(TYPE 0)',/X,
1 ,T10,'LOW-PASS',T35,'LOW Q',T45,'(TYPE 1)',/X,
1 ,T10/LOW-PASS',T35/MEDIUM Q',T45 (TYPE 2)'X
1 .TlO/LOW-PASSVraS/HIGH Q',T45,'(TYPE 3)',/X,' '
1 J10/BAND-PASS' R-INPUT',T35,'LOW Q'T45
'(TYPE 4)',/X,
1 ,T10,'BAND-PASS C-INPUT',T35,'LOW Q/T45,
'(TYPE 5)',/X,