Quiet@Remove["Global`*"];
$HistoryLength=2;
SetDirectory[NotebookDirectory[]];

a=1+1

a=1+2;

?a

?=

?:=

a=1+1

?a

a:=1+1

?a

a

a=Random[]

?a

{a,a,a,a,a}

a:=Random[]

?a

{a,a,a,a,a}

listik={ja,ty,{o,ona},{auto,{alfa,romeo}}}

listik[[-1]][[2]][[-1]]

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

First[listik]

Last[listik]

ClearAll[f];
f[x]:=5;
f[x]
f[y]

ClearAll[f];
f[x_]:=5+x;
f[4]

ClearAll[f];
f[x_]=5+x
f[4]

?f

ClearAll[f,x];
f[x_]=5+x
f[4]

ClearAll[f,x];
f[x_]=∫Sin[x]\[DifferentialD]x
f[1.5]

ClearAll[f,x];
f[x_]:=∫Sin[x]\[DifferentialD]x
f[1.5]

ClearAll[f];
f[0]=1;
f[x_Integer]:=2;
f[x_]:=E;
f[x_,y_]:=(x^E)+(y^Pi);
f[1,y_]:=5;
f[x_Integer,y_]:=4;
{f[1],f[0],f[3.5],f[2.3,1],f[1,5]}

ClearAll[a];
a[0]:=1;
a[n_]:=n*a[n-1];

Trace[a[3]];

?/.

(x^2)+4/.x->1

?==

dos=Solve[(x^2)+4==0,x];
x1=x/.dos[[1]];
x2=x/.dos[[2]];
(x1^3)-x2

dos=Solve[(x^4)==1]
x/.dos

Plot[Sin[x],{x,0,6}]

Options[Plot]

x=tenIdiotKyncl;
Plot[{Sin[x],Cos[x]},{x,0,6},AxesLabel->{"x","y"},PlotStyle->{{Thickness[0.02],RGBColor[0.2,0.4,0.1]},{Dashed,Magenta,Thick}}]

Table[opice,{12}]

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

Table[(opice^i),{i,5,7,0.3}]

barvyATloustka;

ClearAll[x]
imax=15;
mocniny=Table[(x^(2i)),{i,1,imax}];
barvyATloustka=Table[{Thick,Hue[(1/i)]},{i,1,imax}];
Plot[mocniny,{x,-1,1},PlotStyle->barvyATloustka,PlotRange->All];

Manipulate[
Show[Graphics[{Hue[hue],Disk[{0,0},1,{0,fimax}]}],PlotRange->{{-1.1,1.1},{-1.1,1.1}}],
{hue,0,1},{fimax,0.Pi,2Pi}]

pole=Sin/@Range[0,Pi,(Pi/12)];
Plus@@%;

pole/.List->Power