1+1

2+4

6+1
a+b

(Sqrt[5])

(25^(1/4))

(Sqrt[5.])

N[(Sqrt[5])]

N[(Sqrt[5]),20]

?Sin

(a+1)-(b-c)
((a+1)-(b-c))*(a/3)

MatrixForm[{{2,4},{5,13}}]

ClearAll[a,b,soucet](*tohle je komentar*)
a=5;
b=7;
soucet=a+b
2*soucet
soucet1

a=3

ClearAll[a]

Sin[Pi/3]
N[Sin[Pi/3],50]

LaplaceTransform[(E^(t+2))*(t^4)+Sin[2*t+0.4],t,s]

e;
E;
N[E];
E//N;
N@E;

100!//N

Plot[(t^4)*Cos[5*t+1]-3,{t,0,3Pi}]

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

(*2.cviceni*)

mujlist={1,2,{auto,pocitac,{hop,skok}},Praha,Brno};
mujlist[[1]]
mujlist[[3]]
mujlist//TreeForm

mujlist[[3,1]]
mujlist[[3]][[1]]

mujlist//Length

mujlist[[-1]]

mujlist[[6]]

mujlist[[0]]

xylist={y,x,y,y,x,x,x,y}

xylist/.x->3

prirazeni={a->1,b->3,x->10,z->-2}

xylist/.prirazeni

xylist/.{x->1,x->3}
xylist/.{x->s,s->5}
(*xylist//.{x->s,s->5}
xylist//.{x->s,s->x}*)(*pro zajimavost*)

rce=(x^4)+((x^2)/(k^2))+k*x+(2/3)==0;
res=Solve[rce,x];
x1=x/.res[[1]];
x2=x/.res[[2]];
x3=x/.res[[3]];
x4=x/.res[[4]];
soucet=Abs[x1]+Abs[x2]+Abs[x3]-Abs[x4];
Plot[soucet,{k,-5,5},PlotStyle-> {Orange,Thick,DotDashed},AxesLabel->{"k","f(k)"},GridLines-> Automatic]

res=Solve[{2(x^2)-(y^2)-(3/5)==4k,y-(x^2)==k},{x,y}];
xka=x/.res;
Plot[xka,{k,-15,1},PlotStyle-> {{Blue,Thick},{Red,Thick},{Black,Thick,Dashed},{Brown,Thick,Dashed}},GridLines-> Automatic, AxesLabel-> {"k","f(k)"}]

xka

ClearAll[f,g]
f[x_]:=(x/3)*Tanh[2x+1]
g[psi_]:=((Sin[psi]+psi)/(Cos[psi]-(psi^2)))
Plot[g[6*f[((Sqrt[t+1])/t)]],{t,1,9},PlotStyle-> {Green,Thick,Dashed},GridLines-> Automatic,AxesLabel-> {"t","g(6*f(((Sqrt[t - 1])/t)))"}]