异常的 Solve[] 行为延迟

Question

对于一个涉及从光谱数据计算键长的项目，我使用 Solve[] 来求解一个相当简单的未知方程。当我更改输入时，我开始注意到“异常”行为。具体来说，当我改变一个数字并求解时，结果就是之前的答案。然而，再次执行代码会给出正确的答案；就好像一次执行有延迟。 这是一个例子：

B = (11.09 + del)*2.998*10^10;

c = h*1000*n*10^20/(8 \[Pi]^2);

h = 6.62618*10^-34;

n = 6.02204*10^23;

del = 0;

Solve[c/B == 0.97959253 R^2, R]

执行给出

{{R -> -1.24567}, {R -> 1.24567}}

但是，当我在上面的块中将 del = 0 更改为 del = 10 时，我在执行时得到相同的答案！当我第二次执行该块时，我得到了正确的答案：

{{R -> -0.903299}, {R -> 0.903299}}

然后，将 del = 10 更改回 del = 0 并执行给出：

{{R -> -0.903299}, {R -> 0.903299}}

正如你可以想象的，第二次执行该块给出了正确的答案

{{R -> -1.24567}, {R -> 1.24567}}

0 和 10 没有什么特别的，任何 2 个数字都可以。就像这个 Solve[] 块具有延迟效果......

我不确定这是否是我的计算机（MacBook Intel）的一个怪癖，或者它是否是 Solve 固有的东西。告诉我，你们在运行这段代码时是否遇到与我相同的行为，如果是，您知道为什么会发生这种情况吗？ （我尝试重新启动 Mathematica 并再次运行它，它总是这样）。

Answer 1

问题是您的 del 定义位于存在 del 的其他定义之后。因此，当这些执行时，del仍然具有其旧值。您有 2 个选择：将 del 赋值放在顶部：

del = 0;
B = (11.09 + del)*2.998*10^10;
c = h*1000*n*10^20/(8 Pi^2);
h = 6.62618*10^-34;
n = 6.02204*10^23;
Solve[c/B == 0.97959253 R^2, R]

或使用 SetDelayed (:=) 进行赋值：

B := (11.09 + del)*2.998*10^10;
c := h*1000*n*10^20/(8 Pi^2);
h = 6.62618*10^-34;
n = 6.02204*10^23;
del = 0;
Solve[c/B == 0.97959253 R^2, R]

Answer 2

我认为解决 PJR 问题的最简单方法就是在

Clear["Global`*"]  

代码之前添加。那么del的改变将没有机会重新定义B。 ^_^