方程是论文里的
论文给出的解为：
用mathematica将解代会原式可以验证解正确。
但当用DSolve求解时显示的解带虚数。
求解如下
请问这是为什么，怎样可以得到论文相同的解。
代码：
eq1 = e*i*D[w[x], {x, 2}] - R^2*G*A*w[x] - R*G*A*D[ur[x], x] +
R*G*A*ux[x] == 0;
eq2 = e*A*D[ux[x], {x, 2}] - G*A*ux[x] + (e*A + G*A)*D[ur[x], x] +
R*G*A*w[x] == 0;
eq3 = -G*A*D[ur[x], {x, 2}] + e*A*ur[x] + (e*A + G*A)*D[ux[x], x] -
R*G*A*D[w[x], x] == 0;
DSolve[{eq1, eq2, eq3}, {w[x], ux[x], ur[x]}, x]