用Mathematica 怎样写语句 从文件中读入一维数组,怎样输出数组到另一个文件中?是把数组存到一个txt文件吗?然后怎样写语句读入这个数组进入程序运算,之后有怎样把计算结果（一维数组）输

用Mathematica 怎样写语句 从文件中读入一维数组,怎样输出数组到另一个文件中?是把数组存到一个txt文件吗?然后怎样写语句读入这个数组进入程序运算,之后有怎样把计算结果（一维数组）输
用Mathematica 怎样写语句 从文件中读入一维数组,怎样输出数组到另一个文件中?
是把数组存到一个txt文件吗?然后怎样写语句读入这个数组进入程序运算,之后有怎样把计算结果（一维数组）输出到另外一个txt文件?假设我把这两个txt文件存到与mathematica notebook文件的同一个文件夹下.
1.txt 中存的是d的以为数组 代表d分别取5个值,通过以下公式运算得出相应的5个v的实数解,并将v的计算结果依次存到2.txt文件中.
Solve[d*1.309*10^(-3) (0.0186 + v^2/2) ==
2.36086*10^（-8）* v^1.4 + 10^(-7),v]
d={0.001,0.00123,0.00138,0.0015,0.0016}

用Mathematica 怎样写语句 从文件中读入一维数组,怎样输出数组到另一个文件中?是把数组存到一个txt文件吗?然后怎样写语句读入这个数组进入程序运算,之后有怎样把计算结果（一维数组）输
(**生成一维数组,存到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"]