Znn3bq.jpeg
查看: 1214  |  回复: 7
【悬赏金币】回答本帖问题,作者华丽的飘过将赠送您 10 个金币

华丽的飘过

版主 (著名写手)

[求助] 如何用Mathematica处理不可对易乘法

小虫要计算一些不可对易关系的乘法,A1*A2=-A2*A1,也就是A1和A2不符合乘法交换律,但是比如AAA=(C1*A1)*(C2*A2)=C1*C2*(A1*A2)=C2*C1*(A1*A2)也就是说C1和C2是符合乘法交换律的,在Mathematica中能否有什么命令可以使这个计算实现,并提出A1*A2项的系数C1*C2呢?

其实我是想做一个外乘的事情,但是我发现Mathematica中的Wedge命令根本没法用来计算,不知哪位大侠能帮我想想该怎么实现,比如AAA=(C1*A1)*(C2*A2)=C1*C2*(A1*A2)中提出A1*A2项的系数C1*C2,最好还能自动合并A1*A2和A2*A1项(因为有A1*A2=-A2*A1关系)的程序或者命令?
回复此楼

» 收录本帖的淘帖专辑推荐

科研经验

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖


感谢参与,应助指数 +1
jjdg: 金币+1, 感谢参与 2012-11-10 01:07:19
算符**代表非对易乘法
2楼2012-11-09 03:05:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

华丽的飘过

版主 (著名写手)

引用回帖:
2楼: Originally posted by virtualzx at 2012-11-09 03:05:18
算符**代表非对易乘法

这是不行的,电脑辨别不出C的可对易,而A的不可对易
3楼2012-11-09 11:21:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)


jjdg: 金币+1, 辛苦了 2012-11-10 01:07:32
如果只是上面这样简单或者特殊的情况,应该可以直接自己定义规则,一个例子
---------------------------------------
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]
4楼2012-11-09 23:56:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

华丽的飘过

版主 (著名写手)

引用回帖:
4楼: Originally posted by walk1997 at 2012-11-09 23:56:42
如果只是上面这样简单或者特殊的情况,应该可以直接自己定义规则,一个例子
---------------------------------------
rule1 = {(x_*b) ** (y_*d) -> x*y*(b ** d), (x_*d) ** (y_*b) -> x*y*(d ** b)};
...

貌似您的方法很强大,我先试一试,先谢谢咯,不过您不点击应助,我无法给您评分啊
5楼2012-11-10 00:10:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

华丽的飘过

版主 (著名写手)

请版主帮我把帖子里许诺的金币发给4楼walk1997

多谢了
6楼2013-02-25 03:37:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)

引用回帖:
6楼: Originally posted by 华丽的飘过 at 2013-02-25 03:37:58
请版主帮我把帖子里许诺的金币发给4楼walk1997

多谢了

不用金币
回帖只是闲暇中的乐趣
不为其他
7楼2013-02-25 23:54:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

华丽的飘过

版主 (著名写手)

引用回帖:
7楼: Originally posted by walk1997 at 2013-02-25 23:54:31
不用金币
回帖只是闲暇中的乐趣
不为其他...

我又通知了版主处理,相信很快就可以处理了。我得讲信用,呵呵,谢谢您了
8楼2013-02-26 05:37:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 华丽的飘过 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 290求调剂 +13 luoziheng 2026-04-10 13/650 2026-04-11 23:15 by labixiaoqiao
[考研] 一志愿211,0703化学305分求调剂 +26 严西西戏 2026-04-06 33/1650 2026-04-11 23:01 by 314126402
[考研] 考研求调剂 +3 ban班小七 2026-04-11 3/150 2026-04-11 20:48 by may_新宇
[考研] 求调剂 +11 翩翩一书生 2026-04-09 11/550 2026-04-11 19:57 by 逆水乘风
[考研] 化学308分求调剂 +22 你好明天你好 2026-04-07 24/1200 2026-04-11 11:14 by ChemPharm
[硕博家园] 新一代电子信息294求调剂 不挑学校 +6 Ytyt11 2026-04-09 7/350 2026-04-11 10:52 by AA小小木虫
[考研] 283求调剂,工科! +12 苏打水7777 2026-04-08 12/600 2026-04-11 10:28 by 逆水乘风
[考研] 生物学调剂 +8 小冉要努力 2026-04-10 9/450 2026-04-11 10:22 by wwj2530616
[考研] 22408调剂求助 +7 毂12 2026-04-09 9/450 2026-04-11 09:23 by 哦哦123
[考研] 材料专业344求调剂 +16 hualkop 2026-04-10 21/1050 2026-04-10 17:28 by laoshidan
[考研] 本9 一志愿西工大085601 324求调剂 +5 wysyjs25 2026-04-10 5/250 2026-04-10 16:57 by luoyongfeng
[考研] 282,电气工程专业,求调剂,不挑专业 +9 jggshjkkm 2026-04-10 9/450 2026-04-10 14:55 by 逆水乘风
[考研] 一志愿211 0703化学 346分求调剂 +22 土豆er? 2026-04-09 23/1150 2026-04-10 10:58 by 高维春
[考研] 生物学调剂,一志愿西南大学348,Top期刊一区二作、二区三作,三等奖学金三次 +4 candyyyi 2026-04-09 4/200 2026-04-09 18:39 by l_paradox
[考研] 求调剂 +3 猪肉墩粉条cc 2026-04-08 4/200 2026-04-09 10:05 by 猪肉墩粉条cc
[考研] 求助071001调剂!!! +7 黄守松 2026-04-05 8/400 2026-04-09 09:07 by 徐良白眉大侠
[考研] 化工学硕 285求调剂 +26 Wisjxn 2026-04-07 26/1300 2026-04-08 14:42 by screening
[考研] 计算机11408 287 求调剂 +3 LiLe5 2026-04-07 3/150 2026-04-07 23:15 by shanqishi
[考研] 生物调剂 +5 橙子橙子橙子啊 2026-04-05 9/450 2026-04-07 15:31 by 上岸快快
[考研] 材料调剂 +11 一样YWY 2026-04-07 11/550 2026-04-07 15:13 by shdgaomin
信息提示
请填处理意见