使用NDSolveValue报错如下,请问该怎么修改?
mathematica吧
全部回复
仅看楼主
level 3
YoungLu0 楼主
这个方程是严格可解的,解出来应该是螺旋线
A = 3;
B = 2;
c = 1;
\[Kappa] = A/c^2;
\[Tau] = B/c^2;
r[s_] := {x[s], y[s], z[s]};
t[s_] = r'[s];
n[s_] = t'[s]/\[Kappa];
b[s_] = Cross[t[s], n[s]];
NDSolveValue[t'[s] == \[Kappa] n[s],
n'[s] == -\[Kappa] t[s] + \[Tau] b[s], b'[s] == -\[Tau] n[s],
r[0] == {A, 0, 0}, r'[0] == {0, A/c, B/c},
r''[0] == {-A/c^2, 0, 0},
r'''[0] == {0, -A/c^3, 0}, {x, y, z}, {s, 0, 2 \[Pi]}]
2022年10月16日 07点10分 1
吧务
level 10
NDSolveValue用法错误。
各方程应构成方程列表放在第一参数。
2022年10月16日 13点10分 2
您好,感谢您的回答!我照您说的修改之后,方程基本上解出来了,但是我在加了一行ParametricPlot3D命令后,就无法画出曲线来,请问该怎么修改呢?
2022年10月16日 14点10分
@YoungLu0 不知道。信息不足。
2022年10月18日 07点10分
1