Pokyny: 
*Resení u prikladu v Mathematice je reseni v Mathematice, na rucně pripsane vysledky nebude bran zretel.
*Pred odevzdanim pomocí Cell->Delete All Output smazte vysledky a tak soubor ulozte
* Cvicici s vypnutym Kernelem odevzdany notebook spusti a zkontroluje vystupy. Doporucujeme vyzkouset si spusteni s vypnutym jadrem pred odevzdanim testu.
* Na cvicicim zadany mail zaslete vysledek  pojmenovany test1JmenoPrijmeni.nb
* U uloh "na papire" se klidne rozepiste, proc to, ci ono, podepiste se.

Pro impedancni  delic podle zadaneho schematu vytvorte graf abs. hodnoty prenosu v logaritmickych souradnicich, s GridLines, popisem os se spravnymi jednotkami, cerne a tluste. (8b). 

Pro ω = 1200 (s^(-1)) vypiste pomocí Print realnou a imaginarní cast impedance (jako desetinna cisla) z pohledu vstupnich svorek zadaneho schematu (3b)

ClearAll[Evaluate[Context[]<>"*"]]
par[listR_]:=(((((listR^(-1)))/.List->Plus))^(-1));
ser[listR_]:=listR/.List->Plus;

ser[{1,1}];
par[{3,3.}];

R1=R5=(10^4);
R3=20*(10^3);
R2=150*(10^3);
R4=50*(10^3);
C1=20*(10^(-6));
C2=1*(10^(-3));
L1=20*(10^(-3));
L2=5*(10^(-3));

j=Sqrt[-1];

za=ser[{R1,I*ω*L1}];
zb=par[{za,R2}];
zc=ser[{(1/(I*ω*C1)),zb}];
Z1=ser[{zc,I*ω*L1}];

zd=ser[{R4,(1/(I*ω*C2))}];
ze=par[{zd,I*ω*L2,R5}];
Z2=ser[{R3,ze,(1/(I*ω*C2))}];

prenos=(Z2/(Z1+Z2));
LogLogPlot[Abs[prenos],{ω,(10^(-5)),(10^12)},PlotStyle->{Black,Thick},GridLines->Automatic,AxesLabel->{"ω [(s^(-1))]","P [-]"}]

vstupImp=Z1+Z2/.ω->1200//N;
(* vstupImp=Z1+Z2/.ω->1200. *)

Print["Realna cast impedance je ",Re[vstupImp],"Ω, a imaginarni cast impedance je ",Im[vstupImp] ," Ω."]

Prikazem FindRoot[a*cos(a*x)==(1/(a^2)),{x,a}] vytvorte funkci, ktera pro zadane a  vraci hodnotu x. (4b) 
Pomoci Off zruste chybovou hlasku: FindRoot::lstol(2b)
Pomoci Table vytvorte list dvojic Table[{a,funkce(a)}] od 1 do 10 s krokrem 0.1 (2b)
Pomoci ListPlot zobrazte vytvoreny list a spojte jednotlive body (3b)

f[a_]:=x/.FindRoot[a*Cos[a*x]==(1/(a^2)),{x,a}]
Off[FindRoot::lstol];

f[0.1];

dvojice=Table[{a,f[a]},{a,1,10,0.1}];
ListPlot[dvojice,Joined->True]

Pomoci Solve vyrešte soustavu rovnic a+b+c==k,a+b==1,a+c==6   s parametrem k a neznamymi a,b,c (3b)
Zobrazte graf reseni jednotlivych promennych pro k∈{1,10}, popiste osy a barevne odliste cary a zobrazte mrizku.(3b)

sol=Solve[{a+b+c==k,a+b==1,a+c==6},{a,b,c}];
proPlot={a,b,c}/.sol[[1]];
sol//TreeForm;
Plot[proPlot,{k,1,10},PlotStyle->{{Red,Thick},{Blue,Dashed,Thick},{Green,DotDashed,Thick}},GridLines->Automatic,AxesLabel->{"k","a b c"}]

Pomoci Round zaokrouhlete vyraz Pi*((Sqrt[2])/3) a vysledek zobrazte pomoci Print (2b)

Print["Vysledek je ",Round[Pi*((Sqrt[2])/3)]]

Pomoci IntegerDigits najdete vyjadreni cisla 471 v trojkove soustave. (2b)

IntegerDigits[471,3]