24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1198  |  回复: 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个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求化学调剂 +4 wulanna 2026-03-28 4/200 2026-03-28 13:37 by 唐沐儿
[考研] 085600 286分 材料求调剂 +7 麻辣鱿鱼 2026-03-27 8/400 2026-03-28 12:17 by zllcz
[考研] 085701环境工程,267求调剂 +16 minht 2026-03-26 16/800 2026-03-28 12:16 by zllcz
[考研] 286求调剂 +4 丢掉懒惰 2026-03-27 7/350 2026-03-28 08:07 by baoball
[考研] 308求调剂 +7 墨墨漠 2026-03-27 7/350 2026-03-28 07:43 by 热情沙漠
[考研] 材料求调剂 一志愿哈工大总分298分,前三科223分 +5 dongfang59 2026-03-27 5/250 2026-03-28 04:53 by wxiongid
[考研] 0856材料化工调剂 总分330 +10 zhubinhao 2026-03-27 10/500 2026-03-28 03:34 by fmesaito
[考研] 266求调剂 +11 阳阳哇塞 2026-03-27 12/600 2026-03-27 17:56 by yu221
[考研] 一志愿北京化工大学 070300 学硕 336分 求调剂 +9 vv迷 2026-03-22 9/450 2026-03-27 15:59 by 不吃魚的貓
[考博] 26申博 +3 加油冲啊! 2026-03-26 3/150 2026-03-27 15:38 by cls512
[考研] 化学308分求调剂 +8 你好明天你好 2026-03-23 9/450 2026-03-27 14:01 by 杨光于青云
[考研] 276求调剂。有半年电池和半年高分子实习经历 +10 材料学257求调剂 2026-03-23 11/550 2026-03-27 10:13 by YCIT- LHL
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-26 3/150 2026-03-27 07:58 by chemisry
[考研] 中国科学院深圳先进技术研究院-光纤传感课题组招生-中国科学院大学、深圳理工大学联培 +5 YangTyu1 2026-03-26 5/250 2026-03-26 18:27 by 猫咪猫咪呀
[考研] 总分293求调剂 +6 加一一九 2026-03-25 8/400 2026-03-26 13:30 by yujianx
[考研] 一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研经历 +6 cccchenso 2026-03-23 6/300 2026-03-25 22:25 by 544594351
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 生物技术与工程 +3 1294608413 2026-03-25 4/200 2026-03-25 18:02 by 1294608413
[考研] 一志愿国科过程所081700,274求调剂 +3 三水研0水立方 2026-03-23 3/150 2026-03-23 23:11 by MajorWen
[考研] 070300,一志愿北航320求调剂 +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by 。。堂堂
信息提示
请填处理意见