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

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

ClearAll["Global`*"]
ser[list_]:=Plus@@list
par[list_]:=(((Plus@@(1/list)))^(-1))
R1=R2=50;
C1=1*(10^(-6));
C2=50*(10^(-3));
L1=1*(10^(-3));
L2=20*(10^(-3));
R3=R4=100;
Za=ser[{R1,(1/(I*ω*C1))}];
Zb=par[{Za,R2}];
Z1=ser[{Zb,I*ω*L1}];
Zc=ser[{R4,I*ω*L2}];
Zd=par[{Zc,(1/(I*ω*C2))}];
Z2=par[{Zd,R3}];
Prenos=(Z2/(Z2+Z1));

LogLogPlot[Abs[Prenos],{ω,10,(10^7)},PlotRange->All,PlotStyle->{Thick,Orange},AxesLabel->{"ω ((s^(-1)))","Abs (P) (-)"},GridLines->All,PlotLabel->"Prenos"]

Print["Reálná část přenosu je: ",Re[Z2+Z1]/.ω->100.*π," Ω","Imaginární část přenosu je: ",Im[Z2+Z1]/.ω->N[100*π]," Ω"]

Pomoci Solve[{a+b+c==1.,a-b+c=1},{a,b}] vytvorte funkci, ktera pro zadane c vraci hodnotu korene a. (2b) 
Pomoci Table vytvorte list dvojic {d, F(d)}  (1b)
Pomoci ListPlot vysledek vytisknete a popiste osy, body cervene a s nastavenou velikosti. (2b)

ClearAll["Global`*"]
funkce[c_]:=a/.Solve[{a+b+c==1.,a-b+c==1},{a,b}][[1]]

funkce[5]

Dvojice=Table[{d,funkce[d]},{d,1,5}];
ListPlot[Dvojice,PlotStyle->{PointSize[0.02],Red},AxesLabel->{"d","F(d)"}]

Pomoci DSolve vyrešte rovnici 2y'[t]-3*y[t]==Sin[t] s pocatecni podminkou y(0)=1 a hodnotu ulozte do promenne. (2b)
Pomoci Plot vytisknete reseni pro t∈{-1,1}, Popiste graf a osy, krivka modre, tluste a carkovane (1b)

Prom=y/.DSolve[{2y'[t]-3*y[t]==Sin[t],y[0]==1},y,t][[1]];
Plot[Prom[t],{t,-1,1},PlotRange->All,PlotStyle->{Thick,Blue,Dashed},AxesLabel->{"x","F (x)"},PlotLabel->"Graf"]

Pomoci Round zokrouhlete vyraz Pi*(Sqrt[2]) a vysledek zobrazte pomoci Print (1b)

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

Pomoci ParametricPlot[{sin[12u]cos[u],sin[12u]sin[u]},{u,0,2Pi}] vytvorte obrazec a pomoci PlotStyle zmente barvu na zlutou a tluste cary (2b)

ParametricPlot[{Sin[12u]*Cos[u],Sin[12u]*Sin[u]},{u,0,2Pi},PlotStyle->{Thick,Yellow}]