Grafika v Mathematici

Andrej Bauer

Graphics in Graphics3D

V Mathematici lahko predstavimo 2D in 3D grafične objekte z ukazoma Graphics in Graphics3D. Grafične objekte naštejemo v seznamu.

Graphics[{Circle[{1,1},2], Point[{1,0}],Line[{{0,0}, {3,4}, {4,3}}]}]

Graphics3D[{Cylinder[{{0,0,0},{1,2,1}},1/3], Sphere[{0,0,3},1/2], Polygon[{{0,0,1},{1,0,0},{1,1,1}}]}]

Poleg objektov lahko določamo tudi barve in ostale lastnosti. Objekti so lahko hierarhično gnezdeni v sezname in podsezname.

Graphics[{{Red,Polygon[{{-5,5},{5,5},{0,7}}]}, {Black,Thickness[0.01], Line[{{-4,0},{4,0},{4,5},{-4,5}, {-4,0}}]}}]

Manipulate

Z ukazom Manipulate lahko prikažemo grafični objekt, ki je odvisen od parametrov.

ClearAll[tangenta]
tangenta::usage="tangenta[f[x],x,(Subscript[x, 0])] je enačba tangente na f[x] v točki x = (Subscript[x, 0])";
tangenta[f_,x0_,x_]:=Function[t,f'[x0]*(t-x0)+f[x0]][x]

ClearAll[f]
f[t_]:=Cos[t]*t
Manipulate[Plot[{f[x],tangenta[f,x0,x]},{x,-5,5},PlotRange->{{-5,5},{-5,5}},AspectRatio->Automatic],{x0,-5,5}]

Animate

Animacije delamo z ukazom Animate, ki sicer deluje podobno kot Manipulate, le da samodejno spreminja vrednost parametra.

ClearAll[f]
f[t_]:=Cos[t]*t
Animate[Plot[{f[x],tangenta[f,x0,x]},{x,-5,5},PlotRange->{{-5,5},{-5,5}},AspectRatio->Automatic],{x0,-5,5}]

Animate[Graphics[{Hue[r],Disk[{0,0},1/2+Sin[π*5*r]/3]},PlotRange->{{-1,1},{-1,1}}],{r,0,1}]