关于Mathematica解方程组的问题,输出时没有错误,解不出来的原因如题,我在一个三元一次方程组时,应该能解出来的,但是老是得不到结果.由于我刚刚接触Mathematica这个软件,不懂,所以我把解得编
来源:学生作业帮助网 编辑:作业帮 时间:2024/12/01 08:45:53
关于Mathematica解方程组的问题,输出时没有错误,解不出来的原因如题,我在一个三元一次方程组时,应该能解出来的,但是老是得不到结果.由于我刚刚接触Mathematica这个软件,不懂,所以我把解得编
关于Mathematica解方程组的问题,输出时没有错误,解不出来的原因
如题,我在一个三元一次方程组时,应该能解出来的,但是老是得不到结果.由于我刚刚接触Mathematica这个软件,不懂,所以我把解得编程给大家,看看问题出在哪里?f = 60 Degree;
q = 90 Degree;
arfA = 300 Degree;
q2 = 31 Degree;
w = 17;
bsx = 30;
bsy = 12;
bsz = -10;
t = 0.09;
NSolve[{bsx ==
bx3*(Cos[f]*Cos[q]*Cos[q2]*Sin[arfA] - Sin[q]*Sin[q2]*Sin[arfA] -
Sin[f]*Cos[q]*Cos[arfA]) +
by3*((Sin[f]*Sin[q]*Cos[arfA] - Cos[f]*Sin[q]*Cos[q2]*Sin[arfA] -
Cos[q]*Sin[q2]*Sin[arfA])*
Sin[w*t] - (Sin[f]*Cos[q2]*Sin[arfA] + Cos[f]*Cos[arfA])*
Cos[w*t]) +
bz3*((Sin[f]*Sin[q]*Cos[arfA] - Cos[f]*Sin[q]*Cos[q2]*Sin[arfA] -
Cos[q]*Sin[q2]*Sin[arfA])*
Cos[w*t] + (Sin[f]*Cos[q2]*Sin[arfA] + Cos[f]*Cos[arfA])*
Sin[w*t]) ,bsy ==
bx3*(Cos[f]*Cos[q]*Sin[arfA] + Cos[f]*Cos[q2]*Cos[arfA] -
Sin[q]*Sin[q2]*Cos[arfA]) +
by3*((Cos[f]*Sin[arfA] - Sin[f]*Cos[q2]*Cos[arfA])*
Cos[w*t] - (Sin[f]*Sin[q]*Sin[arfA] +
Cos[f]*Sin[q]*Cos[q2]*Cos[arfA] + Cos[q]*Sin[q2]*Cos[arfA])*
Sin[w*t]) +
bz3*((Sin[f]*Cos[q2]*Cos[arfA] - Cos[f]*Sin[arfA])*
Sin[w*t] - (Sin[f]*Sin[q]*Sin[arfA] +
Cos[f]*Sin[q]*Cos[q2]*Cos[arfA] + Cos[f]*Sin[q2]*Cos[arfA])*
Cos[w*t]) ,bsz ==
bx3*(Sin[q]*Cos[q2] + Cos[f]*Cos[q]*Sin[q2]) +
by3*((Cos[q]*Cos[q2] - Cos[f]*Sin[q]*Sin[q2])*Sin[w*t] -
Sin[f]*Sin[q2]*Cos[w*t]) +
bz3*(Sin[f]*Sin[q2]*
Sin[w*t] + (Cos[q]*Cos[q2] - Cos[f]*Sin[q]*Sin[q2])*
Cos[w*t])},{bx3,by3,bz3}]运行后结果为{{bx3 -> 67.2591 - 1.83737 by3 + 9.6786 ,bz3}}没有解出来.运行如图:麻烦达人帮忙运行一下,看看问题出在什么地方,并且改正,
关于Mathematica解方程组的问题,输出时没有错误,解不出来的原因如题,我在一个三元一次方程组时,应该能解出来的,但是老是得不到结果.由于我刚刚接触Mathematica这个软件,不懂,所以我把解得编
费了好半天劲才查出来你的逗号是中文的!请看区别:,左边的是中文全角的.