LC I8&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"7A(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" h0r"(T).....TABULKOVA FORMA":"(G).....GRAF">|Q$:Q$"T"GR:LG:“Q$"G"GR: |AGRX(L),Y(L):Z$"GRAF =F()":Y$" [B]"AGR :"(L).....LINEARNE":"(G).....LOGARITMICKY"2Q$:Q$"L"LG:“Q$"G"LG: SI::H$:,`:"ZADANI FREKVENCNIHO INTERVALU (V MH)"::G$;F3:F3  :F$;:F4:F4F3 -GR:"FREKVENCNI PRIRUSTEK ";IGRLGF5(F4F3){# >: :F5(F4F3)H: F5*F5(F5):EPSIBAM:J2:2GR(@);"VYPOCTENY UTLUM":H$:,! GR"CEKEJTE PROSIM 16 VTERIN"+&H:LGF6F3F5:F6F3F5:(F6F4)(IL)  %DLGF6F6F5J2:F6F6F51IJF6:J1J:J}LKO:P2$"MH": 4l(JsQZ)(J}L)KOz:P2$"H": KOt$:P2$"H"$GRJKO;(0);P2$;IX$P2$:K1KOGRX(I)JK1(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$: WGR();"NEKONECNO";(p);"B": :Y(I)z:II: :EGR();LA;(p);"B":Y(I)LA:II: :Q$:Q$"N"J2J2Q$"M"J2J2Q$" " Q$:Q$"" K(J2)(J2 )(J2H)J2J2L6(J2)(J2 )(J2H)J2J2L  :* GRX$" ["X$"]": N: )  Q$:Q$""  8) :"CHCETE VYPOCET UTLUMU PRO NOVE HODNOTY ? (N/A)"$* Q$:Q$"A": r:“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$:F (:"CHCETE SCHEMA ZAPOJENI ? (A/N)"1Q$:(Q$"A")(F@): X:“Q$"N" 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 DP], AbY :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$,,,'% N * PROGRAM GRAFU Y(I)=F[X(I)] *2*N:EEY():FFY(): IL4NY(I)EEEEY(I): HN>NY(I)FFFFY(I)!HNI:EES0: \N RNSFFEE\N"CRT:M3"&fN:,:,ppN * NAKRESLENI OSY X A Y *0zN,H,,;, ,;0NI :I,<,I,:3NI:I>  :I,=,I,9NI:IX+N,I,,I:ICN( (Z$)@), ,Z$,@,,N * POPIS OSY X *RNAX():BX(L):LGC(BA) :C (~L(BA))NI 6N((A)CP)((A)wn)((A)><d) NN (A)><dANQ$((A),@):NDT(((Q$))):IDT,@:Q$;: O'NI,@:"##.##^^^^";A;'OI,@:"##.##^^^^";A;OLGAAC:žAACOIO * POPIS OSY Y *$OD(FFEE) :JEE.OI8@O8O((J)CP)(((J)><d)((J)wn))Q$((J),@):€ VOBO (J)><dQ$"0"LOP(Q$),I:Q$: `OVO,I:"##.##^^^^";J `OJJD:IjO * NAKRESLENI GRAFU *&tODFFEE:AX():CX(L)AA~OIH:LGP(X(I)A)C:Q(X(I)A)CpOLGP(X(I)X())(X(L)X()):Q(X(I)X())(X(L)X())(OPPH:QQH'OR(Y(I)EE)D:T(Y(I)EE)D*ORR ;:TT ;O P,R,Q,T:IO * NAZVY OS A MRIZKA *OI>  "OJX;:I,J"OJ:I:IX+"OJ  :J,I OJ:I7OQ(((Y$))):Q,:Y$7OQ(((X$))):Q,0:X$ OQ$:Q$"" O:"CRT:M1":