mathematica 解复杂的四元微分方程组NDsolve[{y1[x]*y2'[x] + y2[x]*y1'[x] == 0,3200*y1[x]*y2[x]*y3[x] == 0.075*y3'[x] + 4/3*25*10^-6*y2[x]*y2'[x],y1[x]*y2[x]*y2[x] == -y4[x] + 4/3*25*10^-6*y2'[x],y4[x] == y1[x]*461.76*y3[x],y1[0] == 67.99,y2[
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 18:04:52
mathematica 解复杂的四元微分方程组NDsolve[{y1[x]*y2'[x] + y2[x]*y1'[x] == 0,3200*y1[x]*y2[x]*y3[x] == 0.075*y3'[x] + 4/3*25*10^-6*y2[x]*y2'[x],y1[x]*y2[x]*y2[x] == -y4[x] + 4/3*25*10^-6*y2'[x],y4[x] == y1[x]*461.76*y3[x],y1[0] == 67.99,y2[
mathematica 解复杂的四元微分方程组
NDsolve[{y1[x]*y2'[x] + y2[x]*y1'[x] == 0,
3200*y1[x]*y2[x]*y3[x] == 0.075*y3'[x] + 4/3*25*10^-6*y2[x]*y2'[x],
y1[x]*y2[x]*y2[x] == -y4[x] + 4/3*25*10^-6*y2'[x],
y4[x] == y1[x]*461.76*y3[x],y1[0] == 67.99,
y2[0] == 50,y3[0] == 811,y4[0] == 22.99*10^6},{y1[x],y2[x],
y3[x],y4[x]},{x,0,1}]
mathematica 解复杂的四元微分方程组NDsolve[{y1[x]*y2'[x] + y2[x]*y1'[x] == 0,3200*y1[x]*y2[x]*y3[x] == 0.075*y3'[x] + 4/3*25*10^-6*y2[x]*y2'[x],y1[x]*y2[x]*y2[x] == -y4[x] + 4/3*25*10^-6*y2'[x],y4[x] == y1[x]*461.76*y3[x],y1[0] == 67.99,y2[
函数名写错了,应该是 NDSolve