MAXIMA - 暇つぶし2ch

MAXIMA at SIM

923:名無しさん＠５周年
08/05/15 16:02:08
maximaについて調べたときに出てきた「クラインの壷」と書かれていたのがこの式です
plot3d([5*cos(x)*(cos(x/2)*cos(y)+sin(x/2)*sin(2*y)+3.0)-10.0,-5*sin(x)*(cos(x/2)*cos(y)+sin(x/2)*sin(2*y)+3.0),5*(-sin(x/2)*cos(y)+cos(x/2)*sin(2*y))],[x,-%pi,%pi],[y,-%pi,%pi]);

これと同じような方法で立方体を表示させることができるのかという点で今悩んでいます
補足として私はwxMaximaを使用しております

924:名無しさん＠５周年
08/05/15 20:05:24
四角い平面を数式化することもできないの？それずらすだけだよな？

925:名無しさん＠５周年
08/05/16 15:40:20
平面は下のようにしたんですがそこからz軸方向に平行移動させるには
どのように修正すればいいのか・・・・・
plot3d([x,y,0],[x,0,10],[y,0,10]);

上の式がそもそも間違っているかもしれませんが。

926:名無しさん＠５周年
08/05/16 15:50:37
plot3d([x,y,1],[x,0,10],[y,0,10]);
とかすりゃ、z軸方向に移動するだろう。
複数面を同時に描くのは難しいかも。（plot3dの制約）

927:名無しさん＠５周年
08/05/16 16:01:10
ということは平行移動の軌跡みたいなことが表示できない限り立方体を
表示させることは難しい感じですね
ベクトル表記で表示させたりとかは可能でしょうか？

928:名無しさん＠５周年
08/05/17 13:29:56
>>923
URLﾘﾝｸ(aikofan.dee.cc)
ここに3Dグラフをうｐっした。
凄杉

929:名無しさん＠５周年
08/05/21 15:46:58
>>928
URLﾘﾝｸ(maxima.sourceforge.net)

930:名無しさん＠５周年
08/05/21 20:13:00
>>929
(∩´∀｀)∩ﾜｰｲ
見ました。メビウスの輪も書けるとはスゴス

931:名無しさん＠５周年
08/05/22 22:55:42
>>911-912
Mathematica Link for Excelみたいなのが欲しいって事なのかな？
Maxima Link for OpenOffice.org/StarSuite(仮称)なら需要あるのかも。

932:名無しさん＠５周年
08/05/23 01:29:04
Maxima Link for Koffice/gnumeric

933:911
08/05/24 17:26:01
>>931

>Mathematica Link for Excelは、1,000 種類を超える関数やオプションを
>Excel 上で利用できます。
>関数やオプションは、Mathematica ファンクション・ウィザードを使うことで、
>インタラクティブに探し求めることができます。
>Excel 関数の書式から数式処理を実行したり、複素根を求めたり、
>方程式をプロットしたりといった様々な演算を素早く実行できます。

まさにこんな感じです。そんなに多機能でなくても良いので
『Maxima Link for Excel（仮称）』というフリーソフトがあったらいいなと。

>>Excelってとこでやる気減退する人が多いと想像する

なんですかね・・・。

934:名無しさん＠５周年
08/05/24 20:21:03
>>933
maximaのプログラムを書く人たちって、linux/bsd系だろうから、
その時点でexcelとのリンクは頭にないかもしれないね。

gnumericあたりならpythonでプラグインが作れたりするから、
作ろうとする人はいるかもね。swankサーバーからmaxima が
使えるようになるといいとは思うけどな。

935:名無しさん＠５周年
08/05/25 21:01:58
　L d/dt I(t)+ R I(t)+(1/C) q(t)=0
をmaximaで解けますか?

936:名無しさん＠５周年
08/05/25 22:02:53
(%i9) set_display('none)$
(%i10) df:L*'diff(I,t,2)+R*'diff(I,t,1)+1/C=0;
(%o10) 'diff(I,t,1)*R+'diff(I,t,2)*L+1/C = 0
(%i11) ode2(df,I,t);
Is R zero or nonzero?nonzero;
(%o11) I = %k2*%e^-(t*R/L)-(t*R-L)/(C*R^2)+%k1(%i12)

937:名無しさん＠５周年
08/05/25 22:26:58
>>936　(∩´∀｀)∩ﾜｰｲ

もうとけたの。すごーい。
3種の解が求まるはずなんですが、これは
特性方程式の判別式D>0の解でつね。

938:名無しさん＠５周年
08/05/25 22:54:11
>>937
あ、間違えてたｗ

(%i12) df:L*'diff(I,t,2)+R*'diff(I,t,1)+1/C*I=0;
(%o12) 'diff(I,t,1)*R+'diff(I,t,2)*L+I/C = 0
(%i13) ode2(df,I,t);Is C*(C*R^2-4*L) positive, negative, or zero?p;
(%o13) I = %k1*%e^(t*(sqrt(R^2/L^2-4/(C*L))-R/L)/2) +%k2*%e^(t*(-sqrt(R^2/L^2-4/(C*L))-R/L)/2)

positive, negative, or zero?
の答え方で３つに分かれます。

939:名無しさん＠５周年
08/05/27 06:07:15
>>938
ｔｈｘ

940:名無しさん＠５周年
08/06/02 16:11:09
>>931
common lispのpyffiにOppen Ofiiceとの接続デモがある
excelじゃないけど、こっちじゃだめなの？

941:名無しさん＠５周年
08/06/08 01:21:22
clispからＯＬＥ呼び出せれるんなら、簡単につくれそうだけど。
もちろん、私は、使わないから作らない。

942:名無しさん＠５周年
08/06/14 08:15:21
論理式は扱えないですか？

943:名無しさん＠５周年
08/06/21 09:52:41
URLﾘﾝｸ(code.google.com)