Pokyny: 
*Resení u prikladu v Mathematice je reseni v Mathematice, na rucne 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, hnede, tluste a carkovane. (3b). 
Pro ω = 377 (s^(-1)) vypiste pomocí Print realnou a imaginarní cast impedance (jako desetinna cisla) z pohledu vstupnich svorek zadaneho schematu (1b)

ser[list_]:=Plus@@list;
par[list_]:=(((Plus@@((list^(-1)))))^(-1));
souc={R1->0.01,L1->0.01,L2->0.2,C1->(10^(-6)),C2->0.01*(10^(-6)), C3->10*(10^(-6))};
a=par[{R1,(1/(I*ω*C1))}]/.souc;
Z1=ser[{a,I*ω*L1}]/.souc;
b=par[{(1/(I*ω*C3)),I*ω*L2}]/.souc;
Z2=ser[{b,(1/(I*ω*C2))}]/.souc;

prenos=(Z2/(Z1+Z2));

LogLogPlot[Abs[prenos],{ω,(10^3),(10^6)},AxesLabel->{"ω[rad/s]","Abs[(z2/(z1 + z2))][-]"},PlotStyle->{Brown,Thick,Dashed},GridLines->{Automatic,{0.1,0.5,1.1,1.5,10,100}},PlotRange->All]

N[(1/3),1]

Print["Re[Zin]=",N[Re[ser[{Z1,Z2}]]/.souc/.ω->377]," Ω"];
Print["Im[Zin]=",N[Im[ser[{Z1,Z2}]/.souc/.ω->377]]," Ω"]

Pomoci FindMinimum[Cos[a*x],{x,1}] vytvorte funkci, ktera pro zadane a vraci hodnotu x. (2b) 
Pomocí Table vytvorte list dvojic {(a^2),(Sqrt[f[a]])} pro a∈<0.1, 0.9> s krokem 0.1 . (1b)
Pomoci ListPlot vysledek vytisknete a popiste osy, body zelene a s nastavenou velikosti 0.015. (1b)

ClearAll[a,x]

fce[a_]:=x/.FindMinimum[Cos[a*x],{x,1}][[2]]

fce[5]

{{1,2},{5,6}}[[1,2]]

hod=Table[{(a^2),(Sqrt[fce[a]])},{a,0.1,0.9,0.1}];

ListPlot[hod,PlotRange->All,PlotStyle->{Green,PointSize[0.015]},AxesLabel->{"osa x","osa y"}]

Vyrešte rovnici (9-i)(m^3)+2.3(m^2)+m+3i-1.6=0 (1b)
Jednotlive koreny “m” ulozte do promennych “koren1, koren2, koren3” (1b)
Pomoci prikazu Print vytisknete jednotlive koreny ve tvaru “koren1=...”, ”koren2=...”, ”koren3=...”. (1b)

reseni=Solve[(9-I)(m^3)+2.3(m^2)+m+3I-1.6==0,m];
koren1=m/.reseni[[1]];
koren2=m/.reseni[[2]];
koren3=m/.reseni[[3]];

Print["koren1=",koren1];
Print["koren2=",koren2];
Print["koren2=",koren2];

Pomoci funkce Rationalize najdete zlomek aproximujici Pi s chybou mensi nez 0,001. (1b)
Vysledek zobrazte pomocí Print ve tvaru nahrada=vypoctena nahrada. (1b)
Spoctete chybu nahrady v procentech a vysledek zobrazte pomoci Print jako desetinne cislo. (1b)

aprox=Rationalize[Pi,.001];

Print["nahrada=",aprox]

Print["Chyba:",N[(Pi-aprox)/Pi]*100," %"]

Je dan list {3.5, 10*E^(5*x), -5, 22^(E), -21, v, -45, 70}. Pomoci funkce Count spoctete kolik se v nem nachazi celych cisel. (1b)

Count[{3.5,10*E^(5*x),-5,22^(E),-21,v,-45,70},
_Integer]

Count[{3.5,10*E^(5*x),-5,22^(E),-21,v,-45,70},_Real]