〓 Mathematica 2 〓
■ このスレッドは過去ログ倉庫に格納されています
0220１３２人目の素数さん
NGNGこんなものかな？
動きが気に入らなかったら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}]
■ このスレッドは過去ログ倉庫に格納されています