4370 RI=Q*RO

4380 R7=R0*R0/RD

4390 CLS:PRINTCHR$(23)

4400 PR1NT"I6.LP-HQ" : PRINT

4410 PRINT"R1=",R1,"C1 = ";C1

4420 PRINT"R2=";R2,"R3=";R3

4430 PRINT"C4=";C4,"R6=";R6

4440 PRINT"R7 = ";R7: PRINT

4450 PR1NT"F =",F/Q=";Q : PRINT

4460 GOSUB 200

4470 GOTO 4320

4480 REM<17.BP-HQ>

4490 PRINrC(NF)="; : INPUT D:C=D*1E-9

4500 R0=1/F0/C

4510 GOSUB 260

4520 C3=C:C8=C

4530 R1 = RD : R2 = RD : R6=RD

4540 R7 = Q*R0

4550 R4 = R0*R0/RD

4560 CLS : PRINTCHR$ (23)

4570 PRINT"17.BP-HQ": PRINT

4580 PRINT"R1=":R1/R2=";R2

4590 PRINT"C3=";C3,"R4=";R4

4600 PRINT"R6="R6,"R7=";R7

4610 PRINT"C8=";C8: PRINT

4620 PRINT"F =";F/Q=";Q: PRINT

4630 GOSUB 200

4640 GOTO 4490

4650 REM<18.HP-HQ>

4660 PRINT"C(NF)=";: INPUT D :C=D*lE-9

4670 R0=1/F0/C

4680 GOSUB 260

4690 C3=C:C7=C

4700 R1 = RD : R2=RD : R6=RD

4710 R8=Q*R0

4720 R4 = RO*R0/RD

4730 CLS ; PRINTCHR$ (23)

4740 PRINT"18 HP-HQ" : PRINT

4750 PRINT"R1="R1,"R2=";R2

4760 PRINT"C3=";C3."R4=";R4

4770 PRINT"R6=";R6,"C7=";C7

4780 PRINrR8=";R8: PRINT

4790 PRINT"F=";F/Q=";Q : PRINT

4800 GOSUB 200

4810 GOTO 4660

4820 REM<19.AP-HQ>

4830 PRINT"C(NF) ="; : INPUT D : C=D*IE-9

4840 R0=l/FO/C

4850 GOSUB 260

4860 C3=C : C7=C

4870 R1 = RD:R2=RD:R5=RD

4880 R8=Q*R0

4890 R4=R0*R0/RD

4900 CLS : PRINTCHR$ (23)

4910 PRINT"19.AP-HQ: PRINT

4920 PRINT"R1 = ";R1."R2=";R2

4930 PRINT"C3=";C3."R4=";R4

4940 PRINT"R5=";R5,"C7=";C7

4950 PRINT"R8«=";R8;PRINT

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

4970 GOSUB 200

4980 GOTO 4830

4S90 REM<20.BP-HQ>

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

5010 R0=1/F0/C

5020 GOSUB 260

5030 C3=C:C7=C

5040 RI = RD : R2=RD : R5=RD

5050 R7=2*Q*R0:R8=R7

5060 R4=R0*RO/RD

5070 CLS : PRINTCHR$ (23)

5080 PRINT"20.BP-HQ" : PRINT

5090 PRINT"R1=";R1,"R2=";R2

5100 PRINT"C3=";C3,"R4=";R4

5П0 PRINT"R5=";R5,"R7=";R7

5120 PRINT"C7=";C7,"R8=";R8: PRINT

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

5140 GOSUB 200

5150 GOTO 5000

5160 REM<21.LPN/HPN-HQ>

5170 PRINT"ZERO FREQ. = ": : INPUT FZ

5180 IF FZ=F THEN PRINT"NO BANDREJECT)" : GOTO 5170

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

5200 RO=1/FO/C

5210 COSUB 260

5220 C2=C:C7=C

5230 R1 = RD:R3=RD

5240 R8==Q*R0

5250 X=(FZ/Z)t2

5260 CLS : PRINTCHR$ (23)

5270 IF X>1 THEN 5310

5280 R4=R8*(1-X)

5290 PRINT"2I.HPN-HQ" : PRINT

5300 GOTO 5330

5310 R4=R8*(X-1)

5320 PRINT"21.LPN-HQ" : PRINT

5330 R5=R0*R0/R4

5340 PRINT"R1=";R1,"C2=";C2

5350 PRINT"R3=";R3,"R4=";R4

5360 PRINT"R5=";R5,"C7=";C7

5370 PRINT"R8=";R8: PRINT

5380 PRINT"F =";F,"FP=";F

5390 PRINT"Q =";Q: PRINT

5400 GOSUB 200

5410 PRINT"F=",F : GOTO 5190

5420 REM<22.GP1>

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

5440 R0=1/F0/C

5450 GOSUB 260

5460 R1 = RD:R3=RD:R5=RD:R7=PD

6470 C6=C:C8=C

5480 R4 = RD*RD*RD/R0/R0

6490 R2=RD* (Q* (I+R4/RD) /SQR (R4/RD) -1)

5500 KH=(1+R4/RD)/(1+RD/R2)

5510 KB = R2/RD

5520 KL=KH*RD/R4

5530 CLS : PRINTCHR$ (23)

5540 PR1NT"21.CP1": PRINT

5550 PRINT"R1 = ";R1,"R2=";R2

5560 PRINT"R3=";R3,"R4 = ";R4

5570 PRINT"R5=";R5,"C6=";C6

5580 PRINT"R7 = ";R7."C8 = ";C8 : PRINT

5590 PRINT"KHP = ";KH,"KBP = ";KB

5600 PR1NT"KLP = ";KL

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

5620 GOSUB 200

5630 GOTO 5430

5640 REM<23.CP2>

5650 PRINT"C(NF) : INPUT D : C = D*lE-9

5660 PRINT"K = ";:INPUT К

5670 IF K=0 THEN K=l

5680 R0=1/F0/C

5690 GOSUB 260

5700 R2=RD-.R7 = RD:R8=RD

5710 C3=C:C6=C

5720 R5=R0*R0/RD

5730 R4 = Q*RQ

5740 PRINT"TYPE 1 IF K IS FOR LP";: INPUT X

5750 IF X=l THEN-KL = K : RI = R2/K : KB = R4/R1 : GOTO 5770

5760 K=K:R1 = R4/K:KL = R2/R1

5770 CLS:PRINTCHR$(23)

5780 PRINT"23.CR2" : PRINT

5790 PRINT"R1=";R1,"R2 = ";R2

5800 PRINT"C3=";C3,"R4=";R4

5810 PRINT"R5 = ";R5,"C6=";C6

5820 PRINT"R7=";R7,"R8==";R8 : PRINT

S830 PRINT"KBP=";KB

5840 PRINT"KLP1 = KLP2=";KL

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

5860 GOSUB 200

5870 GOTO 5650

5880 END

Приложение Г

Численная проверка программ

После написания текста машинной программы необходимо гарантировать не только то, что в ней не содержится синтаксических ошибок, а также и правильность вычисленных числовых результатов. Таким образом, для того чтобы отладить наши программы, требуется фактически собрать каждую схему, используя набор вычисленных значений элементов. Контролируемые расчетные параметры (например, частота, добротность, затухание) затем измерялись и сравнивались с входными данными программы.

На следующих страницах для каждой схемы заданы две группы численных исходных данных.

Значения первой группы соответствуют расчетным параметрам сайих схем, которые были фактически реализованы и проверены в лабораторных условиях с тем, чтобы отладить приведенные в этой книге программы.