如何隐藏$ Aborted消息？

Question

我知道我正在中止评估,并且当侧面的黑条消失时可以看到它.所以不需要这个消息.我该如何关闭它？

Answer 1

以下是$PreSimon建议的基于方法的推广和$PostMr.Wizard建议的基于方法的推广.

在这两种情况下,一个应该设置HoldAllComplete属性的纯函数和包裹x通过(输入表达式)在其内部Unevaluated,使他们与具有输入正常工作Head小号Sequence,Unevaluated和Evaluate.

比较两种版本的$Pre基于解决方案:

f1 = Function[{x}, CheckAbort[x, Null], {HoldAll}]
f2 = Function[{x}, CheckAbort[Unevaluated@x, Null], {HoldAllComplete}]

In[3]:= f1@Sequence[1,2]
f1@Abort[]
f1@Evaluate[Abort[]]
f1@Unevaluated[1+1]
Out[3]= 1
Out[5]= $Aborted
Out[6]= 2

In[7]:= f2@Sequence[1,2]
f2@Evaluate[Abort[]]
f2@Unevaluated[1+1]
Out[7]= Sequence[1,2]
Out[9]= Unevaluated[1+1]

可以看出,第一个版本很容易被破坏,Evaluate[Abort[]]并且输入表达式有Heads Sequence和Unevaluated.对于没有HoldAllComplete属性的任何单参数函数通常都是如此.因为$Pre,$Post和朋友都是一个参数的功能之一,必须始终设置HoldAllComplete属性给他们.

我也认为使用(没有必要)Null的第二个参数没有问题.在我的机器上(Windows 2000下的Mathematica 7.0.1)永远不会返回.CheckAbortReturn@Null$Abortf2

$Post基于解决方案也是如此.它可以概括如下:

$Post = Function[x, If[Unevaluated@x =!= $Aborted, Unevaluated@x], 
  HoldAllComplete]

测试表达式:

In[14]:= Unevaluated[1+2]
Sequence[1,2]
$Aborted
Abort[]
Out[14]= Unevaluated[1+2]
Out[15]= Sequence[1,2]

Answer 2

如果您不使用$Post其他内容,或者您​​可以组合功能,则可以使用:

$Post = # /. $Aborted -> Null &;

请注意,您可能会破坏程序,因为程序可能会$Aborted在其控制流程中使用.

更强大,解决问题Alexey演示:

$Post = Function[Null, Unevaluated@# /. $Aborted -> Null, HoldAllComplete];