1+1

x=3

x

x=5;

1/5.

Real

1/2//N

0.5

N[1/2,100]

N[Pi,1000]

Head[ty]

a=ty*vuz

a

ty=2

a

ClearAll[a]

ty

h=a^2

a=12

h

Remove["Global`*"]

ClearAll["Global`*"]

a=4

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

x=2

Solve[Tanh[x^2]==0.2,x]

ClearAll[x];
Solve[x=2,x]

Solve[x==2,x]

?x

ClearAll[x];
Solve[x==2,x]

x a

kyncl je vul
kyncl*je*vul

12opice
opice12

x^13*5

(x^15)*5

(22/11)

(5/3.14)

∞

β
FullForm[β]

Sin[Pi]
Pi//Sin
Sin@Pi

Integrate[Sin[(Sqrt[x])]/x,x]

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

Plot[x*Sin[(x^(-1))],{x,-2Pi,2Pi},PlotRange->All,PlotStyle->Red,AxesLabel->{"x","f[x]"},GridLines->Automatic]

ParametricPlot[{u+Sin[u],Cos[u]},{u,0,15}]

Remove["Global`*"]

FullForm[{1,2,3}]

Table[i,{i,1,3,0.5}]

list1=Table[i,{i,1,3,0.5}];

list1[[2]]

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

Plot[{Sin[x],Cos[x]},{x,-Pi,Pi},PlotStyle->{{Thickness[0.02],Blue},Red}]

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

Plot[listcos,{x,-Pi,Pi},PlotStyle->{Red,Thickness[0.02],Dashed,Green,Blue},PlotLegends->"Expressions"]

Table[{t,Sin[2*Pi*50*t]},{t,0,0.06,0.001}];
plt1=ListPlot[%,AxesLabel->{"x","f[x]"},PlotStyle->Red];

FullForm[plt1];

SetDirectory[NotebookDirectory[]]

FullForm[Plot[x^2,{x,1,2}]]>>"plt1"

<<"plt1";

pltshow=Show[plt1,Plot[Sin[2*Pi*50*t],{t,0,1}],PlotRange->{{0,0.02},All}]

Export["2ploty.pdf",pltshow]

Manipulate

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

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

Union[{1,2,3},{3,56,90}]

Join[{1,2,3},{3,56,90}]

Intersection[{1,2,3},{3,56,90}]

list={1, "asdasd", hh}

list[[-2]]=5

list

list=Join[list,{{1,2}}]

list[[-1,2]]

MatrixForm[{{1,2},{3,4}}]

{{1,2},{3,4}}.{"asd",b}
TreeForm[%]