« 追加 | トップページ | とりあえず1つ追加 »

2009年7月30日 (木)

追加とおまけ

位数36に1つ追加しました。

おまけとして、maximaとgeomviewの組み合わせで描ける3Dグラフィックの例を1つあげておきます。

以下のコマンドを実行すると、三つ葉結びを3D化した物体が描かれます(かなり長いですが)。

set_plot_option([plot_format,geomview]);

plot3d(
[(3-cos(3*u))*cos(2*u)+(-3*sin(2*u)*cos(3*u))/sqrt(13*cos(3*u)^2-24*cos(3*u)+36)*cos(v)*0.5+((6*sin(2*u)*cos(3*u)-18*sin(2*u))*sin(3*u)-13*cos(2*u)*cos(3*u)^2+24*cos(2*u)*cos(3*u)-36*cos(2*u))/sqrt(52*cos(3*u)^4-408*cos(3*u)^3+1305*cos(3*u)^2-1944*cos(3*u)+1620)*sin(v)*0.5,
(3-cos(3*u))*sin(2*u)+(3*cos(2*u)*cos(3*u))/sqrt(13*cos(3*u)^2-24*cos(3*u)+36)*cos(v)*0.5+((18*cos(2*u)-6*cos(2*u)*cos(3*u))*sin(3*u)-13*sin(2*u)*cos(3*u)^2+24*sin(2*u)*cos(3*u)-36*sin(2*u))/sqrt(52*cos(3*u)^4-408*cos(3*u)^3+1305*cos(3*u)^2-1944*cos(3*u)+1620)*sin(v)*0.5,
sin(3*u)+(2*cos(3*u)-6)/sqrt(13*cos(3*u)^2-24*cos(3*u)+36)*cos(v)*0.5+(9*cos(3*u)*sin(3*u))/sqrt(52*cos(3*u)^4-408*cos(3*u)^3+1305*cos(3*u)^2-1944*cos(3*u)+1620)*sin(v)*0.5],
[u,-%pi,%pi],[v,-%pi,%pi],['grid,160,40]);

|

« 追加 | トップページ | とりあえず1つ追加 »

コメント

この記事へのコメントは終了しました。

トラックバック


この記事へのトラックバック一覧です: 追加とおまけ:

« 追加 | トップページ | とりあえず1つ追加 »