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. (3b). 

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

R1=1*(10^3);
R2=1;
R3=1;
L1=0.1*(10^(-6));

c1=100*(10^(-12));
c2=0.1*(10^(-6));
par[list_]:=(((Plus@@((list^(-1)))))^(-1));
ser[list_]:=Plus@@list;

z1=par[{(1/(I*ω*c1)),ser[{R2,par[{I*ω*L1,R1}]}]}];
z2=ser[{R3,(1/(I*ω*c2))}];
prenos=(z2/(z1+z2));
LogLogPlot[Abs[prenos],{ω,0.1,(10^15)},PlotRange->All,PlotStyle->{Thick,Yellow,Dashed},GridLines->Automatic,AxesLabel->{"ω [(s^(-1))]","prenos [-]"}]

zin=z1+z2/.ω->314.;
Print["Re[zin]= ",Re[zin]," Ω  Im[zin]= ",Im[zin]," Ω"];

Pomoci FindRoot[Cos[a*x]==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,2> s krokem 0.1 . (1b)
Pomoci ListPlot vysledek vytiskněte a popiste osy, body cervene a s nastavenou velikosti. (1b)

Vyrešte rovnici 6(x^3)+2(x^2)+x+1=0. (1b)
Pomoci Chop odstrante "skoro nuly" (1b)
Vypoctete hodnoty vyrazu 3*(x1+x2+x3) a 6*x1*x2*x3 a vysledky zobrazte pomoci Print (1b)

Pomoci funkce Rationalize najdete zlomek aproximujici odmocninu ze dvou s chybou mensi nez 0,01. (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)

Je dan list {3, 10, -5, 22, -21, 42, -45, 70}. Pomoci funkce FindSequenceFunction uhodnete dalsí clen posloupnosti. (1 b)