🚀 go-pugleaf

みかみ＠愛媛大学Ｄ3といいます。Mathematica のグラフィックに
ついて教えて頂ければ幸いです。

Arnold 方程式

x'(t)=sin(z(t))+0.3cos(y(t))
y'(t)=0.5sin(x(t))+cos(z(t))
z'(t)=0.3sin(y(t))+0.5cos(x(t))

を初期値

x(0)=3.0, y(0)=0.0, z(0)=3.0

に対して Mathematica 2.2 をつかって数値的に解き、その軌道を立
方体 [0,2pi]^3 上で表示させるため、以下のように実行しました。

sol=NDSolve[{x'[t]==Sin[z[t]]+0.3Cos[y[t]],
y'[t]==0.5Sin[x[t]]+Cos[z[t]],
z'[t]==0.3Sin[y[t]]+0.5Cos[x[t]],
x[0]==3,y[0]==0,z[0]==3},{x,y,z},{t,0,90}];
ParametricPlot3D[Evaluate[{x[t]-2Pi Floor[x[t]/(2Pi)]
,y[t]-2Pi Floor[y[t]/(2Pi)]
,z[t]-2Pi Floor[z[t]/(2Pi)]} /.sol]
,{t,0,90},AspectRatio->1
,AxesLabel->{"x","y","z"}];

岩波講座　応用数学　非線形力学（岡本　久、藤井　宏　著）の30頁の
図 3.1 のようなグラフになると思ったのですが、各座標がジャンプする
ときの軌道も表示してしまい思ったグラフが得られませんでした。
どうすればよいか悩んでいます。お知恵をかしてください。

-- 
M.Masahiro
mikmas@keimac.cs.ehime-u.ac.jp