Mathematica In[1]

**ご冗談でしょう？名無しさん** · 2011/12/19(月) 01:39:32.17

最近Mathematicaを触り始めて凄い楽しいのですが、躓いてしまい力を貸してください
Plot3Dは平面を書くとき、z=ax+by+dといった式に直す必要があると思います
この時(x,y,z)=(1,0,10),(0,1,10)を通るxy平面に対して垂直な面は書けるのでしょうか
zを固定してx､yを動かす方法がわからない状態です。よろしくお願いします

**ご冗談でしょう？名無しさん** · 2011/12/19(月) 10:58:23.83

>>28

おいおい、落ち着けよ。
Mathematicaというより、まずは中学か高校の数学の話だべさ。

まず、条件は、
　a) 求める図形を3次元空間内の平面S ; ax+by+cz+d=0であるとする。
　b) 平面Sは、xy平面に垂直である。
　c) {1,0,10}と{0,1,10}の2点を通る。
でよろしいか？

すると、b) は、
　b') 平面Sは、xy平面に垂直なベクトル{0,0,1}と平行な平面である。
と言い換えられる。
c) + b')より、
　d) 平面Sは、{1,0,10}と{0,1,10}と{1,0,10}+{0,0,1}の3点を通る。
と言える。

つまり、{1,0,10}と{0,1,10}と{1,0,11}が、 ax+by+cz+d=0を満たす。

Solve[{ a 1 + b 0 + c 11 + d == 0, a 1 + b 0 + c 10 + d == 0 ,
a 0 + b 1 + c 10 + d == 0}, {a, b, c, d}]
結果は、
{{b -> a, c -> 0, d -> -a}}

つまり、求める平面の式は、簡単化して、
　x + y + 0 z -1 ==0
こういう陰関数をPlotするなら、
ContourPlot3D[
x + y + 0 z - 1 == 0, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},
AxesLabel -> {x, y, z}, AxesStyle -> Directive[FontSize -> 15]]
かね。ちなみに、ax+by+cz+d=0でc=0が答えなのに、c≠0の式を立てたらあかんわな。

**ご冗談でしょう？名無しさん** · 2011/12/19(月) 14:45:20.31

>>29

中学生はほっとけよｗ

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 10:38:18.08

こんにちは、
下記HPの添付５を、mathematica4.2で実行すると、添付６のように計算ができます。
http://www.geocities.jp/dirac_equation/kurukomi/kurikomi.html
しかし、下記HPからmathematica8の評価版をインストールして、計算すると、ちゃんと答えが出ません。どうしたらmathematica8の評価版でも計算出来るでしょうか？
http://www.wolfram.com/mathematica/trial/
なお、添付５は、下記から入手しました。
http://library.wolfram.com/infocenter/MathSource/839/

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 12:58:58.52

コマンドが改定されたからだよ

と見ないでレス

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 13:42:36.71

31です。
そうですか。１度、お試し頂ければ幸いです。
また、評価版だからかもしれませんが、mathematica８は、起動用アイコンをデスクトップに持ってきて使用すると、途中で停止します。そんなことはないでしょうか？vistaを使用しております。

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 16:27:16.20

ショートカットをデスクトップに作るといいよ

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 16:32:48.92

>>33

まだ院に入ってないなら、悪いことは言わない。
お前のようなバカはさっさと働きなさい。

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 16:39:36.20

坂の上のメコスジ

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 19:02:57.60

＞お前のようなバカはさっさと働きなさい。
お返事有り難うございます。
バカだから、質問しております。賢いのなら教えて下さい。秀才なら簡単なことでしょう。
本当に困っております。お願いします。
不明点は、以下です。

下記HPの添付５のミュウ粒子の崩壊計算は、mathematica4.2で実行すると、添付６のようにちゃんと計算ができます。
http://www.geocities.jp/dirac_equation/kurukomi/kurikomi.html
しかし、添付５のコンプトン散乱の計算が出来ません。どこをどのように修正すれば良いでしょうか？
なお、添付５は、下記から入手しました。
http://library.wolfram.com/infocenter/MathSource/839/

なお、コンプトン散乱の式は下記HPの添付７　式（6.103）を使っています。
http://www.geocities.jp/dirac_equation/kurukomi/kurikomi.html

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 19:46:15.66

>>31
compton2.m
をダウンロードして、mathematicaで開いて実行して、
M=…
M*cj[M]
%//ReleaseHold…

とその通りやっていけば大体出てくるみたいだけど？

ただ、m_eとかが、TamarA`m_eみたいになってしまう。
この変なのをどうすればいいのか俺には分からん、、。

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 21:53:24.05

お返事有り難うございます。
実行して頂いて、本当に有り難うございます。
＞ただ、m_eとかが、TamarA`m_eみたいになってしまう。
＞この変なのをどうすればいいのか俺には分からん、、。
その通りです。最初、私がやった際にも、TamarAが現れて困りました。
まず、このTamarAが出ないようにする必要があります。
TamarAGuide.nb
に書かれている通りの結果になる必要があります。
まず、TamarA.mを実行して、その後、TamarAGuide.nbを、実行する必要があります。
もしくは、compton2.m の上の塊を実行して、その後、
M=…
M*cj[M]
%//ReleaseHold…
を、実行してもOKのはずです。
ミュウの崩壊だけは、必ずできるはずです。但し、私はmathematica4を使用しております。
はmathematica８では成功しておりません。理由は不明です。
以上、何とかよろしくお願い致します。

**ご冗談でしょう？名無しさん** · 2012/01/04(水) 22:11:47.65

下記HPの添付８にtamarAの説明
添付９に、μ粒子の崩壊、μ粒子の生成、コンプトン散乱の式、計算結果を記載しました。添付９をご覧になるとわかりますが、μ粒子の崩壊、μ粒子の生成は正しい結果が導かれていますが、コンプトン散乱は、むちゃくちゃな酷い結果です。
M1=lg[ub[p],cj[eps[n]]*I*e*gm[up[n]],I*(sl[p]+sl[k]+m)/((p+k)^2-m^2),I*e*gm[up[m]]*eps[m],u[p]]
を、どのように修正すべきでしょうか？

http://www.geocities.jp/dirac_equation/kurukomi/kurikomi.html

**ご冗談でしょう？名無しさん** · 2012/01/15(日) 11:29:54.22

ご機嫌如何でしょうか？

**ご冗談でしょう？名無しさん** · 2012/01/15(日) 23:56:13.69

もうちょっと問題を切り分けて単純化してくれないと....
分野が違うものにとってはソースを見るだけでも面倒だし。

**ご冗談でしょう？名無しさん** · 2013/01/20(日) 17:29:58.11

確かに

**ご冗談でしょう？名無しさん** · 2013/04/14(日) 06:12:42.43

で、コンプトンは片づいたのかな

**ご冗談でしょう？名無しさん** · 2014/03/19(水) 22:33:19.85

以下を教えてください。

**ご冗談でしょう？名無しさん** · 2014/03/19(水) 22:41:03.90

こんにちは、
下記HPのPDFは、電子の対消滅の計算式です。
（素粒子物理　牧二郎先生、林浩一先生著P１３４，１３５抜粋）
この計算を、下記HPのmathematica eμ計算の通り、作成したのですが、エラーが発生して、答が出ません。（1/0で無限になります。）
どこを修正すれば、良いでしょうか？

http://www.geocities.jp/dirac_equation/index10.htm

**ご冗談でしょう？名無しさん** · 2014/03/20(木) 21:04:02.26

マルチするならせめてどちらかのスレに誘導しろよ

**ご冗談でしょう？名無しさん** · 2014/03/20(木) 23:41:58.99

このスレの住民って数学板のスレも見てるんじゃね
逆もしかり

マルチしても意味ないんじゃないかと

**ご冗談でしょう？名無しさん** · 2014/03/21(金) 08:00:57.19

マルチをするつもりはないのですが、もう１つの方には、「人大杉」と表示され、レスできなくなりました。
現在、Jane Styleという使い慣れていないアプリを使用しているのですが、こちらからは、もう１つの方にレスできず、結果的にマルチになっている状況です。

**ご冗談でしょう？名無しさん** · 2014/03/21(金) 08:51:31.05

再度、mathematica 伍を、Jane Styleで探すと、見つかり、レスも出来そうです。

**ご冗談でしょう？名無しさん** · 2014/03/21(金) 17:52:52.50

>>49
最近鯖がai.2ch.netに変わった

**ご冗談でしょう？名無しさん** · 2017/12/02(土) 14:38:13.23

Plot[Sin[x].{x.-Pi.Pi}]

**ご冗談でしょう？名無しさん** · 2018/01/31(水) 07:24:00.43

物理学もおもしろいけどネットで儲かる方法とか
グーグルで検索⇒『羽山のサユレイザ』

IT2NN

**ご冗談でしょう？名無しさん** · 2018/07/12(木) 20:38:40.20

僕の知り合いの知り合いができた在宅ワーク儲かる方法
時間がある方はみてもいいかもしれません
検索してみよう『立木のボボトイテテレ』

UTX

**ご冗談でしょう？名無しさん** · 2019/10/28(月) 11:12:29.19

福田博造は地獄へ落ちたのか

**ご冗談でしょう？名無しさん** · 2020/11/27(金) 09:21:25.12

福田博造は地獄へ落ちただろうな

**ご冗談でしょう？名無しさん** · 2023/08/17(木) 15:20:18.05

(・∀・)ﾆﾔﾆﾔ

**ご冗談でしょう？名無しさん** · 2024/03/29(金) 00:15:17.43

スノ1人1つスイーツ映画やるのは公休扱いだろと担任に詰め寄り担任じゃはなしにならなかったり裁判まで入力させてるからな

**ご冗談でしょう？名無しさん** · 2024/03/29(金) 00:42:15.07

全てをかけ合う系になったよ
だから全力で舵切れたな

**ご冗談でしょう？名無しさん** · 2024/03/29(金) 00:50:38.85

なぜ買い向かうのかな
あかんな