(* 1. cviceni 11 - 12:30 *)

1+1*9

13-5

(Sqrt[20.])

N[(Sqrt[20])](* komentar *)

N[(Sqrt[20]),100]

N[1/15]

(Sqrt[(Sqrt[(Sqrt[(Sqrt[(Sqrt[(Sqrt[(Sqrt[10])])])])])])])

(2^(2^2))

a=555

a

(a^2)

b=10;

(a/b)

(A/b)

C=10*(10^(-6))

Pi=111

N[π,20]

21a

21a=10

R10=100;

((1+1)+10)*3+(1+(21+(1+2)+2)+1)

TreeForm[{{1,1,1},{1,a,b}}]

List1={1,1,1};
List2={1,a,b};
ListListu={List1,List2}

Integrate[(x^10)*Sin[x],x];

f=Solve[{z==0,15x+z+5==0},{x,z}]

graf1=Sin[2*x];

Plot[{graf1,Cos[2*x],Sin[x],Cos[x]},{x,-2*π,2*π},PlotLegends->"Expressions"]

(* 2. cviceni - 27.2.2017 *)

N[π];

π//N;

N@π;

%

reseni=Solve[{a*(x^2)+3*x+4==0,x+y-4==0},{x,y}]

Plot[((-3-(Sqrt[9-16 a]))/(2 a)),{a,-5,5}](* spatny postup *)

mnozina={1,2,{pes,kocka},vul};

mnozina[[-2]]
mnozina[[5]]
mnozina[[1]]
mnozina[[3,1]]

mnozina[[3,1]]
mnozina[[-2,-2]]

mnozina//TreeForm

z=3

x+z/.{x->10,z->5}

?/.

x/.{x->3,x->15,x->22}[[3]]

x/.reseni[[1,1]]

x/.reseni[[1]]

x/.reseni[[2]]

reseni

Y=10000;

x1=x/.reseni[[1]];
x2=x/.reseni[[2]];
y1=y/.reseni[[1]];
y2=y/.reseni[[2]];

MujGraf=Plot[{x1,x2,y1,y2},{a,-10,10},PlotStyle->{{Blue,Thick},{Thick,Dashed,Red},{RGBColor[0.2,0.1,0.4],Thick},{Magenta,DotDashed,Thick}},AxesLabel->{"osa X","osa Y"},PlotLabel->" Graf 1 ",GridLines->Automatic,PlotRange->{{-5,0},Automatic}]

anim=Manipulate[Plot[a*(x^2)+b*x+c,{x,-5,5},PlotRange->{{-5,5},{-10,10}}],{a,-1,1,0.1},{b,-2,2,0.1},{c,-5,5,1}]

SetDirectory[NotebookDirectory[]]

(* Exporty:

Export["Graf1.png",MujGraf,ImageResolution->300]

*)

(* Exporty:

Export["vid1.avi",anim]

*)

res2=DSolve[{y''[t]+2*y'[t]+3*y[t]==Sin[2*t],y'[0]==0,y[0]==1},y[t],t]

ProPlot=y[t]/.res2[[1]]

Plot[ProPlot,{t,0,20},PlotStyle->{Red,Dashed,Thick},AxesLabel->{" t "," y[t] "},PlotLabel->" Graf 2 "]