24小时热门版块排行榜    

查看: 1570  |  回复: 6

匿名

用户注销 (正式写手)

本帖仅楼主可见

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   同方向广播   申请程序强帖   编辑   查看我的主页

walk1997

金虫 (著名写手)

不是大神 也可以瞎扯几句吧?
看不懂这代码是想做什么
而且试用了下(把丢了的 自己加了回来) 感觉这函数给出的结果不是那么的....
这函数的作用看起来是把 一个头部是相乘的表达式
1.提出各子项A_i
2.再提出这些子项A_i中头部是相加的表达式B_i
3. 把这些B_i中各相加的每项代换成相应的ar[]
4. 给出最后一个B_i相应的代换规则(看上面的代码 最后的效果只有这一项,感觉这一部分的代码有点问题 如果只想做这样的事的话 不需要用lTrans = Thread[lRep -> l];也不需用最后的Join,怀疑代码copy时候有点问题 或者代码是处理特定问题...)
5. 最后把原表达式里的各项用最后一个代换换回来
比如 你试试
test=(a + b + c) (d + e) (f + g);
test
ExpandTimesG[(a + b + c) (d + e) (f + g)]
等等
2楼2013-07-07 11:02:48
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (正式写手)

本帖仅楼主可见
3楼2013-07-07 13:13:12
已阅   申请程序强帖   编辑   查看我的主页

walk1997

金虫 (著名写手)

引用回帖:
3楼: Originally posted by liu0604 at 2013-07-07 13:13:12
代码在程序中多次用到了,有问题的可能性不大,的确是处理特定问题时的一段,但是处理的式子很复杂,含有一些张量。我在看看,谢谢您!...

处理的式子具体能写出来看下么
有点小兴趣 看看  呵呵
我的感觉是这个函数 对有些输入的表达式会给出不显式可的结果(并非所见即所得 依赖于Mathematica对表达式的排序- 也可能是我的理解还太粗浅 )
4楼2013-07-07 13:22:21
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (正式写手)

本帖仅楼主可见
5楼2013-07-07 13:36:14
已阅   申请程序强帖   编辑   查看我的主页

walk1997

金虫 (著名写手)

引用回帖:
5楼: Originally posted by liu0604 at 2013-07-07 13:36:14
我看你也是学粒子物理的,那看懂程序就没有问题了 我粘贴一个试试,这是振幅中的一项,太大了只能粘一个了,我复制成纯文本格式了,其他格式试了不行:
(-(4 Sqrt MC^3 Subsuperscript (tr[Subscript.Subscript.S ...

看不出名堂来 感觉对你这个表达式来说
上面函数的作用是 把上面这个表达式(a+b)(c+d) 变成(c+d)^2
感觉这表达式更象是个截面 确定是振幅?
--sorry  说不什么
6楼2013-07-07 13:56:12
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (正式写手)

本帖仅楼主可见
7楼2013-07-07 14:19:59
已阅   申请程序强帖   编辑   查看我的主页
相关版块跳转 我要订阅楼主 liu0604 的主题更新
信息提示
请填处理意见