1

私は8つの惑星の重力場をモデル化し、結果のContourPlotを.aviファイルとしてエクスポートしようとしています。問題は、AnimateにAnimationDirection-> Forwardを明示的に指示したにもかかわらず、.aviがアニメーションを順方向と逆方向の両方で再生することです。誰かが解決策を知っていますか？問題のあるコードは次のとおりです。

gfield = Animate[
  ContourPlot[
   Sqrt[Fgravplanets[x, y, t][[1]]^2 + Fgravplanets[x, y, t][[2]]^2],
   {x, -1.5 rp["Neptune"], 1.5 rp["Neptune"]}, {y, -1.5 rp["Neptune"],
     1.5 rp["Neptune"]},
   PlotRange -> {0, 10},
   Mesh -> None,
   ImageSize -> Medium,
   AxesLabel -> {"x", "y", "Fgrav"},
   ColorFunction -> Hue,
   PlotPoints -> 20,
   Contours -> 20
   ],
  {t, 0, 365*24*3600*10, 365*24*3600/10},
  AnimationDirection -> Forward,
  AnimationRate -> 365*24*3600/5
  ]
Export["gfield.avi", gfield]
4

1 に答える 1

1

次のように置き換えAnimateてTableください：

gfield = Table[
   ContourPlot[
   Sqrt[Fgravplanets[x, y, t][[1]]^2 + Fgravplanets[x, y, t][[2]]^2],
   {x, -1.5 rp["Neptune"], 1.5 rp["Neptune"]}, {y, -1.5 rp["Neptune"],
    1.5 rp["Neptune"]},
   PlotRange -> {0, 10},
   Mesh -> None,
   ImageSize -> Medium,
   AxesLabel -> {"x", "y", "Fgrav"},
   ColorFunction -> Hue,
   PlotPoints -> 20,
   Contours -> 20
   ],
 {t, 0, 365*24*3600*10, 365*24*3600/10}];

Export["gfield.avi", gfield]

.aviへのエクスポートは、グラフィックのリストで期待どおりに機能します。Table目的のフレームレートを実現するには、イテレータのステップサイズを調整する必要がある場合があります。

于 2012-10-16T21:37:13.883 に答える