動的な計算機を構築する
ここでは，DynamicModuleをDeployと一緒に使って，簡単な計算を行う動的なインターフェースを作成する．
DynamicModule[{a = 0, b = 0}, Deploy[Style[Panel[Grid[Transpose[{{Style["数を入力してください", Red], Style["別の数を入力してください", Red], "これがその合計です", "差分", "積"}, {InputField[Dynamic[a], Number], InputField[Dynamic[b], Number], InputField[Dynamic[a + b], Enabled -> False], InputField[Dynamic[a - b], Enabled -> False], InputField[Dynamic[a b], Enabled -> False]}}], Alignment -> Right], ImageMargins -> 10], DefaultOptions -> {InputField -> {ContinuousAction -> True, FieldSize -> {{5, 30}, {1, Infinity}}}}]]]