这个方程组怎么解啊,直接用Solve或者Reduce没有用
mathematica吧
全部回复
仅看楼主
level 7
whzecomjm 楼主
2*Cos[a*m] + (w + z)* Cos[(a/2 + 3^0.5/2*b)*m + (x + y)*(-a/2 + 3^0.5/2*b)*m] == 0 && (w - z)*Sin[(a/2 + 3^0.5/2*b)*m] + (y - x)* Sin[(-a/2 + 3^0.5/2*b)*m] == 0 && Cos[a*m + 3^0.5*b*m/2] + Cos[a*m - 3^0.5*b*m/2] + z*Cos[-a/2*m - 3^0.5*b*m/2 + (3^0.5/2*a - b/2)*3^0.5/2*m] + y*Cos[(-a/2 + 3^0.5/2*b)*m + (3^0.5*a/2 + b/2)*3^0.5*m/2] + x*Cos[(-a/2 + 3^0.5*b/2)*m + (-3^0.5*a/2 - b/2)*3^0.5*m/2] + w*Cos[(-a/2 - 3^0.5*b/2)*m + (-3^0.5*a/2 + b/2)*3^0.5/2*m] == 0 && Sin[a*m + 3^0.5*b*m/2] + Sin[a*m - 3^0.5*b*m/2] + z*Sin[-a/2*m - 3^0.5*b*m/2 + (3^0.5/2*a - b/2)*3^0.5/2*m] + y*Sin[(-a/2 + 3^0.5/2*b)*m + (3^0.5*a/2 + b/2)*3^0.5*m/2] + x*Sin[(-a/2 + 3^0.5*b/2)*m + (-3^0.5*a/2 - b/2)*3^0.5*m/2] + w*Sin[(-a/2 - 3^0.5*b/2)*m + (-3^0.5*a/2 + b/2)*3^0.5/2*m] == 0 && Cos[a*m + (-3^0.5*(m - l/2)/2)] + Cos[a*m - (-3^0.5*(m - l/2)/2)] + z*Cos[-a/2*m - 3^0.5*b*m/2 + (3^0.5/2*a - b/2)*(-3^0.5*(m - l/2)/2)] + y*Cos[(-a/2 + 3^0.5/2*b)* m + (3^0.5*a/2 + b/2)*(-3^0.5*(m - l/2)/2)] + x*Cos[(-a/2 + 3^0.5*b/2)* m + (-3^0.5*a/2 - b/2)*(-3^0.5*(m - l/2)/2)] + w*Cos[(-a/2 - 3^0.5*b/2)* m + (-3^0.5*a/2 + b/2)*(-3^0.5*(m - l/2)/2)] == 0 && Sin[a*m + (-3^0.5*(m - l/2)/2)] + Sin[a*m - (-3^0.5*(m - l/2)/2)] + z*Sin[-a/2*m - 3^0.5*b*m/2 + (3^0.5/2*a - b/2)*(-3^0.5*(m - l/2)/2)] + y*Sin[(-a/2 + 3^0.5/2*b)* m + (3^0.5*a/2 + b/2)*(-3^0.5*(m - l/2)/2)] + x*Sin[(-a/2 + 3^0.5*b/2)* m + (-3^0.5*a/2 - b/2)*(-3^0.5*(m - l/2)/2)] + w*Sin[(-a/2 - 3^0.5*b/2)* m + (-3^0.5*a/2 + b/2)*(-3^0.5*(m - l/2)/2)] == 0其中变量为{x, y, z, w},其余为待定常数。
2012年06月25日 09点06分 1
level 9
Solve[2*Cos[a*m] + (w + z)*
Cos[(a/2 + 3^0.5/2*b)*m + (x + y)*(-a/2 + 3^0.5/2*b)*m] ==
0 && (w - z)*Sin[(a/2 + 3^0.5/2*b)*m] + (y - x)*
Sin[(-a/2 + 3^0.5/2*b)*m] == 0 &&
Cos[a*m + 3^0.5*b*m/2] + Cos[a*m - 3^0.5*b*m/2] +
z*Cos[-a/2*m - 3^0.5*b*m/2 + (3^0.5/2*a - b/2)*3^0.5/2*m] +
y*Cos[(-a/2 + 3^0.5/2*b)*m + (3^0.5*a/2 + b/2)*3^0.5*m/2] +
x*Cos[(-a/2 + 3^0.5*b/2)*m + (-3^0.5*a/2 - b/2)*3^0.5*m/2] +
w*Cos[(-a/2 - 3^0.5*b/2)*m + (-3^0.5*a/2 + b/2)*3^0.5/2*m] == 0 &&
Sin[a*m + 3^0.5*b*m/2] + Sin[a*m - 3^0.5*b*m/2] +
z*Sin[-a/2*m - 3^0.5*b*m/2 + (3^0.5/2*a - b/2)*3^0.5/2*m] +
y*Sin[(-a/2 + 3^0.5/2*b)*m + (3^0.5*a/2 + b/2)*3^0.5*m/2] +
x*Sin[(-a/2 + 3^0.5*b/2)*m + (-3^0.5*a/2 - b/2)*3^0.5*m/2] +
w*Sin[(-a/2 - 3^0.5*b/2)*m + (-3^0.5*a/2 + b/2)*3^0.5/2*m] == 0 &&
Cos[a*m + (-3^0.5*(m - l/2)/2)] + Cos[a*m - (-3^0.5*(m - l/2)/2)] +
z*Cos[-a/2*m -
3^0.5*b*m/2 + (3^0.5/2*a - b/2)*(-3^0.5*(m - l/2)/2)] +
y*Cos[(-a/2 + 3^0.5/2*b)*
m + (3^0.5*a/2 + b/2)*(-3^0.5*(m - l/2)/2)] +
x*Cos[(-a/2 + 3^0.5*b/2)*
m + (-3^0.5*a/2 - b/2)*(-3^0.5*(m - l/2)/2)] +
w*Cos[(-a/2 - 3^0.5*b/2)*
m + (-3^0.5*a/2 + b/2)*(-3^0.5*(m - l/2)/2)] == 0 &&
Sin[a*m + (-3^0.5*(m - l/2)/2)] + Sin[a*m - (-3^0.5*(m - l/2)/2)] +
z*Sin[-a/2*m -
3^0.5*b*m/2 + (3^0.5/2*a - b/2)*(-3^0.5*(m - l/2)/2)] +
y*Sin[(-a/2 + 3^0.5/2*b)*
m + (3^0.5*a/2 + b/2)*(-3^0.5*(m - l/2)/2)] +
x*Sin[(-a/2 + 3^0.5*b/2)*
m + (-3^0.5*a/2 - b/2)*(-3^0.5*(m - l/2)/2)] +
w*Sin[(-a/2 - 3^0.5*b/2)*
m + (-3^0.5*a/2 + b/2)*(-3^0.5*(m - l/2)/2)] == 0, {x, y, z,
w}]
空解。
2022年09月30日 15点09分 2
1