Question

mathematica中NDSolve函数问题，主要sol函数的问题。求解

图片已上传。一开始是之前的变量有赋值，现在我在前面清除了所有之前的变量赋值。还是解决不了，求帮助

Answer 1

这里接着 妙谛莲花 的来回答……你把Unset的语法完全搞错了，Unset("Subscript[\[Beta], 1][0] = . , Subscript[\[Beta], 2][0] = . , Subscript[\[Alpha], 0][0]= .")是哪种语言里带进来的习惯啊我靠，这种的根本连Mathematica代码的不是了啊喂，你就直接写

Subscript[\[Beta], 1][0] = . ; Subscript[\[Beta], 2][0] = . ; Subscript[\[Alpha], 0][0]= .

就完事了啊。

然后，指出一点 妙谛莲花的错误。Subscript中的值是可以使用Clear来清除的，只不过不能用
Clear["`*"]这样的语句来清除，因为这个应该是只能清掉 Global` 这个上下文里的变量，而使用了Subscript的变量，其值是存在了Subscript的DownValues里面，但是Subscript偏偏不在Global`这个上下文里。（它是系统函数，所以属于System`），所以说，要把它清掉，就得使用：

Clear[Subscript]

更多信息你可以看看这帖：

zhidao.baidu.com/question/514950375.html

Answer 2

　　出现这种现象的原因是你之前曾错误地对Subscript[\[Beta], 1][0]Subscript[\[Beta], 2][0]和Subscript[\[Alpha], 0][0]赋过值，而这些值用Clear函数是无法清除的，在Mathematica中含有下标的表达式是用Clear函数清除不了的，必须用Unset函数(等号后面一个点)，也就是Subscript[\[Beta], 1][0] = . ，Subscript[\[Beta], 2][0] = . ，Subscript[\[Alpha], 0][0]= . 。键入这些命令之后，再重新运行就可以了。
　　另外还有一点值得注意，方程的等号是双等号，边界条件的方程尽量不要连写Subscript[\[Beta], 1][0] == Subscript[\[Beta], 2][0] == 1，最好改为分开的形式Subscript[\[Beta], 1][0] == 1, Subscript[\[Beta], 2][0] == 1

追问

改了，还是运行不出结果

追答

Unset不是那样用的，直接键入命令，如下图

然后重新运行那个sol的单元，就行。

还有Unset只能作用一次，一旦清除了那个量，再运行这个命令会提示未定义该变量。

Answer 3

“不到长城非好汉”在哪里？

追问

以上传图片。刚才发了图了，他没显示出来

追答

貌似写错地方了。

追问

什么情况？这个程序之前是一直在用的，我用他出了还几组图，差不多要用到论文里去的时候，他就崩了，我还以为是参量赋值问题。结果发现没用。求大神解答