求助：Do循环的结果储存 （急切）

lxlusheng

Do[Print[n], {n, -3, 5, 2}]， 运行结果怎么储存在一个Cell里面呢，而不是一个一个的，因为需要将结果拷贝出来，成为一行或者一列，在excel里面作图的。恳求各位兄台指点一下啊。。。。

snowhunter

建一个空表，用appendTo依次往里加。最后用export输出到xls文件里。

ggggwhw

1. arr = Table[n, {n, -3, 5, 2}]
   
2. Export["C:\\arr.xls", arr, "Text"]

复制代码

如果不写路径C:\\的话,我的机子默认路径是<我的文档>.

lxlusheng

非常感谢啊，不过我这里计算里面要用到循环计算，而且比较复杂，就是在一个规定的区间里面取点以后参与能量最小化计算求解，解得到以后再代入下一步的多个计算取得最终的多个结果，最终的这多个结果要从mathematica里面到处，放入EXcel作图。所以我使用了Do循环，如果用Table的话，不好把计算写进入吧，而且每次只能显示一组数据的。不知道兄台有什么想法呢？谢谢了。

， 3# ggggwhw

lxlusheng

w={};Do[AppendTo[w,n],{n,1,4}];Export["C:\\w.xls", w, "Text"]

lxlusheng

是吗，我现在就试验一下
6# waynebuaa