あぼーん
あぼーん
51:Mathematica愛好家
02/07/23 22:36
>>49
Product[Length[f[[i]]],{i,1,Length[f]}]
とすればいいのでは？
だめ？意味が違う？
質問の答えが１２でよいのなら、僕のやりかたででます。
52:49
02/07/23 22:53
>>51
ありがとうございます。
すべての組み合わせの個数を出すのではなく、すべての組み合わせを表示させたいのです。
どうすればよいですか？
{{1,1,1,1},{1,1,1,2},{1,1,2,1},{1,1,2,2},{1,2,1,1},{1,2,1,2},
{1,2,2,1},{1,2,2,2},{1,3,1,1},{1,3,1,2},{1,3,2,1},{1,3,2,2}]
のような解がほしいのです。
よろしくおねがいします
53:名無しさん＠１周年
02/07/24 00:52
Outer[List, {1}, {1, 2}, {1, 2, 3}, {1, 2}]
54:49
02/07/24 07:33
>>53
ありがとうございます
それだと、n番目の要素がi個の場合だとできませんよね
{{1}, {1, 2}, {1, 2, 3}, {1, 2}}
の最初と最後の{をとるひつようがありますよね
わからないんですよ。そこが。
教えていただけませんでしょうか。
よろしくおねがいします
55:あぼーん
あぼーん
あぼーん
56:Mathematica愛好家
02/07/24 21:06
>>49
In:=
f = {{1}, {1, 2}, {1, 2, 3}, {1, 2}};
myOuter[l_, {s__}] := Outer[l, s];
myOuter[List, f]
Out:=
{{{{{1, 1, 1, 1}, {1, 1, 1, 2}}, {{1, 1, 2, 1}, {1, 1, 2, 2}}, {{1, 1, 3,
1}, {1, 1, 3, 2}}}, {{{1, 2, 1, 1}, {1, 2, 1, 2}}, {{1, 2, 2,
1}, {1, 2, 2, 2}}, {{1, 2, 3, 1}, {1, 2, 3, 2}}}}}
これででます。Mathematicaのユーザー会のメーリングリスト参照
57:49
02/07/25 02:12
>>56
ありがとうございます。
さんこうになりました。
mathematicaユーザーの会のメーリングリストは調べてみたんですけど、
有料なんですよね？
たまにしか使わないので・・・。
f={{{a, b}}, {{a, b}, {a, c}}, {{a, d}, {a, e}}, {{e, f}}};
のとき、
out:={{{a,b},{a,b},{a,d},{e,f}},{{a,b},{a,b},{a,e},{e,f}},
{{a,b},{a,c},{a,d},{e,f}},{{a,b},{a,c},{a,e},{e,f}}}
のような結果を得るのはどのようにすればいいのでしょうか？
>>56さんの示していただいた例でやってみましたがすべての深さまでの外積
をとってしまいますよね。むずかしいです・・・。
どうすればいいでしょうか？
58:49
02/07/25 02:25
４９です
よくメーリングリストの入会案内を見たら無料でした。
すいません。
で、早速登録しました。
過去のメールは参照できるのでしょうか？
59:名無しさん＠１周年
02/07/25 09:07
質問なんですけど、
siki=i～nまでの四則演算
で式からi～nの文字を読み出して、下の式に代入して
それぞれの文字についてテーブルを作るとかできませんか？
Table[siki,{i,10},{j,100},,,{n,5}]
よろしくお願いします。どなたか教えてください
60:Mathematica愛好家
02/07/25 14:25
>>49
mug-ctl@jp-mathusers.org
にタイトルなしで、本文に
get (番号)
をいれると過去の記事がみれます。
本文には英語と数字しか入れてはいけません。
本文に
summary
といれて送ると過去の記事の番号の表が送られてきます。
記事の内容と番号を照らし併せてget文でメールすれば過去の記事が手に入ります。
ちなみに
get 1082-1088
を本文に入れてメールを送れば49さんの質問の内容がのっています。
61:Mathematica愛好家
02/07/25 20:23
49さんへ。
In:=
g = {{{a, b}}, {{a, b}, {a, c}}, {{a, d}, {a, e}}, {{e, f}}};
Outer[List, Apply[Sequence, g], 1]
Out:=
{{{{{{a, b}, {a, b}, {a, d}, {e, f}}}, {{{a, b}, {a, b}, {a, e}, {e, f}}}},
{{{{a, b}, {a, c}, {a, d}, {e, f}}}, {{{a, b}, {a, c}, {a, e}, {e, f}}}}}}
になります。Outerの深さを引数として指定すればよいのです。
62:Mathematica愛好家
02/07/25 20:33
>>59
siki=i~nまでの四則計算ってのは具体的にどういった計算ですか？
よくわからなくて.......
+,-,*,/がランダムなのですか？
63:名無しさん＠１周年
02/07/26 00:24
Apply[List, Unevaluated[{1 + 3 + 4, 2 + 2}], 1]
とすると
{{1, 3, 4}, {2, 2}}と出るので、あとはOuterでリストは
作れるでしょう
64:名無しさん＠１周年
02/07/26 01:08
mathematicaにはexcelのテキストボックスのようなものは
ついていないのでしょうか？
65:49
02/07/26 02:39
>>Mathematica愛好家さん
ありがとうございます。こうすればよいんですね。
今月このプログラムに苦しんでいたんですよ。
66:59
02/07/26 09:43
siki={a*b*c,d/e+f-g,s*t/u}
でsiki[[1]]からsikiの長さまで
それぞれの変数(siki[[1]]ならa,b,c)についてその変数をさがして
a,b,cそれぞれについて1からnまで代入したすべての組み合わせを出したいのです。
すなわちn=3としてsiki[[1]]は
{1*1*1,1*1*2,1*1*3,1,2*1,1*2*2,1*2*3,1*3*1,,,3*3*2,3*3*3}={1,2,3,2,,18,27}
のような結果を得たいのです
よろしくお願いします
67:mathematica愛好家
02/07/26 16:02
>>49
よかったです。
68:mathematica愛好家
02/07/26 21:51
>>59さん
仕事の合間に少しずつ考えてるんですけど、スマートな方法が思いつきません。
もうちょっと、考えてみます。
69:mathematica愛好家
02/07/26 21:58
>>64さん
Mathematicaで関数すくって、Exelで図にしたいのですか？
それだったら、たとえば任意の関数f[x]に対して、
xが0から10まで0.1きざみで図を書きたい場合、
list=Table[{x,f[x]},{x,0,10,0.1}];
Export["/(好きなDirectory)/aaa.txt", list, "Table"];
でasciiテキストにしてExelで読み込めばいいです。
Directoryの階層についてはsystemによって違うのでhelpでみてください。
70:名無しさん＠１周年
02/07/29 00:38
違います。
エクセルでテキストボックスを作ると自由にレイアウトができます
同じようにマセマティカで文章を書いてレイアウトをうまくやるには
どうすればいいかという質問です。
71:mathematica愛好家
02/07/29 10:23
>>70
テキストボックスはMathematicaにはありません。
ただ、Mathematicaでは座標の位置やフォント情報を指定すれば、graph上
で軸に名前を付けて表示したりできますが難しくて結構、ストレスがたまります。
私は、Mathematicaで関数など処理したデータをきれいに印刷したりレイアウトを行う際は、
テキストとして出力してExcel,kaleida graph等で改めてプロットし直しています。
テキストでx,yカラムで出力する方法は69でかきましたが、この方法が一番きれいにプロット
できるとおもいます。
お役に立てずにすみません。
72:mathematica愛好家
02/07/29 13:28
>>70
あっ、図のレイアウトじゃなくて文章のレイアウトですか？
ワープロソフトではないのでテキストボックスのようにレイアウトするのは
かなり困難でしょう。
様々な人が.nbのNote Bookを公開してますがレイアウトのきれいさはあれくらい
が限界でしょう。
Mathematicaにはいろいろテンプレートとしてスタイルシートがあります。
フォントも変えたりしてレイアウトできますがテキストボックスのような
便利なものはありません。多分。
73:あぼーん
あぼーん
あぼーん
74:名無しさん＠１周年
02/07/31 23:38
>>72さん。おひさしぶり。
ウルフラムサイトでarXivの形式で文章を作るスタイルシートや
サンプルがダウンロードできます。サンプルをみると数式が
traditionalよりも数式らしく書かれています。4.1じゃないと
完全対応じゃないみたいですが。
4.1になって、4.0とレイアウトがより高度になったのですか？
75:mathematica愛好家
02/08/01 12:24
>>74さん。こちらこそ、お久しぶりです。
先ほどwolframのホームページをチェックしてみました。
arXivは論文投稿用のstyle sheetなのかな？
Publiconも投稿用のものですが使ったことがありません。
私はMacOSXを使用してますがOS9でしかうごかないのでまだ試してませんが、デモをみると確かにふつうのスタイルシートより”論文らしさ”がましているような気がします。
ただ、数式のパレットとスタイルシートを組み合わせれば同程度のものはできるとおもいます。
この数式パレットは4.0でも4.1でもあるのでかなりふつうの数式として出力できるので試してみてください。
確かに4.0より4.1のほうがレイアウトがきれいになり、より見やすくなりました。
74さんはMathematicaのノートブックそのままで論文投稿するような仕事をしている人ですか？
私は、学会発表などでもPowerPointに出力（グラフなど）を貼り付けてやっているのであまりスタイルシートも活用していません。
参考にならなくてごめんなさい。
76:59
02/08/07 01:21
やっぱり、上記の問題が解けません。
引数として[siki,n]としたいのです。
教えていただけないでしょうか？
どんな方法を使ってもかまいません。
よろしくお願いいたします
77:名無しさん＠１周年
02/08/08 23:52
もとの問題と、教えて貰ったものをまとめて書いて教えを請わないと
わからないよ。>>76
78:あぼーん
あぼーん
あぼーん
79:名無しさん＠１周年
02/08/09 14:14
スレ違いかもしれませんが、
ＶＣ＋＋でMathematicaを使うことはできますか？
できればプロットした絵なんかを表示したいんですが。
80:あぼーん
あぼーん
あぼーん
81:名無しさん＠１周年
02/08/09 17:37
だれかMathematicaを一から勉強するのに最適な本教えて。
82:mathematica愛好家
02/08/09 19:33
>>59さんへ
あんまり期待した答えかもしれないけどかいときます。
In[ ]:=
n = 3;
data = Table[i, {i, 1, n}];
list1 = Partition[Flatten[Outer[List, data, data, data]], 3];
list2 = Partition[Flatten[Outer[List, data, data, data, data]], 4];
list3 = Partition[Flatten[Outer[List, data, data, data]], 3];
Clear[a, b, c, d, e, f, g, s, t, u];
Flatten[Table[{siki[[1]] //. {a -> list1[[i, 1]], b -> list1[[i, 2]],
c -> list1[[i, 3]]}}, {i, 1, Length[list]}]]
Flatten[Table[{siki[[2]] //. {d -> list2[[i, 1]], e -> list2[[i, 2]],
f -> list2[[i, 3]], g -> list2[[i, 4]]}}, {i, 1, Length[list]}]]
Flatten[Table[{siki[[3]] //. {s -> list3[[i, 1]], t -> list3[[i, 2]],
u -> list3[[i, 3]]}}, {i, 1, Length[list]}]]
Out[ ]:=
{1., 2., 3., 2., 4., 6., 3., 6., 9., 2., 4., 6., 4., 8., 12., 6., 12., 18., \
3., 6., 9., 6., 12., 18., 9., 18., 27.}
{1., 0., -1., 2., 1., 0., 3., 2., 1., 0.5, -0.5, -1.5, 1.5, 0.5, -0.5, 2.5, \
1.5, 0.5, 0.333333, -0.666667, -1.66667, 1.33333, 0.333333, -0.666667, \
2.33333, 1.33333, 0.333333}
{1., 0.5, 0.333333, 2., 1., 0.666667, 3., 1.5, 1., 2., 1., 0.666667, 4., 2., \
1.33333, 6., 3., 2., 3., 1.5, 1., 6., 3., 2., 9., 4.5, 3.}
です。nを変えれば、3だけではなく4でも5でもいいです。
でも、list1,2,3は変数の数によるので注意が必要です。
ちなみに、//Nはレスを書き込む際にコピーペーストがうまくいかないので
小数ででるようにするために入れたものです。実際に計算するときははずすと分数表示になってみやすいです。
時間がだいぶかかってごめんなさいね。
83:mathematica愛好家
02/08/09 20:12
>>79さん
Mathematicaの上でC++を使いたいのですか？
それとも、C++の上でMathematicaを使いたいのですか？
MatheLinkとかlibraryをつかえばC++の上でlibararyとしてMathematicaの組み込み関数などをつかえますよ。
84:mathematica愛好家
02/08/09 20:31
>>81さん
Mathematicaを学ぶ方法としてもっとも適していると思うことは、
自分がしたい計算（たとえば微分積分など）についてMathematica Book
（アプリケーションの中にもあるし、製本したものもある、高いけど）
を丁寧によんでいろいろ試してみることだと思います。
いろいろな人がMathematicaの本を書いてるけど、基礎ができてからでないと挫折してしまうおそれがあります。
Mathematica Bookが一番のテキストだと思います。目次をみておもしろそうなのを自分で実行してみて勉強してみましょう！
85:59
02/08/09 22:36
>>mathematica愛好家さん
ありがとうございます
いまから、試してみます
この計算結果がどうしても学会に使いたいのです
86:81
02/08/09 23:08
>>mathematica愛好家さん
親切にありがとうございます。
自分が使っているのはstudent版だからMathematica Bookの本は持ってないので
アプリケーションの中にあるのでコツコツやっていこうと思います。
87:あぼーん
あぼーん
あぼーん
88:mathematica愛好家
02/08/10 11:40
>>59さん
よかったです。お役にたてて。
学会頑張ってください！
89:mathematica愛好家
02/08/10 11:48
>>81さん
Mathematicaいいやつなんで、頑張ってみてください。
ある程度わかってきたら各分野でMathematicaの本が出版されているので
専門書でさらに磨きをかけたり、Mailing Listに登録して（無料）
みんなにいろいろ質問してみてください。
もちろんこのスレでみんなに質問することもいいことだと思いますよ。
90:59
02/08/11 05:17
>>mathematica愛好家さん
やっと、さきほど自分の研究用のものに教えていただいたプログラムを
改良することができました。
結果は学会の要旨に載せられそうです。
Flatten[Table[{siki[[1]] //. {a -> list1[[i, 1]], b -> list1[[i, 2]],
c -> list1[[i, 3]]}}, {i, 1, Length[list1]}]]
こうすれば、よかったのですね
siki[[i]]の変数がn個の時にも使用できるようにがんばって改良してみます。
91:Mathematica愛好家
02/08/14 20:53
>>59さん
Length[list]って以前は書いてしまったけどどこにもlistは作ってませんでしたね。
うっかりレスを書いているときにまちがえてしまいました。
Length[list1]等にしないといけませんね。間違いに気付いてくれて良かったです。
要素がn個の時はなんだかややこしそうですね。
要旨がんばってください！
ちなみに、
In[]:=
Clear[list1, list2, list3, siki];
siki = {e1[[1]]*e1[[2]]*e1[[3]], e2[[1]]/e2[[2]] + e2[[3]] - e2[[4]], e3[[1]]*e3[[2]]/e3[[3]]};
siki[[1]]
siki[[2]]
siki[[3]]
sub1 = Table[e1[[j]] -> list1[[i, j]], {j, 1, 3}];
sub2 = Table[e2[[j]] -> list2[[i, j]], {j, 1, 4}];
sub3 = Table[e3[[j]] -> list3[[i, j]], {j, 1, 3}];
n = 3;
data = Table[i, {i, 1, n}];
list1 = Partition[Flatten[Outer[List, data, data, data]], 3];
list2 = Partition[Flatten[Outer[List, data, data, data, data]], 4];
list3 = Partition[Flatten[Outer[List, data, data, data]], 3];
Flatten[Table[{siki[[1]] //. sub1}, {i, 1, Length[list1]}]]
Flatten[Table[{siki[[2]] //. sub2}, {i, 1, Length[list2]}]]
Flatten[Table[{siki[[3]] //. sub3}, {i, 1, Length[list3]}]]
として置換リストsub1-3までつくり、要素をe1[[j]]などで一般型でかくといいかもしれません。
結果はsikiが前と同じ定義なので同じ結果が出力されるはずです。
92:あぼーん
あぼーん
あぼーん
93:あぼーん
あぼーん
あぼーん
94:Mathematica愛好家
02/08/14 23:22
>>59さん
追加です。
e[[j]]として要素を定義しますが、演算子は
siki={Sum[e[[j]],{j,1,n}],Product[e[[j]],{j,1,n}],...}
等にすればいいのでしょうか？
またうまくいけば教えてください。
95:59
02/08/18 15:56
>>Mathematica愛好家さん
ご教授ありがとうございます
式はほかのソフトウエアから取り込みます。
式の要素はn個で、式の数もi個です。
それを区別するには区切り子として*,/,+,-などをとらえる必要があると思っています
もう少し考えて見ます。
96:あぼーん
あぼーん
あぼーん
97:名無しさん＠１周年
02/09/06 23:20
MAXIMAやMATHLABは比較的盛況なのに、
Mathematicaはなぜこんなに閑古鳥が泣いているのだろうか？
98:名無しさん＠１周年
02/09/09 01:35
JLink使ってる人はいませんか？
99:名無しさん＠１周年
02/09/19 16:59
スレの趣旨とは全然関係ないですが、スチューデント版って注文から納品まで
どのくらいかかるものなんでしょう？
最初、注文したときは「一週間くらい」といわれ、２週間たったのに連絡して
こないから聞きにいったら「二、三週間くらい」といわれたのですが、たかが
ソフトの注文にそんなにかかるもんなんでしょうか？
単に生協のおばちゃんが忘れてただけじゃないかと・・・
100:名無しさん＠１周年
02/09/19 18:51
>>99
多分、生協のおばちゃんがすぐに卸業者に電話しなかったためでしょう。
ふつう、注文したら一週間ちょっとで、きます。
Mathematica 4.1を注文したときはそれくらいでした。
卸業者の在庫がなくて、という話なら別ですが…
101:名無しさん＠１周年
02/09/19 19:14
堺屋太一が恐ろしいシミュレーションをしています。
URLﾘﾝｸ(www.geocities.co.jp)
中国の需要拡大に伴い、世界的な資源危機が発生、
エネルギー資源、希少金属、食糧の国際価格が跳ね上がる。
また、日本は少子高齢化によって若年労働力が激減するため輸出競争力が低下し、
中国の輸出に押される。貿易赤字が急拡大し、2018年には1ドル300円にまで円安が進む。
国内の平均物価は現在の3倍に急騰、消費税は20％に近づく。その上、燃料税も増税されるため
ガソリン市販価格はリッター千円になる。・・・ということらしいのですが。
102:λφ³
02/09/20 01:34
>>99
わたしもバージョンアップを頼んでますが、Mathematica4.2日本語版は
WolframResearchの出荷の遅れがあって出荷は１０月になるって言って
ました。
103:名無しさん＠１周年
02/09/20 13:03
となると、私の注文も１０月まで待たされることになる可能性が高いって
ことでしょうか。それならそうと生協のおばちゃんもちゃんと報告して欲
しい、、、つーかそもそも約束の期日を越えても連絡してこないってのも
普通の社会なら許されないことでしょうけど。
104:λφ³
02/09/21 02:55
>>103
生協の人も怒ってました。WolframResearchに抗議するとか言ってたけど
音沙汰ないなぁ。どうなってんだか。
105:あぼーん
あぼーん
あぼーん
106:名無しさん＠１周年
02/09/21 16:01
>MAXIMAやMATHLABは比較的盛況なのに、
MAXIMAって別スレッドにありますけどね。
やっぱり世界的に見て人気ある数式処理はMathematica/Maple/Mathcad
数値演算はMatlab
MATHLABって何？
107:97
02/09/21 21:07
>>106
Matlabの間違いです。すみません。。。。。。
108:あぼーん
あぼーん
あぼーん
109:あぼーん
あぼーん
あぼーん
110:あぼーん
あぼーん
あぼーん
111:あぼーん
あぼーん
あぼーん
112:あぼーん
あぼーん
あぼーん
113:名無しさん＠１周年
02/10/18 22:38
mgのメーリングリスト（英語版マセマティカメーリングリスト）
でどんなことが話題になっているか、簡単（触りだけ）に紹介しましょう。
登録していない人は
URLﾘﾝｸ(smc.vnet.net)
を開けて、そこのImportant MathGroup Email Addressesの節の中の
Subscribe to MathGroup をクリックすることをお薦めします。
114:名無しさん＠１周年
02/11/01 18:22
教えてください．mathematicaで不等式ってできますか？
どうやればいいのですか？初心者なんでお願いします！
115:名無しさん＠１周年
02/11/02 02:18
<<Algebra`InequalitySolve`
InequalitySolve[x (x^2 - 2) (x^2 - 3) > 0, x]
とすると答えがでます。その他いろんなことは、ヘルプで
Master Index のボタンをおして、inequalityとしてみてはいかが？
116:114
02/11/03 16:29
１１５さんありがとうございました．ヘルプ見ましたが，お教えいただいたように入力したのですが，動きません．
パッケージが足りないとかあるんですかね？
117:あぼーん
あぼーん
あぼーん
118:あぼーん
あぼーん
あぼーん
119:名無しさん＠１周年
02/11/09 21:04
`InequalitySolve`はごらんのとおり前と後ろにバックスラッシ「`」がついて
います。そのままコピーペーストするとうごきます
120:あぼーん
あぼーん
あぼーん
121:114
02/11/09 23:21
119さんありがとうございます．
ところで，ヘルプを参考にしつつ，
実行してみました．
その手順としては，
<<Algebra`InequalitySolve` （enter）
（反応なし）
InequalitySolve[x (x^2 - 2) (x^2 - 3) > 0, x]（enter）
ヘルプではこれで解がでるはずなんですが，次のようにアウトプットされます．
InequalitySolve[x (x^2 - 2) (x^2 - 3) > 0, x]
つまり，解が出てきません．何か足りないのでしょうか？
ちなみにmathematica3.0です．
122:114
02/11/12 10:45
119さん，バージョン4.0だったら，不等式解けました．
ありがとうございました．
123:名無しさん＠１周年
02/11/13 18:49
age
124:名無しさん＠１周年
02/11/13 19:28
mathematica日本語キットをインストールしても日本語になりません。
なんで？
125:名無しさん＠１周年
02/11/13 20:18
>>124
いや、日本語キットをいれて立ち上げるとすぐに日本語になりますよ。
ちなみにわたしはMac使ってますけど、OS9では問題なく日本語キット
が動きますよ。OSXでは、OSの環境を日本語にしていれば、
本体をインストールするだけで日本語が表示されます。
ただ、工場から出荷する際、間違えて英語版を日本語版のパッケージに
いれたというミスを聞いたことがありますが、
インストールした際に日本語が表示されないときは英語版なので
交換してくれるそうです。（当たり前ですが）
Windowsにインストールしたのであれば全て再インストールしたほうがいいかも知れませんね。
ただ、再インストールすると、Math IDが変ったりしてPasswordの再発行が必要になるかも知れませんが…
126:名無しさん＠１周年
02/11/13 21:25
Windowsで再インストールしても日本語化できない。
127:名無しさん＠１周年
02/11/14 17:02
>>126
Mathematicaで使用する言語をJapaneseにしてる？
128:名無しさん＠１周年
02/11/15 20:29
オプションインスペクターで日本語にしましょう
129:名無しさん＠１周年
02/11/15 23:42
>>128 それってどこの機能？
130:名無しさん＠１周年
02/11/16 22:22
age
131:名無しさん＠１周年
02/11/17 19:28
ファイル->パレット->言語設定
でも駄目か？
132:名無しさん＠１周年
02/11/17 22:57
ファイル->パレット->
に言語設定っていうのがない！
パレットには７つ選択肢があって、
言語設定って英語でなんていいます？
Language Preference とかじゃないですか？
そういうのはないですが。
133:名無しさん＠１周年
02/11/20 05:07
age
134:名無しさん＠１周年
02/11/20 06:08
>>132
ver4.1 では、GengoSettei になってる。
135:名無しさん＠１周年
02/11/20 14:13
mathmaticaでＹの字のように２方向から進行する波が
一つに収束するようなものをアニメーションするにはどうるればいいんでしょうか？
136:名無しさん＠１周年
02/11/22 20:35
>>134 GengoSetteiなんてない
137:名無しさん＠１周年
02/11/22 20:36
>>134 GengoSetteiなんてない。ver4.0です。
138:名無しさん＠１周年
02/12/01 10:42
あげ
139:名無しさん＠１周年
02/12/01 21:14
mathematicaで有限要素法電磁界解析って無謀ですか？
Cでやるよりかなり時間かかりそうなんですが。
140:名無しさん＠１周年
02/12/01 22:04
>139
なんの目的でそういう事をするのか？
１）結果だけ欲しく、物設計用
仮に Mathematica を持っている、としても
無謀です。実行スピード、メモリサイズで
割に合いません。 Mathematica が動くスパコンを
持っているとしても、構築の手間が膨大です。
教科書コードの丸移植でもコンパイラでしょう。
２）離散化手法自体をあれこれ試す
数学が得意ならば Mathematica でもよいかも。。。
まあそういう人が作ってくれたら神でしょうがね。
141:名無しさん＠１周年
02/12/02 09:43
x y A
のようなデータの等高線を描かせて、囲まれた面積（たとえばA=20の面）
の面積を計算させることは可能でしょうか？
等高線を描かせたのはいいが、そこで行き詰っています。。。
142:名無しさん＠１周年
02/12/03 04:50
>>141
x,yが均等な間隔なら、A>=20となる点の数を数えれば良いかな。
そうでないなら、ちょっとめんどい。
143:名無しさん＠１周年
02/12/03 16:07
>>141
なんかの三次元関数z[x,y]とz=Aの切片がなす閉曲線の面積？
閉曲面の表面の面積？
何をもとめたいの？
144:名無しさん＠１周年
02/12/10 23:15
4.2やっと購入しました。OSXの上で動かしています。
何となく全ての動作がはやくなりました。すごいです。
4.0->4.1より4.1->4.2のほうがパワフルです。
145:名無しさん＠１周年
02/12/10 23:16
でももう二年たつんですね。このスレ…
146:名無しさん＠１周年
02/12/11 00:03
前までmathematicaつかっていたけど、やっぱｃやフォートランのほうが
なにぶんやりやすいぞ。
147:名無しさん＠１周年
02/12/11 12:51
>>146
確かに計算が早いけどMathematicaは組み込み関数が便利なので
ずっとMathematica使っています。データのフィッティングも簡単やし。
148:名無しさん＠１周年
02/12/12 17:31
Mathematica4.2になってから非線形の最適化プログラムが強化されましたが
そのなかで、NMinimizeというコマンド（非線形simplex法）がありますが実際使ったことのある人、
使い心地を教えてくださいませんか？また、Nelder-Meadもオプションについたみたいなんですけど
これも使ったことのある人、感想おしえてください。
149:148
02/12/16 12:20
NMinimizeは変数が二個までしかフィッティングできないので
多量変数（三個以上）の場合はFindMinimumで極小値を求めないとだめっぽい。
NMinimizeはそういうアルゴリズムなんかなぁ？
150:名無しさん＠１周年
02/12/16 14:51
NMnimizeのMethodオプションにランダムサーチやNelder-Mead
がついてるし、NMinimizeは非線形simplex法を採用していてかなり
すごい！でも、Nelder-Mead自体は1965年に発表された方法だから
採用するのに時間かかりすぎ？
また、Analysis of Variance (ANOVA)でfittingの精度をきちんと
見積もることができるようになったのはうれしい。
151:名無しさん＠１周年
02/12/16 20:07
Mathematica のホームページを見るとNMinimizeでは
「遺伝的プログラミング」を使用できると書いてあるが、
本当か？だったら本当に面白いが、「遺伝的アルゴリズム」
の間違いじゃないだろうか。
・・・と思って英語版レビューのページみたら、これはやっぱり
遺伝的アルゴリズムじゃないか！
152:名無しさん＠１周年
02/12/17 12:56
>>151
遺伝的アルゴリズムってどういうイメージ？
よくしらないんで教えてもらえるでしょうか？
153:名無しさん＠１周年
02/12/17 19:26
>>152
わかりやすいのがあんまり無いな。
URLﾘﾝｸ(florida.mes.titech.ac.jp)
154:名無しさん＠１周年
02/12/17 19:57
test
155:152
02/12/19 16:29
>>153
ありがとうございました。
さっそく勉強してみます。
156:あぼーん
あぼーん
あぼーん
157:名無しさん＠１周年
02/12/19 21:59
須藤元気がもっと強くなりますように。
158:名無しさん＠１周年
02/12/21 10:01
mathematicaで多重積分（ｎ重責分）を表現するにはどうすればよろしいですか？
これができないものかと悩んでいます。。。
159:名無しさん＠１周年
02/12/21 14:02
Integrate[f[x,y],{x,0,1},{y,0,1}]
じゃだめ？
160:158
02/12/21 17:22
2重積分ならわかるんですけどね。
一般にｎ重となるとどうしていいかわからなくて。。。。
∫…∫ｄｘ１ｄｘ２・・・・ｄｘｎ
っていうのをmathmaticaを使って計算させてみたいんです。
161:名無しさん＠１周年
02/12/21 18:44
>>160
具体的にどういう計算をしたいか良くわからんが、
Ver4.1以降ならBoole関数使うと上手く行くかも。
162:名無しさん＠１周年
02/12/21 20:02
>160
つまり、引数が可変ということ？
だとすると、こんなのはどうでしょう（頭で考えただけで未検証）
１）積分変数とその区間の組を List で作る
２）そのリストに被積分関数を Prepend
３）Apply で List を Integrate
163:162
02/12/21 23:45
もしも Integrate[f[r_vector], Domain] なんてのがご希望でしたら
すいません。
大人しくリーマン和かモンテカルロを構成するのかなぁ。。。
164:名無しさん＠１周年
02/12/22 22:23
あのお、マスマティカで経路積分がしたいんですが、よｒ
165:名無しさん＠１周年
02/12/22 22:45
>164
時間分割タイプの式をちらっとしか見たことありませんが
ちょっとしたソフトウエアプロジェクト並になると思います。
ググったら、２～３の米国大学でシラバスのトピックで
見かけた内容ですね。
領域が変なタイプの場合の対応として
積分領域を含む単純タイプの新領域 +
領域内外区別用の Heviside x 被積分関数
にしてみたり
有限分割で式を組み立てて、 Limit もしくは
分割数大で数値的な収束を見る
C とかでライブラリがありそうな気がしますので、
そのソースを解読し、 Mathematica ならではの
リスト処理をするのが早いと思います。
166:名無しさん＠１周年
02/12/24 23:35
>>164
無限重積分なんてできっこないだろ！
167:名無しさん＠１周年
02/12/26 12:24
単純にxをn回積分するのも簡単にできないのかなぁ？
168:名無しさん＠１周年
03/01/07 23:51
n個のデータをn個のファイルに保存するにはどうすればよいですか？
169:名無しさん＠１周年
03/01/08 11:35
ひとつひとつ、Exportするのはだめ？
多分、任意のn個のdataを自動的にファイルの名前にaaa_###.txt
としてセーブしたいんですよね？
めちゃめんどうです。
170:169
03/01/08 13:03
パターンの認識は他のプログラム言語（perl、awk etc）
に比べてかなり面倒です。
data[[n]]としてわりあてて
Table[Export[data[[n]].txt,data[[n]],"Table"],{n,1,100}]
として発生しておき、実行するしかないでしょう。
やったことないのでちゃんと動くか分かりませんが…
171:名無しさん＠３周年
03/02/14 17:40
誤差逆伝搬法のアルゴリズムを教えてください．
各層3層でのさくっと書いてくださる方，お願いします．
172:BP
03/02/19 12:53
>>173
バックプロパゲーションならネットでも簡単にひっかかるだろ
検索してみな
173:名無しさん＠３周年
03/04/16 23:58
「ますます出来るMathematica」
URLﾘﾝｸ(www.catkk.co.jp)
これ使うと勉強効率あがるかしら？
174:名無しさん＠３周年
03/04/25 16:50
VBAからmathematica動かしたいんですが、
詳しく書かれてるＨＰとかありませんかね？
wolframのＨＰだけだと、よくわかりません、、、
175:名無しさん＠３周年
03/05/07 22:15
age
176:200
03/06/11 19:57
200get
ついでにage
177:_
03/06/11 20:14
URLﾘﾝｸ(homepage.mac.com)
178:超初心者
04/02/05 02:45
図を描くのに必要なのですが、
ImplicitPlotはどうやったら使えるようになるのでしょうか?
ヘルプにある以下のプログラムを打ち込んでも
下の行の式をそのまま返してくるのですが･･･
<< Graphics`ImplicitPlot`
ImplicitPlot[x^2 + 2 y^2 == 3, {x, -2, 2}]
きちんと各行shift+enterで入力決定しております。
よろしくお願いします。
179:名無しさん＠３周年
04/02/05 06:34
>>178
Packageがうまく組み込めていないかもと思われ。
Input menu->Get File Pathで、<<のあとにパスを入れてミソ
きれいな楕円だね？
180:超初心者
04/02/05 15:09
>>179
お返事ありがとうございます。
申し訳ありませんが、具体的なプログラムを書いていただけますでしょうか？
<<C:\Program Files\Wolfram Research\Mathematica\5.0\SystemFiles\Graphics\Packages\FileGraphics.m Graphics`ImplicitPlot`
ImplicitPlot[x^2 + 2 y^2 == 3, {x, -2, 2}]
ではダメでした。
181:名無しさん＠３周年
04/02/05 20:40
<<"C:\\Program Files\\Wolfram
Research\\Mathematica\\3.0\\AddOns\\StandardPackages\\Graphics\\ImplicitPlot.m"
で、shift+enter
ImplicitPlot[x^2 + 2 y^2 == 3, {x, -2, 2}]
で、また、shift+enter
182:超初心者
04/02/06 02:09
>>181
大変ありがとうございます。
実は、何をやったわけではないのですが、何度か新規作成を繰り返していたら
なぜか出来るようになってしまいました。不思議です。
183:名無しさん＠３周年
04/03/05 21:10
Solveで連立線形方程式を解こうとしてるのですが、
解きたい変数の数が何十個とあります。
仕方ないので
vars = {v1,v2,…全部の変数を入力してる…,v30}
Solve[ eqns, vars ]
とやってるんですが、これではあんまり大変なので
なにか上手い方法はないでしょうか。
184:名無しさん＠３周年
04/03/07 14:49
>>183
var=Table[v[[i]],{i,1,30,1}];
にした少しは楽になるのでは？
>>182
WindowsでMathematica使うとよくそんなことあるの？（パッケージがうまくよめないとか）
Mac使ってますが、一度もそんなことないなぁ
185:名無しさん＠３周年
04/03/08 20:50
>>183
Solveじゃなくて行列使って計算するのじゃだめなのかな？
186:名無しさん＠３周年
04/04/10 09:36
mathematicaの入門とか、初心者向けの本、教えてください。
187:名無しさん＠３周年
04/04/12 10:07
>182,184
横レスですが、Mathematicaは操作の途中で生成した、
オブジェクト変数名を起動時からずっと記憶しますよね。
途中で重複した変数名が残ってしまって悪さをしたのでは？
それら途中履歴をクリアする、Clear文っていうのもあります。
>186
Mahtematica関係の本は入門書からとんでもない高度な話題のまで
いろいろありますが、自分のオススメは、
牧野書店 Mathematica 数値数式プログラミング
ISBN4-7952-0113-7 C3055
188:名無しさん＠３周年
04/04/19 21:16
初心者です。shift+enterを押しても、計算結果が出力されません。１＋１を入力してもエラーがでます。
何が原因なんでしょ。
189:名無しさん＠３周年
04/04/22 14:48
>>188
1+1を１＋１っていれているからじゃないか？
190:名無しさん＠３周年
04/04/28 17:21
>>188
まずは使っているOS, Mathematicaのバージョンなどを書いてください
191:名無しさん＠３周年
04/06/25 22:01
マスマティカで きれいに需要曲線の変化を描きたい
たとえば ケインジアン交差図と投資関数から導かれるIS曲線
Y=C(Y-T)+I(r)+G = a+b(Y-T) + c-dr + G
⇔Y=(1/1-b){a+c+G-bT-dr}
流動性選好理論から導かれるLM曲線
Ld(r.Y)=eY-fr≡Ld(M/P)
⇔r=(e/f) - (1/f)(M/P)
これらを (r.p.y)空間上で交差させて
この交点から導かれる総需要曲線
Y=(z/1-b)[a+c+G-bT-{d/f-fb)}(M/P)}]
z=f/[f+de/(1-b)] をその接点を切り取る形で表示して
これに 政府がマネーサプライを増加させたときや
租税を増加させたときどのような変化がおこるかわかりやすく図示
またピグー効果が起こった時 C(Y-T,M/P) = a+b(Y-T) +ν(M/P)
と消費関数がなるわけですが
このとき 総需要関数がどのように変化するかもわかりやすく
示したいんです
でもmatematica で 数理的に説明するよりも
自分で勝手に三次元グラフを作ってしまったほうが手っ取り早いんですね
Y=(z/1-b)[a+c+G-bT-{d/f-fb)}(M/P)}] この式から見て Mの増加や
C(Y-{T+kY}) = a+b(Y-{T+kY}) となる累進課税時に 曲線の傾きがどうなるかは簡単にわかりますが
実際にグラフで視覚的に体験して見たいのです
Mの増加は LM曲線を左方にシフトさせますが
それが需要曲線の変動とどうつながるか
三次元グラフを使って立体的に示したいんです
新着レス 2004/06/25(金) 21:57
88 名前： デフォルトの名無しさん 投稿日： 04/06/25 21:57
例えば コブダグラス型の生産関数です
z = 60 x^0.6 y^0.4
g = Plot3D[z, {x, 0, 10}, {y, 0, 10}, ViewPoint -> {-1, -3, 0.7}]
ContourPlot[z, {x, 0, 10}, {y, 0, 10}, PlotPoints -> 30]
192:名無しさん＠３周年
04/06/25 22:04
これを応用して
r = 4 - 0.5y (is曲線)
g = Plot3D[r, {x, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 0.5, 0.7}]
ContourPlot[r, {x, 0, 10}, {y, 0, 10}, PlotPoints -> 30]
164 名前： １３２人目の素数さん 投稿日： 04/06/25 11:35
s = 10y - p^2 (lm曲線 1/pではエラーなので-p^2にした)
g = Plot3D[r, {p, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 1, 0.7}]
ContourPlot[r, {p, 0, 10}, {y, 0, 10}, PlotPoints -> 30]
t = Show[r, s]
とすると
Show::"gcomb": "\!\(Show[\(\(2, \
y\)\)]\)のグラフィックオブジェクトの合成処理においてエラーが発生しました．"
と
なってしまう
193:名無しさん＠３周年
04/06/27 21:10
解決しました
URLﾘﾝｸ(www.geocities.jp)
194:名無しさん＠３周年
04/10/18 19:58:19
パターン・マッチを使って関数を定義する際に，
変数とパラメータの区別ってどうしたらできますか．
例えば，x_^y_ にマッチさせて，
x と y のどれが変数なのかによって，
返す結果を変えたいということなんですけど．
195:名無しさん＠３周年
04/10/18 20:04:25
パターン・マッチを使って関数を定義する際に，
変数とパラメータの区別ってどうしたらできますか．
例えば，x_^y_ にマッチさせて，
x と y のどれが変数なのかによって，
返す結果を変えたいということなんですけど．
196:名無しさん＠３周年
04/11/07 13:53:03
１シートあたりのデータ数の最高数（エクセルだと６５０００くらい）はいくつですか？
197:名無しさん＠３周年
04/11/14 03:13:01
最近来なくなっちゃったみたいだけど、mathematica愛好家って良い香具師だな
198:名無しさん＠３周年
04/12/08 18:41:09
楕円のシュミレーションなんですけど、楕円の回転のさせ方おしえてください。
199:名無しさん＠３周年
04/12/18 11:05:38
バージョン5.1って出てたのか・・・
なんか、面白そうな機能がついてるな。
URLﾘﾝｸ(www.wolfram.com)
200:名無しさん＠３周年
05/01/13 08:50:31
∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎―――◎ 山崎渉&ぼるじょあ
201:名無しさん＠３周年
05/02/04 00:23:35
<< Graphics`ImplicitPlot`
ImplicitPlot3D[x^2 + y^2 + z^2, {x, -3, 3}, {y, -3, 3}, {z, -3, 3},
Contours -> {1.5}]
この様な式が本に載っていたのでそのまま書いているのですが、
Options[ImplicitPlot]のタグImplicitPlotはプロテクトされています。
と出てしまいグラフ化できません。
どう言ったことが原因なのでしょうか？
202:ぼるじょあ ◆yBEncckFOU
05/02/20 09:25:04
∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎―――◎ 山崎渉&ぼるじょあ
203:名無しさん＠３周年
05/02/21 01:05:24
ううむ分からん．山崎渉は分かるが，ぼるじょあって何だ？
良く見かけるが・・・
204:山.崎 渉
05/02/22 19:37:24
...これからも僕を応援して下さいね（＾＾）。
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎―◎ 山崎渉
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
(⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎―――◎ 山崎渉&ぼるじょあ
205:名無しさん＠３周年
05/03/09 14:05:25
x + y + z =1 ( x>0 , y>0, z>0 )
の時の、x, y, zの組み合わせを使いたいのですが、
どうすれば求められるのでしょうか。
206:名無しさん＠５周年
06/01/28 09:29:16
ｆ(ｘ)を－1＜ｘ＜1の範囲内で、sin(nπｘ）及びcos(nπｘ)を用いて級数展開しなさい。
(n=1,2,3,4,5)という問題です。
これはそれぞれフーリエ正弦級数展開、余弦級数展開せよということなのでしょうか。
前者はFourierTrigSeries[f(x),x,5]、
後者はFourierCosSeries[f(x),x,5]で良いのでしょうか。
正弦はTrigで出るらしいのですが余弦は適当なコマンドが見つからなかったので
Cosをつければ出るのかと思って自分で勝手に作ったのですが・・
ｎが５まで＝５次まで展開という意味なのでしょうか。
教えてくださいですいません。よろしくお願いします。
また展開した関数のグラフを元の関数と同じグラフ上にプロットする方法も
御教示いただけるとありがたいです。
別の板にも同趣旨の書き込みしましたがレスが全然来ないのでマルチ勘弁。
207:名無しさん＠５周年
06/02/06 15:02:04
Linux版（特に６４ビット版）って、Windows版とくらべてどうでしょうか？
GUI環境は同じなのでしょうか？それとも行ベースのCUIになりますか？
他のマシン経由でTELNETあるいはSSH、RLOGINでログインして
XでのGUI環境が使えますか？
SMPのマシンの場合に、性能はシングルのマシンに比べて向上できる
のでしょうか？
208:名無しさん＠５周年
06/02/06 19:58:14
絶対登録するべき！！うそじゃなくてホントに何でも一円で買える！！
このサイトはすごすぎます！！！！
URLﾘﾝｸ(www.1yen.tv)
209:名無しさん＠５周年
06/02/07 13:13:35
mathematicaなんて数値計算シミュレーションできること限られてるよ
210:名無しさん＠５周年
06/02/08 19:14:36
そんな君に つFORTRAN
211:名無しさん＠５周年
06/03/07 21:50:58
FORTRANに出来てMathematicaに出来ない計算なんてないだろ。
ただ、FORTRANほどパッケージはないがな。
212:名無しさん＠５周年
06/05/12 14:31:40
速さの問題ではなくて？
213:名無しさん＠５周年
06/07/13 05:33:06
>>207
X client のフロントエンドがあるよ。
それより、Microsoft Windows のフロントエンドから
Linux 上の mathematica Kernel を使って計算する方法をどなたか教えて下さい。
rsh の設定はできていて、Linux 上でmathematica Kernel のプロセスは起動するんだけど、
計算結果がMicrosoft Windowsに返ってこないんです。
portブロックはLinux でも Windowsでもしてないし、Windowsファイアーウォールは無効にしたし、、、、
214:名無しさん＠５周年
06/07/13 05:41:22
このスレって６年も前からあるのね。
>>1
1 名前：名無しさん＠１周年 [] 投稿日：2000/09/26(火) 22:20
215:名無しさん＠５周年
06/11/14 23:27:43
216:名無しさん＠５周年
07/05/10 15:04:16
なんかmathematicaがようやくversion 6になったんだって? ﾌﾟｯ、おくれてんなー
matlabが6になったの何年前だと思ってんだよ、おめでてーな(ﾜﾗ
217:名無しさん＠５周年
07/05/13 23:58:34
mathematicaで棒人間アニメーション作りたいのですが…
教えて頂けませんか？
218:名無しさん＠５周年
07/06/16 11:25:53
217ですが自己解決しました
219:名無しさん＠５周年
07/06/27 09:09:33
>>218
おしえて
220:名無しさん＠５周年
07/11/27 08:18:17
f[x_]:=Ｄ[Ｊ[ｘ]､ ｘ]
として
f[0.5]
を計算しようとすると
out=f[0.5]
となってしまうのですが、
関数Ｊの形が複雑だとこうなっちゃうんですかね…
解決策ｷﾎﾞﾝﾇです。
教えてｴﾛｲ人
221:名無しさん＠５周年
07/11/30 01:42:26
それは
f[0.5]=D[J[0.5],0.5]
と解釈されて「0.5は変数じゃないから微分できないよ」
と怒られてるんじゃないのかな？
f[x]/.{x->0.5}
で置換しとけばいいと思うよ。
222:名無しさん＠５周年
07/12/04 17:04:50
>>221
㌧ｸｽ!
ほんとに助かったありがとう
223:名無しさん＠５周年
07/12/09 21:13:27
>>218
いったいどうやって自己解決したのだろうか．非常に気になる．
224:名無しさん＠５周年
08/04/18 00:29:58
Mapleの方がいいかも。
225:名無しさん＠５周年
08/10/05 16:34:57
物理板から飛んで来ました。
光に関連した授業の問で全く分かりません。。。
どなたか力を貸していただけると嬉しいです。
矩形および円形開口のフラウンホーファー回折のパターンを
マスマティカなどで計算して、開口の大きさを変えた時に
パターンがどのように変化するのか調べよ。
まず、マスマティカに入力する式が分かりません。
よろしくお願いします。
226:名無しさん＠５周年
08/11/08 18:28:37
>>222
当店の雰囲気に合った服装というのは勿論ですが、
何よりもその服装がお客様ご自身に合っているかどうか、
という点を最も重視してチェックさせて頂いております。
特別に決まりや基準があるわけではなくファッションの基本と同じですので、
難しくお考えにならずにご来店頂ければと思います。
227:名無しさん＠５周年
08/11/13 17:03:06
MathematicaのNDSolveで空間１次元の波動方程式を解く場合、
初期条件、境界条件としてどんなのが使えますか？
228:名無しさん＠５周年
09/02/14 16:37:18
朗報！Mathematica Home Edition:
URLﾘﾝｸ(www.wolfram.com)
295ドル！ 安い。貧乏人の君でも
アルバイトすれば買えるメドが立つだろう？
229:名無しさん＠５周年
09/05/10 09:11:50
For[y2 = 1, y2 < ny2 + 1, y2 = y2 + 1,
For[x2 = 1, x2 < nx2 + 1, x2 = x2 + 1,
im03ft[[y2, x2]] = If[im03f[[y2, x2]] > 30, 1, 0];
]
]
MathematicaでForループ内のIf文の30を変数にして、
Manipulateをつかいたいのですが、うまくできません。。。
どなたか知恵を御貸しください。よろしくお願いします。
230:名無しさん＠５周年
09/07/29 16:51:53
test
231:名無しさん＠５周年
09/08/02 11:46:47
Mathematica はモデリングやシミュレーションには向かないよ。
232:名無しさん＠５周年
09/08/31 22:56:20
Maple13に乗り換えることをおすすめしますよ。
233:名無しさん＠５周年
09/10/04 03:22:36
一様な電場中に導体球がおかれたときの電位・電場の様子を可視化する方法がわかりません
誰か出だしだけでも教えてもらえないでしょうか？