如何用Mathematica處理不可對易乘法
小蟲要計算一些不可對易關(guān)系的乘法，A1*A2=-A2*A1，也就是A1和A2不符合乘法交換律，但是比如AAA=（C1*A1）*（C2*A2）=C1*C2*（A1*A2）=C2*C1*（A1*A2）也就是說C1和C2是符合乘法交換律的，在Mathematica中能否有什么命令可以使這個計算實現(xiàn)，并提出A1*A2項的系數(shù)C1*C2呢？
其實我是想做一個外乘的事情，但是我發(fā)現(xiàn)Mathematica中的Wedge命令根本沒法用來計算，不知哪位大俠能幫我想想該怎么實現(xiàn)，比如AAA=（C1*A1）*（C2*A2）=C1*C2*（A1*A2）中提出A1*A2項的系數(shù)C1*C2，最好還能自動合并A1*A2和A2*A1項（因為有A1*A2=-A2*A1關(guān)系）的程序或者命令？
返回小木蟲查看更多
今日熱帖
京公網(wǎng)安備 11010802022153號
算符**代表非對易乘法
這是不行的，電腦辨別不出C的可對易，而A的不可對易
如果只是上面這樣簡單或者特殊的情況，應該可以直接自己定義規(guī)則，一個例子
－--------------------------------------
rule1 = {(x_*b) ** (y_*d) -> x*y*(b ** d), (x_*d) ** (y_*b) -> x*y*(d ** b)};
rule2 = {b ** d -> -d ** b};
t1 = (a*b) ** (c*d) + (x*d) ** (y*b)
t1 = t1 /. rule1 /. rule2
Coefficient[t1, d ** b]
－---------------------------------------
如果很復雜的話，可以用nc軟件包 https://www.math.ucsd.edu/~ncalg/
<< NC`;
<< NCAlgebra`;
t1 = (AA1 ** b) ** (AA2 ** d) + (AA3 ** d) ** (AA4 ** b)
t1 = Substitute[t1, b ** d -> -d ** b]
NCCollect[t1, d ** b]，
貌似您的方法很強大，我先試一試，先謝謝咯，不過您不點擊應助，我無法給您評分啊
請版主幫我把帖子里許諾的金幣發(fā)給4樓walk1997
多謝了
不用金幣
回帖只是閑暇中的樂趣
不為其他
我又通知了版主處理，相信很快就可以處理了。我得講信用，呵呵，謝謝您了