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, Pink, tluste a carkovane. (3b). 

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

Pomoci Maximize[-a*x^2-4*x+5,x] vytvorte funkci, ktera pro zadane a  vraci hodnotu x. (2b) 
Vytisknete graf funkce f(a) pro a∈{1,5},popiste osy, pojmenujte graf a cara tluste a žlutě (1b)
Pomoci Print zobrazte hodnotu funkce v bode a=4 (2b)

Pomoci DSolve vyrešte rovnici x''[t]+4x'[t]+4x[t]==(E^(-2t))Log[t] s pocatecnimi podminkami x(1)=1, x’(1)=0 a hodnotu ulozte do promenne. (2b)
Pomoci Plot vytisknete reseni pro t∈{0,6}, Popiste graf a osy, krivka magenta a carkovane, s GridLines (1b)

Pomoci FullSimplify rozlozte polynom 1024+576 x-8 (x^2)-18 (x^3)+(x^4) na soucin. (1b)

Pomoci VectorPlot[Evaluate[D[Sin[x y],{{x,y}}]],{x,0,1},{y,0,1}] vytvorte vektorove pole a obarvete vektory na červeno  (2b)