cikloida

In[212]:=

cikloida[a_, b_][t_] := {a * t - b * Sin[t], a - b * Cos[t]}

In[213]:=

RowBox[{ParametricPlot, [, RowBox[{RowBox[{RowBox[{cikloida, [, RowBox[{1, ,, 1.5}], ]}], [, t ... , 3Pi, 4Pi, 5Pi, 6Pi}, ,, RowBox[{{, RowBox[{RowBox[{-, 0.5}], ,, 0, ,, 2.5}], }}]}], }}]}]}], ]}]

[Graphics:../HTMLFiles/index_161.gif]

Out[213]=

⁃Graphics⁃

In[214]:=

RowBox[{ParametricPlot, [, RowBox[{cikloida[1, 1][t], ,, {t, 0, 6Pi}, ,, PlotStyle {Hu ... 0.5}], ,, 2.5}], }}]}], }}]}], ,, Ticks {{0, Pi, 2Pi, 3Pi, 4Pi, 5Pi, 6Pi}, {0, 2}}}], ]}]

[Graphics:../HTMLFiles/index_164.gif]

Out[214]=

⁃Graphics⁃

In[215]:=

RowBox[{ParametricPlot, [, RowBox[{RowBox[{RowBox[{cikloida, [, RowBox[{1, ,, 0.5}], ]}], [, t ... , RowBox[{{0, Pi, 2Pi, 3Pi, 4Pi, 5Pi, 6Pi}, ,, RowBox[{{, RowBox[{0, ,, 1.5}], }}]}], }}]}]}], ]}]

[Graphics:../HTMLFiles/index_167.gif]

Out[215]=

⁃Graphics⁃

In[216]:=

RowBox[{ParametricPlot, [, RowBox[{RowBox[{{, RowBox[{RowBox[{RowBox[{cikloida, [, RowBox[{1, ... ,, RowBox[{{, RowBox[{RowBox[{-, 0.5}], ,, 0.5, ,, 1, ,, 1.5, ,, 2, ,, 2.5}], }}]}], }}]}]}], ]}]

[Graphics:../HTMLFiles/index_170.gif]

Out[216]=

⁃Graphics⁃

Created by Mathematica  (April 30, 2004)