1+1

(Sqrt[5])

(25^(1/4))

N[(Sqrt[5])]

N[(Sqrt[5]),100]

(Sqrt[5.])

N[(Sqrt[5])]
(Sqrt[5])//N
N@(Sqrt[5])
N[(Sqrt[5]),10]
(Sqrt[5])//N[#,10]&
N[#,10]&@(Sqrt[5])

InverseLaplaceTransform

2 3

2 6

1 kyncl
1.kyncl

petr42Skupina8={1,2,6};

x=5;
ClearAll[x]
D[f[x],x]
Solve[(x^3)==1,x]

kyncl=0;

?@

Not[c]&&b||c&&b//Simplify

rce=(x^5)+x-17.==0;
Solve[rce,x]

?===

?=

?:=

ClearAll[f];
f[x_]=Integrate[(x^3)*Sin[(1/x)],x]
f[1.]

ClearAll[f];
f[x_]:=Integrate[(x^3)*Sin[(1/x)],x]
f[1.]

difrce=y''[x]+b*y'[x]+y[x]==0;
DSolve[difrce,y[x],x]

??Plot

Plot[{Sin[(x^2)],Cos[(x^2)]},{x,0,2(Sqrt[Pi])},PlotStyle->{{Red,Thick},{Blue,Thick}},AxesLabel->{"x","f1,f2"}]

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

List[a,b,c]

{a,c,b}

listik={5,4,{alfa,romeo},{{2},1}};

listik[[-1]][[1]]
listik[[-1,1]]

Length[listik]

TreeForm[listik]

Range[10]

Table[mesicek,{12}]

Table[(x^i),{i,10}]

Table[(x^i),{i,0,10}]

Table[(x^i),{i,8,10.4,(1/2)}]

mocniny=Table[(x^i),{i,1,7,0.1}];
Plot[mocniny,{x,0,1}];

Table[i+(E^j),{i,4},{j,4}]
%//MatrixForm

Table[i+(E^j),{i,4},{j,4-i}]
%//MatrixForm

{a,b,c}.{1,2,3}

{a,b,c}*{1,2,3}

(x^2)/.x->2

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

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

Range[10]+5
%/.{9->Pi}
%/._?EvenQ->E

res=Solve[(x^2)-5x+4==0]
(x^2)/.res

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

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

tiskni[[2]]

rovnice=(x^2)-((t^2)-1)*x-t==0;
dos=Solve[rovnice,x];
tiskni=Re[x]/.dos;
Plot[tiskni,{t,-1,1},AxesLabel->{"t","Re[x1],Re[x2]"},PlotStyle->Thick]
Plot[tiskni[[1]]-tiskni[[2]],{t,-1,1},AxesLabel->{"t","Re[x1]-Re[x2]"},PlotStyle->Thick]

?f1

ClearAll[f1,f2,x];
f1[x_]:=Integrate[(x^2)*Sin[x],x]
f2[x_]=Integrate[(x^2)*Sin[x],x]

f2[Pi]

Fibonacci[8]

?a

ClearAll[a];
a[0]=0;
a[1]=1;
a[n_]:=a[n-1]+a[n-2];
Timing[Table[a[i],{i,25}]][[1]]

ClearAll[a];
a[0]=0;
a[1]=1;
a[n_]:=a[n]=a[n-1]+a[n-2];
Timing[Table[a[i],{i,25}]][[1]]

Trace[a[26]]