怎样用一系列命令来运行 .nb 文件

weichanghe2000

大家好，我有 1.nb 文件，内容为 Plot[Sin[x], {x, 0, 6 Pi}]
在dos下 >1.nb 即可 启动 1.nb 文件。
但是我现在想在dos命令行下 运行（ mathematica frontend 中用 shift enter） 1.nb 中的内容，让它绘图，然后保存1.nb，然后退出mathematica。
以上所有过程，怎样在dos下用一系列命令来完成？
求助高手解答，急，谢谢！

eigen

首先把目录Wolfram Research\Mathematica\8.0\SystemFiles\Kernel\Binaries\Windows 加入到环境变量中去，然后编写如下文件test.m：

1. 
   
2. Export["c:\\test1.gif",Plot[Sin[x], {x, 0, 6 Pi}]]
   
3. Quit[]

复制代码

在dos下运行：

1. math -noprompt -initfile test.m

复制代码

就可以生成图像文件test1.gif，并退出mathematica 回到dos了。

eigen

如果程序很短的话，可以直接在dos下运行：

1. math -noprompt -run "Export["c:\\test1.gif",Plot[Sin[x],{x,0,6*Pi}]]; Quit[]"

复制代码

chungyuandye

1.m

1. 
   
2. (* directory *)
   
3. SetDirectory["~/downloads"];
   
4. a=Plot[#*Sin[x],{x,0,Pi}]&/@Range[10]
   
5. Do[a[[i]]>>>"2.nb",{i,10}]
   
6. b=Plot[#*Cos[x],{x,0,Pi}]&/@Range[10]
   
7. Do[b[[i]]>>>"2.nb",{i,10}]
   
8. Exit[]

复制代码

math -run <1.m

weichanghe2000

问题已经解决了，如下：
1. Needs["JLink`"];
$FrontEndLaunchCommand = "Mathematica.exe";
UseFrontEnd[
selected = Select[Notebooks[],
   CurrentValue[#, NotebookFileName] === "1.nb" &];
If[selected != {},
targetnotebook = First@selected;
SelectionMove[targetnotebook, All, Notebook];
SelectionEvaluate[targetnotebook];
];
Exit[]];
2. setlocal
PATH = C:\Program Files\Wolfram Research\Mathematica\8.0\;%PATH%
mathematica "C:\temp\plot demo\1.nb"
3. start MathKernel -noprompt -initfile "C:\temp\plot demo\runplot.m"
以上过程已经测试验证，供参考，谢谢。