导出mathematica画图时的计算数据的方法

导出mathematica画图时的计算数据的方法  

2007-06-28 22:40:41|  分类： Mathematica |  标签： |字号大中小 订阅

方法1.

Data=Table[y,{w,0,1,0.01}] （*后面是计算的区域和步长，得到相应的数据点*）
Export["Out.txt", Data, "Table"] （*这个当然是输出的语句了，你可以看帮助得到你需要的格式*）
  
那么Out.txt就是你的结果文件了。可以用一些软件读取分析。

out.txt在Mathematica的安装目录里，也可以在文件的地方写全文件的绝对路径。

方法2：

str1 = OpenWrite["daaa.txt"];
For[i = 1, i ≤ 24, i++, {For[j = 1, j ≤ 19, j++, {WriteString[str1,
    "\t"], WriteString[str1, prea[[i, j]]]}], WriteString[str1, "\n"]}]
/*prea is an arrray defined before
Close[str1]

try

方法3：

可用InputForm[a],其中a为图形，可直接显示图形的所有特征

 

 

摘自：http://514304446.blog.163.com/blog/static/259091372007528104041212/