导出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
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为图形,可直接显示图形的所有特征