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

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

Quiet@Remove["Global`*"];
SetDirectory[NotebookDirectory[]];
R1=1.;
R2=10000;
c=4.7*(10^(-6));
L=0.001;
par:=((Total[((#)^(-1))])^(-1))&;
ser:=Total;
za=ser[{I*ω*L,R1}];
zb=par[{(1/(I*ω*c)),za}];
z2=ser[{R2,zb}];
zc=par[{I*ω*L,R2}];
z1=ser[{(1/(I*ω*c)),zc}];
prenos=(z2/(z1+z2));
LogLogPlot[Abs[prenos],{ω,1,(10^8)},AxesLabel->{"ω [(s^(-1))]","Abs[P] [-]"},PlotStyle->{Red,Thick},GridLines->Automatic,PlotRange->All]
Print["z1+z2[ω=314]= ",z1+z2/.ω->628," Ω"];

Napiste funkci, ktera ma parametry polynom1, polynom2 a celociselne n vraci  roznasobeny soucin polynom1*(polynom2^n) a pro necelociselne n chybovou hlasku (Napoveda: Expand, n_Integer, prednaska cast o funkcich).(5b)
Funkci otestujte pro polynom1=(1 + x + y),  polynom2=(2 - x) a n=3 a vysledek dosadte do promenne vysledek (2body).
Dosazenim realnych pseudonahodnych cisel za x a y do vyrazu (1 + x + y) (2 - x)^3 a do promenne vysledek "overte" spravnost (Napoveda: x, ->, Random[], /.). (3b)

Quiet@Remove["Global`*"];
f[poly1_,poly2_,n_Integer]:=Expand[poly1*(poly2^n)];
poly1=1+x+y;
poly2=2-x;
n=3;
f[poly1,poly2,n]-poly1*(poly2^n)/.{x->Random[],y->Random[]}

V souboru "data0804-2.csv" jsou trojice {t,T1,T2}. Importujte soubor a pomoci FindFit naleznete proklady T1[t] a T2[t] ve tvaru a+b*(E^((-t)/τ)). Nalezene proklady zobrazte pomoci Print. (6b)
Do jednoho grafu zobrazte zadane body a proklady, T1 cervene a T2 modre, s popsanymi osami a GridLines. (2b)

Quiet@Remove["Global`*"];
FileNames["*.csv"];
dat1=Import["data0804-2.csv"]/.{t_,T1_,T2_}:>{t,T1};
dat2=Import["data0804-2.csv"]/.{t_,T1_,T2_}:>{t,T2};
model=a+b*(E^((-t)/(τ+600)));
proklad[data_]:=model/.FindFit[data,model,{a,b,τ},t];
{pr1,pr2}=proklad/@{dat1,dat2};
{t1,t2}=Interpolation[dat1][[1,1]];
zobraz[data_,pr_,barva_]:=Show[ListPlot[data,PlotStyle->{PointSize[0.015],barva}],Plot[pr,{t,t1,t2},PlotStyle->barva]];
Show[zobraz[dat1,pr1,Red],zobraz[dat2,pr2,Blue],PlotRange->All]

Napiste funkci, ktera pro zadany vyraz napise, jak by se anglicky precetl (Napoveda: SpokenString).
Funkci otestujte s pouzitim vyr=3+Exp[-2(x^2)].(1b)
Napiste funkci, ktera ma parametr vyr a s pouzitim predchozi funkce vyraz anglicky precte (1b).

Quiet@Remove["Global`*"];
vyr=3+Exp[-2(x^2)];
f[vyr_]:=SpokenString[vyr];
g[vyr_]:=Speak[f[vyr]];
f[vyr]

Button["Click Here",Speak["fuck you"]]