※ 引述《oversky0 (oversky0)》之銘言：
: 請問在 Mathematica 裏要如何搜尋及取代下標(subscript)文字？
data = Subscript[x, #] & /@ Range[10]
以下用pattern match 將下標各＋10
data /. Subscript[x_, i_] :> Subscript[x, 10 + i]
將下標移除，變數多的時候比較方便
data /. Subscript[x_, i_] :> ToExpression["x" <> ToString[i]]
--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.186.105