CHARAKTERISTIKY 1"CRT:M3"::"############################### UVOD DO PROGRAMU ###############################":"* KOMPEXNI ANALYZA LINEARNICH OBVODU VERSE V 6.41":"* P , -, , ."{:"* S - , , , .":"* P 2 12, 0."::"* U 0 ,":" 1 ,":" 2 .":"* M 1 0 1V."::"* V -90{ 270{."+C(@):C:F:F1T$:T$"" Z:"########################### SPECIFIKACE BEHU PROGRAMU ##########################"CfC:"BUDETE ZADAVAT UPLNE NOVY OBVOD ( A/N ) ";A$:A$"A" F` A:C:F:F1:Z@:C(Z):0:"SEKCE KONTROLY A ZADANI POCTU UZLU :":ZNJ:"ZADEJTE POCET UZLU ( 2-12 ) ";N:N(N):N N@ 0T(((u@C))):NT V:"TAK MNOHO UZLU NEMUZU POSKYTNOUT !!! MUSEL BYSTE SNIZIT POCET ELEMENTU.":NZF !:D1:F1 E:"CHCETE ZMENIT FREKVENCNI INTERVAL ( A/N ) ";A$:A$"A" D1: I"URCETE TYP FREKVENCNIHO INTERVALU ( PRIVAT/AUTO ) ";B$:F1:B$"PRIVAT" O( );" 10-50000 [H]"::S: SS3:D1 A( );"ZADANI LINEARNIHO FREKVENCNIHO INTERVALU PRIVAT"<:"ZADEJTE POCATECNI FREKVENCI [H] ";S:S  S3S?"ZADEJTE KONECNOU FREKVENCI [H] ";U:U> US K"ZADEJTE PRIRUSTEK FREKVENCE [H] ";V:T(US)H:VT VUS D( );" ";S;" -";U;" H" z:F` ! :"########################### ZADAVANI ELEMENTU OBVODU ###########################":"SEKCE ZADAVANI ELEMENTU OBVODU :":F:Iz:T((uNN)@)::( );"MUZETE ZADAT MAXIMALNE";T;" ELEMENTU":E "ZADEJTE POCET ELEMENTU V OBVODU ";C:C(C):C CT  z::"Z , , ":ZC :"ELEMENT CISLO";Z:"ZADEJTE TYP ELEMENTU ( R,L,C,SOURCE,WIRE ) ";A$:A$"C" :“A$"SOURCE" :“A$"R" :“A$"L" :“A$"WIRE" :€ C"ZADEJTE HODNOTU KAPACITORU V MIKROFARADECH ";T:T *C(I)Tt$:C(I )@: 6"ZADEJTE HODNOTU ZDROJE V MHOS ";T:T #C(I)T:C(I ): ;"ZADEJTE HODNOTU REZISTORU V OHMECH ";T:T *C(I)T:C(I ): >"ZADEJTE HODNOTU INDUKTORU V MILIHENRY ";T:T *C(I)Tz:C(I ): #C(I):C(I )%D1:A$"ZAPOJENI ELEMENTU"0A$;" - Z UZLU ";:E:E(E):E C( );"DO UZLU ";:D:D(D):DE D EN DN 9C(I@):C(I):D1 %C(I@)E:C(I)D: 8C(I)E:C(I)D:C(I ) *D1:A$"RIDICI NAPETI ": F !L II@:::"VSECHNY ELEMENTY OBVODU JSOU ZADANY":z:F1B!F:Z@:C(@Z)Z:: #:JB@ 8 " 4M#:();"T A B U L K A Z A P O J E N I O B V O D U":F2$"CARA":"CISLO";();"TYP";(x);"Z UZLU";(D);"DO UZLU";(p);"HODNOTA":"CARA":Iz:ZC:DC(@C(I)):EC(@C(I)):DE 3%C(I ) '%&A$"REZISTOR":GC(I): 1'C(I ) )(A$"ZDROJ":GC(I): 1)C(I ) +%*A$"INDUKTOR":GC(I)z: 1+C(I )@ /,F2 .-D1 3&.A$"KAPACITOR":GC(I)t$: 1#/A$"DRAT. SPOJ":F2 300Z;" ";A$;(x);D;(D);E: 3O1Z;" ";A$;(x);D;(D);E;(p);G:C(I ) 3a2DC(@C(I@)):EC(@C(I)):(x);D;(D);E;(p);" RIZENI"R3II@::"CARA":( );"TENTO OBVOD MA ZADANO";N;" UZLU":"CARA"::<4"CHCETE OBVOD MODIFIKOVAT ( A/N ) ";A$::A$"N" QV5F:"CHCETE ZMENIT POCET UZLU - NYNI";N;:" UZLU ( A/N ) ";A$:A$"A" J6:"CHCETE ZAMENIT VYSTUPNI UZEL 2 ZA JINY ( A/N ) ";A$:A$"A" C7Y8"ZADEJTE MODIFIKACI ( REPLACE/DELETE/INSERT OR END ) ";A$:JB@:A$"END" Q9A$"INSERT" @I:A$;:" HODNOTU A DATA ELEMENTU CISLO ";Z:Z(Z):Z ZC ::;F:Iz(Z)@:A$"REPLACE" <A$"DELETE" 7 =ZC ?@>T@(CZ):S1T:C(IS1)C(I@S1):?CC: !>@F:T((uNN)@):CT BAA:"NENI JIZ MOZNE ROZSIRIT POCET ELEMENTU !!!":z: !3BCC:Iz(C)@:ZC: \C"ZADEJTE CISLO UZLU, KTERY SE MA STAT VYSTUPNIM UZLEM 2 ";Z:Z(Z):Z@ ZN C2DIz:S1C:C(I) FEC(I)Z: G'FC(I)Z:C(I)GC(I) IHC(I)Z: J'IC(I)Z:C(I)JC(I@) LKC(I@)Z: M'LC(I@)Z:C(I@)MC(I) ONC(I)Z: P'OC(I)Z:C(I)PII@:: !Q:N1N:"########################## VYPOCET ADMITANCNI MATICE ###########################"::F:D1::"CHCETE VYPOCITAT DC ANALYZU OBVODU ( A/N ) ";A$:A$"A":D1R:"PRUBEH KONTROLY ZAPOJENI OBVODU :"::Zz:C(Z)::S2:G(((u@C))):Iz:ZC:T:C(IT)S2 VSC(IT)G UTS2C(IT): VSU( );"CISLO UZLU KOMPONENTU JE VYSSI NEZ VYPOCTENA MEZ !!!":z: !qV:II@::NS2::( );"V DANEM OBVODU JE PROPOJENO";N;" UZLU":Iz:ZC:D1 XWC(I )@ Z6XC(I):C(zC(I)) 6YC(I):C(zC(I)) hZII@::S1N:C(z)H:Iz:ZC:D1:“C(I )@ _[C(I)S1 ^,\C(I)S1 C(I) _5]C(zC(I))C(zC(I)): _E^C(I):C(zC(I))C(zC(I))C_II@:Z,S1:S1:ZN:C(zZ) c`C(zZ) b<a(@);"VOLNY NEPROPOJENY UZEL";Z:S1S1: c3b(@);"NENI PROPOJENI NA UZEL 1 U UZLU";ZRc::S1:(@);"V OBVODU JE";S1;" VOLNYCH NEPROPOJENYCH UZLU !!!"dC({)H geS1 hBf(@);"PROPOJENI V OBVODU JSOU LEGALNI PRO VYPOCET": j?g(@);"UZLY 1 A 2 NEJSOU PROPOJENY SITI ELEMENTU !!!"Eh:"CHCETE POKRACOVAT I ZA CENU CHYBY ( A/N ) ";A$:A$"N" !i:"* S !!! P , !!!":;Kj:Z@:C(@Z)Z::Iz:ZC:D1 lGkA$"DC - ZKRATOVANI INDUKCNOSTI MEZI UZLY":C(I ) nlC(I ) smA$"SPOJENI DRATEM UZLU"?nDC(I):EC(I):(@);A$;D;"A";E:DE poDE:EC(I) pTC(@E):TE:ED:DT=qC(@E)D:TS2:C(@T)E:C(@T)Dr:NNPsII@::ZS2:C(@Z)Z:C(@Z)C(@C(@Z))Kt:D:GS2:E:ZS2:C(@Z)G:Eu:E z vGD y/wZS2:C(@Z)G:C(@Z)DxyDDz:ND{T$:T$"" {f|:();"P R E H L E D S K U T E C N E H O Z A P O J E N I":F2: $:N ~}( );"NEPRIPUSTNA KOMBINACE ELEMENTU V OBVODU !!!":( );"PROTO UPOUSTIM OD VYPOCTU MATICE !!!":D1 =~(@);"UPRAVTE SI ZAPOJENI OBVODU !!!":@: !D1 [S:A$"PRINTOUT":z::( );"D C C H A R A K T E R I S T I K A": U"ZVOLTE ZPUSOB ZOBRAZENI VYSLEDKU ( PRINTOUT/PLOT ) ";A$::A$"PRINTOUT" A$"PLOT" :();"P L O T T I N G C H A R A K T E R I S T I K":"CARA"::"* : [H]"::T1@:T2T1:T3T1:T4T1: ?:();"T A B U L K A C H A R A K T E R I S T I K"t"CARA":"FREKVENCE";(p);"AMPLITUDA";(p);"FAZE":" [H]";();"[B]";(t);"[{]":"CARA"xTNN:ZT:C(Z)::Iz:XC:Z:D2C(@C(I)):D2 'DD2:E2C(@C(I)): DD2C(@C(I)):DD2:E2C(@C(I)):Z@D2E2 #GC(I):C(I ) ED2: :E2 9DE2:EE2: :DD2:GC(I): :DE2:ED2: : Z@:GC(I) ZGEC(@C(I@)): :EC(@C(I)):E GG: Z  DE2:Z:D II@::N   -PNDNE:C(I ) C(P)C(P)G:4TSG:C(I )@:TTC(NNP)C(NNP)T:XNKX:LX:YXK:IC(Y):JC(XXY):YXXXL:PC(Y):RC(XXY):TIPJR:JIRJP:IT:PC(XX):RC(XX):P R:€ TIPJR:JJPIR:IT(PPRR):JJ(PPRR):YXKLX:T(X)KXL:C(T)C(Y)I:C(XXT)C(XXY)J:L,K:XX:T(X):ZXX:C(XXZ)C(TZ)::X ,C(@) C(`) B:( );"CHYBA V REDUKCI MATICE - DELENI NULOU !!!": }TC()C(@)C(@)C(`):JC()C(`)C(@)C(@):IT(C(@)C(`)):JJ(C(@)C(`)):JJII ?T ((JJII)):Z4(JI):D1 A$"PRINTOUT" F@ TT1:T1TTT2:T2TZT3:T3ZZT4 T4Z: wS1(Z1@)(T2T1):T((TT1)S1):S1(Z1@)(T4T3):Z((ZT3)S1):T Z TZ1` ZZ1P S,"MIMO HRANICE": FO:S2Z:S,"I ";:TZ S2T:F : T  (T);TZ F@ "$";: "*";:F ZZTZ:(Z);"#";:F F@:TTZ: '(Z1S2`);"I":F@: '"DC";(p);T;(p);Z: S;(p);T;(p);ZB$"PRIVAT" S:SCO   SSV:SU F@ A$"PRINTOUT" "CARA": F@:"* : * [B]":(@);" : ";T1:(@);" : ";T2::(0);"# [{]":(@);" : ";T3:(@);" : ";T4:Y"ZADEJTE POCET ZNAKU NA RADEK PRO PLOTTING ";Z1:Z1(Z1):Z1 Z1 T1T2 -TT1(T2T1) :T2T2(T2T1) JT1(( T)) }L:T2((T2 )) }L: T1 (T(T1 ):TT1T:T2T2T: T1 :T2 T3T4 qT(( (T3(T4T3) ))) }L:T4(( (T4(T4T3) ))) }L:T3T: T34:T4:"---> : * ":(`);"# ":(`);"$ "::();T1;(Z1`);T2:();T3;(Z1`);T4:();"I";(Z1@);"I"::ZZ1:"-";::B$"PRIVAT" :S: SS3: ZZ1:"-";:::D1 D1:B$"PRIVAT" :S: RSS3: RZ"CHCETE OPAKOVANY PRUCHOD NEBO ZMENU ZADANI ( A/N ) ";A$:F`:NN1:A$"A" `:"################################ KONEC PROGRAMU ########################"######":::'"CARA":Q :"-";::10,20,30,40,50,60,70,80,90,100,200,300,400,500,600,700,800,900,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000,17000,18000,19000,20000,25000,30000,35000,40000,45000,50000,99999