如何“保存定义”不使用 Manipulate 结构？

Question

我正在制作一个 CDF 文档，其中将动态片段放置在文本中间。该文档应该可以在播放器中使用。

注册应该从分散在不同单元格周围的所有动态片段访问的全局值的最佳方法是什么？

例如，我想定义 g=9.8，并且我希望放置在不同单元格中的所有动态都可以访问该值。由于这应该对播放器有效，因此该值应该在 Mathematica 会话中持续存在。

我只能想到两种不同的方法：

• 用户打开文件时必须单击的操作按钮，启动笔记本周围使用的所有所需的 = 和 :=
• 创建一个空操作，并使用 SaveDefinitions-> ;确实如此，并且其变量未本地化到 Manipulate

两者似乎都太人为了。

使用任何其他仅在显示后设置定义的方法都不好，因为接受显示动态的人可能已经向下滚动，并通过了实现所有所需定义的动态。

那么，如何在不使用 Manipulate 结构的情况下“SaveDefintions”呢？

Answer 1

一种可能性是为文档中的每个Dynamic对象定义条件初始化，并将初始化表达式放置在初始化单元格中（或放置在带有标签的其他单元格中，以便轻松识别它） ）。例如，使用初始化单元：

Manipulate[
 Plot[n f[x], {x, -3, 3}], {n, 1, 4}, 
 Initialization :> If[!TrueQ[$initialized],
                      FrontEndTokenExecute["EvaluateInitialization"]]]

通过这种方式，您不需要在每个动态对象中存储初始化表达式，并且不会为每个对象重复计算这些表达式。

---

更新

看来 Notebook 的 NotebookDynamicExpression 选项正是您想要的。 John Fultz 写道：

“Dynamic可以存储在前端选项CellDynamicExpression、NotebookDynamicExpression和FrontEndDynamicExpression。这些Dynamic不会显示，但会在显示它们所附加的单元格/笔记本/前端时更新。”

所以解决方案是：

SetOptions[EvaluationNotebook[], NotebookDynamicExpression :> (a = 1)]

评估上述内容后尝试保存并再次打开笔记本。并检查 a 的定义。

Answer 2

我没有像您一样在动态文档中尝试过此操作，但您可以尝试以下操作：

“使用初始化单元，您可以指定应首先评估笔记本的特定输入单元。这可确保您的代码以正确的顺序评估，例如在评估使用这些定义的单元格之前定义函数。”

http://reference.wolfram.com/mathematica/howto/WorkWithInitializationCells.html

Answer 3

您可以使用以下内容：

DynamicModule[{savetext = ""},
 Dynamic[If[StringQ[string], savetext = string, savetext],
  Initialization :> (string = savetext)]]

在第一次评估时 string 不存在，因此 StringQ 会导致 Dynamic 显示“”。此后，StringQ 的计算结果为 True，Dynamic 将显示 string 中的文本。 savetext 通过作为 DynamicModule 局部变量跨会话保存。

string 可以直接更新，例如 string = "new text"

但是，如果同时打开此构造的多个副本，则一个 string< /code> 变量将更新另一个。

看到有关如何隔离实例（无需重命名“字符串”）的建议将会很有趣。