Remove["Global`*"]

1+1

Sin[5]

Sin[5.]

N[Sin[5],100]

N[Pi,10]

N[Pi,10];

x=4

x+5

a+5

h=p+b

p=1;

h

ClearAll[x]

Solve[a*x^2+b*x+c==0,x]

Solve[x-2==0,x]

NIntegrate[((Sin[(Sqrt[x])])/x),{x,0.1,1}]

sin[0]

Remove["Global`*"]

FullForm[12a]

FullForm[a12]

Sin[Pi]

Pi//Sin

Sin@Pi

x^5

(x^6.)

(x^(a+b))

x^a+b

DSolve[y''[x]+y'[x](x+1)+y[x]==0,y[x],x]

?Sin[x]

?Sin

vyr=ArcTan[x^2]+(Sqrt[x])

Plot[vyr,{x,2,10},PlotRange->All,GridLines->Automatic]

Plot[Exp[x],{x,2,10}]

{1,4,87}
FullForm[%]

lista={1,2,4}

lista[[2]]

listb=Table[i,{i,1,10}];
listb[[-1]]

listpol=Table[x^(2n+1),{n,0,5}]

Plot[{Cos[x],Sin[x]},{x,-Pi,Pi},PlotStyle->{{Red,Dashed},Blue},PlotLegends->{"cos","sin"}]

listcos=Table[Cos[n*x],{n,1,5}]

plt1=Plot[listcos,{x,-Pi,Pi},PlotStyle->{Blue,Green,Purple,{Yellow,Thickness[0.02]},Red},PlotLegends->"Expressions",AxesLabel->{"x","f[x]"},GridLines->Automatic]

FullForm[plt1];

listb[[-1]]=plt1

listb

data=Table[{t,Exp[-t/0.01]*Sin[2*Pi*50*t]},{t,0,0.06,0.001}];
pltlist=ListPlot[data,PlotRange->All,PlotStyle->Red]

data[[1]][[0]]

Plot[Exp[-t/0.01]*Sin[2*Pi*50*t],{t,0,0.06}]

pltshow=Show[Plot[Exp[-t/0.01]*Sin[2*Pi*50*t],{t,0,0.06},PlotRange->All],pltlist,PlotRange->{{0,0.02},All}]

Table[i^2,{i,0,10}]
ListPlot[%];

SetDirectory[NotebookDirectory[]]

pltshow>>"pltshow"

<<"pltshow"

Export["plotik.png",pltshow]

Manipulate[Plot[Exp[-t/tau]*Sin[2*Pi*f*t],{t,0,0.06},PlotRange->All],{tau,0.001,0.1},{f,1,100}]

Manipulate[{A<>"hoj",{A}},{A,{"A","a","b"}}]

{{1,2},{3,4}}.{n,b}

Union[{"asd",2,42,n},{n,6,2}]
Join[{"asd",2,42,n},{n,6,2}]
Intersection[{"asd",2,42,n},{n,6,2}]

listc=Table[{i,i^2},{i,1,10}]

listc[[3,1]]={"asd",2,42,n,n,6,2}

listc//TreeForm

f[x][[0]][[0]]

f[x_]:=x^2

f[2]

f[x]

f[{1,2}]

{1,2}*2

f["sad"]

f2[x_]:={x^2,(Sqrt[x])}

f2[3]

3//f2

f2@3

f2[Range[1,9,0.5]]

rng=Range[1,9,0.5]

Table[f2[rng[[i]]],{i,1,Length[rng]}]

listlistu=f2/@rng

TreeForm[listlistu]

g/@listlistu

g[x_]:=Total[x]

g2[x_]:=Plus@@x

g2/@listlistu

{1.`,1.`}//FullForm

Table[listlistu[[i,1]],{i,1,Length[listlistu]}]

listlistu[[All,1]]

Remove["Global`*"]

x/.{x->2}

res=Solve[x==1,x]

x/.res

Quiet@Remove["Global`*"];
a=0.1;
rce={v'[t]==a,v[0]==0,s'[t]==v[t],s[0]==0};
sol=DSolve[rce,{v[t],s[t]},t][[1]];
s[t_]=s[t]/.sol;
v[t_]=v[t]/.sol;
tmax=t/.FindRoot[v[t]==(140/3.6),{t,100}];
Print["140km/h dosahne za ",tmax," s,  tj za ",(tmax/60)," minut"];
Plot[{(10^3)v[t],s[t]},{t,0,tmax},AxesLabel->{"t [s]","s[m]  (10^3)v[m/s]"},PlotStyle->{Red,Blue},GridLines->Full]

mm=0.001;
r=((920mm)/2);
fi[t_]:=((s[t])/r);
y[t_]:=r*Cos[fi[t]];
x[t_]:=r*Sin[fi[t]]+s[t];
polohovyVektor[t_]:={x[t],y[t]};
zrychleniCelkem[t_]:={x''[t],y''[t]};

D[Sin[x],x]

f[x_]:=x^2

Hold[f[2]]
ReleaseHold[%]