〓 Mathematica 伍 〓
■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん
2011/11/11(金) 09:02:28.82, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
過去スレ
〓Mathematica〓
http://science2.2ch.net/test/read.cgi/math/985023298/
〓 Mathematica 2 〓
http://science3.2ch.net/test/read.cgi/math/1078534285/
〓 Mathematica 3 〓
http://science6.2ch.net/test/read.cgi/math/1121413040/
〓 Mathematica 四 〓
http://kamome.2ch.net/test/read.cgi/math/1197270001/ (鯖飛びでログ消滅)
http://mimizun.com/log/2ch/math/1197270001/
〓 Mathematica 5 〓
http://kamome.2ch.net/test/read.cgi/math/1285859504/
0628１３２人目の素数さん
2014/01/15(水) 00:43:10.19>成分にバラす方法
だったら
>・エネルギー運動量保存則を使う
>・都合のいい座標系（例えば始／終状態の重心系）を取る
に従って
Simplify[y3 //. {p1 -> 0, p2 -> 0,
k0 -> p3, k1 -> 0, k2 -> 0, k3 -> -p3,
q0 -> p0, q1 -> p3*Sqrt[1 - z^2], q2 -> 0, q3 -> p3*z,
j0 -> p3, j1 -> -p3*Sqrt[1 - z^2], j2 -> 0, j3 -> -p3*z,
p0 -> (s + m^2)/(2 Sqrt[s]), p3 -> (s - m^2)/(2 Sqrt[s]),
z -> 1 + t/(2 p3^2), t -> 2 m^2 - s - u}]
とでもやれば
-512 (40 m^4 + 42 s u - 43 m^2 (s + u))
は出てくるけど。
0629１３２人目の素数さん
2014/01/15(水) 23:05:42.50MATLABの代わりになるでしょうか
0630１３２人目の素数さん
2014/01/16(木) 01:23:18.660631１３２人目の素数さん
2014/01/16(木) 06:48:26.730632１３２人目の素数さん
2014/01/16(木) 18:10:22.710633１３２人目の素数さん
2014/01/16(木) 21:32:40.04代理店からメールがきた。
アイコンは8,9と赤できてるから変えてほしいね。
俺が一番好きなアイコンは4だったか4.2だったかの
カラフルなやつ、めっちゃかっこよかった。
0634１３２人目の素数さん
2014/01/18(土) 12:54:16.61お返事有難う御座います。
＞-512 (40 m^4 + 42 s u - 43 m^2 (s + u))
＞は出てくるけど。
じぇじぇじぇじぇじぇじぇじぇじぇじぇじぇじぇじぇです。
すごいです。やっぱり世の中、賢い方がおられるのですね。
この方法は、スマートで、一発で、回答が得られます。
有難う御座いました。
申し訳御座いませんが、コンプトン散乱の最後の以下の計算につきましても、ご教示頂きましたら幸いです。
y1=(m^2*(w - w0)^2 + 2*m*w*(w - w0)*w0 + w*w0*(w^2 + w0^2))/(2*w0^4)
という式の
(w0-w)/(w0*w)
の部分を
1/m*(1-Cos[theta])
に変換したいのですが、どのようにすれば良いでしょうか？
下記の方法では、置き換えられません。
y1=(m^2*(w - w0)^2 + 2*m*w*(w - w0)*w0 + w*w0*(w^2 + w0^2))/(2*w0^4)/.(w0-w)/(w0*w)->1/m*(1-Cos[theta])
y2=(w^2*(-1 + w/w0 + w0/w + Cos[theta]^2))/(2*w0^2)
0635１３２人目の素数さん
2014/01/18(土) 21:17:43.34《下記の方法》はパターンがあっていません。むしろこの変換は
補助式による記号ｍの消去ではないでしょうか？
本来は式の組からの変数消去はEliminate[]ですが、手っ取り早く
書くと、
y1 /. Solve[(w0 - w)/(w0*w)
== 1/m*(1 - Cos[theta]), m] // Simplify
ですかね･･･
ただ w/w0の比で纏めるには、細工がいりますが、
簡単な整理ですのでマニュアルの方が早いです。
0636１３２人目の素数さん
2014/01/18(土) 22:42:25.08＞ただ w/w0の比で纏めるには、細工がいりますが、
＞簡単な整理ですのでマニュアルの方が早いです。
マニュアルを読んで纏めるようにします。
話が遡りますが、質問が中途半端でしたので、ご参考に、コンプトン散乱を計算した資料とコードを添付します。
ｐ１〜４は、「相対論的量子力学」ランダウから抜粋し、
ｐ５〜１０は、「輻射の量子論」ハイトラーから抜粋しました。
P9の図を描くため、ｐ９の式（４０）を導出したいです。
compton
の“ｃ”をクリック願います。
http://www.geocities.jp/dirac_equation/index8.htm
0637１３２人目の素数さん
2014/01/18(土) 23:39:01.55y1 /. Solve[(w0 - w)/(w0*w)
== 1/m*(1 - Cos[theta]), m] // Simplify // InputForm
は、
{(w*(w^2 - w*w0 + w0^2 + w*w0*Cos[theta]^2))/(2*w0^3)}
だから･･･あとは手操作(マニュアル)でやてってことだ。。。
ランダウか、教程はリフシッツがフォローしてたけど、場の
古典論以降ずれてる、何故今更にハイトラーなのかも判らん。
0638１３２人目の素数さん
2014/01/19(日) 10:21:53.07＞だから･･･あとは手操作(マニュアル)でやてってことだ。。。
失礼しました。マニュアルを読んで、後は、オートで計算できるように
してください。と勘違いしました。文章を読み返すと、そのように
解釈できませんが、、、早とちりでした。
しかし、全自動計算をやりたいです。この部分だけ、手計算になるからです。
（５年以上前からの悲願の部分です。）
初期条件だけ入力すれば、アウトプットの図が出るようにしたいです。
要するに、8 (m^4− s u + m^2 (3 s + u)等の計算結果から、P9の第１０図の
コンプトン散乱の実験結果を、アウトプットとして出したいです。
添付の資料から、他の計算方法を使って、全自動で計算することは出来ない
でしょうか？
＞ランダウか、教程はリフシッツがフォローしてたけど、場の
＞古典論以降ずれてる、
ランダウの本に記載されていることは、古典論ではなく、立派な
「場の量子論」の計算だと思います。
最近の教科書に記載されている計算式と基本的には変わっていないと
理解しています。（ゲージ理論等は反映されていないですが）
コプトン散乱の計算について、「ずれている」部分をご教示願います。
＞何故今更にハイトラーなのかも判らん。
P9の第１０図のようなコンプトン散乱の実験結果が記載された資料が
ないからです。ご存じでしたら、ご教示頂きましたら幸いです。
http://oshiete.goo.ne.jp/qa/8289193.html
0639１３２人目の素数さん
2014/01/19(日) 11:50:21.94＞y1 /. Solve[(w0 - w)/(w0*w)
＞== 1/m*(1 - Cos[theta]), m] // Simplify
＞ですかね･･･
本日は、休みなので、落ち着いて、計算してみますと、ご教示頂きました方法で
マニュアル操作することもなく、全自動で計算できました。
助かりました。本当に有難う御座いました。
0640１３２人目の素数さん
2014/01/19(日) 18:16:01.35青→赤になるようにグラフを色付けしてるんですが、もっといい方法あります？
あとこの方法だとカラーバーの凡例がAutomaticで表示できないのですが、
こちらもいい方法ありますか。
0641１３２人目の素数さん
2014/01/21(火) 00:23:09.34昔使った記憶しか残っていない。
他のソフトでは計算できないようなベッセル関数を
含むめんどくさい関数の積分も簡単にできた。
ファイルやフォルダもプログラムコード使って操作が
出来てなかなかの優れものと感心した覚えがある。
でも、これだけは言える。Mathematicaは価格が高すぎる。
買う気にならない。
0642１３２人目の素数さん
2014/01/21(火) 16:49:26.68スチューデント版
買え
0643１３２人目の素数さん
2014/01/21(火) 17:51:09.390644１３２人目の素数さん
2014/01/26(日) 21:09:27.43図を、繰り返し表示するにはどうしたらよいでしょうか？
以下では、表示しませんが、以下のようにして、５回plotを表示したいです。plot以外のコマンドでも、結構です。
For[n=1,n5,n++,
Plot[Sin[x],{x,0,6Pi}]
];
0645１３２人目の素数さん
2014/01/26(日) 22:08:48.900646１３２人目の素数さん
2014/01/27(月) 05:30:31.69Print@Plot[Sin[x], {x, 0, 6 Pi}]
0647１３２人目の素数さん
2014/01/27(月) 19:33:59.51ご回答有難う御座います。
よく解りました。この方法を使って、表示するようにします。
0648１３２人目の素数さん
2014/02/07(金) 11:29:43.02Spikeyちゃんだよ
http://mathworld.wolfram.com/images/gifs/SpikeyVersions.gif
http://mathworld.wolfram.com/images/eps-gif/Spiky_700.gif
http://mathworld.wolfram.com/Spikey.html
0649１３２人目の素数さん
2014/02/10(月) 23:21:19.09いちいちプログラムをすべて打ち込むの面倒なんだが
Excelとかもっと簡易的な計算ツールがあるけど
mathematicaの他に比べても優れている点、魅力って何よ？
0650１３２人目の素数さん
2014/02/11(火) 10:54:20.92きほんてきにじょうほうはなげないよ
0651１３２人目の素数さん
2014/02/11(火) 10:58:57.71ウリナラきげんをやられるとむかつくよ
0652１３２人目の素数さん
2014/02/11(火) 13:01:47.71下記HPには、３個のmathematicaプログラムが入っています。
Compton44は、４×４行列のγ行列を４個使って、コンプトン散乱を計算しています。
Compton164は、16×16行列のγ行列を４個使って、コンプトン散乱を計算しています。
この２つは、クライン仁科の式を導出しています。
さて問題は、Compton164です。これは、16×16行列のγ行列を８個使って、コンプトン散乱を計算しています。直接項と交換項は、導出できたのですが、干渉項の値が違っています。
16×16行列のγ行列の種類や係数等を、上手く使うと、クライン仁科の式を導出できると思うのですが、どのようなγ行列の種類や係数を使えば、良いでしょうか？
http://www.geocities.jp/dirac_equation/index8.htm
0653１３２人目の素数さん
2014/02/11(火) 13:04:48.57すいません。説明不足です。
ファイルは、
http://www.geocities.jp/dirac_equation/index8.htm
の中の
compton00
に入っています。
0654１３２人目の素数さん
2014/02/11(火) 15:27:26.10さて問題は、Compton168でした。
0655１３２人目の素数さん
2014/02/11(火) 17:31:29.38すいません。大きな間違いに、気づきました。
652〜654は、なかったことにしてください。
失礼しました。
0656１３２人目の素数さん
2014/02/11(火) 18:40:23.47すいません。やっぱり間違っていなかったです。
質問を書き直します。
下記HPには、３個のmathematicaプログラムが入っています。
Compton44は、４×４行列のγ行列を４個使って、コンプトン散乱を計算しています。
Compton164は、16×16行列のγ行列を４個使って、コンプトン散乱を計算しています。
この２つは、クライン仁科の式を導出しています。
問題は、Compton168です。これは、16×16行列のγ行列を８個使って、コンプトン散乱を計算しています。直接項と交換項は、導出できたのですが、干渉項の値が違っています。
16×16行列のγ行列の種類や係数等を、上手く使うと、クライン仁科の式を導出できると思うのですが、どのようなγ行列の種類や係数を使えば、良いでしょうか？
ファイルは、
http://www.geocities.jp/dirac_equation/index8.htm
の中の
compton00
に入っています。
0657１３２人目の素数さん
2014/02/11(火) 23:21:08.19そっちにちゃんと質問を書いて、答えも投稿できるようにして
お願いしますの一言とURLだけ貼れよ
0658１３２人目の素数さん
2014/02/12(水) 13:46:01.07質問への答は「違うべくして違うものを計算しているのだから一致しないのが正しい」
もはや板違いだが、まず
・何次元の時空での物理を問題にしているのか
・その時空では、電磁場の成分はいくつなのか、特に光子の偏極ベクトルについてはどうか
をはっきりさせて考察すべき。
0659１３２人目の素数さん
2014/02/12(水) 20:41:00.78＞質問への答は「違うべくして違うものを計算しているのだから一致しないのが正しい」
一般的には、そうかもしれません。しかし、実際に計算してみますと、１６×１６のγ行列８個で、直接項と交換項は、導出できました。多分、残りの干渉項も、導出できるような気がしています。
存在する、すべての１６×１６のγ行列８個で計算して、クライン仁科の式を導出できない場合は、納得します。
0660１３２人目の素数さん
2014/02/14(金) 01:00:31.52ver7をたま〜に使う標準的なユーザです。
ver9 にupdateしてまで使うメリットってありますか？
0661１３２人目の素数さん
2014/02/14(金) 03:57:00.53ver 5.2でも十分なんじゃねーの
0662１３２人目の素数さん
2014/02/14(金) 09:06:55.560663１３２人目の素数さん
2014/02/14(金) 13:55:12.330664１３２人目の素数さん
2014/02/14(金) 18:49:33.006以降を使うと戻れない
0665１３２人目の素数さん
2014/02/14(金) 22:21:26.894.0と6.0はどうちがうのですか？あなたが6.0を
持っているというだけですか？
自分のは4.5でした
0666１３２人目の素数さん
2014/02/15(土) 00:12:20.940667１３２人目の素数さん
2014/02/15(土) 01:20:28.090668１３２人目の素数さん
2014/02/15(土) 08:29:54.30使えばわかる
0669１３２人目の素数さん
2014/02/16(日) 01:41:31.22言葉で話せないんですか？
0670１３２人目の素数さん
2014/02/16(日) 12:30:23.94•インテル Core i7-4820K (クアッドコア/定格3.70GHz/TB時最大3.90GHz/L3キャッシュ10MB/HT対応)
・インテル Core i7-4930K (6コア/定格3.40GHz/TB時最大3.90GHz/L3キャッシュ12MB/HT対応)
0671１３２人目の素数さん
2014/02/16(日) 17:38:41.219だと標準で8並列まで出来るので，
両CPUでターボブーストしたとすれば，
4コア (8スレッド) よりも 6コア (12スレッド) の方がパフォーマンスが高い．
一方で並列計算が意味ない計算(CPU間通信などのオーバヘッドがでかい計算)だと
キャッシュ分しか有利じゃないな．
0672１３２人目の素数さん
2014/02/16(日) 21:52:30.72＞4コア (8スレッド) よりも 6コア (12スレッド) の方がパフォーマンスが高い．
よく解りました。Mathematica9は、並行処理が出来るのですね。使っていながら、知りませんでした。Mathematica9の素晴らしさを、改めて知りました。
大変、参考になりました。助かりました。有難う御座いました。
0673１３２人目の素数さん
2014/02/17(月) 00:29:23.04Mathematicaは12コア24スレッド並列まででしか使っていないけど
あまりコア数がきいたイメージがない
当然計算の種類にもよるだろうけど
0674１３２人目の素数さん
2014/02/17(月) 02:01:47.27なんの計算したか忘れたけど (まぁこの時点で話にならないかもしれんが)，
8並列で計算速度4倍強になった．
24スレッドで並列処理するには追加でライセンス買わないといけない．
0675１３２人目の素数さん
2014/02/17(月) 20:53:09.760676１３２人目の素数さん
2014/02/18(火) 01:35:34.59Mathematica！
スティーブン ウルフラム (著) の 『Mathematicaブック』 は、
デカいは、重いはで持ち運びで苦労したな。
もう何年前かな？ 懐かしい。
0677１３２人目の素数さん
2014/02/18(火) 01:39:13.310678１３２人目の素数さん
2014/02/18(火) 01:45:01.610679１３２人目の素数さん
2014/02/18(火) 01:51:02.77俺が自腹で買ったのはver 8だったけれど，Discしか入ってなくて「は？」ってなった
0680１３２人目の素数さん
2014/02/18(火) 16:05:08.540681１３２人目の素数さん
2014/02/18(火) 19:58:22.490682１３２人目の素数さん
2014/02/20(木) 00:59:02.600683１３２人目の素数さん
2014/02/20(木) 01:33:38.71Download版なので何もない
メールだけ
0684１３２人目の素数さん
2014/02/20(木) 14:14:51.34Fedexをはじめて受け取ったのがMathematicaのバージョンアップだった
0685１３２人目の素数さん
2014/02/20(木) 20:45:43.16伝統もオワコンになるかもシレン
0686１３２人目の素数さん
2014/02/24(月) 22:18:31.31ここに、８個の物があるとします。これを、A,B,C,Dの４種類に、対称性があるように、並べたいのですが、mathematicaのコマンドを使って、並べることは可能でしょうか？
例として
{A,A,A,A,A,A,A,A}
{A,B,A,B,A,B,A,B}
{A,A,A,A,B,B,B,B}
{A,A,B,B,C,C,D,D}
などです。
{B,D,B,C,A,C,A,A}
など、規則性がなく、でたらめに並べるのは、駄目です。
A,B,C,Dでなくても、１，２，３，４でも、青、赤、黄、緑の４種類でも結構です。
0687１３２人目の素数さん
2014/02/24(月) 22:41:36.52普通は全部列挙して「対称性」があるヤツだけ抜き出せばよろし
0688１３２人目の素数さん
2014/02/25(火) 20:30:12.68厳密には、そうかもしれません。
対称性があれば、なんでも、構いませんので、mathematicaで、並べるコマンドがあれば、教えてください。
＞普通は全部列挙して「対称性」があるヤツだけ抜き出せばよろし
それはそうですが、何卒、お願いします。
実は、８個ではなく、１６個で、やりたいのです。問題例を簡単にするため、８個としました。
0689１３２人目の素数さん
2014/02/25(火) 22:14:47.69Sort
0690１３２人目の素数さん
2014/02/25(火) 22:37:51.70>{A,B,A,B,A,B,A,B}
これを対称性があるというのか?
0691１３２人目の素数さん
2014/02/25(火) 23:30:03.92それを逆順にしてコピーしたのと２つ並べれば全部できるけどな．
0692１３２人目の素数さん
2014/02/26(水) 05:30:49.52691を応用して
左右や、上下や回転の関数を作って
1x16から4x4までの行列(ベクトル)に適用して
それをリストにして、重複するやつを排除したら？
0693１３２人目の素数さん
2014/02/26(水) 19:59:57.46イメージは、解りました。
ご教示頂いた方法で、作るかないですか？
たとえばSubsets[Range とかに、似たようなコマンドで、
作れないでしょうか？
0694１３２人目の素数さん
2014/02/26(水) 20:26:49.86まず「対称性がある」と「対称性がない」の識別条件を不足なく全部列挙してみ。
Mathematicaへの実装を考えるのはそれから。
0695１３２人目の素数さん
2014/02/26(水) 20:49:15.010696１３２人目の素数さん
2014/02/26(水) 21:32:26.770697１３２人目の素数さん
2014/02/26(水) 22:09:26.57しらんがな...
Tuples
0698１３２人目の素数さん
2014/02/27(木) 13:16:11.66「ゆとり」かね
0699１３２人目の素数さん
2014/02/27(木) 17:27:52.78>ここに、８個の物があるとします。これを、A,B,C,Dの４種類に、対称性があるように、並べたいのですが、mathematicaのコマンドを使って、並べることは可能でしょうか？
>例として
>{A,A,A,A,A,A,A,A}
>{A,B,A,B,A,B,A,B}
>{A,A,A,A,B,B,B,B}
>{A,A,B,B,C,C,D,D}
>などです。
まず
こいつのいう対称性というのがなあ
対称性という言葉を覚えたてなのか
0700１３２人目の素数さん
2014/02/27(木) 17:33:16.57if (俺の中で対称) {
選択;
} else {
捨てる;
}
}
このアルゴリズムを書くだけだから本人には簡単じゃん
他人には無理だけど
0701１３２人目の素数さん
2014/02/27(木) 18:14:10.71出題者の期待は完全に裏切ってるけどw
0702１３２人目の素数さん
2014/02/27(木) 20:11:12.24うそでしょう。
>このアルゴリズムを書くだけだから本人には簡単じゃん
たぶん、出来ません。
理由は、次のとおり、
＞ if (俺の中で対称) {
頭の中では、想像できても、実際にコードを考えると、定義が難しくて、出来ないでしょう。
＞for (全パターン) {
１６個となると、メモリーがパンクするでしょう。
0703１３２人目の素数さん
2014/02/28(金) 14:19:12.09メモリーが増え続けるはずが無いプログラムのはずなんだが、Mathematicaの
（ mathkernelじゃない）使用メモリーがどんどん増えて行き、長く表示させておくと、
必ずクラッシュする。メモリー増加のせいでクラッシュすると思うんだが、
どうにかならないかな？
0704１３２人目の素数さん
2014/02/28(金) 18:49:48.950705703
2014/02/28(金) 20:11:06.89MathKernelの使用メモリーが増えていないんだから、
プログラムではメモリー消費が増加しづけていない、と考えていいんだよね？
0706703
2014/02/28(金) 20:21:21.77でも Mathematicaの使用メモリーの増加が尋常じゃない、、、。
Magitianというユーティリティでメモリー開放すると、ぐっと減る、、、。
放っておいても mathematicaが不使用メモリーを開放してくれるのかな、、、。
でもクラッシュするからな、、、。
0707１３２人目の素数さん
2014/02/28(金) 21:02:30.58CDF Playerで動かすとどうかな?
0708１３２人目の素数さん
2014/02/28(金) 21:44:09.92結局、「出来ない。」の結論ですね。
>{A,B,A,B,A,B,A,B}
は、ローカル対称性です。
対称性は、{B,D,B,C,A,C,A,A}など、規則性がなく、でたらめに並べるのは、NGで、規則性があれば、「対称性あり」と定義します。
＞コマンド一発でなんとかなると思うのは、やっぱり＞「ゆとり」かね
そこまで、言うなら、創造性あるプログラムが書けますか？匿名で、能書きたれるだけって、空し過ぎませんか？→言うからには、責任を持って、プログラム書いてください！無責任な発言に、本気で怒っています！
0709１３２人目の素数さん
2014/02/28(金) 22:08:36.61> 規則性があれば、「対称性あり」と定義します。
{3,1,4,1,1,1,2,2}
{1,3,1,4,1,3,1,3}
{2,3,4,4,2,2,2,4}
{3,3,4,3,2,4,1,1}
…
は、ある（乱数を使わない）規則に従って生成されたものだが、「対称性あり」なのだね？
0710１３２人目の素数さん
2014/02/28(金) 22:13:06.00誤：{3,3,4,3,2,4,1,1}
正：{3,3,4,3,2,3,1,1}
だった。
0711１３２人目の素数さん
2014/02/28(金) 22:15:36.80他人にアルゴリズムを実装させようという発想について
0712１３２人目の素数さん
2014/02/28(金) 23:12:01.70>ローカル対称性
でたらめな名前を付けるな
自分勝手な対称性だろ
0713１３２人目の素数さん
2014/03/01(土) 06:58:15.38普通、プログラムで使用する乱数ですら規則に基づいて作られる。
君の言う規則が何をさすのか分からない以上、答えようがない。
0714１３２人目の素数さん
2014/03/01(土) 09:47:03.45なんかのアイデアが出るかもしれないのにな。
0715１３２人目の素数さん
2014/03/01(土) 10:25:55.67できない理由を、「対称性の定義が不明確であること。」にしていると思います。
明らかに、問題のすり替えです。
その証拠に、「対称性を、あなたが定義して、16個の物を、A,B,C,Dの４種類に、
mathematicaのコマンドを使って、並べてください。」という質問に変更しても、
あなたは、プログラムを作ることは、できないでしょう。
たぶん、出来ない理由を、再度、問題のすり替えによって、回答するだけでしょう。
0716１３２人目の素数さん
2014/03/01(土) 10:59:25.430717１３２人目の素数さん
2014/03/01(土) 11:40:48.68問題としては >>691,692 で十分でしょ
どこかよその掲示板の
もうちょっと実務的、実用的な言語で質問して
あとでMathematicaで書き直せばいいじゃん
ここで質問しても、もうまともには相手にされないよ
0718１３２人目の素数さん
2014/03/01(土) 13:54:14.27そもそも「対称性が自発的に破れる」という発想が必要なんじゃないかな。
0719１３２人目の素数さん
2014/03/02(日) 00:58:22.26>できない理由を、「対称性の定義が不明確であること。」にしていると思います。
「>>686が用いている『対称性』という用語の定義を>>686自身が明示していないこと」が原因。
「私が見て対称性があると思う」では数学的な定義になっていない。
>>708の
>規則性があれば、「対称性あり」と定義します。
も「私が見て規則性があると思う」でしかなく、定義になっていない。
とにかく>>694に答えてみてよ。
0720１３２人目の素数さん
2014/03/02(日) 01:24:22.83ところで、ホントにやりたいことは何？
0721１３２人目の素数さん
2014/03/02(日) 02:11:08.15対称性とやらが定義されていないのに，どうやって実装するのか逆に聞きたい．
君のこれまでの発言の中の「対称性」って言葉を，
全て「うんこ」という言葉に置き換えたら，
このままでは実装できないことに気づくんじゃない？
ちゃんと定義されていれば「うんこ」でも実装できるだろうよ．
0722１３２人目の素数さん
2014/03/02(日) 09:31:45.98サウンドの機能を使って、「ビンゴ」と、音を出すことは可能でしょうか？
0723１３２人目の素数さん
2014/03/02(日) 10:26:00.880724１３２人目の素数さん
2014/03/02(日) 10:38:37.47Speakは？
さもなきゃSystemDialogInput["RecordSound"]
で録音して使えば？
しかし俺のは日本語版なんだが、 Speak["ビンゴ"]としてもしゃべらない！
日本語化されてない！
0725１３２人目の素数さん
2014/03/02(日) 11:01:46.58Speak[bingo]で、なんとか、しゃべってくれました。
0726１３２人目の素数さん
2014/03/15(土) 10:43:35.80下記HPのPDFは、電子の対消滅の計算式です。
（素粒子物理 牧二郎先生、林浩一先生著P１３４，１３５抜粋）
この計算を、下記HPのmathematica eμ計算の通り、作成したのですが、エラーが発生して、答が出ません。（1/0で無限になります。）
どこを修正すれば、良いでしょうか？
http://www.geocities.jp/dirac_equation/index10.htm
0727１３２人目の素数さん
2014/03/15(土) 14:39:01.88■ このスレッドは過去ログ倉庫に格納されています