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_]:=Total[list]
par[list_]:=((Total[(list^(-1))])^(-1))

souc={R1->100,R2->300,R3->1000,C1->1.5*(10^(-6)),L1->10*(10^(-3)),L2->20*(10^(-3))};

Za=ser[{R2,(1/(I*ω*C1))}];
Zb=par[{I*ω*L1,Za}];
Z1=ser[{R1,Zb}];
Z2=ser[{I*ω*L2,par[{R3,(1/(I*ω*C1))}]}];
p=(Z2/(Z1+Z2))/.souc;

LogLogPlot[Abs[p],{ω,(10^(-2)),(10^8)},PlotRange->All,AxesLabel->{"ω ((s^(-1)))","Abs[p] (-)"},GridLines->Automatic,PlotStyle->{Thick,Orange}]

ImpVst=Z1+Z2/.souc;

Print["Realna cast vstupni impedance je ",Re[ImpVst]/.ω->3140," (Ω), imaginarni cast vstupni impedance je ",Im[ImpVst]/.ω->3140," (Ω)."]

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[a,b,c]

Fce[c_]:=a/.Solve[{a+b+c==1,a-b+c==1},{a,b}][[1]]

Fce[8]

Dvojice=Table[{d,Fce[d]},{d,0,10,0.2}];

ListPlot[Dvojice,PlotStyle->{Red,PointSize[0.02]},AxesLabel->{"x","f(x)"}]

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)

ClearAll[res]

res=y[t]/.DSolve[{2*y'[t]-3*y[t]==Sin[t],y[0]==1},y[t],t][[1]]

Plot[res,{t,-1,1},PlotLabel->"Reseni difosky",AxesLabel->{"t","f(t)"},PlotStyle->{Blue,Thick,Dashed}]

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

Round[Pi*(Sqrt[2])]//Print;

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->{Yellow,Thick}]