bodA=Graphics[Point[{5,5}]];
bodB=Graphics[Point[{0,0}]];
bodC=Graphics[Point[{-3,3}]];
Show[bodB,ImageSize->{200,200}]

Show[{bodA,bodB,bodC},ImageSize->{200,200}]

ciara=Graphics[Line[{{1,1},{2,2}}]];
Show[ciara,ImageSize->{200,200}]

vektor=Graphics[Arrow[{{1,1},{2,2}}]];
Show[vektor,ImageSize->{200,200}]

ciara2=Graphics[Line[{{1,1},{2,2},{-5,7},{4,-2}}]];
Show[ciara2,ImageSize->{200,200}]

ciara3=Graphics[Line[{{-3,0},{-2,2},{-1,0},{0,2},{1,0},{2,2},{3,0}}]];
Show[ciara3,ImageSize->{200,200}]

pts=Table[{Cos[2n π/9],Sin[2 n π/9]},{n,0,8}];
Graphics[{Opacity[0.7],Red,Line[Tuples[pts,2]],Blue,PointSize[0.05],Point[pts]},ImageSize->{200,200}]

v=Table[15{Cos[t],Sin[t]},{t,0,4Pi,4Pi/5}];
Graphics[GraphicsComplex[v,{Point[{1,2,3,4,5,6}],Green,Line[{1,2,3,4,5,6}]}],ImageSize->{200,200}]

ciara4=Graphics[Line[{{0,0},{3,0},{3,2},{0,2},{0,0}}]];
Show[ciara4,ImageSize->{200,200}]

obdlznik=Graphics[Rectangle[{0,0},{3,2}]];
Show[obdlznik,ImageSize->{200,200}]

domcek=Graphics[Polygon[{{0,2},{0,0},{2,0},{2,2},{1,3}}]];
Show[domcek,ImageSize->{200,200}]

obraz1=Graphics[Polygon[{{0,0},{1,1},{0,1},{1,0}}]];
Show[obraz1,ImageSize->{200,200}]

obr2=Graphics[Polygon[{{0,0},{1,0},{1,1},{0,1}}]];
Show[obr2,ImageSize->{200,200}]

k1=Graphics[Circle[{0,0},3]];
Show[k1,ImageSize->{200,200}]

k2=Graphics[Disk[{0,0},3]];
Show[k2,ImageSize->{200,200}]

k2=Graphics[Disk[{0,0},3]];
k22=Graphics[Disk[{5,0},1]];
Show[{k2,k22},ImageSize->{200,200}]

k3=Graphics[Circle[{0,0},{3,2}]];
Show[k3,ImageSize->{200,200}]

k4=Graphics[Circle[{0,0},3,{Pi/2,2*Pi}]];
Show[k4,ImageSize->{200,200}]

popis=Graphics[Text[ahoj,{2,3}]];
Show[popis,ImageSize->{200,200}]

bodA=Graphics[Point[{5,5}]];
bodB=Graphics[Point[{0,0}]];
bodC=Graphics[Point[{-3,3}]];
popisA=Graphics[Text[A,{5.3,5}]];
popisB=Graphics[Text[B,{0.3,0}]];
popisC=Graphics[Text[C,{-2.7,3}]];
Show[{bodA,bodB,bodC,popisA,popisB,popisC},ImageSize->{200,200}]

k1=Graphics[Circle[{0,0},3]];
k5=Graphics[Circle[{3,0},3]];
Show[{k1,k5},ImageSize->{200,200}]

Plot[Sin[x],{x,-2Pi,2Pi}]

Plot[{Sin[x],Cos[x]},{x,-2Pi,2Pi}]

ListPlot[{1,4,9,16,25}]

ListPlot[{{0.5,3},{2.3,-8},{5.7,0.8}}]

k2=Graphics[{GrayLevel[0.9],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

k2=Graphics[{RGBColor[0.9,0.3,0.7],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

k2=Graphics[{CMYKColor[0,1,0,0],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

k2=Graphics[{Hue[0.3],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

Graphics[Table[{Hue[t/20],Circle[{Cos[2Pi t/20],Sin[2Pi t/20]}]},{t,20}],ImageSize->{200,200}]

k2=Graphics[{Hue[0.3,1,1],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

k2=Graphics[{Hue[0.3,1,0.5],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

k2=Graphics[{Hue[0.3,1,0],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

k2=Graphics[{Hue[0.3,0.5,1],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

k2=Graphics[{Hue[0.3,0.1,1],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

k2=Graphics[{Background->RGBColor[0,0,1],RGBColor[0,1,0],Disk[{0,0},3]}];
Show[k2,ImageSize->{200,200}]

a=Disk[];
Graphics[{Darker[Blue],a}]Graphics[{Blue,a}]Graphics[{Lighter[Blue],a}]

Graphics[{Red,a}]Graphics[{Yellow,a}]Graphics[{Blend[{Red,Yellow},1/2],a}]Graphics[{Blend[{Red,Yellow},1/4],a}]Graphics[{Blend[{Red,Yellow},3/4],a}]

bodA=Graphics[{PointSize[0.1],RGBColor[0.5,0.3,0.8],Point[{5,5}]}];
bodB=Graphics[Point[{0,0}]];
bodC=Graphics[Point[{-3,3}]];
Show[{bodA,bodB,bodC},ImageSize->{200,200}]

k3=Graphics[{Thickness[0.1],Circle[{0,0},{3,2}]}];
Show[k3,ImageSize->{200,200}]

k3=Graphics[{Dashing[{0.03,0.03}],Circle[{0,0},{3,2}]}];
Show[k3,ImageSize->{200,200}]

Plot[x^2,{x,-5,5},PlotStyle->{Thickness[0.01],RGBColor[1,0,1],Background->Hue[0.3,0.2,0.8]}]

Plot[{Sin[x],Cos[x]},{x,-2Pi,2Pi},PlotStyle->{Thickness[0.01],Dashing[{0.03,0.03}]}]

ListPlot[{1,4,9,16,25},PlotStyle->PointSize[0.02]]

ListPlot[{1,4,9,16,25},PlotRange->{{0,25},{0,25}}]

ListPlot[{1,4,9,16,25},PlotRange->{{0,25},{0,25}},AspectRatio->1]

ListPlot[{1,4,9,16,25},AspectRatio->1]

Plot[Sin[x],{x,-2Pi,2Pi}]

Plot[Sin[x],{x,-2Pi,2Pi},Axes->False]

Plot[Sin[x],{x,-2Pi,2Pi},Axes->{True,False}]

Plot[Sin[x],{x,-2Pi,2Pi},AxesOrigin->{0,1}]

Plot[60t,{t,0,10}, AxesLabel->{"cas","draha"}]

Plot[Sin[x],{x,-2Pi,2Pi},Ticks->None]

Plot[Sin[x],{x,-2Pi,2Pi},Ticks->{{-2Pi,-Pi,0,Pi,2Pi},Automatic}]

Plot[Sin[x],{x,-2Pi,2Pi},Frame->True]

Plot[Sin[x],{x,-2Pi,2Pi},Frame->True,
FrameLabel->{"hrana1","hrana2","hrana3","hrana4"}]

Plot[Sin[x],{x,-2Pi,2Pi},Frame->True,RotateLabel->False,
FrameLabel->{"hrana1","hrana2","hrana3","hrana4"}]

Plot[Sin[x],{x,-2Pi,2Pi},PlotLabel->"sin(x)"]

Plot[Sin[x],{x,0,2Pi},GridLines->Automatic]

Plot[Sin[x],{x,0,2Pi},GridLines->{{0,Pi,2Pi},{-1,0,1}}]

PARAMETRICKE ZOBRAZENIE -Asteroida
x=r(3cos(t)+cos(3t))
y=r(3 sin(t)-sin(3t))

ParametricPlot[{3Cos[t]+Cos[3t],3Sin[t]-Sin[3t]},{t,-Pi,Pi}]

ContourPlot[x^2+y^2==3,{x,-2,2},{y,-2,2}]

Zobrazenia v polarnych suradniciach
Logaritmicka spirala t=a Exp[b t]

PolarPlot[2 Exp[-0.1 t],{t,-2Pi,2Pi}]

p=Polygon[{{1,0},{0,Sqrt[3]},{-1,0}}];
{Graphics[{Orange,p}],Graphics[{EdgeForm[Thick],Purple,p}],Graphics[{EdgeForm[Dashed],Magenta,p}],Graphics[{EdgeForm[Directive[Thick,Dashed,Blue]],Pink,p}]}

Graphics[{LightGray,Disk[],Inset[Plot[Tan[x],{x,-3,3}]]},ImageSize->{200,200}]

Graphics[{Circle[],Inset[x^2+y^2==1,{0,0}]},ImageSize->{150,150}]

Import["G:\AAA\MOJE/ruza.jpg",ImageSize->{200,200}]

Import["ExampleData/rose.gif"]

CountryData["Slovakia","Shape"]

CountryData["France","Shape"]

Graphics[Rotate[Rectangle[],30Degree],ImageSize->{200,200}]

Graphics[Polygon[Table[{Cos[t],Sin[t]},{t,0,4Pi,4Pi/5}]],ImageSize->{200,200}]

Manipulate[Graphics[Rotate[Polygon[Table[{Cos[t],Sin[t]},{t,0,4Pi,4Pi/5}]],θ,{0,0}],PlotRange->1.2,ImageSize->{200,200}],{θ,0,2π}]

Dynamic@Module[{hour,min,sec,ht,mt,st},Clock[];{hour,min,sec}=Take[DateList[],-3];ht=Pi/2-2Pi hour/12-2Pi min/720;mt=Pi/2-2Pi min/60;st=Pi/2-2Pi Floor[sec]/60;Graphics[{Arrowheads[0.1],Arrow[{{0,0},0.6{Cos[ht],Sin[ht]}}],Arrow[{{0,0},0.85{Cos[mt],Sin[mt]}}],Line[{{0,0},0.85{Cos[st],Sin[st]}}],PointSize[Medium],Table[Point[0.9{Cos[i],Sin[i]}],{i,0,2Pi,Pi/6}],Point[{0,0}],Circle[]},ImageSize->{200,200}]]