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)

par[listodporov_]:=(((Total[(listodporov^(-1))]))^(-1));
ser[listodporov_]:=Total[listodporov];
z1=ser[{par[{(1/(I*ω*c1)),ser[{I*ω*L1,R1}]}],par[{(1/(I*ω*c2)),I*ω*L2,R2}]}];
z2=par[{R3,ser[{(1/(I*ω*c3)),I*ω*L3}]}];
c1=c2=(10^(-6));
c3=(10^(-3));
L1=L3=1;
L2=(10^(-4));
R1=5;
R2=10;
R3=1;
p=(z2/(z1+z2));
LogLogPlot[Abs[p],{ω,0.001,(10^10)},AxesLabel->{"ω [rad.(s^(-1))]","Abs(p)"},GridLines->Automatic,PlotStyle->{Orange,Thick}]
reimp=Re[z1+z2]/.ω->3140//N;
imimp=Im[z1+z2]/.ω->3140.;
Print["Pro ω=3140 rad.(s^(-1)) je realna cast impedance ",reimp," Ω a imaginarna ", imimp," Ω"  ]

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[funkce]
funkce[c_]:=a/.Solve[{a+b+c==1.,a-b+c==1},{a,b}][[1]]
funkce[(5/4)];
list=Table[{d,funkce[d]},{d,0,10,0.2}];
ListPlot[list,AxesLabel->{"d","F(d)"},PlotStyle->{Red,PointSize[0.02]}]

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)

res=DSolve[{2y'[t]-3*y[t]==Sin[t],y[0]==1},y,t][[1]];
fcia=y[t]/.res;
Plot[fcia,{t,-1,1},AxesLabel->{"t","y(t)"},PlotStyle->{Blue,Thick,Dashed}]

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

zaokr=Round[π*(Sqrt[2])];
π*(Sqrt[2])//N;
Print[π*(Sqrt[2]), " = ",zaokr]

Pomoci ParametricPlot[{Sin[12u]Cos[u],Sin[12u]Sin[u]},{u,0,2Pi}] vytvorte kvetinu 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}]