970 GSP=Q*SQR(C1/P/C4)

980 K=S1*GS/C1

990 CLS:PRINTCHR$(23)

1000 PRINT"3.BP-LQ-C" : PRINT

1010 PRINT"C11=";S1

1020 IF S2==0 THEN 1040

1030 PRINT"C12 =";S2

1040 PRINT"R2 =";R2

1050 PRINT"R3 =";R3

1060 PRINT"C4 =";C4: PRINT

1070 PRINrK=";K

1080 PRINPF =";F

1090 PRINT"Q =";Q

1100 PRINT"GSP = ";GS : PRINT

1110 GOSUB 200

1120 GOTO 870

1130 REM<4.HP-LQ>

1140 PRINT® 192,"C11(NF)=";: INPUT CO : S1 = C0*1E-9

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

1160 PRINrC3(NF)="; : INPYTC4 : C3=C4*1E-9

1170 C1=S1--S2

1180 P=Q*Q*(2+C1/C3+C3/C1)

1190 R2=1/F0/SQR(P*C1*C3)

1200 R4=P*R2

1210 GSP=Q*SQR(R*C3/C1)

1220 K=S1/C1

1230 CLS : PRINTCHR$(23)

1240 PRINT"4.HP-LQ": PRINT

1250 PRINT"C11 = ";S1

1260 IF S2=0 THEN 1280

1270 PRINT"C12 =";S2

1280 PRINrR2 =";R2

1290 PRINT"C3 =";C3

1300 PRINrR4 =";R4 : PRINT

1310 PRINrK =";K

1320 PRINT"F =";F

1330 PRINT"Q =";Q

1340 PRINT"GSP=";GS

1350 GOSUB 200

1360 GOTO 1140

1370 REM<5.AP-Q.5>

1380 PRINT® I92,"C1(NF)="; : INPUT SI : Cl = Sl*lE-9

1390 PRINT"C2(NF)="; : INPUT S2 : C2=S2*1E-9

1400 PRINT"C3(NF) ="; : INPUT S3 : C3=S3*1E-9

1410 H1=C1+C2:H2=C2+C3:H3=CI*C2

1420 H=1-H1*H2*4*Q*Q/C1/C3

1430 IF H>=0 THEN 1450

1440 PRINT"C1 =C3> =C2*2Q/(1-2Q)!" : PRINT® 128," " : PRINT I

PRINT : GOTO 1380

1450 H4=2*F0*Q*H2 : H6=F0*F0*H3 : H5=H1/H6/C3

1460 A4= (1+SQR(H))/H4 : A5=H5/A4 : A6= 1/H6/(A4+A5>

1470 B4=(l-SQR(H))/H4 : B5=H5/B4 : B6= 1/H6/(B4+B5)

1480 CLS : PRINTCHP$ (23)

1490 PRINT"5.AP-Q.5" : PRINT

1500 PRINT"C1 =":C1

1510 PRINT"C2 ="C2

1520 PRINT"C3 =";C3. PRINT

1530 РКТКГЯЛА"; А4. "R4B="; В4

1540 PRINTR5A="; А5, "RSBW; В5

1550 PR1NT"R6A="; Аб, "R6B="; В6: PRINT

1560 PRINT"F ="; F

1570 PR1NT"Q ="; Q : PRINT

1580 GOSUB 200

1590 GOTO 1380

1600 REM<6.AP-LQ>

1610 PRINT e 192,"C2(NF) =";: INPUT CO : C2=C0*1E-9

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

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

1640 P=Q*Q* (2+C2/C3+C3/C2)

1650 R1 = 1/F0/SQR(P*C2*C3)

1660 R4 = P*R1 : GSP = Q*SQR(P*C3/C2)

1670 IF R6=0THEN R6=1E4

1680 R5=R6*2*(I+C2/C3)/P

1690 K=R6/(R5+R6)

1700 CLS:PRINTCHR$(23)

1710 PRINT"6..AP-LQ" : PRINT

1720 PRINT"R1 =";R1

1730 PRINT"C2 =";C2

1740 PRINT"C3 =";C3

1750 PRINT"R4 =";R4

1760 PRINT"R5 =";R5

1770 PRINT"R6 =";R6: PRINT

1780 PRINT"K =";K

1790 PRINT"F =";F

1800 PRINT"Q =",Q

1810 PRINT"GSP=";GS: PRINT

1820 GOSUB 200

1830 GOTO 1610

1840 REM<7.BR-LQ>

1850 PRINT e 192,"C2(NF) ="; : INPUT CO : C2=C0*1E-9

1860 PRINT"C3(NF) = ";:INPUT CI •.C3=C1*1E-9

1870 PRNT"R6(K0HM,0PTI0NAL) ="; : INPUT RO : R6=R0*1E3

1880 P = Q*Q*(2+C2/C3+C3/C2)

1890 R1 = 1/F0/SQR(P*C2*C3)

1900 R4=P*R1 :GSP=Q*SQR(P*C3/C2)

1910 IF R6=0 THEN R6=IE4

1920 R5=R6*(I+C2/C3)/P

1930 K=R6/(R5+R6)

1940 CLS:PRINTCHP$(23)

1950 PRINT"7.BR-LQ" : PRINT

1960 PHINT"R1 =";R1

1970 PRINT"C2 =";C2

1980 PRINT"C3 =";C3

1990 PRINT"R4 =";R4

2000 PRINT"R5 =";R5

2010 PRINT"R6 =";R6: PRINT

2020 PRINT"K =":K

2030 PRINT"F =";F

2040 PRINT"Q =";Q

2050 PRINT"GSP=":GS : PRINT

2060 GOSUB 200

2070 GOTO 1850

2080 REM<8 LP-MQ>

2090 PRINT"C2(NFJ ="i: INPUr CO: C2=C0*1E-9

2100 PRINT"C4(NF) ="; : INPUT СЗ : С4=СЗ*1Е-9

2110 PRINT"K(OPTIONAL) : INPUT KI

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

2130 H1-C4/C2 : H2= 12*Q*Q : H3=H1*H2*3

2140 P=(SQR(l+H2*(l+Hl)) + l)t2/H3

2150 R1 = 1/F0/SQR(P*C2*C4) : R3=P*R1

2160 IF R5=0 THEN R5=1E4

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

2180 K0=l+R6/R5: GSP=Q*K0*K0/SQR(P*H1)

2190 IF K1=0 THEN 2210

2200 IF КО-K1>0 THEN 2220

2210 K=KO: SI =R1 : S2=1E30: GOTO 2230

2220 K=K1 •.S1 = K0*R1/K: S2 = K0*R1/(K0-K)

2230 CLS ; PRINTCHR$ (23)

2240 PRINT"8LP-MQ" : PRINT

2250 PRINT"R11=";S1,: IF S2< >1E30 THEN PRINT"R12=";S2

2260 PRINT"C2 =";C2,"R3=;R3

2270 PRINT"C4 =";C4

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

2290 PRINT"K =";K

2300 PRINT"F =";F,"Q=";Q: PRINT

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

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

2330 IF P0=1 THEN PRINT"P="; : INPUT P : GOTO 2150

2340 GOSUB 200

2350 GOTO 2090

2360 REM<9.BP-MQ-R>

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

2380 PRINT"C3(NF) =";: INPUT Cl : C3=Cl*El-9

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

2400 PRINT"R6(K0HM.0PTI0NAL) = ";: INPUT RO : R6= R0*1E3

2410 H1-C2/C3 : H2=4*Q*Q : H3=3*H2*(1+C3/C2)

2420 P=H1/H2*(SQR(1+H3)-l)t2

2430 R1 = 1/F0/SQR(P*C2*C3) :R4=P*R1

2440 IF R6=0 THEN R6 = 1E4

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

2460 K0=Q*(1+R5/R6)*SQR(P/H1)

2470 GSP=(1+R5/R6)*K0

2480 IF K1=0 THEN 2500

2490 IF КО-K1>0 THEN 2510

2500 K=K0 : SI = R1 :S2=1E30: GOTO 2520

2510 K=K1 :S1=KO*R1/K:S2=KO*R1/(KO-K)

2520 CLS : PRINTCHR$ (23)

2530 PRINT"9.BP-MQ-R" : PRINT

2540 PRINT"R11 =";S1,: IF S2< >1E30 THEN PRINT"P12 = ";S2

2550 PRINT"C2 =";C2,"C3=";C3

2560 PRINT"R4 =";R4

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

2580 PRINT"K =";K

2590 PRINT"F =";F,"Q = ";Q : PRINT

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

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

2620 IF P0=1 THEN PRINT"P = "; : INPUT P : GOTO 2430

2630 GOSUB 200

2640 GOTO 2370

2650 REM<10.BP-MQ-C>

2660 PRINT"C11(NF)=";: INPUT C3 : S1 = C3*1E - 9