(* ZDE ZAČÍNÁ 1.CVIČENÍ 22.2.2017*)
(* takto vypadá komentář *)
1+1

(Sqrt[2])

N[(Sqrt[2])]

(Sqrt[8])

(Sqrt[8.])

(124/36)

(2^5)

αβγ
Sin[(π/5.)]

Pi

N[E]

I

((a+b)*(a-b)+1)

{1,2,3}*{a,b,c}

{1,2,3}.{a,b,c}

{1,2,3} {a,b,c}

a=3

a

a+2

a+b

fakulta je excelentna

fakulta*je*excelentna

napeti1

1napeti

?=

a=5+6

a:=5+6

a

a=Random[]

?a

{a,a,a}

a:=Random[]

?a

{a,a,a}

ClearAll[a]

a=5+6;

b=a*(∫_1^x)((Sin[x])/x)\[DifferentialD]x

b/.x->1.5

reseni=Solve[(x^2)+4x-16==0,x]

reseni[[1,1]]

x/.reseni[[1,1]]

5==4x

ClearAll[a]
ClearAll[b]

Solve[a*(x^2)+b*x+c==0,x]

Sin[π]

π//Sin

Sin@π

(*Tu je text komentara*)

Plot[{100*Sin[x],100*Tanh[100*Sin[x]]},{x,0,8π},AxesLabel->{"time [s]","Voltage1 [V]
Voltage2 [V]"},PlotStyle->{{Blue,Thick},{Red,Dashed}}]

??Plot

(* ZDE ZAČÍNÁ 2.CVIČENÍ 1.3.2017*)

funkce={20*Sin[(x^2)],Sinh[Tan[2x]]};
graf=Plot[funkce,{x,0,5},PlotRange->{{0,5},{-30,60}},PlotStyle->{{Orange,Thick},{Purple,Dashed}},PlotLabel->"Uloha za bonusove body",AxesLabel->{"x","20*Sin[(x^2)]
Sinh[Tan[2*x]"},Mesh->30,MeshStyle->Black,ImageSize->300]

SetDirectory[NotebookDirectory[]]

Export["Bonusovy graf.png",graf,ImageResolution->600]

Plot[funkce,{x,0,5},PlotRange->{{0,5},{-30,60}},PlotStyle->{{Orange,Thick},{Purple,Dashed}},PlotLabel->"Uloha za bonusove body",AxesLabel->{"x","f(x)"},Mesh->30,MeshStyle->Black,ImageSize->300,AxesOrigin->{0,-30},GridLines->Automatic,PlotLegends->{"20*Sin[(x^2)]","Sinh[Tan[2*x]"},AxesStyle->Directive[15,Thickness[0.005]]]

funkce2={(E^(-t/0.05))Sin[314t],(E^(-t/0.05)),(E^(-t/0.025))};

graf2=Plot[funkce2,{t,0,0.2},PlotStyle->{{Black,Dashed},{Red,Thick},{Blue,DotDashed}},PlotLegends->{"(E^(-t/0.05))Sin[314t]","(E^(-t/0.05))","(E^(-t/0.025))"},AxesLabel->{"t(s)","f(t)"},PlotLabel->"Přechodový děj",GridLines->Automatic,AxesOrigin->{0,-1}]
Export["Přechodový děj.png",graf2,ImageResolution->400]