sol=NDSolve[{x'[t]==10(y[t]-x[t]),y'[t]==x[t](28-z[t])-y[t],z'[t]==x[t]y[t]-(8/3)z[t],x[0]==1,y[0]==0,z[0]==0},{x[t],y[t],z[t]},{t,0,50}]; p[t_]={x[t],y[t],z[t]}/.sol[[1]]; lorenz=ParametricPlot3D[p[t],{t,0,50},PlotRange->All] 参考: レクチ…

page layout を使って三面図にしてみる。

Nspire の graphs アプリケーションは 3D の scatter plot が描けないため xz 面だけ描いてみる。参考：レクチャーズオンMathematica作者: 川平友規出版社/メーカー: プレアデス出版発売日: 2013/05/01メディア: 単行本この商品を含むブログ (1件) を見るpp.…