1+1

a=2

(*otaznikem se muzeme zeptat na cokoli*)\
?a

(*strednik potlacuje zobrazeni vystupu*)
b=3;

?b

?@;

Sin[5]

Sin[5+Pi]

Sin[5.]

Head[5]
Head[5.]

Log[-1]

(*vycisleni pomoci funkce N*)
N[Pi]
N[Pi,100]

kyncl je vul a idiot

kyncl*je*vul*a*idiot

(*jmeno promenne nesmi zacinat cislici*)
12opice
opice12

(*nelekat se, Math. umoznuje vice syntaxi a nektere jsou odstrasujici*)
Sin[Pi]
Pi//Sin
Sin@Pi

(*escape sequence*)
∞
α

FullForm[ξ]

(*klavesove zkratky*)
(*ctrl /*)
(96/18)

(x/6)

(*ctrl  ^*)
(x^6)

(*ctrl 2*)
(Sqrt[98])

Solve[(x^13)==5.6];

Solve[x=5,x]

Solve[x==5,x]

ClearAll[x]
Solve[x==5,x]

Remove["Global`*"]

Integrate[(x^17)*Sin[(Sqrt[x])],x];

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

(*www.mathworld.com*)

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

(*zde zacina druhe cviko*)

Table[i,{12}]

Table[i,{i,12.5}]

Table[i,{i,4,12.5}]

(*Table[co,{iterator,odkud, co nebude prekroceno,krok}]*)
Table[i,{i,2.3,9.2,0.5}]

nFci=10;
aMin=0.123;
aMax=0.789;
kroka=((aMax-aMin)/(nFci-1));
fce=Table[fi*((((fi^2)))^a),{a,aMin,aMax,kroka}];
nfci=Length[fce];
Print["melo byt ",nFci,"  a je jich  ",nfci]

(*vyplotime si je*)
x=5;
Plot[fce,{fi,-1,1},AxesLabel->{"x","f[x]"},PlotStyle->RGBColor[1,.1,1]]

Manipulate[
Graphics[{Hue[hue],Disk[{0,0},{3,4}]}]
,{hue,0,1}];

nFci=50;
aMin=0.123;
aMax=17.89;
kroka=((aMax-aMin)/(nFci-1));
fce=Table[fi*((((fi^2)))^a),{a,aMin,aMax,kroka}];
barvickyATloustka=Table[{Thickness[0.003],Hue[hue]},{hue,0,0.85,(0.85/(nFci-1))}];
pl1=Plot[fce,{fi,-1,1},AxesLabel->{"x","f[x]"},PlotStyle->barvickyATloustka,PlotRange->{Automatic,{-1,1}},PerformanceGoal->"Speed"];

body=Table[{Random[],Random[]},{100}];
pl2=ListPlot[body];

Show[pl1,pl2]

nb=50;
delta=((4Pi)/(nb-1.));
body=Table[{x,((Sin[x])/x)},{x,-2Pi,2Pi,delta}];
pl1=ListPlot[body,PlotStyle->{Yellow,PointSize[0.02]},AxesLabel->{"x","f[x]"}];
pl2=Plot[((Sin[x])/x),{x,-2Pi,2Pi},PlotStyle->{Black,Thickness[0.004]},AxesLabel->{"x","f[x]"}];
Show[pl2,pl1]

Manipulate[
nb=50;
delta=((4Pi)/(nb-1.));
maticeRotace=(({{Cos[t], -Sin[t]}, {Sin[t], Cos[t]}}));
body=Table[{x,((Sin[x])/x)}.maticeRotace,{x,-2Pi,2Pi,delta}];
pl1=ListPlot[body,PlotStyle->{Yellow,PointSize[0.02]},AxesLabel->{"x","f[x]"}];
pl2=ParametricPlot[{x,((Sin[x])/x)}.maticeRotace,{x,-2Pi,2Pi},PlotStyle->{Black,Thickness[0.004]},Axes->False,AspectRatio->1];
Show[pl2,pl1]
,{t,0,2Pi}]