如何让公式中的下标被替换

Question

我想让公式中的下标被替换掉，但是目前的代码只能在结果中替换下标，求指导

Unprotect[Subscript];
Subscript[x_, i_] := ToExpression@StringJoin[ToString /@ {x, i}];
A = {{0, 0, 1, 0}, {0, 0, 0, 
    1}, {-(Subscript[k, 11]/Subscript[m, 1]), -(Subscript[k, 12]/
     Subscript[m, 1]), 0, 
    0}, {-(Subscript[k, 21]/Subscript[m, 2]), -(Subscript[k, 22]/
     Subscript[m, 2]), 0, 0}};
Eigenvalues[A]
Eigenvectors[A] // FullSimplify // MatrixForm

Answer 1

1. Subscript没有Protected属性，不用Unprotect。

2. 试试Ctrl+Shift+Enter原地执行。（你可以只选定代码的一部分再这么做。）

3. m1的键长明明比Subscript[m,1]的键长要短，特地绕这个弯的意义到底在哪里？

Answer 2

首先保存你的nb，然后调整好Directory，执行这段代码

Export["test2.nb", 
 Import["test.nb", 
   "Notebook"] /. {SubscriptBox[a_, b_] :> a <> b}]

文件名你自己改好就可以了

Comments

这个效果非常不错，能否让他输出时至替换代码中的下标，而不运行，就是不产生运行结果并替换下标

---

算了 已经达到要求了，不折腾了，已点赞

---

没明白你的意思啊，你说的哪里不产生运行结果

---

Sorry，我是在源代码后面添上这句话运行的，导致的混乱，如果重开一个MMA只运行你的代码，就不会出现问题了  谢谢你