|
Главная -> Справочник по алгоритмам 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 Пример В. Вводимые параметры: f=2,210 Q = l,7, C2 = 2710- Сз = = 15-10-, /??=0. Результаты расчета: Ri = = 1,0132095-10=, «4=12,75383-10=, Rs = = 2,2244192-10=, /С=818,03478-10"=, ПУЧ = =4,4955556. Если задано /?б = 0, то программа присваивает величине Rs значение 1-10 Ом. Примечание. Начальные условия С2=Сз или С2> Сз для низких значений ПУЧ. Среднедобротные фильтры (Q=p<20). 8. Низкочастотный. Т (S) = Kioj/ Is + (шр/р) S -Ь oil, «=«М«2/(Лм+«2), (йр=1/л/«С2/?зС4, 9p=V/?3C2/«,C47[1 + (Ri/R,) - {RbC,/R,C4)], K=\R(Rn + R12)] [1 +(«б/К5)1. ПУЧ = Л/«С2/«зС4[1 -Ь(«б/«5)Г. Программа 7.41. Пример В. Вводимые параметры: f=2,5-10=, Q=7,5, С2=33.10-*, Ci = = 10-10-, ?;=6,8-10 А::х = 1. Результаты расчета: Р = 1,5333078, ПУЧ = 30,935516, =4,7455372-10=, «12 = 7,0119021 -10=, «3=4,3394814-10=, «6 = 4,6021254-10=. Если задано «5 = 0, программа присваивает «в значение 1 • 10 Ом. Настройка: (1) fp резистором «3, (2) Qp резистором «6. 9. Полосно-пропускающий с резистивным входом. Г (S) •= - л: (ор/р) S/ [s4 (а)р/<7р) S+ шЬ «1 = «ii«i2/(«ii -Ь «12), шр = 1 /V«. С2Сз«4 , 9р= V«4C2/«,C3/[1 + (С2/С3) - («4«s/«.«6)], Л:=[«,2/(«,,-Ь«.2)1 др [1 + + (Rb/Rb)] R,Cs/R,C2, ПУЧ = 9р [Ц-(«5/«б)] = л/«4Сз/«,С2. СРЕДНЕДОЕРОТНОГО === сг " I ! R3 ш- I =5===! -ж----- I I \-ж-> I I ж-!====! ! R6 01 PRINTРАСЧЕТ ФИЛЬТРА НЧ 02 PRINT ------ ез PRINT 04 PRINT 05 PRINT 06 PRINT 07 PRINT 08 PRINT 09 PRINT 10 PRIW 11 PRINT 12 PRINT 13 PRINT 14 PRINT 15 PRINT 16 PRINT 17 PRINT 18 PRINT 19 PRINT 28 INPUTFP=FfINPUTQP=6 30 I№UTC2=C2! INPUT C4=C4: INPUT R5= R5 40 ЬЕТР1=<<С2/С4)><36я«0"г)))ж<<80Р<1-И2ж<(3"2)я«1+<:С4.С2))) + 1)-2) 58 PRINTP ДЛЯ ОПТЖАЛЬНОГО ПУЧ PI 68 PRINTВВЕДИТЕ КОД 0,ЕСЛИ Р=РОПТ 78 INPUTВВЕДИТЕ КОД 1/ЕСЛИ Р ДРУГОЕА 80 IF А=е THEN 110 90 IF АО0 THEN 100 180 LETP=Pl!60T0 120 110 ШРиТВВЕДИТЕ PP 120 LETR 1=1 < 2ж#Р I iKFiKSQR < PжС2жС4 ) ): LETR3=PiitR 1 130 IF R5=e THEN LETR5=1E4 140 LETR6=R5iit<<<С4.С)ж< 1+P) )-<80Р<Ря«С4/С2>)ж< l-Q)>> 150 LETK0=l-KR6/R5)!LETX=Oiit<K8-2>iitSOR<C2>PC4) 160 INPUTKEX=Kl!IF K1=0 THEN 180 170 IF <K0-K1)>8 THEN 190 188 LETR8=R1!LETR9=1E90!LETK2=K0! 60T0 280 190 LETK2=K1: LETR8=<K0/K1 )iitRl s LETR9=<K0y<K0-K1))*R1 200 PRINTРЕЗУЛЬТАТЫ РАСЧЕТА. 210 PRINTRU=R8!PR1HTR12=R9!PRINTR3=R3 220 PRINTR6=R6!PRINTK=K2s PRINTПУЧ=X:PRINTP=P 230 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД 240 PRINTT<S>=Kiif<UP-2»<S"2-KWP.Q)«S+UP-2) 250 БОТО 110!END Пример A. Вводимые параметры: f=2,5-10=, Q=7,5, «,2=Ы0"С C2 = = 100-10-, C4 = 15-10-, «;=0. Результаты расчета: P = 2,7457067, ПУЧ = 25,470105, «,,==991,99029, «,2=1-10«, «3 = 2,7237144-10=, «6 = 4,7628799-10 /С= 1,476288 (P = P1 в строке 40 соответствует минимальному ПУЧ). Программа 7.42. Пример А. Вводимые параметры: f=2,3-10=, Q=6, С2=68-10-, Сз=15-10-*, «S=11-10=, к1х=5,Ь. Результаты расчета: Р= 15,215781. ПУЧ =17,804565, «i,= = 1,4128396-10, «12=915,29229, «4 = = 8,4516079-10=, «6 = 2,9995345-10=. == С2 ! ! R4 R12 ! ! -! !- ! ш-! -! -! + ! !--! Ж-! ! -ж-> Пример В. Вводимые параметры: f=2,3-10=, Q=6, С2=15-10--. Сз=3,9.10-, /?б = 0. Результаты расчета: Р= 13,34444, ПУЧ= 18,130512, «,,=2,4766475-10=. /?4 = = 33.049473. /?,2=1-10", /?5 = 2,7368193, К = = 14,234725. Если задано /?б = 0, программа присваивает Rb значение 1-10 Ом. Настройка: (1) /р резистором R,, (2) 9, резистором Rs. 10. Полосно-пропускающий с емкостным входом. T{s) = -K К/9р) s/[s4(wp/9p) s-f (01, С] = C\i-]-C\2, й)р=1/л/С;/?2«зС4, gp=-JC7C,R.,/[l-i- {R3/R2) - (C,Rb/C,Re)], Л:=[С,,/(С,, + С,г11[1-Ь + (Rb/Rb) ] VC,«2/C4«3 . ПУЧ=р {Rb/Rb)VC\R2/C,R3. Программа 7.43. Пример A. Вводимые параметры: F=2,l-10=, Q = 5, С, =68-10". Cl2 = = 15-10-, C4 = 5,l-10-, /?б=15-10=. Результаты расчета: Р = 6,4407124, ПУЧ = = 14,08843, «2=1,4514756-10=, «з = =9,3485371-10=, «5--=4,970735-10=, /(= = 8,6694315. Пример В. Вводимые параметры: f=2,l-10=, Q = 5, С, =27.10-, Ct2 = 0, С4=4,7-10 , «6 = 0. Результаты расчета: «=2,500919, ПУЧ = 16,541822, «2 = =4,2542227 -10=, «з = 10,639466 -10=. «5 = = 4,7745784-10=, /С= 11,196135. Если задано «6 = 0, программа задает «6=1-10* Ом. Настройка: (1) fp резистором «2 или «3, (2) др резистором «5. 11. Высокочастотный. T(s)=A:sV[?4((Op/p)s-bo)?], С, = С,, -\-C\2, шр= 1/л/С,«2Сз«Т, gp=RiCi/R2Ci /[1-t- -Ь(С,/Сз)-(«4«б/«2«8)], /С=(С„/С) [1-К«б/«5)1. ПУЧ = р[1-- •+(«б/«5)]Ч«4Сз/«2С,. 01 PRINTPACHET ФИЛЬТРА ПОП.-ПРОПУСК. СРЕДНЕДОБРОТН. С R-ВХОДОМ 02 PRINT 03 PRINT 04 PRINT 05 PRINT 06 PRINT 87 PRINT 08 PRINT 09 PRINT 10 PRINT 11 PRINT 12 PRINT 13 PRINT 14 PRINT 15 PRINT 1 16 PRINT ! 17 PRINTS 18 PRINT 19 PRINT 20 PRIHT 21 PRINT 30 INPUTFP=F:INPUTQP=Q 40 INPUTC2=C2«IHPUTC3=C3!INPUTR6=R6 50 l.ETPl=C2/C3-<4«<Q-2>>iit<<SQR<l+125ti<Q-2)iit<l+<C3>C2)»-l>-2) 60 PRINTP ДЛЯ ОПТИМАЛЬНОГО ПУЧР1 70 PRINTBBEAHTE КОД О-ЕСЛИ Р=РОПТ 80 INPUTBBEAHTE КОД 1»ЕСЛИ Р ДРУГОЕА 90 IF А=8 THEN 120 lee IF Аое then 110 110 LETP=PliBOTO 130 120 INPUTBBEAHTE PP 130 LETRl=l/<2iii#PI»FitiSQR<P«C2siiC3))sLETR4=PiifRl 140 IF R6=e THEN LETR6=1E4 150 LETR5=R6iif<<l/P)«<l+tC2yC3))-<SQR<C2/P/C3>)«<l/Q)) 160 LETK0=Q*<l+(R5/R6>)iiiSQR(PiiC3/C2) 170 LETX=(l+<R5/R6>>iifK8 180 INPUTKBX=KliIF K1=0 THEN 200 190 1F<K0-K1)>0 THEN 210 200 LETR8=Rl:LETR9=lE90!LETK2=K0i6OTO 220 218 LETK211LETR8=<K0/K1 )жР1 sLETRgtKOz-CKO-Kl))жР1 220 PRINTРЕЗУЛЬТАТЫ РАСЧЕТА. 230 PRINTRll=R8iPRINTR12=R9:PRINTR4=R4 240 PRINTR5=R5!PRINTK=K2:PRINTP=P 250 PRINTny4=X 260 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД 270 PRINTTtS)=-Kiii<WP/Q)«S/tS"2+<WP/Q>«S+WP"2) 280 &OTD 120!ENB
- ! + I !---! ж-I====!- - > ! ! R5 ! ! Программа 7.44. СРЕДНЕДОЕРОТНОГО СП ! ! <--!!-ж- ! ! ! ! С12 === СЗ ! ! ---I !- R4 ! 01 PRINTPACHET ФИЛЬТРА ВЧ 02 PRINT---------- 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 PRIW 16 PRINT 17 PRINT 18 PRINT 19 PRINT 20 PRINT ! 21 PRINT 30 Ihff>UTFP=F!lNPUTQP=Q:INPUTCll=C8 48 INPUTC12=C9:INPUTC3=C3!INPUTR5=R5 50 LETC1-C8+C9 60 ЬЕТР1=С1/СЗ><4ж<а"г)>ж<<80Р<1+12жШ-г)ж<1 + <СЗ/С1>))-1)2) ! ! -!- ! ! ! I---1 I i ! ж-!====!-! R6 R5 01 PRIHTPftCSET *ИЯЬТРА ПОП.-ПРОПУСК. СРЕДНЕДОЕРОТН. С С-ВХОДО« 02 PRINT 03 PRINT 04 PRINT 05 PRINT 06 PRINT 07 PRINT 08 PRINT 0Э PRINT 16 PRINT U PRINT 12 PRINT 13 PRINT 14 PRINT 15 PRINT 16 PRINT 17 PRINT IS PRINT 19 PRINT 20 PRINT 21 PRINT 30 INPUTFP=F!INPUTQP=Q!INPUTC11=C8 40 INPUTС12=C9:INPUTC4=C4:INPUTR6=R6 50 LETCl=C8+C9 60 LETPl=Cl/C4/<36»<Q-2))«<<S6R( 1+12ж<0-2)ж< 1+<C4/C1) ))+l)"2> 70 PRINTP ДЛЯ ОПТИМАЛЬНОГО ПУЧР1 80 PRINTВВЕДИТЕ КОД 0, ЕСЛИ Р=РОПТ 90 ШРиТВВЕДИТЕ КОД Ь ЕСЛИ Р ДРУГОЕА 100 IF А=0 THEN 130 110 IF АО0 THEN 120 120 LETP=Pl!60T0 140 130 1НРиТВВЕДИТЕ PP 140 ЕЕТР2=1/<2Ж#Р1ЖРЖ30Р<РЖС1ЖС4))!ЬЕТРЗ=РЖР2 150 IF R6=0 THEN LETR6=1E4 160 LETR5=R6iif< <C4/C1 )ж< l+P)-< 1/0>ж80Р<РжС4>С1) ) 170 LETK= < C8/C1 > «< 1 + < РБ/Рб ) ) iKQiKSQR < G1 >P/C4 ) 180 LETX=Qiif< < 1+<R5/R6) )"2>iitSQR<Cl/P/C4) 190 PRINTРЕЗУЛЬТАТЫ РАСЧЕТА. 200 PRINTR2=R2!PRINTR3=R3!PRINTR5=R5 210 PRINTK=K:PRINTP=P!PRINT ПУЧ=Х 220 PRINTПЕРЕДАТОЧНАЯ ФУНКЦИЯ ИМЕЕТ ВИД 230 PRINTТ<в>=-Кя«иР/0)жЗ/<3-2+<ЫР/0>жЗ+ЫР-2) 240 бОТО 1305END 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.0308 |
|