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 ω = 1200 (s^(-1)) vypiste pomocí Print realnou a imaginarní cast impedance (jako desetinna cisla) z pohledu vstupnich svorek zadaneho schematu (1b)

Pomoci FindRoot[{y==Exp[x],a*x+y==2},{{x,1},{y,1}}] vytvorte funkci, ktera pro zadane a vraci hodnotu y. (2b) 
Pomoci Table vytvorte list dvojic Table[{(a^2),funkce(a)}] od 1 do 30 s krokrem 0.5 (1b)
Pomoci ListPlot zobrazte vytvoreny list a body zobrazte s definovanou velikostí a barvou magenta (2b)

Pomoci NDSolve vyrešte soustavu rovnic  x'[t]=y[t]^2+x[t]*y[t],2x[t]^2+y[t]^2=1, pro počáteční podmínku x[0]=0 a hodnoty ulozte do promennych x[t] a y[t]. (2b)
Pomoci ParametricPlot zobrazte x[t] a y[t] na intervalu t∈(0,10) , jednotlivé čáry různě obarvěte udělejte tučně, červeně a čárkovaně s vhodným PlotRange (2b)

Pomoci Select vyberte z množiny {0,1,0.5,2,4,7,6,2} všechny prvky menší, než 5 (2b)