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 uhlu prenosu v logaritmicko linearnich souradnicich v rozsahu ω∈{0.01,(10^8)}, s GridLines, popisem os se spravnymi jednotkami, barvou magenta a tluste. (3b). 

Pro ω = 377 (s^(-1)) vypiste pomocí Print realnou a imaginarní cast impedance (jako desetinna cisla) z pohledu vystupnich svorek zadaneho schematu se spravnymi jednotkami(1b)

par[list_]:=((Total[(list^(-1))])^(-1));
ser[list_]:=Total[list];
za=ser[{R1,I*ω*L1}];
zb=par[{za,(1/(I*ω*C1))}];
zc=ser[{zb,(1/(I*ω*C2))}];
z1=zc;
z2=par[{(1/(I*ω*C3)),I*ω*L2}];
prenos=(z2/(z1+z2));
dos={R1->10,C1->100*(10^(-6)),C2->1*(10^(-3)),C3->10*(10^(-6)),L1->100*(10^(-3)),L2->4.7*(10^(-3))};
proTisk=Abs[prenos/.dos];
LogLogPlot[proTisk,{ω,0.01,(10^8)},PlotRange->All,AxesLabel->{"ω [(s^(-1))]","Abs[P[ω]]"},GridLines->Automatic,PlotStyle->{Magenta,Thickness[.006]},PlotPoints->1000]

zVystupni=par[{z1,z2}]/.dos/.ω->337;
Print["Zvystupni pro ω=337 (s^(-1)) je: ",zVystupni," Ω" ]

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 modre (1b)
Pomoci Print zobrazte hodnotu funkce v bode a=11 (2b)

f[a_]=x/.Maximize[-a*x^2-4*x+5,x][[2]];
Plot[f[a],{a,1,5},AxesLabel->{"a","f[a]"},PlotStyle->{Blue,Thick},PlotLabel->"graf"]
Print["f[11]= ",f[11]]

Pomoci Solve vyrešte soustavu rovnic (Sqrt[a])+b=k,10a+(b^2)=30,a-6c=8   s parametrem k a neznamymi a,b,c pro prvni cast reseni (2b)
Zobrazte graf reseni jednotlivych promennych pro k∈{-10,10}, popiste osy a barevne odliste cary a zobrazte mrizku.(2b)

res=Solve[{(Sqrt[a])+b==k,10a+(b^2)==30,a-6c==8},{a,b,c}][[1]];
Plot[Evaluate[{a,b,c}/.res],{k,-10,10},PlotStyle->{Red,Green,Blue},AxesLabel->{"k"," a b c "},GridLines->Automatic,PlotRange->All]

Pomoci Plot zobrazte funkci ((sin(t)*(Sqrt[Abs(cos(t))]))/(sin(t)+(7/5)))-2sin(t)+2 v mezich  pro t∈{0,10}, zobrazte cerne a tluste(2b)

Plot[((Sin[t]*(Sqrt[Abs[Cos[t]]]))/(Sin[t]+(7/5)))-2Sin[t]+2,{t,0,10},PlotStyle->{Thick,Black}]