初学mathematica，遇到了点小问题。红框所示的三个矩阵相乘，把两个变量β和γ都替换成了α，输出结果是[Out]651；再运行[In]652给出的结果是替换后的结果。当我把[In]651和[Out]651都删掉后再运行[In]652，发现无法恢复替换之前的结果。我尝试了运行Rdα.Rdβ.Rdγ/.{β->β,γ->γ}，发现还是替换后的结果。替换后如果还是想以β和γ输出，应该怎么做？

吧主勿删，我下面贴代码

矩阵输入部分
Subscript[R, p\[Alpha]]={{Cos[\[Alpha]],-Sin[\[Alpha]],0},{Sin[\[Alpha]],Cos[\[Alpha]],0},{0,0,1}}
Subscript[R, p\[Beta]]={{Cos[\[Beta]],0,Sin[\[Beta]]},{0,1,0},{-Sin[\[Beta]],0,Cos[\[Beta]]}}
Subscript[R, p\[Gamma]]={{Cos[\[Gamma]],-Sin[\[Gamma]],0},{Sin[\[Gamma]],Cos[\[Gamma]],0},{0,0,1}}
替换部分
Subscript[R, p\[Alpha]].Subscript[R, p\[Beta]].Subscript[R, p\[Gamma]]/.{\[Beta]->\[Beta],\[Gamma]->\[Gamma]}//MatrixForm

不是很清楚问题在哪。不过我看你那beta和gamma是黑的，应该是有定义，这可能不是你期望的，拿Clear清掉再看看。