mathematica 如何解如下方程

题目

mathematica 如何解如下方程
代码如下：解不出来结果,不太会用mathematica,是不是有语法的问题
eqns1 = {diqr Lm (Cos[1/6 ([Pi] - 6 t w)] - Sin[t w]) +
idr Lm w (Cos[1/6 ([Pi] - 6 t w)] - Sin[t w]) +
diqs (Ls (Cos[1/6 ([Pi] - 6 t w)] - Sin[t w]) - L Sin[t w]) +
didr Lm (Cos[t w] + Sin[1/6 ([Pi] - 6 wt)]) -
iqr Lm w (Cos[t w] + Sin[1/6 ([Pi] - 6 wt)]) +
dids (L Cos[t w] + Ls (Cos[t w] + Sin[1/6 ([Pi] - 6 wt)])) +
ids (R Cos[t w] + Ls w (Cos[1/6 ([Pi] - 6 t w)] - Sin[t w]) -
L w Sin[t w] + Rs (Cos[t w] + Sin[1/6 ([Pi] - 6 wt)])) +
iqs (-L w Cos[t w] + Rs (Cos[1/6 ([Pi] - 6 t w)] - Sin[t w]) -
R Sin[t w] - Ls w (Cos[t w] + Sin[1/6 ([Pi] - 6 wt)])) == 0,
udr == Rr*idr + Lr*didr + Lm*dids,
uqr == Rr*iqr + Lr*diqr + Lm*diqs,};
Solve[eqns1, {dids, diqs, didr, diqr}]

答案

eqns1的最后少了一个方程.
语法没问题.