EL.OBVODY ~E4 "****************************************": " UVOD DO PROGRAMU " $ " "0. "KOMPLEXNI ANLYZA LINEARNYCH OBVODOV "08 " VERZE V6. 41 12.1.1988 " B " "L"j "DELKA PROGRAMU:20100 B""t "POLE MATICE : 2100 B"~ C(@) Z @C(Z) Z  " "  " " C FF1  " "  " "0 " PROGRAM POCITA FREKVENCNU A FAZOVU "0 " CHARAKTERISTIKU ELEKTRICKEHO OBVODU "0 " ZOSTAVENEHO Z REZISTORU, KAPACIT "0  " INDUKCNOSTI A NAPETIM RIADENYCH "/" PRUDOVYCH ZDROJOV":  :  " "0( " S ELEMENTI OBVODOV MOZEME PREVADZAT "02 " EDITACNE UKONY - VYMENA, VLOZENIE "0< " VYNECHANIE ALEBO SKRATOVAT VODICOM "0F " POCET UZLOV JE OD 2 DO 12, POCITAME "$P " BEZ REFERENCNEHO UZLU 0. " Z " "0d " UZOL 0 JE REFERENCNY ALEBO ZEM "0n " UZOL 1 JE IMPLICITNE VSTUPNY UZOL "0x " UZOL 2 JE IMPLICITNE VYSTUPNY UZOL "  " "0 " MEDZI UZLY 1 A 0 JE ZAPOJENY ZDROJ "$ " STRIEDAVEHO NAPETIA 1V "  " "0 "VYPOCITANA HODNOTA FAZY JE VZDY Z "0 " INTERVALU -90 AZ 270 " " "0 "***************************************"0 " SPECIFIKACIA BEHU PROGRAMU "( >>> NULOVANIE POLA PRE NOVY OBVOD C 0  " "/ "BUDETE ZADAVAT UPLNE NOVY OBVOD (A/N)";  A$ A$"A"  F`   " " C FF1 Z @C(Z) Z(& >>> ZADANI POCTU UZLOV A KONTROLA 0 " "/:"*SEKCIA KONTROLY A ZADANIA POCTU UZLOV:" D " "NZNX$b "ZADAJTE POCET UZLOV (2-12)";l N vN(N) N X N@ X'T(((u@C))) NT   " "0 " TAK VELA UZLOV NEMOZEM POSKYTNUT !!!! "0 "MUSEL BY SI ZNIZIT POCET ELEMENTOV !!! "NZ F  " ") >>> ZADANIE FREKVENCNEHO INTERVALUD1 F1 H3  " CHCES ZMENIT FREKVENCNY INTERVAL(A/N) ";  A$  A$"A" >*D1 4 p > " "H3R " URCTE TYP FREKVEN.INTER.(PRIVAT/AUTO) "; \ B$fF1 p " "z B$"PRIVAT" 3: " AUTO LOGARITMICKY FREKVENCNY INTERVAL "; " 10-100000 HERTZ " S  SS3 D1 ,:"* ZADANIE LINEARNEHO FREKVENCNEHO " " INTERVALU PRIVAT"; "ZADAJTE POCIATOCNU FREKVENCIU V HERTZ (10 < )" S S   S3S 3$ " ZADAJTE KONECNU FREKVENCIU V HERTZ ";. U8 U>  B US  L 4V " ZADAJTE FREKVENCNY PRIRASTOK V HERTZ ";` Vj T(US)Ht VT L ~ VUS L " "- " PRIVAT LINEARNY FREKVENCNY ITERVAL " S;"-";U;" HERTZ" F` ) >>> KONTROLA PRED ZADANIM ELEMENTU " " " ", " *** ZADAVANIE ELEMENTU OBVODU ***" " " F Iz% T((uNN)@)* " MOZETE ZADAT MAX.";T;" ELEMENTOV"  " "( &2 "ZADAJ POCET ELEMENTOV OBVODU";< C F C(C)P C ( Z CT ( d " " n " ".x "ZADAJ V LUBOVOLNOM PORADI TYP,HODNOTU", "A ZAPOJENIE UZLU PRE VSETKY PASIVNE". "I AKTIVNE ELEMENTY (SUCIASTKY) OBVODU"6 >>> ZADANIE TIPU A HODNOTY ELEMENTU(2720-3130)" Z C " " "ELEMENT CISLO ";Z 2 "ZADAJTE TYP ELEMENTU (R,L,C,SOURCE,WIRE)"; A$ A$"C"   A$"SOURCE" ^  A$"R"  A$"L"  A$"WIRE" 0   1" "ZADAJTE HODNOTU CAPACITORU V MIC.FARAD.";, T6 T  @ C(I)Tt$J C(I )@ T N ^ %h "ZADAJ HODNOTU ZDROJA V MHOS";r T| T ^ C(I)T C(I ) N  * "ZADAJ HODNOTU REZISTORU V OHMECH"; T T  C(I)T C(I ) N  . " ZADAJ HODNOTU INDUKTORU V MILIHENRY"; T T  C(I)Tz C(I ) & N 0 C(I): C(I ):D >>> ZADANI ZAPOJENI UZLU ELEMENTU ( 3150-3460 )N D1X A$"ZAPOJENIE ELEMENTU "b l A$;" - Z UZLU";v E E(E) E b   (();"DO UZLU"; D D(D) ED b  D b  EN b  DN b  C(I@) C(I) D1  C(I@)E C(I)D  \  C(I)E* C(I)D4 C(I ) \ > D1H A$"RIADIACE NAPETIE " R b \ F f II@p Z z " "0 " VSETKY ELEMENTY (SUCIASTKY) SU ZADANE"; >>> TABULKA ZAPOJENI ELEMENTU OBVODU ( 3480-4070 ) F1 F Z @ C(@Z)Z Z  JB@   " " " "/ " T A B U L K A Z A P O J E N I A":F22 "";1$ "CISLO TYP Z UZLU DO UZLU HODNOTA ";.28 "";B LIzV Z C`DC(@C(I))jEC(@C(I))t DE ~ C(I ) A$" REZISTOR"GC(I)  Z C(I ) A$" ZDROJ" GC(I)  Z C(I ) A$" INDUKTOR"GC(I)z  Z C(I )@ 2 F2   D1 A$"KAPACITOR"GC(I)t$ ( Z2A$"DRAT.SPOJ"< F2 F Z;" ";A$;D,E P Z Z;" ";A$;;D,E,Gd C(I ) nDC(@C(I@))xEC(@C(I))  (@);D,E," RIADENIE"II@ Z0 ""1 " TENTO OBVOD MA ZADANE ";N;" UZL(Y/OV)"1 ""  " "  " " @:4 >>> URCENI TYPU MODIFIKACE ( 4090-4400 ), "CHCETE OBVOD MODIFIKOVAT ( N/A )";  A$  " "" A$"N" L ,F6L@ "CHCES ZMENIT POCET UZLOV ? TERAS ";N;" UZLOV (A/N )"; J A$T A$"A" N ^ " "h7r " CHCES ZAMENIT VYSTUPNY UZOL 2 ZA INY (A/N)"; | A$ A$"A"  " "O"ZADAJTE MODIFIKACIU : (REPLACE/DELETE/INSERT OR END)";  A$JB@ A$"END" B A$"INSERT" 4 A$;" HODNOTU A DATA ELEMENTU : CISLO"; Z Z(Z) Z  ZC  FIz(Z)@& A$"REPLACE" 0 A$"DELETE" 4: >>>VYNECHANIE A VLOZENIE ELEMENTU (4420-4580)D ZC vNT@(CZ)X S1 TbC(IS1)C(I@S1) l S1vCC  F%T((uNN)@) CT ""1"NIE JE MOZNE ROZSIRIT POCET ELEMENTOV!!!!"  CCIz(C)@ZC  # >>>ZAMENA UZLA 2 ZA INY UZEL;"ZADAJTE CISLO UZLA KTORY SA MA STAT VYSTUPNYM";  Z Z(Z)* Z@ 4 ZN  >IzH S1 CR C(I) p\C(I)Z f p C(I)Z zC(I) C(I) C(I)Z   C(I)Z C(I) C(I@) C(I@)Z   C(I@)Z C(I@) C(I) C(I)Z   C(I)Z C(I)II@ $ S1 . BL N1N z:-" VYPOCET ADMITANCNEJ MATICE " " " F D16"CHCES POCITAT DC ANALYZU OBVODU : (A/N)"; ( A$2 A$"A" P<D1(F >>>KONTROLA PREPOJENIA EL. OBVODU P" " Z" "-d"* PRIEBEH KONTROLY ZAPOJENIA OBVODU:" n" "x Zz C(Z) ZS2'G(((u@C))) Iz Z C T  C(IT)S2  C(IT)G S2C(IT)  A" CISLO UZLU KONPONENTU JE VYSSIE AKO VYPOCITANA MEDZA"   TII@" Z ,NS2V6"V OBVODE JE PREPOJENYCH ";N;" UZLOV": z:>>>G @IzJ Z CT D1 h^ C(I )@ h C(I) |!rC(zC(I)) | C(I) !C(zC(I)) II@ Z S1S NC(z)H Iz Z C D1  C(I )@ & C(I)S1  C(I)S1 & C(I) &0C(zC(I))C(zC(I))  & C(I) &0C(zC(I))C(zC(I))&II@0 Z : S1DS1N Z NX C(zZ) b C(zZ) -l (@);"VOLNY NEPRIPOJENY UZOL ";ZvS1S1  5 (@);"NIE JE PREPOJ Z UZLU 1 DO UZLU ";Z Z  " " S1 % () ;"V OBVODE JE ";S1;' " VOLNYCH NEPREPOJENYCH UZLOV!" C({)H  S1 0 "PREPOJE V OBVODE SU LEGALNE PRE VYPOCET"  z0 "UZLY 1 2 NIE SU PREPOJENE ELEMENTAMI"; >>> VAROVANI PROGRAMU  " "/  "CHCETE PRACOVAT I ZA CENU CHYBY (A/N)"; * A$4 A$"N" > " ***** "H "SPRAVNOST DALSIEHO VYPOCTU NENI ZARUCENA * POKIAL DOJDE K DELENIU NULOU ALEBO K LOGARITMU ZAPORNEHO CISLA , NIE PROGRAM ALE POCITAC NAHLASI CHYBU A DATA SU STRATENE! *****"::@+p >>> SKRATOVANIE INDUKCNOSTI A SPOJOV z " " Z @C(@Z)Z Z Iz Z C D1 1A$"DC-SKRATOVANIE INDUKCNOSTI MEDZI UZLAMI" C(I )  C(I ) A$"SPOJENIE DROTOM UZLA"DC(I)EC(I)$ (`);A$;D;" A";E:z DE $DEEC(I)$TC(@E). TE L8EDBDTLC(@E)DV T S2` C(@T)E tjC(@T)Dt T~NNII@ Z Z S2 C(@Z)Z &C(@Z)C(@C(@Z)) Z D G S2 E Z S2 C(@Z)G  E Z  E P GD F Z S2( C(@Z)G <2C(@Z)D< ZFDDP GZND d " " n " "0x " P R E H L A D S K U T O C N E H O ";& " Z A P O J E N I A":F2   N ` "NEPRIPUSTNA KOMBINACIA ELEMENTU V OBVODE PRETO UPUSTAM OD VYPOCTU MATICE!!!!!!!":z D1 $? "UPRAVTE SI ZAPOJENIE OBVODU!!!!!!!!!!!":z  $ >>> NADPISY VYSLEDKOV VYPOCTU D1  SA$"PRINTOUT"6"DC -- C H A R A K T E R I S T I K A"::z  B" "ZVOLTE SPOSOB ZOBRAZENIA VYSLEDKU. (PRINTOUT/PLOT)"; 6 A$ @" "T A$"PRINTOUT" ^ A$"PLOT" c)h " P L O T T I G "*m" CH A R A K T E R I S T I K A "/r"" " ""* OSA X : ZADANY FREKV. INTERVAL V HERTZ CAKAJ !"T1@T2@T3@T4@  &5:"T A B U L A CH A R A K T E R I S T I K":0""("FREKVENCIA AMPLITUDA FAZA"/" V HERTZ V DB V STUPNOCH"7"":z8 >>> SESTAVENI ADMITANCI MATICE ( 6950-7520 )&TNN0 Z T:C(Z)D Z NIzX X C bZlD2C(@C(I))v D2  DD2E2C(@C(I))  D2C(@C(I)) DD2E2C(@C(I)) Z@ D2E2  GC(I) C(I ) f ED2   E2  DE2 EE2   DD2 *GC(I) 4  >DE2 HED2 R  \ f Z@ z pGC(I) zZEC(@C(I@))  EC(@C(I)) E  GG   Z  DE2 Z D II@ X N   tPNDNE C(I ) 8$C(P)C(P)G.8TSGIڢB C(I )@ VLTTVC(NNP)C(NNP)T`&j >>>REDUKCIA MATICE NA FORMU 2X2tXN~ K X L XYXK IC(Y)JC(XXY)YXXXL PC(Y)RC(XXY)TIPJRJIRJPITPC(XX)RC(XX) P   R   TIPJR(JJPIR2IT(PPRR)<JJ(PPRR)FYXKXLPT(X)KXLZC(T)C(Y)IdC(XXT)C(XXY)Jn Lx KXXT(X)(X) Z XXC(XXZ)C(TZ) Z X ~" >>>VYPOCTY AMPLITUDY A FAZY C(@)  C(`)  " "/"CHYBA V REDUKCII MATICE DELENIE NULOU"  /TC()C(@)C(@)C(`)/JC(@)C(@)C()C(`)2IT(C(@)C(@)C(`)C(`))2JJ(C(@)C(@)C(`)C(`))" JJII (,T ((JJII))( )6Z(JI)@ D1 !J A$"PRINTOUT" !T F@ &^ >>> ZISTOVANIE ROZSAHU PLOTINGUh TT1 | rT1T| TT2  T2T ZT3  T3Z ZT4 ! T4Z  !>>>PROCEDURA PLOTINGS1(Z1)(T2T1)T((TT1)S1)S1(Z1)(T4T3)Z((ZT3)S1) T   Z   TZ1   ZZ1 0  S," MIMO HRANICE " & ! 0 F : S2ZD S,"";:N TZ v X S2T b F l v T  S1 T " "; S1 TZ  F@ "$"; >! "*"; F >! ZZT Z ! S1 Z " "; ! S1 ! "{";! F >! !F@*!TTZ 4! v >! S1 Z1S2 H! " "; R! S1 \! "" f!F@ p! !#z! >>>TISK VYSLEDKOV DO TABULKY! >>>NAVRAT DO PROCEDUR! "DC ";T ,Z ! ! ! S,T,Z! B$"PRIVAT" !! S! SCO ! ! & !SSV! SU &! F@ |$! A$"PRINTOUT" $"3!"----------------------------------------": "" " " $)" >>>TISK INTERVALU AMPLITUDY A FAZY $"F@%." "* OSA Y: * AMPLITUDA V DB": 8"" "+B" ( );"MINIMALNA AMPLITUDA:";T1+L" ( );"MAXIMALNA AMPLITUDA:";T2 V" " "&`" " { FAZA V STUPNOCH": j" " "+t" ( );"MINIMALNA FAZA :";T3+~" ( );"MAXIMALNA FAZA :";T4 " " " ":"B""ZADAJTE POCET ZNAKOV NA RIADOK PRE PLOTING (3045)"; " Z1"Z1(Z1)" Z1p "" Z14 "%">>>ROZSIRENIE INTERVALU PLOTING" T1T2 #"TT1(T2T1) "T2T2(T2T1) $#T1(( T)) }L% #T2(( T2)) }L # d## T1 P#(#T(T1 ) 2#TT1T <#T2T2T F# #P#T1 Z#T2 d# T3T4 #5n#T(( (T3(T4T3) ))) }L6x#T4(( (T4(T4T3) ))) }L #T3T # ##T34#T4 # " " # " "!#"----> OSA Y : * AMPLITUDA"# " { FAZA"0# " $ ZHODA AMPLITUDY AJ FAZY" # " "$# ( );T1;(Z1`);T2$# ( );T3;(Z1`);T4%# ( );"I";(Z1`);"I"$ Z (Z1 )$ "";:"$ Z$,$ >>>DATA A NAVRATY DO PROCEDUR 6$ " "@$ B$"PRIVAT" h$J$T$ S ^$ & h$SS3 r$ &|$ Z (Z1 )$ "";:$ Z $ " " $ " " $ " "$ D1 %$D1$ B$"PRIVAT" $$$ S $ P $SS3 $ P%.% "CHCETE OPAKOVAT PRIECHOD ALEBO ZMENU";% " ZADANIA (A/N)"; &% A$ 0%F` :%NN1D% A$"A"  N% " "X%Jb% "UKONCENIE EDITACNEHO A OCHRANNEHO PROGRAMU" l% " "<v%"KONIEC PROGRAMU":::: % " "%5% 10,20,30,40,50,60,70,80,90,100,200,300,400,5004% 600,700,800,900,1000,2000,3000,4000,5000,6000-% 7000,8000,9000,10000,11000,12000,140000% 15000,16000,17000,18000,19000,20000,25000+% 30000,40000,55000,75000,100000,99999