Question

用Mathematica 怎样写语句 从文件中读入一维数组,怎样输出数组到另一个文件中?

Answer 1

(**生成一维数组,存到C:/Users/zhou/Desktop/11.txt **)

Data=Table[w,{w,0,1,0.01}]

Export["C:/Users/zhou/Desktop/11.txt", Data, "Table"]

(**从文件中读入一维数组 **)

snum = OpenRead["C:/Users/zhou/Desktop/11.txt"]

snum1 = ReadList[snum, Number]

Close[snum]

(**计算 **)

snum2 = snum1/3

(**把计算结果（一维数组）输出到C:/Users/zhou/Desktop/22.txt **)

Export["C:/Users/zhou/Desktop/22.txt", snum2, "Table"]