求教一个mathematica的pattern的问题 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

求教一个mathematica的pattern的问题

求教一个mathematica的pattern的问题# Programming - 葵花宝典

l*i2007-12-11 08:12

1 楼

比如下面的一个表达式:
A=P[la]+P[lb]+P[ua]+P[uc]＊P[le]
有什么简单的方法把方括号里的指标的第一个字母是l的项都设成y么？我试着用
A/.{P[lx_]->y}，但是输出的结果是 3y+y^2，而正确的输出应该是
2y+P[ua]+y*P[uc]
哪位给指点一下？

c*y2007-12-11 08:12

2 楼

我不知道有啥简单的办法，但是下面的可以用
ToExpression[StringReplace[ToString[A],"l"~~_->"y"]]/.p[y]->y

【在 l*********i 的大作中提到】

: 比如下面的一个表达式:
: A=P[la]+P[lb]+P[ua]+P[uc]＊P[le]
: 有什么简单的方法把方括号里的指标的第一个字母是l的项都设成y么？我试着用
: A/.{P[lx_]->y}，但是输出的结果是 3y+y^2，而正确的输出应该是
: 2y+P[ua]+y*P[uc]
: 哪位给指点一下？

l*i2007-12-11 08:12

3 楼

It works!! Thank u so much!!!

【在 c****y 的大作中提到】

: 我不知道有啥简单的办法，但是下面的可以用
: ToExpression[StringReplace[ToString[A],"l"~~_->"y"]]/.p[y]->y