| 查看: 1190 | 回复: 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关系）的程序或者命令？ |
回复此楼» 收录本帖的淘帖专辑推荐
 科研经验 |
» 猜你喜欢
280分求调剂 一志愿085802
已经有6人回复
-
0854电子信息求调剂
已经有3人回复
-
263求调剂
已经有4人回复
-
石河子大学（211、双一流）硕博研究生长期招生公告
已经有3人回复
-
一志愿西安交通大学材料工程专业 282分求调剂
已经有13人回复
-
北科281学硕材料求调剂
已经有6人回复
-
328求调剂，英语六级551，有科研经历
已经有10人回复
-
298求调剂
已经有6人回复
-
310求调剂
已经有4人回复
-
311求调剂
已经有6人回复
walk1997
金虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 4676.2
- 红花: 22
- 帖子: 1066
- 在线: 798.1小时
- 虫号: 416039
- 注册: 2007-06-29
- 性别: GG
- 专业: 粒子物理学和场论
★
jjdg: 金币+1, 辛苦了 2012-11-10 01:07:32
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
virtualzx
木虫 (著名写手)
- 应助: 263 (大学生)
- 金币: 7161.3
- 红花: 54
- 帖子: 1605
- 在线: 317.6小时
- 虫号: 2069080
- 注册: 2012-10-18
- 性别: GG
- 专业: 理论和计算化学
2楼2012-11-09 03:05:18
华丽的飘过
版主 (著名写手)
- 应助: 41 (小学生)
- 贵宾: 0.116
- 金币: 7633.4
- 散金: 8
- 红花: 48
- 沙发: 1
- 帖子: 1264
- 在线: 892.6小时
- 虫号: 1404465
- 注册: 2011-09-16
- 性别: GG
- 专业: 高等教育学
- 管辖: 物理
3楼2012-11-09 11:21:02
华丽的飘过
版主 (著名写手)
- 应助: 41 (小学生)
- 贵宾: 0.116
- 金币: 7633.4
- 散金: 8
- 红花: 48
- 沙发: 1
- 帖子: 1264
- 在线: 892.6小时
- 虫号: 1404465
- 注册: 2011-09-16
- 性别: GG
- 专业: 高等教育学
- 管辖: 物理
5楼2012-11-10 00:10:19
