2011-07-21 7 views

答えて

4

はあくまで一例答え

max = 10; 
coords = Table[{i, RandomReal[]}, {i, max}]; 

Animate[ListPlot[coords[[1 ;; n]], PlotMarkers -> {Automatic, Small}, 
    Joined -> True, PlotRange -> {{0, max}, {0, 1}}], {n, 1, max, 1}] 
1

である場合があります。ここでは

のようなサンプルを見ては何です..私は「ListAnimate」を試してみましたが、それは唯一の各座標の値をアニメーション化します。


max = 10; 
coords = Table[{i, RandomReal[]}, {i, max}]; 
p = PlotRange -> {{0, max}, {0, 1}}; 


Animate[ 
ListLinePlot[coords[[1 ;; n]], Mesh -> All, p], 
{n, [email protected]}] 

Animate[ 
    Graphics[{[email protected]#, [email protected]#}, p, Axes -> True] &@coords[[1 ;; n]], 
{n, [email protected]}] 

Animate[ 
Graphics[{ Red, Point[#], 
      Black, BSplineCurve[#, SplineDegree -> 1]}, p] &@coords[[1 ;; n]], 
{n, [email protected]}] 
:以下のすべてのも同じことを行います
関連する問題