|
Главная -> Справочник по алгоритмам 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 [62] 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 4. Высокочастотный. Т (S) =Ks/[s+{/q,) s + wlL / а; =i\s / [S--i- ttOg/i?pj s-t-uai kjCii + +C,2, Wp=lHC,R2C-iRi. др=ЫЯХиШГз/(\ + +с,/Сз), л:=с,,/(с„+с,2), пуч=9[1 + +(Сз/С,)]. Программа 7.37. о,„ = 1 /CCaRt. 2 [ (1 ?4C2) + (1 /Л,Сз) 1 = == (1 ?lC2) (/?5 ?в). Ш PRINTPACHET ФИЛЬТРА ВЧ 82 PRINT ---------- 83 PRINT ! 84 PRINT 85 PRINT I 86 PRINT ! 87 PRINT 88 PRINT- 89 PRINT 10 PRINT 11 PRINT 12 PRINT 13 PRINT 14 PRINT 15 PRINT ! - !- 16 PRINT 17 PRINT НИЗКОДОБРОТНОГО ! R2 I CU I C3 II I II <--ii-Ж-ii- II I ! ! C12 === R4 ! i I -! - i ! i---i 20 INPUTFP=F!INPUT6P=Q 38 INPUTC3=C3!INPUTС11=C8!INPUTС12=C9 40 LETCl=C8+C9s LETP=Q2ж<2+ <СЗС1> + < С1C3)) 58 LETR2= 1><2ж#РI nmSQR<P*C 1 *C3) ) s LETR4=PiitR2 60 LETX=QiitSQR<PiitC3Cl> sLETK=C8C1 70 PRINTРЕЗУЛЬТАТЫ РАСЧЕТА 88 PRINTR2=R2!PRINTR4=R4:PRINTK=К 90 PRINTПУЧ=Х 188 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД 110 PR I NT Т < S )=Кж < S-2 ) < S-2+ < WPQ ) жЗ+ЫР"г ) 120 END Пример A. Вводимые параметры: F=2,5.10=, Q=l,5. -C„ = 100-10-*, Ci2= = 15-10", Сз=-!5-10~. Результаты расчета: /?2=326,47168, /?4 = 7,1965712-10=. К= = 869,56522-10-=, ПУУ = 2.5434783. Пример В. Вводимые параметры: F=2,5-!0=, Q=l,5, Си =27-10-, Ct2=0, Сз=15-10-, К=1. Результаты расчета: /?2= 1,0105076-10 /?4 = 9,9029742-10\ К=1, ПУЧ=3,5. 5. а) всепропускающий Q=0,5; б) все-пропускающий Q=-0,5. Т, (S) = [s- ((Ор/9р) s + w?] / [s«+ s + 7V?s) = - [s - (<р/Чр) s + to?] / [s + + ((0p/9p)s + u)], R,=Rt+Rs. Cs==C,Cj/(C + Cg), = 1 /iRiRiCsa = 1 /л ?««бС, Cj, 9p=l/wp (RiCs+RsCi). Программа 7.38. Пример A. Вводимые параметры: f=2,5-10=, Q=300-10-=, С, =68-10-, C2 = = 6 8-10-, Сз = 15-Г0-. Результаты расчета: /?4 = 8,0381583-10=, /?5 = 5,4374616-10=, /?б=650,41967, /?7= 1,6960889-10=, Re = = 25,76939-10=, /?9==319,1209. Пример В. Вводимые параметры: f=2,5-10=. Q=300-10-=, С, =27-10-, С2=6,8-!0-, Сз = 27-10-. Результаты расчета: /?4=5,2115421-10=, /?5 = 5,3024215-10=, /?б = 2,0995252-10=, /?7 = 1,0667594-10=, Re = = 25,90443-10=, «9=818,44118. 6. Всепропускающий. (s) = Примечание. Начальные условия С2=Сз или С2> Сз для низких значений ПУЧ. Программа 7.39. Пример А. Вводимые параметры: F = 2,3-10=, Q=l,6, С2=10-10-\ Сз = = 10-10-, /?б=6,8-10=. Результаты расчета: /?, =2.1624313-10=, /?4=22,143296.10Л /?в = = 2.65625-10=, /(=719,10112-10-=, ПУЧ = = 5,12. Пример В. Вводимые параметры: F=2,3-10=, Q=l,6, C2 = 22•10- Сз = = 10-10-, /?б = 0. Результаты расчета: R\ = = 1,3515196-10=, /?4 = 16,104216-10=, /?в = = 5.3710938-10=, Сз=650,57179-10-=, /?б = = 3,7236364. Если значение Re, задано равным О, программа присваивает ему подходящее значение i?6=l-10* Ом. 7. Полосно-заграждающий. Т (S) = К /[s-Ь ШЯр) +<1] l/ГRC2CзR,, {I/R4C2) + {I/R4C3) = = (1 ?>С2) (/?5 ?б). , <?р=л/№.7(л/С27сз+:5) /(=/?а/№-Ь + Re), ny4 = 9pV3 ?iC2. Программа 7.40. Пример А. Вводимые параметры: f=2,2-10=, Q=l,7, Сг=15-10-, Сз= = 100-10-, i?J = 22-10-. Результаты расчета: /?, = 370,04172, /?4 = 9,4287247-10=, «5 = =992,92914, /(=956,81589-10-=, ПУЧ = = 22,156667. -ш-! ! = !-! !---! -ж-у ---- i =:=I==3 I ! R9 <-ж-{===[-ш- ! 0Ь> ! ! C2 -! !------ж- I I I 1-Ж-> + ! 01 PRINTРАСЧЕТ ФИЛЬТРА ЕСЕПРОПУСКАКШЕГОСQ=+0.5 02 PRINTВАРИАНТ 1 03 PRINT R0 04 PRINT -!====! 05 PRINT ! 06 PRINT ! OV 07 PRINT R0 ! ----- 08 PRINT -----!====!-----------Ш 89 PRINT ! !! CI !! C2 10 PRINT <-ж-n----ж-----1. ! 11 PRINT ! !! ! !! 12 PRINT ! ! 13 PRINT !-!====!-!---ж-!== 14 PRINT R4 . ! R5 15 PRINT - ! 16 PRINT R6 ! ! === C3 17 PRINT ! ! ! 18 PRINT - ! 19 PRINT ! ! 20 PRINT ------ sINPUT X 21 PRINTPACHET ФИЛЬТРА ВСЕПРОПУСКАИШЕГО С Q=-0.5 22 PRINTBAPHAHT 2 23 PRINT R0 24 PRINT -!====! - 25 PRINT 26 PRINT 27 PRINT 28 PRINT 29 PRINT 30 PRINT 31 PRINT 32 PRINT ! !! C3 ! ! 33 PRINT - ----.---ж-(====!-! 34 PRINT !! ! ! R8 35 PRINT ! 36 PRINT CI === ! ! R7 37 PRINT ! ! ! 38 PRINT ! 39 PRINT ! ! 40 PRINT ------ 50 INPUTFP=FsINPUTQP=Q 60 INPUTС1=С1!INPUTC2=C2:INPUTC3=C3 70 иЕТН=1-<<С1+Сг)*<С2+СЗ)ж4ж6-2>/С1>СЗ 80 IF H>0 THEN 110 98 PRINTФИЛЬТР HE РЕАЛИЗУЕМ.ВВЕДИТЕ НОВЫЕ СЬС2,СЗ.sGOTO 100 100 PRINTС1=СЗ>=Сгж2жС/<1-2ж0):60Т0 60 110 LETR4=< 1+SQR<H>)/<гжгж#Р1жРжСж<С2+СЗ>) 120 LETR5= <С1+C2 > /- < Р4ж < 2ж#Р I жр)•2ЖС1ЖС2ЖСЗ ) 138 LETR6= 1 /- < < 2ж#р I ЖЕ ) "2жС 1 жС2« < R4+R5 > > 140 LETR7=<l-SQR<H))/<2жгж»PlжFжQ«<C2+CЗ>) 158 LETR8= < С1+С2 > < R7* < 2ж#РI ЖЕ )"гжС 1 жС2!*СЗ ) 160 LETRЭ=l/<<2ж#PIжF)"2жClжC2ж<R7+R8>> 178 PRINTРЕЗУЛЬТАТЫ РАСЧЕТА,. 1S0,PRINTR4=R4:PRINTR5=R5 S PRINTR6=R6 190 PRINTR7=R7iPRlNTR8=R8!PRINTR9=R9 200 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ДЛЯ ФИЛЬТРА С Q=+0.5 210 РР1НТТ<8)=<8-2-<иР/е)ж8+иР"г>/<5-2+<«Р>0>жЗ+иР2> 220 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ДЛЯ ФИЛЬТРА С Q=-0.5 230 PRINTT<S>=-<S-2-<WPQ>«S+WP"2>/<S"2+<UP/Q)«S+UP-2) 240 END 01 PRINTPACHET ФИЛЬТРА ВСЕПРОПУСКАИШЕГО 02 PRINT 03 PRINT 04 PRINT 05 PRINT 06 PRINT 07 PRINT 08 PRINT 89 PRINT 10 PRINT 11 PRINT 12 PRINT 13 PRINT 14 PRINT 15 PRINT 16 PRINT 17 PRINT IS PRINT НИЗКОДОБРОТНОГО j----! ~= ! 20 INPUTFP=F!INPUTQP=Q 30 INPUTC2=C2« rNPUTC3=C3!INPUTR6=R6 40 LETP=G!-2*<2+<C2/C3>+<C3/C2)) 58 LETRl=l><2iit#PIiitFiitSQR<Pii!C2iifC3>> 68 LETR4=PiitRl: LETX=Q*SQR<P«C3/C2) 70 IF R6=0 THEN 108 80 LETR5=R6iit<l+<C2/C3>)iit2/P 90 LETK=R6/<R5+R6>! GOTO 118 . 100 LETR6»1E4 lie PRINTРЕЗУЛЬТАТЫ РАСЧЕТА 120 PRINTRl=Rl:PRrNTR4=R4 130 PRINTR5=R5!PRINTK=K 140 PRINTny4=X 150 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД 166 PRJNTT<S>=Kiit<S2-<UP/Q)»S+WP"2)/<S"2+<WP/e>«S+UP"2) 170 END Программа 7.40. 01 PRINTPACHET ФИЛЬТРА П0Я0С.Н0-ЗАГРА!*1ДАЮЩЕГ0 НИЗКОДОБРОТНОГО R6 ! ! I I 82 PRINT ---------ж- 03 PRINT ! ! 04 PRINT ! 05 PRINT C2 === ! ! R4 06 PRINT ! ! . 07 PRINT ! C3 - 0У 08 PRINT Rl ! ! ! ! ----- 09 PRINT <-»-!====!-ж---!!---ш----!- ! 18 PRINT ! ! ! ! ! 11 PRINT !----!====!-------Ш----!+ l-ш 12 PRINT R5 ! !--! 13 PRINT 14 PRINT 15 PRINT 16 PRINT 17 PRINT !• 18 PRINT .. 20 INPUTFP=F!INPUTQP=e 30 INPUTC2=C25INPUTC3=C3!INPUTR6=R6 40 LETP=Q-2*<2+<C2>C3) + <C3/C2)) 50 LETRl=l/<2iit#PIiitFiitSQR<PiitC2iitC3) ) 60 LETR4=PiitRl:LETX=eiitSQR<P»iC3>C2) 78 IF R6=0 THEN 100. 80 LETR5=R65ti<l+<C2>C3))>P 90 LETK=R6/<R5+R6)!60T0 110 100 LETR6=1E4 lie PRINTРЕЗУЛЬТАТЫ РАСЧЕТА 120 PRINTRl=Ri:PRINTR4=R4 130 PRIHTR5=R5!PRINTK=K 140 PRIHTny4=X 150 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД 160 РК1МТТ<:8)=Кя«8"2+ЫР-2)/<8"2+<ЫР>е)ж8+ЫР"2) 170 END 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 [62] 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 0.0073 |
|