FILTRY2 -&A(X)((XX)) ,  B$( ):C$"ZADEJTE UTLUM ":D$"V NEPROPUSTNE OBLASTI ":E$"V PROPUSTNE OBLASTI ":F$"ZADEJTE VYSSI KMITOCET ":G$"ZADEJTE NIZSI KMITOCET "mH$"========================================":I$"DOLNI PROPUST":J$"HORNI PROPUST":K$"PASMOVA PROPUST"QL$"PASMOVA ZADRZ":M$"CEBYSEVOVA APROXIMACE":N$"BUTTERWORTHOVA APROXIMACE" m: X7A(H),B(H),C(H),L(H),G(P)O$(H):P$(H)F:E:,:"* PROGRAM NAVRHNE A VYPOCITA PASIVNIPRICKOVY FILTR L,C PRES NORMOVANOU DOLNIPROPUST MAX.RADU N=25, S MAXIMALNE PLO-CHOU (BUTTERWORTHUV) NEBO IZOEXTREMALNI(CEBYSEVUV) UTLUMOVOU CHARAKTERISTIKOU."R , :"* MUZETE VOLIT FILTR TYPU ";I$;",";J$;", ";K$;" I ";L$;"."n ,:"VOLTE BUTTERWORTHUV FILTR";();"(B)";();"CEBYSEVUV FILTR";();"(C)"  A$8 A$"B" E : A$"C" ();: /":,: E M$ : N$@: "VOLTE :";(0);I$;();"(DP)";(0);J$;();"(HP)";(0);K$;();"(PP)";(0);L$;();"(PZ)" J A$g| A$"DP" F : A$"HP" F: A$"PP" F@: A$"PZ" F : "";: J6 , :,:EM$:N$K`,@:FI$:“FJ$: F@ K$ : L$ CTENI UTLUMU/H$:(0);C$;"B MIN V DECIBELECH",D$" BMI: BMI@"";: T0, :"B MIN = ";BMI;" B":(0);C$;" B MAX V DECIBELECH ":E$7:E"TOTOZNY S MAXIMALNIM ZVLNENIM PRUBEHU"DBAM:BAMBMI"";: D8X,@:"B MAX = ";BAM;" B";(P);H$#b(0):F v, , , VvG$;:  F$;" F1 V MH: ";B$F1:F1"";: 3,:"F1 = ";F1;" MH":(0)FF$;:G$;" F2 V MH":D$;F2:(F)(F2F1)(F)(F2F1) "";: ;,:"F2 = ";F2;" MH":, :H$2OMEGAF2F1:FOMEGAOMEGA:   < (0);"HRANICNI KMITOCTY ";E$;":":G$;"F-1 V MH"A1: A1"";: Q*,:"F-1 = ";A1;" MH":,(:F$;"F+1 V MH":B$;""4B1: B1"";: 4> B1A1 pRF1B1:B1A1:A1F1Pp,:"F+1 = ";B1;" MH":H$:,:"F-1 = ";A1;" MH"/z(0):G$;"F-2 V MH ",D$;(P)0A2:(A2)(A2A1)(A2B1)"";: D,0:"F-2 = ";A2;" MH":(0):F$;"F+2 V MH"1 B2:(B2)(B2A1)(B2B1)"";:  B2A2 )F1B2:B2A2:A2F1: B2A1"";: +FSA1B1:F1FSA2:(F1B2)(A2B1) B2F1: .F1FSB2:A2F1T.,0:"F-2 = ";A2;" MH";(P);"F+2 = ";B2;" MH";(P);H$)8FDB1A1:OMEGA(B2B2A1B1)(FDB2) L 7V(0);"HRANICNI KMITOCTY ";D$;G$;"F-2 V MH"!` A2: A2 "";: `Bt,:"F-2 = ";A2;" MH";(0);F$;"F+2 V MHZ"~B2:B2"";: ~B2A2 F1B2:B2A2:A2F1g,:"F+2 = ";B2;" MH":H$:,:"F-2 = ";A2;(0);G$;"F-1 V MH":E$3A1:(A1)(A1A2)(A1B2)YHEN"";: B,0:"F-1 = ";A1;" MH";(0);F$;"F+1 V MH"0B1:(B1)(B1A2)(B1B2)"";: B1A1 (!F1B1:B1A1:A1F1:B1A2 4(FSA2B2:F1FSA1:F1FSA1:(F1B1)(A1B2) ZFB1F1: nZF1FSB1:A1F1@n,0:"F-1 = ";A1;" MH":"F+1 = ";B1;" MH":H$'xFDB1A1:OMEGAB2FD(B2B2A1B1)8BMI(BMI~k):BAM(BAM~k):E DMO(BMI)(BAM):N((MO))((OMEGA)): lMO((BMI)(BAM)):NA(MO(MOMO)):NB(OMEGA(OMEGAOMEGA)):NNANBN(N)D"VYPOCTENY STUPEN FILTRU N = ";N:"CHCETE JEJ ZMENIT ? (N/A)"!Q$:Q$"N" ^:“Q$"A" <""";:"NOVA HODNOTA N = ";N:(NH)(N) " , 1^"CHCETE UTLUMOVOU CHARAKTERISTIKU ? (N/A)"!hQ$:Q$"N" V :“Q$"A" hJ:H$:,`:"ZADANI FREKVENCNIHO INTERVALU (V MH)"::G$;F3:F3  :F$;:F4:F4F3 ":"FREKVENCNI PRIRUSTEK ";F5:(F5)F4F3 *F5(F5):EPSIBAM:J2:'(@);"VYPOCTENY UTLUM":H$:&H:F6F3F5:F6F4  (DF6F6F5J2:JF6:J1J:J}L Ol(JsQZ)(J}L)JJz:P2$"H": :JJt$:P2$"H": P2$"MH"J;(0);P2$;(F)(F) F &(J1J1A1B1)(FDJ1)I "OA(J1J1A1B1)(FDJ1): 4$J1FD(J1J1A1B1)I  OAJ1FD(J1J1A1B1): 4=(F)(J1F1^ k;)(F)(J1F1E) $ OAJ1F1:FOAOA4OA(OA)>E f HOA(N)% 1RLA g`(EPSI(OAN)): .fOAAB(NA(OA))(NA(OA))pOA !zACN(OA(OAOA))(AC)^ k; 0AB((AC)(AC))((AC)(AC))!LA g`(EPSIAB)(LA(LAt$)t$: /();"NEKONECNO";(p);"B": !();LA;(p);"B"Q$:Q$"N"J2J2Q$"M"J2J2Q$" " Q$:Q$"" K(J2)(J2 )(J2H)J2J2L6(J2)(J2 )(J2H)J2J2L  : Q$:Q$""  8) :"CHCETE VYPOCET UTLUMU PRO NOVE HODNOTY ? (N/A)"$* Q$:Q$"A": :“Q$"N" * >. :"CHCETE ZMENU B MIN, B MAX A KMITOCTOVYCHMEZI ? (N/A)"!8 Q$:Q$"A" :“Q$"N" 8 *= "CHCETE NOVE ZADANI FILTRU ? (N/A)"!> Q$:Q$"A" :“Q$"N" > V  E G KN:G(K)((K)(N)):K: n XW((BAM)):XY((BAM)):BETA((XWXY)(XWXY)):GAMA(BETA(N))(BETA(N))[ KN:A(K)((K)(N)):B(K)GAMAGAMA(KN)(KN)\ KG(K)A(K)GAMA:G(K)A(K)A(K)(B(K)G(K))( KP2 XA(BETA):XB(BETA):XC(XAXB)(XAXB):G(N)XCXC<  , Kn  , :"ZADEJTE IMPEDANCI ZDROJE [OHM] : ";R0:R0 n + ,@:"R = ";R0;" OHMU":H$@ "VOLTE FILTR VE TVARU T-CLANKU NEBO PI-CLANKU (T/P)"1 Q$:Q$"T"G:“Q$"P"G:€ 4 p,@:G"TVAR T":"TVAR PI"- (E)(G)RVR0G(N)- (E)(G)RVR0G(N) E @ * EPSI(BAM):SEPSI(N) KN:G(K)SG(K):K3@ (N(N))(E) h J :, :"PREDPOKLAD SHODNOSTI IMPEDANCE ZDROJEA ZATEZE S CHARAKTERISTICKOU IMPEDANCIFILTRU PLATI POUZE PRO LICHY POCET PRVKU "QT "PRO SUDY POCET PRVKU FILTR SOUCASNETRANSFORMUJE R = ";RV;" OHMU" ^ @h :F , , , " O1Mt$F1:G  * ();I$;(`);"TVAR PI":H$+ IN:I(I) ! C(I)G(I)(O1MR0): |:   L(I)G(I)R0O1M:   I: ) ();I$;(`);"TVAR T":H$+0 IN:I(I) b D L(I)G(I)R0O1MN : v b C(I)G(I)(O1MR0): | v I: " O1Mt$F1:G  ) ();J$;(`);"TVAR T":H$+ IN:I(I)  C(I)(G(I)O1MR0) |:   L(I)R0(G(I)O1M):  I * ();J$;(`);"TVAR PI":H$* IN4 I(I) \ > L(I)R0(G(I)O1M)H : p \ C(I)(G(I)O1MR0) f | p I: , ODt$FD:O2MFS(t$) G .) ();K$;(`);"TVAR T":H$ IN I(I) * L(I)G(I)R0OD:C(I)OD(G(I)O2MR0) : , L(I)R0OD(G(I)O2M):C(I)G(I)(R0OD)   I: *.();K$;(`);"TVAR PI":H$BINLI(I) ~*VL(I)G(I)R0OD:C(I)OD(G(I)O2MR0)j : 1~L(I)R0OD(G(I)O2M):C(I)G(I)(R0OD):  I: ,ODt$FD:O2MFS(t$)G Z)();L$;(`);"TVAR T":H$INI(I) (6L(I)G(I)R0ODO2M:C(I)(G(I)R0OD):   F1(L(I)R0(G(I)OD):C(I)ODG(I)(R0O2M):  FI: *Z();L$;(`);"TVAR PI":H$nINxI(I) ;L(I)G(I)R0ODO2M:C(I)(G(I)R0OD): : 1L(I)R0(G(I)OD):C(I)ODG(I)(R0O2M): IH$Q$:Q$"" 0:"CHCETE ZMENIT IMPEDANCI A TVAR ? (N/A)"!Q$:Q$"A" V :“Q$"N" ""NOVY VYPOCET ? (N/A)"!,Q$:Q$"A" :“Q$"N" ,J|C(I)_[ %(C(I)_[)(C(I)iV) %(C(I)iV)(C(I)sQZ) %(C(I)sQZ)(C(I)}L) P$(I)"F": &C(I)C(I)Y P$(I)"F": &C(I)C(I)c p_AP$(I)"F": &C(I)C(I)m7P$(I)"F": &C(I)C(I)wnP$(I)"F": &/&"C";I;( );"= ";C(I);(`);P$(I)DL(I)_[ %(L(I)_[)(L(I)iV) %(L(I)iV)(L(I)sQY) %(L(I)sQY)(L(I)}L) >O$(I)"H": R%L(I)L(I)Y :O$(I)"H": R%L(I)L(I)c p_A:O$(I)"H": R% L(I)L(I)m7:O$(I)"H": R >L(I)L(I)wn:O$(I)"H"/R"L";I;( );"= ";L(I);(`);O$(I)p  |  X KRESLENI DPAbY :I:X( (N) ):XPXd(G) , ggQ:F"L","C"vII:IN XX Q:F"C","L"II:IN gYXP,Y ,X (G) (G)(N(N)),Y :(N(N))(G) X,Y,X ,Y6 XP,Y,:XP,Y ,((G)(G)(N(N)))X(,Y,:X(,Y ,:X,Y,:X,Y , '"L"3' X,Y,X(Q),Y(Q)2$'X0X@(Q):Y0Y@(Q)B.'A0R(Q):A1R(Q)(Q)8'I1@#B' X0,Y0,,,A0R,A1R4L'X0X0(Q):Y0Y0(Q)V'I14`'X0X0(Q):Y0Y0(Q)6j'X0,Y0,X0(Q),Y0(Q)&k'X8$((L(I)),):X9$O$(I)l'Q[]X,Y ,X8$,,,:[]X@,Y@,X9$,,,:[]X@,Y,X8$,,,:[]X@,Yp,X9$,,,t' ~'"C"2'X,Y,X(Q),Y(Q)V'X8(Q),Y8(Q),X(Q),Y(Q)'X(Q)(Q),Y(Q)(Q),X(Q)(Q),Y(Q)(Q)'X0(Q)(Q),Y(Q)0(Q),X0(Q)(Q),Y(Q)0(Q)&'X8$((C(I)),):X9$P$(I)'Q[]X,Y ,X8$,,,:[]X@,Y@,X9$,,,:[]X@,Y,X8$,,,:[]X@,Yp,X9$,,,'