〓 Mathematica 七〓 [転載禁止]©2ch.net

[過去ﾛｸﾞ] 〓 Mathematica 七〓 [転載禁止]©2ch.net (995ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

1(13): 2015/02/27(金) 10:38:04.85 ID:EbhLAWFK(1)調 AA×

2chｽﾚ:math
2chｽﾚ:math
2chｽﾚ:math
2chｽﾚ:math
外部ﾘﾝｸ:mimizun.com
2chｽﾚ:math
2chｽﾚ:math

2(2): 2015/02/27(金) 20:35:00.69 ID:+UQKa//5(1)調 AAS
前スレ>>997
>どんなプロセスを経てるのかはブラックボックスだが。

Traceを使えば途中のプロセスを確認できます(見方はヘルプ参照)。

ex.
Simplify[Sum[
n Binomial[m, n] FactorialPower[m, n] FactorialPower[l - m,
m - n], {n, 1, m}]/FactorialPower[l, m] // FunctionExpand,
Assumptions -> Element[m, Integers]] // Trace

3(2): 2015/02/28(土) 23:40:16.67 ID:DZoqI/Ay(1)調 AAS
raspberry piのmathematicaをスマホで使うってできます？
両方共Linuxだしいけそうなんだけど

4(2): 2015/03/11(水) 18:56:11.04 ID:5t8YBppG(1)調 AAS
ウルフラムデモンストレーションプロジェクト
が10000を超えたみたいだね
このスレに投稿したことある人っているの？

5: 2015/03/11(水) 19:04:21.30 ID:Np8Z0I3f(1)調 AAS
一行でさらっとデモ書けるとかっこいいんだろうな。

6: 2015/06/18(木) 22:21:54.71 ID:l1rDPpYs(1)調 AAS
閑散スレなので回答は期待しないけど、あえてお尋ねします：
wolframaplha（Web版）で、
１．Mathematicaのコマンドを実行するにはどうしたらいいのでしょうか？
　やろうとすると、認識できませんでしたとか何とか、拒否されます。
２．変数名に、たとえばi0など使うと、ベッセル級数であると勝手に解釈されてしまいます。
　この解釈をやめさせる（エスケープする）には、どうしたらよいでしょうか？

7: 2015/06/19(金) 20:03:47.34 ID:T41qgADD(1)調 AAS
具体的な｢問題点｣を特徴づける、例題はありますか？
変数名のi0が、ベッセル級数？<なら変名数変えろよ。

おら心折れて、やる気△1000％なんで↓↓↓対応よろ。

8: 2015/06/20(土) 02:42:58.70 ID:6PEFarmy(1)調 AAS
？？？

9: 2015/06/22(月) 12:20:24.66 ID:LN7kEZbm(1)調 AAS
ベクトル解析分野の研究に使ってる人がいた
図解が便利だって言ってたけど結局研究進められず
田舎に帰ってったわ　無駄な買い物だったね

10: 2015/06/22(月) 22:22:08.70 ID:eeRhDB1W(1)調 AAS
ベクトル解析分野の研究ってすごく頭の悪そうな言い方がよくできるな。

11(6): 2015/06/23(火) 01:05:36.61 ID:Uz6Ys7tN(1)調 AAS
研究利用で図解に便利と言っているぐらいだから察してあげるべき

12(6): [ばからて] 2015/06/27(土) 22:09:47.97 ID:Lroxz4xC(1)調 AAS
中身のない研究者は洗練された文言でごまかすというのが学会の常識である。

13(6): 2015/06/27(土) 22:29:22.01 ID:AND4dtuQ(1)調 AAS
中味のない研究はmathematicaでごまかすのが常識である。

14(6): 2015/07/02(木) 19:38:46.21 ID:xmHLxpka(1)調 AAS
ParametricPlot［｛cos［t］，sin［t］｝，｛t，0，2Pi｝］これで円描こうと思ったんだけど何かダメみたいです。何が間違いですか？

15: 2015/07/02(木) 20:21:59.69 ID:65cbSMwp(1)調 AAS
関数名は最初大文字

16: [ばからて] 2015/07/06(月) 19:32:10.76 ID:f2WBNGIf(1)調 AAS
Webでは大丈夫だよ

17: 2015/07/14(火) 03:46:06.73 ID:LiWlwh92(1)調 AAS
画像回転させると変な模様みたいなの出るのな
これってなんで出るんだ？

18(1): 2015/07/14(火) 17:36:08.31 ID:IZD0iO1s(1)調 AAS
モアレ？

19: 2015/07/15(水) 22:00:10.11 ID:xw9NvOmU(1)調 AAS
>>18
そうモアレ
これって回避する方法ってなんかある？

20: 2015/07/15(水) 23:58:50.60 ID:9YHmMtXT(1)調 AAS
ない！

21: 2015/07/31(金) 15:10:37.74 ID:aPY2SDMh(1)調 AAS
解像度を下げて拡大表示するしかないね。

22(2): 2015/08/13(木) 16:15:56.75 ID:ZNiLVcdt(1/2)調 AAS
Mathematica10.0.0と10.0.2の間でkeygenが使えなくなってたりしますか
なんかうまくいきません

23: 22 2015/08/13(木) 16:51:22.45 ID:ZNiLVcdt(2/2)調 AAS
解決しました！

24: 2015/08/14(金) 22:11:49.85 ID:tsvz1M5z(1)調 AAS
Mathematicaのソースコードはどこに書くのでしょうか？
ノートブックといわれるファイルに書くのでしょうか？
それともテキストエディタを使ってコードを書いて、ノートブックから読み込むのでしょうか？

25: 2015/08/14(金) 22:27:37.66 ID:131cX4Ip(1)調 AAS
ノートブックに
1+1
Enter
とか入力したらどうなるん？
つーかそもそもどういう環境？

26: 2015/08/15(土) 00:13:34.14 ID:kFSNb2CH(1)調 AAS
>Mathematicaのソースコード

それは門外不出

27: 2015/08/15(土) 07:02:59.04 ID:j0qrH8Xi(1)調 AAS
ラズベリーパイ2でのMathematicaの使い心地はどうですか？
遅すぎますか？

28: 2015/08/16(日) 13:00:55.98 ID:K3Qi5+8T(1)調 AAS
パッケージファイルのこと？

29: 2015/08/17(月) 20:45:47.61 ID:9jMMb3DB(1)調 AAS
>>22
10.0.0.2ってMACしかなくね？

30: 2015/08/19(水) 01:04:50.81 ID:MsAJerlF(1)調 AAS
10.2バージョンうｐのメールきた

31: 2015/08/19(水) 13:43:59.70 ID:cV7pE5O3(1)調 AAS
やっとかー
アメリカに遅れること約1ヶ月か。

32: [うそよ] 2015/09/02(水) 16:12:46.94 ID:P2FwdD16(1)調 AAS
むかしは
plot[....]
でぐらふがかけたのに（いまでも）
いまでは
ss := plot[....];
ではぐらふがかけないね
ss
出かける。

いつからこうなったんだろう

33: 2015/09/03(木) 02:03:56.25 ID:6b8jsJgU(1)調 AAS
最後にセミコロンがついているから、出力を抑制してるだけでは？

34: 2015/09/03(木) 02:08:19.72 ID:nPYXDvzv(1)調 AAS
:=だからじゃねーの

35: 2015/09/07(月) 04:19:54.84 ID:mkN4TiZz(1/2)調 AAS
RasberryPI2のMATHEMATICAについての質問です。
コマンドのマセマティカは動くのですが、WINDOW（X)画面はINITIALZEで灯ったままです。
そのまえは動いていたのですが、同じような経験のかたはいませんか？

36: 2015/09/07(月) 21:07:21.98 ID:mkN4TiZz(2/2)調 AAS
こわれたんだよ　キミ
やすいから　まず　CARD（１５００円）をかって再インストールするんだな

　あとは誰かよく知っている奴に教えても懶惰な

37: 2015/09/12(土) 04:24:22.92 ID:bTfzVmge(1)調 AAS
377 ：１３２人目の素数さん：2015/09/06(日) 16:49:15.46 ID:A7xQ0jVT
あ、訂正します：

Raspberry Pi2が届きました。

RaspbianをインストールしMathematicaを使ってみましたが問題がありました。
最初は起動できるのですが、一度終了して、また起動しようとすると、
「Initializing Kernels ...」というメッセージのところでフリーズ
してしまうんですよね。

調べたところまだ修正されていないバグだそうです。
対策は、WolframというGUIではないMathematicaを起動して、
PacletUpdate["CloudObject"]
を評価すると以後、問題なく使えるようになるようです。

ちなみに、Raspberry Pi2の性能でもほとんど速度的に問題なく
Mathematicaを使えるようです。

SDカードにも注意が必要です。
Amazon.co.jpで推奨のTranscendの32GBのmicroSDカードを最初に買った
のですが、エラーが出て起動できなくなりました。調べたら他にも同じ
人がいて、どうも相性が良くないようです。相性というか、Raspberry Pi2
かmicroSDカードのどちらかがmicroSDカードの仕様を満たしていないか、
microSDカードの仕様自体に問題があるかですよね。ひどい話です。

SAMSUNGの32GBのmicroSDカードを新たに買いましたが、全く問題なく
使用できています。

家でもMathematicaが安く使えるっていいですよね。

38: 2015/09/18(金) 19:58:04.49 ID:npM5UDr5(1)調 AAS
mathematicaはlispに似てるのかな？

39: 2015/09/20(日) 09:26:09.42 ID:wSAuf8N0(1)調 AAS
双方から「あんなのと一緒にするな！」と叱られそうだｗ

40: 2015/09/22(火) 22:51:36.47 ID:xhHJSXd3(1)調 AAS
ほふにゃ〜ん

41(2): 2015/10/01(木) 10:21:05.21 ID:oTlTUtkC(1/2)調 AAS
こんにちは、
すいませんが、以下を教えて下さい。
質問１、
a^(k)=Exp[k*Log[a]]
ですが、（下記の計算参照）
y1 = (1/a)^(k/2)を、変換して
　y2 = Exp[k/2*(Log[1/a])]
か、もしくは
y3 = Exp[k/2*(-Log[a])]
に書き換えることは可能でしょうか？
　可能でしたら、
(1/a)^(k/2)→ Exp[k/2*(Log[1/a])]
(1/a)^(k/2)→ Exp[k/2*(-Log[a])]
に書き換える方法を知りたいです。

x1 = a^(k)
x2 = Exp[k*Log[a]]
x1 - x2
y1 = (1/a)^(k/2)
y2 = Exp[k/2*(Log[1/a])]
y3 = Exp[k/2*(-Log[a])]

42(2): 2015/10/01(木) 10:21:31.83 ID:oTlTUtkC(2/2)調 AAS
質問２、
下記の計算で、z1=z2となりますが、前に係数kが付いただけで、
y1=y2、y1=y3となりません。
なぜでしょうか？
k =.;
a =.;
z1 = Exp[-Log[a]]
z2 = Exp[Log[1/a]]
z1 - z2
y1 = Exp[k/2*(Log[1/a])]
y2 = Exp[k/2*(-Log[a])]
y3 = Exp[-k/2*(Log[a])]
FullSimplify[y1 - y2]
FullSimplify[y1 - y3]

43: 2015/10/01(木) 13:46:42.25 ID:q69rHjXO(1)調 AAS
>>42
多価性

44(1): 2015/10/02(金) 22:56:01.28 ID:me7VNaXR(1/2)調 AAS
>>42
多価関数の分岐問題を無視するなら、FullSimplifyでなく
PowerExpandを強行作用させる。

>>41
組込関数PowerのProtect属性を一度外してオーバーロード
(再定義)する。

その際には、Exp[k Log[a]]がa^kに自動的に簡約されない
ように、HoldFormなどのラッパーをかませる。

またaがEだと無限地獄に陥るのでUnsameQなどの判定も必要。

45: 2015/10/02(金) 22:58:12.22 ID:me7VNaXR(2/2)調 AAS
やべ･･･地下スレを上げちゃったゴメンなさい

46(1): 2015/10/03(土) 12:09:38.46 ID:i3GiK4WT(1)調 AAS
>>44
ご回答有難う御座います。
＞PowerExpandを強行作用させる。
解りました。

>>41
やってみます。

47(1): 2015/10/03(土) 19:59:13.61 ID:1Xvcyzxf(1)調 AAS
>>46
言ってみたものの結構むずい、再帰終端があまいですが単純なサンプル例。

Unprotect[Power, Log];
Power[a_/;a=!=E, b_ /;b=!=-1]:=(b Log[a])//HoldForm[Power[E, #]] &
Log[Power[a_,-1]]:=-Log[a]
Protect[Power, Log];
組込関数をいじっているので、副作用に注意が必要です。

(*Test*)
(1/a)^(k/2) (* -> Exp[-1/2 k Log[a] *)
% - Exp[k/2 Log[1/a]](* -> 0 *)
Exp[-Log[a]] - Exp[Log[1/a]](* -> 0 *)

48: 2015/10/04(日) 21:14:20.33 ID:VsqVNwlb(1)調 AAS
>>47
ご回答有難う御座います。
自分でやって、直ぐに諦めました。
ご回答を見て、「やっぱ難しい。」ことが確認出来ました。
副作用に注意の上、応用して、使用させて頂きます。
助かりました。

49: 2015/10/04(日) 22:27:45.86 ID:i+FfBeQa(1)調 AAS
-1=(√(-1))^2=√((-1)^2)=1みたいな計算をするってオチが待ってるような

50: 2015/10/07(水) 05:00:12.36 ID:CGHSLu1P(1)調 AAS
マセマティカのグラフィック最初に見た時衝撃的だったなー。
コンピューターとか数学の真の姿を見た気分だったw。当時は。

51: 2015/10/07(水) 14:36:30.57 ID:iEgT5nzT(1)調 AAS
最初にmathematicaを見たのはPC98x1用のMS-DOS版だったな
早速コピーして持って帰ったｗ

52: 2015/10/07(水) 20:34:43.59 ID:GPZbsljf(1)調 AAS
当時は数式処理ソフトってフリーウェアばかりで、そんな中
商用だなんてえれー自信過剰なやつだと思ったもんだ。

53: 2015/10/07(水) 21:47:08.01 ID:xCO/kZ86(1)調 AAS
mathematicaの存在を知ったのは98年くらい。ちょうどインターネットが流行りだった頃だった
機能にもビビったが何よりも驚いたのは値段だな。adobe製品より高いじゃんって

54: 2015/10/07(水) 22:48:46.62 ID:IP1y9sj4(1)調 AAS
個人用は念頭にないのかもね

55(3): 2015/10/09(金) 16:26:19.06 ID:ZgH28ffB(1)調 AAS
研究費も取れないやつが個人で使うソフトじゃないってことだろ。

56: 2015/10/09(金) 18:42:14.39 ID:27E40q/z(1)調 AAS
Mathematica 10.2
スノレパ切り捨てかよ

57: 2015/10/09(金) 21:12:26.20 ID:GUJOWNGo(1)調 AAS
なぜ日本人には作れないのか？

58: 2015/10/09(金) 21:45:08.91 ID:rT1ZZfem(1)調 AAS
Risa/Asirは日本発だよ

59(2): 2015/10/10(土) 08:50:32.60 ID:8Ia75fQS(1)調 AAS
>>55
６０００円もあればラズパイで使えるのに

60: 2015/10/10(土) 08:54:38.12 ID:Uzke+66q(1)調 AAS
おま国な値段のホームエディション日本語版。えいごばんのねだんでも売ればいいのに

61(1): 2015/10/10(土) 22:15:49.67 ID:/4Db+7J2(1)調 AAS
ラズパイにバンドルされてるんだな
NEXTみたいだｗ
高校生が宿題やるくらいだったら余裕って程度のマシンスペックだし個人用ならアリかもな

62(2): 2015/10/11(日) 11:18:23.21 ID:6td4HPeh(1)調 AAS
>>61
2Bでどうにかまともに操作できるスペック
BまではWolfram(CUI)でないと苦痛なレベル

63: 2015/10/12(月) 16:36:51.72 ID:0PkZrgdI(1/2)調 AAS
誰かMathematicaでAVIファイルの読み込みとかやった事ある人いないか

64(4): 2015/10/12(月) 16:44:53.36 ID:0PkZrgdI(2/2)調 AAS
(* in *)
Import[
"IMGA.avi", {{
　"BitDepth",
　"ColorSpace",
"Duration",
"FrameCount",
"FrameRate",
"ImageSize",
"VideoEncoding"
}}]

Import["IMGA.avi", {"Frames", 1}]　<-この結果が欲しい

(* out *)
{8, RGBColor, 7.173776069290165`, 172, 23.976215362548828`, {1280,
720}, "MJPG"}

Import::fmterr: データをvideo形式でインポートすることができません． >>

こんな感じで読み込めないんだよ
これは文法的問題なのか動画のエンコードの問題なのか
一応Mathematica9で読み込めるMotionJPEGでエンコードしたんだが
誰か解決出来る人いない？
ちなみに，H261,H263などのコーデックは試した.

65(1): 2015/10/12(月) 21:39:23.02 ID:kOQXOCe2(1)調 AAS
>>64
10.2で手持ちのaviファイルで実行してみたけど、2つとも正常に動作した。
なので、エンコードの問題だね。

66: 2015/10/12(月) 22:54:15.27 ID:OMgfvQc/(1)調 AAS
>>65　ありがと、エンコードソフト変えてみる。

67(3): 2015/11/16(月) 12:39:42.46 ID:CDXjkC7P(1/3)調 AAS
こんにちは、

下記HPのP１０　上から６行目計算をしたいのですが、入射・散乱光子の偏極の部分（下記コード参照）を、このように計算したらいいのか？解りません。
教えて下さい。

外部ﾘﾝｸ[pdf]:members3.jcom.home.ne.jp

(*コンプトン散乱〜クライン・仁科の公式　P１０　上から６行目計算*)
s =.;
u =.;
(*ガンマ行列*)
g[0] = {{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, -1, 0}, {0, 0, 0, -1}};
g[1] = {{0, 0, 0, 1}, {0, 0, 1, 0}, {0, -1, 0, 0}, {-1, 0, 0, 0}};
g[2] = {{0, 0, 0, -I}, {0, 0, I, 0}, {0, I, 0, 0}, {-I, 0, 0, 0}};
g[3] = {{0, 0, 1, 0}, {0, 0, 0, -1}, {-1, 0, 0, 0}, {0, 1, 0, 0}};

(*入射・散乱電子・光子*)
sl[k] = g[0]*k0 + g[1]*(-k1) + g[2]*(-k2) + g[3]*(-k3);
sl[k'] = g[0]*k0' + g[1]*(-k1') + g[2]*(-k2') + g[3]*(-k3');
sl[pi] = g[0]*pi0 + g[1]*(-pi1) + g[2]*(-pi2) + g[3]*(-pi3);
sl[pf] = g[0]*pf0 + g[1]*(-pf1) + g[2]*(-pf2) + g[3]*(-pf3);
e4 = IdentityMatrix[4];
ms = m*e4;

68(2): 2015/11/16(月) 12:41:08.70 ID:CDXjkC7P(2/3)調 AAS
＞＞67の続きです

(*入射・散乱光子の偏極　ここの部分が解りません*)
(*sl[epsilon]=g[0]*epsilon0+g[1]*(-epsilon1)+g[2]*(-epsilon2)+g[3]*(-epsilon3);
sl[epsilon']=g[0]*epsilon0'+g[1]*(-epsilon1')+g[2]*(-epsilon2')+g[3]*(-epsilon3');*)
sl[epsilon] = e4;
sl[epsilon'] = e4;

(*トレース部分の計算*)
y1 = 0; y2 = 0;
For[x = 0, x <= 3, x++,
For[y = 0, y <= 3, y++,
s1 = Tr[sl[epsilon'].sl[k].sl[epsilon].(sl[pi] + ms).sl[epsilon].sl[k].sl[epsilon'].(sl[pf] + ms)];
y1 = y1 + s1;
]];

69: 2015/11/16(月) 12:42:42.80 ID:CDXjkC7P(3/3)調 AAS
＞＞68の続きです

(*計算結果の整理　入射・散乱光子の偏極でのこの部分も解りません*)
y1 = y1 //. {pi1 -> 0, pi2 -> 0, k0 -> pi3, k1 -> 0, k2 -> 0, k3 -> -pi3,
pf0 -> pi0, pf1 -> pi3*Sqrt[1 - z^2], pf2 -> 0, pf3 -> pi3*z, k' 0 -> pi3,
k' 1 -> -pi3*Sqrt[1 - z^2], k' 2 -> 0, k' 3 -> -pi3*z, pi0 -> (s + m^2)/(2 Sqrt[s]),
pi3 -> (s - m^2)/(2 Sqrt[s]), z -> 1 + t/(2 pi3^2), t -> 2 m^2 - s - u, epsilon0 -> 1,
epsilon1 -> 1, epsilon2 -> 1, epsilon3 -> 1, epsilon0' -> 1, epsilon1' -> 1, epsilon2' -> 1,
epsilon3' -> 1};
s = 2*k*pi + m^2;
u = -2*k'*pi + m^2;
Print["(*計算結果*)"];
Print[Simplify[y1]];
Print["(*正しい計算結果*)"];
8*(pi*k)*(pi*k')

70(2): 2015/11/17(火) 09:12:29.76 ID:3ovFUbn6(1/3)調 AAS
＞＞69
すいません。最後の正しい計算結果は、以下となるはずです。

Print["(*正しい計算結果*)"];
8*(pi*k)*((pi*k') + 2*(epsilon'*k)^2)

71: 2015/11/17(火) 15:58:46.02 ID:yKlve9W4(1)調 AAS
ベクトルとスカラーの区別もつかんのか

72(2): 2015/11/17(火) 17:26:13.64 ID:3ovFUbn6(2/3)調 AAS
お返事有難う御座います。

＞ベクトルとスカラーの区別もつかんのか

この部分のことでしょうか？

(*入射・散乱光子の偏極　ここの部分が解りません*)
(*sl[epsilon]=g[0]*epsilon0+g[1]*(-epsilon1)+g[2]*(-epsilon2)+g[3]*(-epsilon3);
sl[epsilon']=g[0]*epsilon0'+g[1]*(-epsilon1')+g[2]*(-epsilon2')+g[3]*(-epsilon3');*)
sl[epsilon] = e4;
sl[epsilon'] = e4;

ベクトルにしました。

外部ﾘﾝｸ:www43.tok2.com

epsilon0 -> 1,
epsilon1 -> 1, epsilon2 -> 1, epsilon3 -> 1, epsilon0' -> 1, epsilon1' -> 1, epsilon2' -> 1,
epsilon3' -> 1

この部分を、直せば、計算できるのでしょうか？

73(1): 2015/11/17(火) 21:39:39.86 ID:3ovFUbn6(3/3)調 AAS
ずーと考えているんですが、解らないです。
入射光子は
k0 -> pi3,
k1 -> 0,
k2 -> 0,
k3 -> -pi3,
で、これに直交するので、たぶん
epsilon0 -> 0,
epsilon1 -> 1,
epsilon2 -> 1,
epsilon3 -> 0,
となると思います。

では、散乱光子に
k' 0 -> pi3,
k' 1 -> -pi3*Sqrt[1 - z^2],
k' 2 -> 0,
k' 3 -> -pi3*z,
に直交する
epsilon0' -> ?,
epsilon1' -> ?,
epsilon2' -> ?,
epsilon3' -> ?;
値は、あるのでしょうか？考え方が間違っているでしょうか？

74: 2015/11/18(水) 13:05:57.11 ID:+rEnD0zr(1/2)調 AAS
>>73
>>67のpdfを最後まで読めば

75: 2015/11/18(水) 14:08:48.47 ID:3O/g4pbU(1)調 AAS
>>64
Mathematica9でAVIのデータって対応コーデックでエンコードしてるはずなのに
読み込めない事あるよね

76(1): 2015/11/18(水) 18:28:29.54 ID:ZGbh9dRh(1)調 AAS
お返事有難う御座います。
PDFのP13とP14からε(1)、ε‘(1)（=εd[1]）, ε(2)、ε‘(2)は以下のように思います。
P９のε・ε＝−１になるような“ε”が、具体的にどのような行列になるのか？解りません。

ε[1] = {0, 1, 0, 0};
ε[2] = {0, 0, 1, 0};
εd[1] = {0, Cos[theta], 0, Sin[theta]};
εd[2] = {0, 0, 1, 0};

77(1): 2015/11/18(水) 20:55:04.92 ID:+rEnD0zr(2/2)調 AAS
>>76
>ε[1] = {0, 1, 0, 0};
>ε[2] = {0, 0, 1, 0};
>εd[1] = {0, Cos[theta], 0, Sin[theta]};
>εd[2] = {0, 0, 1, 0};
各々について
>P９のε・ε＝−１
の意味での “ε[1]・ε[1]” 等を計算してみ

78(1): 2015/11/19(木) 04:59:38.05 ID:DYBf4v7N(1)調 AAS
>>77
お返事有難う御座います。

各々について
>P９のε・ε＝−１
の意味での “ε[1]・ε[1]” 等を計算してみ

考えたのですが、ε=(0,ε)の定義というか意味が解らないです。
pi=(m,0)なら、電子の静止質量ｍとし、pi=(m,0,0,0,)とわかるのですが、
ε=(0,ε)なら、ε= {0, 1, 0, 0}を素直に入れると、ε= {0,0,1, 0, 0}になってしまいます。

またεは、スカラーや行列ではなく、ベクトルなら、ε・ε＝−１になるのは,、下記のように虚数しかないと思います。
しかし、そうするとε[2]・ εd[2] =-1になってしまいます。

ε[1] = {0, I, 0, 0};
ε[2] = {0, 0, I, 0};
εd[1] = {0, I*Cos[theta], 0, I*Sin[theta]};
εd[2] = {0, 0, I, 0};

79: 2015/11/19(木) 16:32:39.76 ID:RTjH01/q(1)調 AAS
>>78
太字は３次元空間のベクトルなんじゃないの > >>67のpdf

80: 2015/11/20(金) 15:05:45.99 ID:iwwtB9CQ(1/4)調 AAS
お返事有難う御座います。

>>太字は３次元空間のベクトルなんじゃないの > >>67のpdf

その通りです。解りました。

ε・ε＝−１
ε'・ε'＝−１

ε(1)・ε'(1)＝CosΘ
ε(1)・ε'(2)＝ε(2)・ε'(1)＝0

ε(2)・ε'(2)＝1←この式は、（−１）の間違いでは無いでしょうか？PDFのP14の一番上の式

そうしますと、以下のmathematica programで、計算できるのですが、如何でしょうか？

ep = (1/Sqrt[2])*{0, I, I, 0};
epdash = (I/Sqrt[2])*{0, -Cos[theta], 1, Sin[theta]};

Simplify[ep.ep]
Simplify[epdash.epdash]

(*分解*)
ep1 = {0, I, 0, 0};
ep2 = {0, 0, I, 0};
epdash1 = {0, -I*Cos[theta], 0, I*Sin[theta]};
epdash2 = {0, 0, I, 0};

(ep1.epdash1)^2 + (ep2.epdash2)^2 + (ep1.epdash2)^2 + (ep2.epdash1)^2

Simplify[ep1.ep1]
Simplify[ep2.ep2]
Simplify[ep1.epdash1]
Simplify[ep2.epdash2]
Simplify[ep1.epdash2]
Simplify[epdash2.ep1]

81: 2015/11/20(金) 16:52:15.37 ID:5WwBOUNo(1)調 AAS
4元ベクトルの「内積」とMathematicaの「.」演算は別ものだろうに

82: 2015/11/20(金) 17:41:08.23 ID:iwwtB9CQ(2/4)調 AAS
ご指摘有難う御座います。
修正しました。これで如何でしょうか？

g = {{1, 0, 0, 0}, {0, -1, 0, 0}, {0, 0, -1, 0}, {0, 0, 0, -1}};
ep = (1/Sqrt[2])*{0, 1, 1, 0};
epdash = (1/Sqrt[2])*{0, -Cos[theta], 1, Sin[theta]};

Simplify[ep.g.ep]
Simplify[epdash.g.epdash]

(*分解*)
ep1 = {0, 1, 0, 0};
ep2 = {0, 0, 1, 0};
epdash1 = {0, -Cos[theta], 0, Sin[theta]};
epdash2 = {0, 0, 1, 0};

Simplify[(ep1.g.epdash1)^2 + (ep2.g.epdash2)^2 + (ep1.g.epdash2)^2 + \
(ep2.g.epdash1)^2]

Simplify[ep1.g.ep1]
Simplify[ep2.g.ep2]
Simplify[ep1.g.epdash1]
Simplify[ep2.g.epdash2]
Simplify[ep1.g.epdash2]
Simplify[epdash2.g.ep1]

83: 2015/11/20(金) 18:04:04.03 ID:iwwtB9CQ(3/4)調 AAS
-Cos[theta],は、間違いでしょうね。Cos[theta],が正しいはずです。

84: 2015/11/20(金) 18:46:42.15 ID:iwwtB9CQ(4/4)調 AAS
これで、如何でしょうか？

Print["(*４元ベクトル*)"];
g4 = {{1, 0, 0, 0}, {0, -1, 0, 0}, {0, 0, -1, 0}, {0, 0, 0, -1}};
ep = (1/Sqrt[2])*{0, 1, 1, 0};
epdash = (1/Sqrt[2])*{0, Cos[theta], 1, Sin[theta]};

Simplify[ep.g4.ep]
Simplify[epdash.g4.epdash]

Print["(*３次元空間ベクトル分解*)"];
g3 = {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}};
ep1 = {1, 0, 0};
ep2 = {0, 1, 0};
epdash1 = {Cos[theta], 0, Sin[theta]};
epdash2 = {0, 1, 0};

Simplify[(ep1.g3.epdash1)^2 + (ep2.g3.epdash2)^2 + (ep1.g3.epdash2)^2 \
+ (ep2.g3.epdash1)^2]

Simplify[ep1.g3.ep1]
Simplify[ep2.g3.ep2]
Simplify[ep1.g3.epdash1]
Simplify[ep2.g3.epdash2]
Simplify[ep1.g3.epdash2]
Simplify[epdash2.g3.ep1]

上下前次 1-新書関写板覧索設栞歴

あと 911 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.040s