- 220 名前:132人目の素数さん mailto:sage [04/06/28 16:44]
- >>210
こんなものかな? 動きが気に入らなかったらHelp引いて直してくれ。 newNbExec[f_, args___] := Module[{new = NotebookCreate[]}, NotebookWrite[new, ToString[HoldForm[f]] <> "[" <> ToString[HoldForm[args]] <> "]", All]; SelectionEvaluate[new];] newNbExec[Plot, Sin[x], {x, 0, 1}]
|

|