70 PRINTP ДЛЯ ОПТИМЙЛЬНОГО ПУЧPI

80 PRINTBBEAHTE КОД й,ЕСЛИ Р=РОПТ

90 INPUTBBEAHTE КОД Ь ЕСЛИ Р ДРУГОЕЙ

100 IF ft=e THEN 138

lie IFftOe THEN 126

12e LETP=P1:60T0 140

138 INPUTBBEAHTE PP

148 LETR2= 1 <Э«#РIiKFiKSQR<P*C 1 жСЗ) )!LETR4=PiitR2 ISe IF R5=e THEN LETR5=1E4

1 ее LETR6=R5iit< < 1 P) ж< 1 + < С1 C3 ) ) - < < SQR <С1 C3 ) ) ) )

17e LETK=<C8>Cl)iis<l+<R6>R5>)

188 LETX=Qiit< < 1+<Re/RS) )"2)*SQR<РЖСЗС 1)

190 PRINTРЕЗУЛЬТАТЫ РАСЧЕТА.

200 PRINTR2=R2!PRINTR4=R4!PRINTR6=R6

2ie PRINTK=K:PRIHTP=P!PRINTny4=X

228 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД

23е PRINTТ <S)=Кя«S2)/<S2t<UP/Q)жЗ+ЫР2>

24e GOTO 13e:END

Пример A. Вводимые параметры: F = =2,2-10=, Q = 7, C„ = 100-10--, C;2=15-10-, Сз = 5,Ы0-, «5 = 6,8-10=. Результаты расчета: P=65,!70699, ПУЧ =19,415779, = 370,03027, «4 = 24,115131-10=, «6 = = 1,8857261-10=, /(=1,1107067.

Пример В. Вводимые параметры: F=2,2-10=, 0 = 7, С, = 15-10-, С\г = . Сз = 4,7-10-, «5 = 0. Результаты расчета: Я = 11,701459, ПУЧ = 22,083997, Яг = = 2,5187373 • 10 «4 = 29,472902 -10=, «е = = 2,8359544 -10=, /( = 1,2835954.

Если задано «5 = 0, программа присваивает «5 значение 1-10 Ом. Настройка: (1) /р резистором «2 или «4, (2) резистором «6.

12. Всепропускающий.

Г (S) = [s- (шр/9р) s + c4]/ [s + (вр/9р) s + wj],

«p=«.,«5/(«4 + «5), 0)p=l/VCC3«p,

Qp = / [ (1 /РрСг) («7/«6) - (1 /«1C2) -- (l/«iC3)] =V[(!/«,C2) + (1/«<Сз) +

+ (1/«4C2)--(1/«5C2) («7/«6)],

ПУЧ = 9р(«р/«5)

Программа 7.45.

(1 + («7/«6j 1 S«3/«pC2.

! Rl

<-*----!====!----ж-!---!

!

I I !

-! ! -! I! C3

! R5

R4 !

ei PRIHTPAC4ET ФИЛЬТРА ВСЕПРОПУСКАИШЕГО СРЕДНЕДОБРОТНОГО 62 PRINT R7

83 PRINT

04 PRINT !

65 PRINT !

66 PRINT R6 ! --

67 PRINT -----!====!----Ж-1-

08 PRINT ! !

69 PRINT ! Rl \+

10 PRINT

11 PRINT

12 PRINT

13 PRINT

14 PRINT

15 PRINT

16 PRINT

17 PRINT

18 PRINT

19 PRINT

20 PRINT ! !

21 PRINT

2? PRINT ! .

23 PRINT

30 INPUTFP=F:INPUTQP=Q 40 INPUTC2=C2iIHPUTC3=C3sINPUTR6=R6 50 LETX=C2/C3

60 ЬЕТВ=бж<0-2)я«<1-ьХ>-2)/<2ж<02)ж<1+Х>-Х)

70 LETPl=<l/E)«<SeR<l+<<E-2)/<3iit<<l+X)"2>>)>-l> 80 PRINTP ДЛЯ ОПТИМАЛЬНОГО ПУЧPI 90 PRINTBBEAHTE КОД 0,ЕСЛИ Р=РОПТ 100 INPUTBBEAHTE КОД ЬЕСЛИ Р ДРУГОЕА 110 IF А=0 THEN 140 120 IF АО0 THEN 130 130 LETP=PlJGOTO 156 146 INPUTBBEAHTE PP 156 LETRl=l/<2iit#PIiitFiitSQR<C2iitC3iitP>) 160 LETR==P*R1 170 IFR6=0 THEN LETR6=1E4

180 LETR7=R6iif<Piit<l-KC2/C3>)-Kl/Q)iifS6R<PiitC2/C3>>

1Эе LETH«l-(2»<SQR<PiiiC2/C3>>/е/< 1+<R?R6)>>

20в LETR5=R/HiLETR4=R/<l-H>

210 иЕТ2=Н«0ж<ll+<R7Re>)"2)ж80Р<СЗ/Р/С2)

220 PRINTРЕЗУЛЬТАТЫ РАСЧЕТА.

230 PRlNTRl=RltPRINTR4=R4tPRINTR5=R5

240 PRINTR7=R7:PRINTP=PsPRlHTny4=Z

250 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД

260 PRINTT<S)=<S"2-<UP/Q>«S+UP2)><S"2+(UP/Q>*S+UP"2)

270 БОТО 1401END

Пример А. Вводимые параметры: f=2,4-10=, Q=5, С2 = 33-10-. Сз= 10-10", «6 = 6,8-10=. Результаты расчета: Р= = 78,117733-10-\ ПУЧ = 16,473246, Ri = = 13.06102-10 «4 = 7,2215149-10=, «в = = 1,1881686-10=, «7 = 2.9746737-10=.

Пример В. Вводимые параметры: f=2,4-10=. Q=5, С2=18-!0-, Сз=4,7-10-,

13. Полосно-заграждающий. Г (s) = (s= + <о?) / [s + (сор/9р) S + (0=1,

«P = «4«s/(«4 + «b), 4>p=\HRxC2CiRp,

( 1 /«lC2)+ ( I /«, Сз) = (1 /«pC2) («7/«б) . 9p = <0p/[(l/«,C2) + (1/«,Сз) + (1/«4C2) -

-(1/«5Сг) («7/«б)1, ПУЧ = 9р(«р/«5) (1 + («7/«б)] = л/«Сз/«рС1.

Программа 7.46.

-1 ====1 --

! Оу

-!-I

! !

!--! !-ж--!! -! II I II

С2 ! СЗ R5 ж-------!====

01 PRINTРАСЧЕТ ФИЛЬТРА ПОЛОСНО-ЗАГРАИДАЮШЕГО СРЕДНЕДОЕРОТНОГО.

02 PRINT

03 PRINT

04 PRINT

05 PRINT

06 PRINT

07 PRINT ! ! !-ж~>

08 PRINT <-ж---!====!----ж-i-f

09 PRINT ! Rl ! !--

10 PRINT ! ! I - l«i:rj

11 PRINT

12 PRINT

13 PRINT

14 PRINT

15 PRINT !

16 PRINT

17 PRINT ! ! R4

18 PRINT ! 1

19 PRINT

20 PRINT !

21 PRINT

30 INPUTFP=F!INPUTQP=6 40 INPUTC2=C2!INPUT03=C3!INPUTR6*R6 50 LETPl=l/<3«<l-bC2/C3)) 60 PRINTP НАЧ.ЗНАЧЕНИЕ ВБЛИЗИ MIN ПУЧР1 70 PRINTВВЕДИТЕ КОД бтЕСЛИ Р=РНАЧ 80 INPUTВВЕДИТЕ КОД ЬЕСЛИ Р ДРУГОЕА 90 IF А=0 THEN 120 100 IFAO0 THEN 110 110 LETP=Pl:&OTO 130 120 1НРиТВВЕДИТЕ PP

130 иЕТР1=1/<г«#Р1«Р«80Р<С2жСЗжР))sLETR=P«R1 140 IF R6=0 THEN LETR6=1E4 150 LETR7=R6*C1-KC2/C3>)*P 160 LETB=l-CCSQR(PжC2/•CЗ)>>(0ж<lR7/R6)» 170 LETR5=R/BsLETR4=R>(l-B> 180 иЕТХ=ажВж( < 1 +<R7/R6) >"2)жЗОР <03 02) 190 PRINTРЕЗУЛЬТАТЫ РАСЧЕТА 200 PRINTR1=R1!PRINTR4=R4!PRINTR5=R5 210 PRINTR7=R7!PRINTP=PsPRINTПУЧ=X 220 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД 230 PRIHTTCS)=<S~2•ЫP"2>-<S2+<ЫP-Q)жSЫP2) 240 60Т0 120:END

«?=0. Результаты расчета: Р= =69,566685-10 ПУЧ =17,186565, «,= = 27,33525-10=, «4=13,255775-10=, «s= = 2,22201114-10=, «7 = 4,3922515-10=.

Если задано «6=0, программа присваивает «6 значение 1-10 Ом.

Пример А. Вводимые параметры: f=l,9-10=, Q=9, С2=68-10-, Сз=15-10-, «6=5,6-10=. Результаты расчета: Р = = 60,240964 -10 - ПУЧ = 29,283848, «, = = 10,686131-10=, «4=14.782193-10, «7 = = 1,8666667-10=, «6 = 673,05331.

Пример В. Вводимые параметры: f=l,9-10=. Q = 9, С2= 15-10-, Сз = =4,7-10 , «6 = 0. Результаты расчета: «=79,526227-10 =, ПУЧ = 30,42576, «,= =35,3766.56-10=. «4=67,012608-10=, «в = =2,936661-10=, «7 = 3,3333333-10=.

Если задано «6=0, программа присваивает «6 значение 1-10* Ом. Настройка: (1) fp резистором «,, (2) Г (fp)=0 резистором «4, (3) д,, резистором «?.

14. Низкочастотный и высокочастотный с нулем передачи.

T{s) = K(s + о>\/[.9 + ((«p/9p) s -i- <4l

Ri + Rf.

«7«8

(02 =

/(«1+«2У

(«5 + «f.)

зС4«В«6

«6«9(«7 + «8).

для НЧ.

0)2 =

V «,«2СзС4

«7 («8-b«9)

«5

«6«8«9

для ВЧ,

С4 (Сз + С4)(«5 + «б) C4«7(«8-f«9)

«i

«5«6

«1«8«9

«2 «5 «8«9 V «I «6 У

С4 , Сз-f С4«7(«8-Ь«9) / Ci , Сз-f С4\ С3 + С4

9р = С0р

- 1

«7«8

С3С4 L«5 «6«9(«7-Ь«8)

«7«8(«,-Ь«2) 1 Сз«,«2«9(«7 +«8) Г

Программа 7.47.

СЗ -ш-

! ! R5 ! ! С4 -

R1 ! ! ! ! f-- !====!-»-!!-ж------

!

I ! !

--->

01 PRINTРАСЧЕТ ФИЛЬТРА НЧ И ЕЧ С 0 ПЕРЕДАЧИ СРЕДНЕДОБРОТНОГО

03 PRINT

04 PRINT

05 PRINT

06 PRINT

07 PRINT

08 PRINT

09 PRINT

10 PRINT

11 PRINT

12 PRINT

13 PRINT

14 PRINT

15 PRINT

16 PRINT

17 PRINT

18 PRINT

19 PRINT

20 PRINT

21 PRINT

22 PRINT

23 PRINT

I !

-! +

!R6 ! !---

! R9 Ж-!====I-

I-I:

ВЧ-Д> НЧ-Д!

-------Ш ж !

! j

--- ! R8 = !------------ж-!====

I - I

30 1HPUTFZ=F0:INPUTFP=F1JINPUTG!P=Q 40 IHPUTC3=C3:INPUTC4=C4!INPUTKBX=K1 45 INPUTR9=R9

50 PRINTВЫБЕРИТЕ P В ИНТЕРБАЛЕ ОТ 0.1 ДО 8-3

55 INPUTР=Р

60 IF<F1-F0>=0 then 88

70 IFCF1-F0)<>8 THEN 90

80 PRINTПОЛОСА ЗАДЕРШИВАНИЯ ОТСУТСТВУЕТ:goto 30 90 LETX=(1+S6N(F1-F0)>/2 100 LETD=2*#PI*F1:LETN=2«P*Q

110 LET6=<CЗ«D>.Nж(SQR< 1+4«<0-2>жР«< 1+C4/C3))-l) 120 иЕТМ=2ж#Р1жРе

130 LETK0=<UPJ/t 1-K 1-ьС4/СЗ>ж<М-2)ж<<C3"2)/<C-.-2))) 140 IF K1=0 THEN 170

150 LETH=1-<K1/K0) 168 IF H>0 THEN 180

178 LETK=K0:LETR1=1.6!LETR2=1E90:GOTO 190 -

180 LETK=KliLETRl=K0>6/KliLETR2=l/6/H

190 LETR6=<6*< l-bP)«<l-Xz-K) )/<СЗжС4ж<М"2-1)-2> >

208 LETR5=l.(C3«C4*<I)"2)/6-bP/R6>

210 LETHl=Q/Bж<6/CЗ+(CЗ+C4)ж(R5Rб)/CЗ/C4/R5/Rб)

220 LETH2= 1-6Ж( R5+R6> < D"2> /C3/C4/R5/R6