请问程序应该如何写比较好？

PEELAY

已知有三个字符串：
6 O# u5 z  l% K
! b3 G9 q, o/ r4 Za='(3/5 + exp(x + 5/6))';
2 n6 k$ A. |9 v; m7 Qb='(3/5 + exp(x))';
c='(3/5*x + exp(x - 5/6))';
2 V! V4 e" T4 U) @, \- @
现在要将exp()里的，x + 或者x - 后面的的分数变成（相应分数）的平方。如果x后面没有运算则不变换
变换结果：
0 F5 {5 X7 u+ S  O! n
a='(3/5 + exp(x + (5/6)^2))';
3 |5 c, H( h2 S# y; V# U2 eb='(3/5 + exp(x))';
8 Q1 c5 s- v  p0 L  @+ lc='(3/5*x + exp(x - (5/6)^2))';

7 @. U2 E4 Z; W; ]+ ^3 i
请问程序应该如何写比较好？感谢！
' }# L' Z, J3 J8 B8 K) q; A

leleeda

用regexp函数做正则匹配查询需要替换的位置，然后做对应替换。

Ferrya

a='3/5*x + exp(x + 5/6) + exp(x) + exp(x - 59/7)';
+ n, V8 S/ v8 y/ [! `b=regexprep(a,'(exp\(x [+-]) (\d+/\d+)','$1($2)^2');
0 V* T, G4 c9 d0 V9 r4 n6 m$ G
1 [) _  A2 y0 c/ l
3 v% e$ r( P+ h* b  }" [b =  '3/5*x + exp(x + (5/6)^2) + exp(x) + exp(x - (59/7)^2)'