CRTANJE i ANIMACIJA

Plot[ 4 x, {x, -5, 5}, PlotRange {{-6, 6}, {-10, 10}}, AspectRatioAutomatic]

RowBox[{, RowBox[{Table, [, RowBox[{Show[Plot[ x, {x, -5, 5}, PlotRange {{-6,  ... Automatic], , ,,  , RowBox[{{, RowBox[{k, ,, 2, ,, -2, ,, RowBox[{-, 0.5}]}], }}]}], ]}]}]

pravac[k_][x_] := k  x

Table[Plot[pravac[k][x]//Evaluate, {x, -5, 5}, PlotRange {{-6, 6}, {-10, 10}}, AspectRatioAutomatic], {k, -2, 4, 1}] 

RowBox[{, RowBox[{Table, [, RowBox[{Show[Plot[ x, {x, -5, 5}, PlotRange {{-6,  ... Automatic], , ,,  , RowBox[{{, RowBox[{k, ,, 2, ,, -2, ,, RowBox[{-, 0.5}]}], }}]}], ]}]}]


Created by Mathematica  (November 27, 2003)