Pokyny: 
*Resení u prikladu v Mathematice je reseni v Mathematice, na rucne pripsane vysledky nebude bran zretel.
*Pred odevzdanim pomocí Cell->Delete All Output smazte vysledky a tak soubor ulozte
* Cvicicis vypnutým Kernelem odevzdany notebook spusti a zkontroluje vystupy. Doporucujeme vyzkouset si spusteni s vypnutym jadrem pred odevzdanim testu.
* Na cvicicím zadany mail zaslete vysledek ve pojmenovany test1JmenoPrijmeni.nb
* U uloh "na papire" se klidne rozepiste, proc to, ci ono, podepiste se.

Pro impedancni  delic podle zadaného schematu vytvorte graf abs. hodnoty prenosu v logaritmickych souradnicich, s GridLines, popisem os se spravnymi jednotkami, hnede a tluste. (3b). 

Pro f = 314 Hz  a vstupni napeti U1=1+I (V) vypiste pomocí Print realnou a imaginarní cast vystupniho napeti (jako desetinna cisla) (1b)

data={{-4,49},{-3,32},{-2,28},{-1,12},{0,5},{1,8},{2,3},{3,-4},{4,1},{5,1},{6,13},{7,17},{8,22},{9,33},{10,46}};
a/ Vytvorte ListPlot  dat, nastavte AxesLabel, body modre, PointSize[0.02] (1 b)
b/ Pouzitim Fit najdete kubicky proklad dat ve tvaru  a*(x^3)+b*(x^2)+c*x+d   (1b)
c/Vytisknete proklad pro xϵ<-4,10>, barva modra (1 point)
d/ Pouzitim Interpolation definujte a funkci interpolujici data, InterpolationOrder nastavta 2 (1 point)
e/ Vytvorte Plot interpolacni funkce pro xϵ<-4,10>, barva cary cerna (1 point)
f/ Zobrazte vsechny grafy dohromady s Automatic GridLines(1 point)

data={{1,4,77},{2,5,100},{3,6,116},{4,7,143},{5,8,156},{6,9,176},{7,10,204},{8,11,222},{9,12,236},{10,13,260}}.
Cleny dat jsou trojice {k,k-ty proud,k-te napeti}, tedy {k,(Subscript[i, k]),(Subscript[u, k])}
a/ Vytvorte list {((Subscript[u, k])/(Subscript[i, k]))} zobrazte jej pomoci ListPlot. Body maji byt spojene a pocatek souradnic {1,0} (3 points).
b/Spoctete pomoci Mean stredni hodnotu {k*((Subscript[u, k])/(Subscript[i, k]))} a pouzijte Print pro zobrazeni vysledku ve tvaru “mean value = 19.8316” (2 points)