プログラムのデバッグにInactiveを使う 

プログラムの部分を段階的にアクティブにすることにより，Inactiveはデバッグの過程を助けることができる．

次のプログラムにはエラーが含まれている．

In[1]:=

X a = 5.321122356674; b = -4.61014535141467; c = 0.214828315564808; d = 10.34234234234; min = -100; max = 100; kernel[x_, 1] := Exp[-(b - x)^2/c^2] kernel[x_, 2] := Max[Abs[b/c] - Abs[(b - x)/c], 0] firstInt[f_, x_, i_] := NIntegrate[d*kernel[x/a]*f, {x, min, max}] myInt[f_, x_, i_] := NIntegrate[f *firstInt[f, x, i], {x, min, max}]

複数のメッセージが出力され，積分は評価されずに戻る．

In[2]:=

X myInt[x^2 + 3 x + 7, x, 1]

Out[2]=

プログラムを非アクティブにしたものを作成する．

In[3]:=

X debugInt[f_, x_, i_] := Inactivate[NIntegrate[f *firstInt[f, x, i], {x, min, max}]]

In[4]:=

X debugInt[7 + 3 x + x^2, x, 1]

Out[4]=

すべてよいようなので，関数をアクティブにしてみる．

In[5]:=

X Activate[debugInt[7 + 3 x + x^2, x, 1], firstInt]

Out[5]=

メッセージが出力され，内部のNIntegrateはが評価に失敗したことを示している．第2引数がないからである．定義を修正する．

In[6]:=

X firstInt[f_, x_, i_] := NIntegrate[kernel[x/a, i]*f, {x, min, max}]

これで評価が正しく行われるようになった．

In[7]:=

X myInt[x^2 + 3 x + 7, x, 1]

Out[7]=

In[8]:=

X myInt[x^2 + 3 x + 7, x, 2]

Out[8]=