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

1+1

(Sqrt[2])

N[(Sqrt[2])]

N[(Sqrt[2]),10]

(Sqrt[(Sqrt[(Sqrt[1508])])])

(Sqrt[(Sqrt[(Sqrt[1508.])])])

(15185415/1415.)

a

a=5

a

a+b

N=5

C

I

E=85

Cos[π]

Cos[Pi]

Sin=5

(4ab+5d)*(d+5)+c

4*5

4 5

Opice=5

Opice12

12Opice

(x^2)+15x+(x^5)+(x^3)+2(x^2)

dneska je hezky

b:=5

b

c=6;

ClearAll[a]

5+10a-25(a^2)==0

c==6

c==5

Solve[5+10a-25(a^2)==0,a]

pr=Solve[(x^2)+x+1==0,x][[1,1]]

N[(Sqrt[10])]

(Sqrt[10])//N

(Sqrt[10])@N

N@(Sqrt[10])

ClearAll[b,c]

{1,8,5}*{a,b,c}

{a,8 b,5 c}
{1,8,5}{a,b,c}

{1,8,5}\[Cross]{a,b,c}

list={4,5,{2,8,6},5.8}

NestList[x,f[]x,4];

list[[3,2]]

list[[4]]=6

list

list[[3]]={hodina1,hodina2}

list

Plot[100Sin[x],{x,0,30}];

t=5

Plot[{100Sin[x],100Tanh[100Sin[x]]},{x,0,30},AxesLabel->{"t (ms)","U(V) A(mA)"},PlotStyle->{{Thick,Dashed,Green},{Thin,Red}}]

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

ClearAll[a]

int=∫a*((Sin[(x^2)])/x)\[DifferentialD]x

int

?=

int/.x->5

nuse=5*hrusky+3*jablko+2*svestka

nuse/.svestka->5

nuse

nuse/.{svestka->5,jablko->1,hrusky->2}

nuse/.svestka->{1,2,3}

nuse

promenou = {Sin[x],Sin[(x^2)],Sin[(x^3)]}

promenou/.x->2

promenou2={{Sin[x]},{Sin[(x^2)],Sin[(x^3)]}}

promenou2[[1,1]]/.x->2

TreeForm[promenou2]

ClearAll[funkce,x]

funkce={20*Sin[(x^2)],Sinh[Tan[2x]]};

obrazek=Plot[funkce,{x,0,5},PlotStyle->{{Green,Thick},{Red,DotDashed}},PlotLabel->"Muj graf",AxesLabel->{"x","f1(x)
f2(x)"},PlotRange->{Automatic,{-60,60}},AxesOrigin->{0,-60},GridLines->{{2,4},Automatic},AxesStyle->Directive[15,Thickness[0.005]],PlotLegends->{"20*Sin((x^2))","Sinh(Tan(2x))"},ImageSize->300]

NotebookDirectory[]

SetDirectory[NotebookDirectory[]]

Export["Obrazek1.png",obrazek,ImageResolution->400]

ClearAll[t]

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

obrazek2=Plot[funkce2,{t,0,0.2},PlotStyle->{{Magenta,Thick},{Orange,Dotted},{Green,Dashed,Thickness[0.005]}},PlotLegends->{"(E^(-t/0.05))Sin[314t]","(E^(-t/0.05))","(E^(-t/0.025))"},AxesLabel->{"t(s)","f(t)"},PlotLabel->"Útlum",GridLines->Automatic,AxesOrigin->{0,-1},AxesStyle->Directive[12,Thickness[0.005]],Mesh->30,MeshStyle->{Black}]

Export["Obrazek2.png",obrazek2,ImageResolution->300]