想求解一个带参数的三元一次方程，手算的话很费劲且不一定能算对，所以想试试mathematica。但是求解过程报错了，不是太懂，想求叫教一下各位大佬。
代码如下
Clear["Global`*"]
a = -w^2 + 2*Subscript[kexi, s]*Subscript[w, s]*w*I + Subscript[w,
s]^2 + u*Subscript[w, d]^2 + u*r*Subscript[w, r]^2;
b = -u*Subscript[w, d]^2;
c = -u*r*Subscript[w, r]^2;
d = -Subscript[w, d]^2;
e = -w^2 - r*w^2 + 2*Subscript[kexi, d]*Subscript[w, d]*w*I +
Subscript[w, d]^2;
f = r*w^2 - 2*Subscript[kexi, d]*Subscript[w, d]*w*I;
l = -r*Subscript[w, r]^2;
m = r*w^2 - 2*Subscript[kexi, d]*Subscript[w, d]*w*I;
n = -r*w^2 + 2*Subscript[kexi, d]*Subscript[w, d]*w*I +
r*Subscript[w, r]^2;
Solve[{a*Subscript[X, S] + b*Subscript[X, d] + c*Subscript[X, r] ==
F/Subscript[m, s],
d*Subscript[X, S] + e*Subscript[X, d] + f*Subscript[X, r] == 0,
l*Subscript[X, S] + m*Subscript[X, d] + n*Subscript[X, r] ==
0}, {Subscript[X, S], Subscript[X, d], Subscript[X, r]}]
报错如下
"Recursion depth of 1024 exceeded during evaluation of \
Subsuperscript[w, d, 2]"