1+1

a=2;
b=a-1;
c=a-b;

(Sqrt[5])

(Sqrt[5.]);
N[(Sqrt[5])];
aa=n[(Sqrt[5])]

n=Sin;
aa

N[Sqrt[5],140]

InverseLaplaceTransform[((p+1)/((p^3)+2p+1.)),p,t];

opice 12

kyncl*je*vul

Solve[x^2+ x+13==0,x]

Simplify[(Sqrt[g])*(Sqrt[h])*(Sqrt[ρ]),{g>0,h>0,ρ>0}]

Integrate[(x^17.25)*Sin[1+(x^3)],x]

Plot3D[Sin[x*y-1],{x,-Pi,Pi},{y,-Pi,Pi}]

%20;

$HistoryLength=2;

x=1;
ClearAll[x]
Solve[x==1]

Sin[x]
Sin@x
x//Sin

Sin[(Sqrt[5])]//N

150!//N

DSolve[y''[x]+2*x*y'[x]+(1-(x^2))*y[x]==0,y[x],x]

(*Tady zacina druhe cviceni*)

?*Plot*

x=jama hluboka;
Plot[Sin[x],{x,0,6Pi},AxesLabel->{x,y}]

Options[Plot];

x=jama hluboka;
Plot[Sin[x],{x,0,6Pi},AxesLabel->{"x","y"}]

Red
Thick
Large

Dashed

Plot[{((Sin[x])^(-1)),Cos[x]},{x,0,6Pi},AxesLabel->{"x","y"},
AxesOrigin->{0,-1},
PlotStyle->{Red,{Thick,Blue, Dashed}},
PlotLabel->"nas prvni",
PlotRange->All	
]

Plot[{((Sin[x])^(-1)),Cos[x]},{x,0,6Pi},AxesLabel->{"x","y"},
AxesOrigin->{0,-1},
PlotStyle->{Red,{Thick,Blue, Dashed}},
PlotLabel->"nas prvni",
PlotRange->{Automatic,{-2,2}}
]

ClearAll[h];
h[n_,x_]:=Tanh[n*x];
Plot[{h[5,Sin[t]],h[50,Sin[3t]]},{t,-2Pi,2Pi},AxesLabel->{"x","y"},
PlotStyle->{{Thick,Blue},{Thick,Black}}]

?/.

{ovoce,obilnina,tuk}/.ovoce->banan

ClearAll[x];
{x,x+y,(x^2)}/.{x->E,y->x}

x/.{{x->1},{x->2}}

Solve[(x-1)*(x-2)==0]

ClearAll[a,b,x,y,h];
resxy=Solve[{(a^2)*x+b*y==(a^2)+(b^2),(b^2)*x-a*y==(a^2)-(b^2)},{x,y}][[1]];
h[a_,b_]=x+y/.resxy;
h[E,Pi]

h[1,1]

ClearAll[h];
h[a_,b_]:=(x+y/.Solve[{(a^2)*x+b*y==(a^2)+(b^2),(b^2)*x-a*y==(a^2)-(b^2)},{x,y}])[[1]]
h[1,1]

Plus@@(x/.Solve[x^17-5.6==0,x])

Total[x/.Solve[x^17-5.6==0,x]]

(x/.Solve[x^17-5.6==0,x])/.List->Plus