[過去ログ] 〓 Mathematica 七 〓 [転載禁止]©2ch.net (1002レス)
上下前次1-新
抽出解除 必死チェッカー(本家) (べ) レス栞 あぼーん
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
111: 2015/12/12(土) 22:59:23.40 ID:mv17/rkp(1)調 AAS
返信ありがとうございます。
早速ノートブックにコピペしていじってみましたが、
当方Mathematica4を使用しておりまして再現できませんでした。
sol[y_] = Solve[y^2 + y == x^3 - p*x^2, x]
p = 1.5
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.01}]], {n, 1, 3}]
anim = Table[Show[gr[1], gr[2], gr[3], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/6, 2*Pi, Pi/6}]
このようにpを変化させてできる曲線でイメージはよろしいのでしょうか?
さらに、H-Functionについて不勉強で理解できておりませんのでご教授頂ければ幸いです。
追伸
面白い曲線 タイトル <ケルベロス>
sol[y_] = Solve[y^4 + y == x^4*y - x^3, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.01}]], {n, 1, 4}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ
ぬこの手 ぬこTOP 0.037s