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

2009年8月 2日 (日)

位数39とおまけ

位数39まで追加しました。もっとも、データとして存在するのは C13 : C3 だけです。

次は位数40ですが、ここにはデータを追加すべき群が3つあります。

先日書いた、Octaveのグラフィックのことですが、どうも思ったような動作をしないので、別のものでということで、またDelphiをいじり始めました。

ちなみに、ここのホームページにある「水素原子の屈折率表示」のグラフィックは、Delphiで作成したものです。ただ、今回はもう少し新しい、Turbo Delphi Explorer(でいいのかな)をいじってみています。

きょうのおまけは、コイルを曲げて輪にしたような3Dオブジェクトのグラフィックです。例によって、maximaとgeomviewの組み合わせで動作します。

set_plot_option([plot_format,geomview]);

plot3d(
[(3+cos(8*u))*cos(u)+cos(u)*cos(8*u)*cos(v)*0.5+((cos(u)*cos(8*u)+3*cos(u))*sin(8*u)-8*sin(u))/sqrt(cos(8*u)^2+6*cos(8*u)+73)*sin(v)*0.5,
(3+cos(8*u))*sin(u)+sin(u)*cos(8*u)*cos(v)*0.5+((sin(u)*cos(8*u)+3*sin(u))*sin(8*u)+8*cos(u))/sqrt(cos(8*u)^2+6*cos(8*u)+73)*sin(v)*0.5,
sin(8*u)+sin(8*u)*cos(v)*0.5+(-cos(8*u)^2-3*cos(8*u))/sqrt(cos(8*u)^2+6*cos(8*u)+73)*sin(v)*0.5],
[u,-%pi,%pi],[v,-%pi,%pi],['grid,320,40]);

|

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

コメント

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

トラックバック


この記事へのトラックバック一覧です: 位数39とおまけ:

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