1+1

(Sqrt[5])

(25^(1/4))

N[π]

N[π,40]

N[Pi]
Pi//N
N@Pi
Pi//N[#,30]&
N[#,30]&@Pi

?Inverse*;

1kyncl

(x^3)
(2/4)
(Sqrt[5])

αβ

?Solve

Solve[(x^5)+x-17==0]//N

x*4
x 4
4x

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

Simplify[(Sqrt[x])*((Sqrt[y])/(Sqrt[u])),{x>0,y>0,u>0}]

1.*60!

Solve[(x^2)+3x+8==0.]

Plot

Plot[Tanh[100Sin[x]],{x,-15,15}]

Plot[Tanh[(10^(-4))Sin[x]],{x,-10,10}]

Plot[Tanh[(10^(-4))Sin[x]],{x,-10,10},PlotRange->{{0,16},Automatic},PlotPoints->300]

Plot3D[Arg[x+I*y],{x,-10,10},{y,-10,10},PerformanceGoal->"Quality"]

Plot[Erfc[x],{x,0,5},PlotRange->All,PlotStyle->{Thick,Pink},AxesLabel->{"x","erfc[x]"}]

Plot[{Erfc[x],Erf[x]},{x,0,5},PlotRange->All,PlotStyle->{{Thick,Red},{Thick,Blue}},AxesLabel->{"x","erfc[x],erf[x]"}]

(x^5)+Exp[-x]+Sin[a+b]//SpokenString

(**********zde zacina druhe cviceni*********************)

listik={1,maso,{alfa,romeo},{1,{{-2}}}};
listik[[3]][[1]]
listik[[3,1]]

listik={1,maso,{alfa,romeo},{1,{{-2}}}};
listik[[-1,-1,1,-1]]

listik//TreeForm

(x^2)/.x->2

?/.

Range[10]
%/._:>Pi
%%/._?EvenQ:>Pi

{x,y,Muller,Kyncl}/.Muller->Kyncl

{x,y,Muller,Kyncl}/.{Muller->Kyncl,Kyncl->x}

{x,y,Muller,Kyncl}/.{Muller->Kyncl,x->Kyncl}

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

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

dosad={podstava->10(cm^2),vyska->10cm,cm->0.01,objem->podstava*vyska};

(5*objem/.dosad)
%/.dosad
%/.dosad

5objem//.dosad

x+2y//.{x->y,y->x}

Range[1]

rce=(x^2)+3x+5==0;
vyraz=(x^2)-3x+5

dosadzaiksy=Solve[rce,x]

vyraz/.dosadzaiksy//N
vyraz/.dosadzaiksy[[1]]//N
vyraz/.dosadzaiksy[[2]]//N

(x^2)/.{{x->1},{x->2}}

rce=3(x^2)+t*x+(1/t)==0;
res=Solve[rce,x];
koreny=(x^2)/.res;
tisknout=koreny[[2]]+koreny[[1]];
Plot[tisknout,{t,1,4},PlotStyle->{Green,Thick},AxesLabel->{"t","(x1^2)+(x2^2)"}]

Range[10]

Table[opice,{12}]

Table[(opice^i),{i,12}]

Table[(opice^i),{i,4,12}]

Table[(Pi^i)*(E^(4-i)),{i,11,12,(1/10)}]

Table[(Pi^i)+(E^j),{i,5},{j,5-i}]

%//MatrixForm

listik=Table[(Pi^i)*(E^(4-i)),{i,11,12,(1/10)}]
n=Length[listik];
(∑_(i=1)^n)listik[[i]]

listik=Table[(Pi^i)+(E^j),{i,5},{j,5-i}];
Length/@listik

?f2

x=5;
ClearAll[f1,f2,x];
f1[x_]:=(x^2)
f2[x_]=(x^2)
f1[2]
f2[2]

ClearAll[a];
a[0]=0;
a[1]=1;
a[n_Integer]:=a[n-1]+a[n-2];
Table[a[i],{i,1,15}];
ListPlot[%];

Trace[a[5]];