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, cerne a tluste. (8b). 

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

ClearAll["Global`*"];
par[listR_]:=(((((listR^(-1)))/.List->Plus))^(-1));
ser[listR_]:=listR/.List->Plus;
k=1000.;
R1=300k;
R2=100k;
R3=10k;
R4=100k;
μ=(10^(-6));
c1=1μ;
c2=4μ;
c3=4μ;
m=0.001;
L1=3m;
L2=8m;
L3=9m;
za=par[{R2,(1/(I*ω*c1))}];
z1=ser[{R1,za,I*ω*L1}];
zb=ser[{R4,(1/(I*ω*c2))}];
zc=ser[{R3,I*ω*L2}];
zd=par[{zb,zc,(1/(I*ω*c3))}];
z2=ser[{zd,I*ω*L3}];
prenos=(z2/(z1+z2));
LogLogPlot[Abs[prenos],{ω,0.1,(10^9)},AxesLabel->{"ω [(s^(-1))]","Abs[p]"},PlotStyle->{Black,Thick},GridLines->Automatic]

zvstup=z1+z2/.ω->1200;
Print["Re[z]=",Re[zvstup],"Ω,  Im[z]=",Im[zvstup],"Ω"]

Prikazem FindRoot[a*Cos[a*x]==(1/((a^2)+1)),{x,a}] vytvorte funkci, ktera pro zadane a  vraci hodnotu x. (4b) 
Pomoci Off zruste chybovou hlasku: FindRoot::lstol(2b)
Pomoci Table vytvorte list dvojic Table[{a,funkce(a)}] od 1 do 10 s krokem 0.1 (2b)
Pomoci ListPlot zobrazte vytvoreny list a spojte jednotlive body (3b)

ClearAll["Global`*"];
f[a_]:=x/.FindRoot[a*Cos[a*x]==(1/((a^2)+1)),{x,a}];
Off[FindRoot::lstol];
listDvojic=Table[{a,f[a]},{a,1,10,0.1}];
ListPlot[listDvojic,Joined->True]

Pomoci Solve vyrešte soustavu rovnic a+b+c==k,a+b==1,a+c==6   s parametrem k a neznamymi a,b,c (3b)
Zobrazte graf reseni jednotlivych promennych pro k∈{1,10}, popiste osy a barevne odliste cary a zobrazte mrizku.(3b)

Pomoci Round zaokrouhlete vyraz Pi*((Sqrt[2])/3) a vysledek zobrazte pomoci Print (2b)

Pomoci IntegerDigits najdete vyjadreni cisla 471 v trojkove soustave. (2b)