2670 PRINT"C12(NF,0PTI0NAL) =";: INPUT С2 : S2=C2*1E-9

2680 PRINT"C4(NF) =";: INPUT CO : C4=C0*1E-9

2690 PRINT"R6(K0HM,0PTI0NAL) ="; : INPUT RO : R6=R0*IE3

2700 C1 = S1+S2:H1 = C4/CI :H2=12*Q*Q

2710 P=(SQR(I+H2*(I+HI))+l)t2/3Hl/H2

2720 R2=1/F0/SQR(P*C1*C4) :R3=P*R2

2730 IF R6=0 THEN R6=1E4

2740 R5=R6*(HI*(1+P)-SQR(P*HI)/Q)

2750 K=S1/CI*(1+R5/R6)*Q/SQR(P*H1)

2760 GSP = K/S1*CI*(1+R5/R6)

2770 CLS : PRINTCHR$ (23)

2780 PRINT"!0 BP-MQ-C" : PRINT

2790 PRINT"C11=";S1,:IF S2<>0 THEN PRINT"CI2=";S2

2800 PRINT"R2 =":R2."R3=";R3

2810 PRINT"C4 =";C4

2820 PRINT"R5 =";R5,"R6=";R6 : PRINT

2830 PRINT"K =";K

2840 PR1NT"F =";F,"Q=";Q : PRINT

2850 PRINT"P =";P."GSP = ";GS: PRINT

2860 PRINT"TYPE 1 IF NEW P";: INPUT PO

2870 IF P0=1 THEN PRINT"P=";: INPUT P : GOTO 2720

2880 GOSUB 200

2890 GOTO 2660

2900 REM<11.HP-MQ>

2910 PRINT"CI1(NF)=";: INPUT CO: S1=C0*E1-9

2920 PRINT"CI2(NF,0PTI0NAL) =";: INPUT C2 : S2=C2*1E-9

2930 PRINT"C3(NF) ="; : INPUT C4 : C3=C4*IE-9

2940 PRINT"R5(K0HM,0PTI0NAL) =";: INPUT RO : R5=R0*1E3

2950 CI =SI+S2 : HI=C1/C3 : H2=I2*Q*Q*(1+1/H1)

2960 P=Hl/4/Q/Q*(SQR(l+H2)-l)t2

2970 R2 = 1/F0/SQR(P*C1*C3) : R4 = P*R2

2980 IF R5=0THEN R5=1E4

2990 R6=R5*((1+H1)/P-SQR(H1/P)/Q)

3000 K=S!*(1+R6/R5)/C1

3010 GS=Q*SQR(P/Hl)*(l+R6/R5)t2

3020 CLS : PRINTCHR$ (23)

3030 PRINT"! 1 HP-MQ" : PRINT

3040 PRINT"C11 =";S1.: IF S2< >0 THEN PRINT"C12=";S2

3050 PRINT"R2 =";R2,"C3=";C3

3060 PRINT"R4 =";R4

3070 PRINT"R5 =";R5,"R6=";R6 : PRINT

3080 PRINTK =";K

3090 PRINT"F =";F,"Q=";Q

3100 PRINT"? =";P,"GSP="GS : PRINT

3110 PRINT"TYPE 1 IF NEW P";: INPUT PO

3120 IF P0=! THEN PRINT"P=";: INPUT P : GOTO 39T0

3130 GOSUB 200

3140 GOTO 2910

3150 REM<12.AP-MQ>

3160 PRINT"C2(NF) =";: INPUT CO : C2=C0*1E-9

3170 PRINT"C3(NF) ="; : INPUT CI : C3=Cl*tE-9

3180 PRINT"R6(K0HM OPTIONAL) =";: INPUT RO : RO-R0MB3

3190 X=C2/C3:X1 = 1+X:X2=XI*X1

3200 H=6*Q*Q*X2/(2*Q*Q*X1-X)

3210 R=(SQR(H-H*H/3/X2)-l)/H

3220 R1 = I/F0/SQR(P*C2*C3) : R=P*R1

3230 IF R6=0 THEN R6=1E4

3240 R7=R6*(P*X1+SQR(P*X)/Q)

3250 А=1-2*SQR(P*X)/Q/(1+R7/R6)

3260 R5=R/A:R4=R/(1-А)

3270 GS = A*Q/SQR(P*X)*(1+R7/R6)t2

3280 CLS:PRINTCHR$(23)

3290 PRINT"12.AP-MQ" : PRINT

3300 PRINT"R1=";P1,"C2=";C2

3310 PRINT"C3=";C3,"R4=";R4

3320 PRINT"R5=";R5

3330 PRINT"R6=";R6,"R7=";R7 : PRINT

3340 PRINT"F =";F,"Q = ";Q

3350 PRINT"P =";P/GSP = ";GS : PRINT

3360 PRINTTYPE 1 IF NEW P";: INPUT PO

3370 IF P0=1 THEN PRINT"P = "; : INPUT P : GOTO 3220

3380 GOSUB 200

3390 GOTO 3160

3400 REM<13.BR-MQ>

3410 PRINT"C2(NF) ="; : INPUT CO : C2=C0*1E-9

3420 PRINT"C3(NF) ="; : INPUT Cl : C3=C1*1E-9

3430 PRINT"R6(KOHM,OPTIONAL)6"; : INPUT RO : R6=R0*1E3

3440 H=C2/C3:P = I/3/(l+H)

3450 R1 = 1/F0/SQR(P*C2*C3) : R = P*R1

3460 IF R6=0 THEN R6=1E4

3470 R7=R6*(1+H)*P

3480 A=1~SQR(P*H)/Q/(1+R7/R6)

3490 R5=R/A:R4=P/(1-A)

3500 CS = Q*A/SQR(P*H)*(1+R7/R6)t2

3510 CLS:PRINTCHR$(23)

3520 PRINT"13.BP-MQ" : PRINT

3530 PRINT"R1 = ";R1,"C2 = ";C2

3540 PRINT"C3=";C3,"R4=";R4

3550 PRINT"R5=";R5

3560 PRINrR6=";R6,"R7 = ";R7 : PRINT

3570 PRINT"F =";F,!Q=";Q

3580 PRINT"P?=";P,"GSP = ";GS : PRINT

3590 PRINT"TYPE 1 IF NEW P"; : INPUT PO

3600 IF P0=1 THEN PRINT"P = "; : INPUT P : GOTO 3450

3610 GOSUB 200

3620 GOTO 3410

3630 REM<14.LPN/HPN-MQ>

3640 PRINT"ZERO FPEQ.="; : INPUT FZ

3650 X0==SGN(F-FZ)

3660 IF X0=0 THEN PRINTING BANDPEJECT!" : GOTO 3640

3670 PRINT"C3(NF) ="; : INPUT : CO : C3=C0*1E-9

3680 PRINrC4(NF)="; : INPUT Cl : C4=C1*1E-9

3690 PRINT"K (OPTIONAL) = "; : INPUT KI

3700 PRINT"R9(K0HM,0PTI0NAL)="; : INPUT RO : R9=R0*1E3

3710 PRINT"P(START BETWEEN .01 TO 3.)="; : INPUT P

3720 X=(l+X0)/2:Z0=(2*PI*FZ)t2

3730 G = C3*F0/2/P/Q* (SQR (1 +4*Q*Q*P* (1+C4/C3)) -1)

3740 КО = (1+P) / (1+(1+C4/C3) *Z0* (C3/G) f 2)

3750 IF K1==0THEN 3780

3760 H=l-Kl/KO

3770 IF H>0 THEN 3790

3780 K=K0 : RI = 1/C : R2= 1E30 : GOTO 3800

3790 K=K1 : R1 = K0/C/K1 : R2=l/G/H

3800 R6=G*(1+P)*(1 -X/K) /СЗ/С4 (ZO-FO*F0)

3810 R5=1/(C3*C4*F0*F0/G+P/R6)

3820 Н1 = Q/FO* (G/C3+ (СЗ+С4) * (R5+R6) /C3/R5/C4/R6)

3830 Н2= 1-G* (R5+R6)/F0/F0/C3/C4/R5/R6

3840 GS(1+P)/2*(ABS(1-H1)+Q*ABS(H2»

3850 IF R9=0 THEN R9=1E4

3860 R7=P*R9/K: R8=P*R9/(1-K)

3870 CLS:PRINTCHR$(23)

3880 PRINT"14.LPN/HPN-MQ" : PRINT

3890 PRINT"RI =";RI,"R2 = ";R2

3900 PRINT"C3 =";C3/C4=";C4

3910 PRINT"R5 =";R5/R6=";R6

3920 PRINT"R7 =";R7,"R8=";R8

3930 PRINT"R9=";R9: PRINT

3940 PRINT"K =";K,"FZ = ";FZ

3950 PRINT"FP = ";F/Q=";Q

3960 PRINT"P =";P,"GSP==";GS: PRINT

3970 PDINT"TYPE 1 IF NEW P"; : INPUT PO

3980 IF PO=I THEN PRINT"P = "; : INPUT P : GOTO 3720

3990 GOSUB 200

4000 PRINT"FZ=";FZ : GOTO 3670

4010 REM<I5.BR-LPN/HPN-MQ>

4020 PRINT"ZERO FREQ.="; : INPUT FZ

4030 Z0=2*PI*FZ:Z2=Z0*Z0:X=Z0/F0

4040 PRINT"C1(NF)="; : INPUT DI :CI = DI*1E-9

4050 PRINT"C2(NF)="; : INPUT D2 : C2=D2*IE-9

4060 PRINr"C3(NF) ="; : INPUT D3 : C3 = D3*lt--9

4070 PRINT"C4(NF)=";: INPUT D4 : C4 = D4*1E-9

4080 PRINT"R9(K0HM,0PTI0NAL) ="; : INPUT Y : R9 = Y*1E3

4090 C = C1*C2/(C1+C2) : HI = 1+C4/C : H2= I+C2/CI

4100 G=l/2/SQR(H2*(l+C2/C3))

4110 R5= I/2/Z0/G/(C2+C3) : R6=H2/R5/Z2/C2/C3

4120 RS = R5+R6:R7=I /Z2/C1 /C2/RS : H=H1 /Х/Х- 1

4130 IF H<0 THEN PRINT"C4>= ((FZ/FP) 2-1)*C1*C2/(C1+C2)" j GOTO 4070

4140 IF H = 0 THEN R8=1E30 ELSE R8=RS/H

4150 IF R9 = 0 THEN R9=1E4

4160 RO = R9*C* (1 /R8/C/Z0+RS*C4*Z0-H 1 /Q/X)

4170 GS=Q*X/H1*(SQR(R5*C3/R6/C)+SQR(RS*C2/R7/Cl))*(l+R0/R9)f2

4180 K=(1+R0/R9)/H1

4190 CLS : PR1NTCHR$ (23)

4200 PRINT"!5.BR-LPN/HPN-MQ" : PRINT

4210 PRINT"CI=";C1,"C2 = ";C2

4220 PRINT"C3 = ";C3,"C4 = ";C4

4230 PRINT"R5=";R5/R6=";R6

4240 PRINT"R7=";R7,"R8=";R8

4250 PRINrR9=";R9,"R10=";R0: PRINT

4260 PRINT"F =";F,"FP = ",F

4270 PRINT" Q =",Q,"K=";K-

4280 PRINT"GSP=";GS : PRINT

4290 GOSUB 200

4300 PRINT"FZ = ",FZ: GOTO 4040

4310 REM<I6.LP-HQ>

4230 PRINT"C(NF) ="; : INPUT D : C=D*1E-9

4330 RO=i/FO/C

4340 GOSUB 260

4350 C1=C:C4=C

4360 R2=RD : R3=RD : R6=RD