字典翻译 问答 其它 用Mathematica怎样写语句从文件中读入一维数组,怎样输出数组到另一个文件中?是把数组存到一个txt文件吗?然后怎样写语句读入这个数组进入程序运算,之后有怎样把计算结果(一维数组)输
问题标题:
用Mathematica怎样写语句从文件中读入一维数组,怎样输出数组到另一个文件中?是把数组存到一个txt文件吗?然后怎样写语句读入这个数组进入程序运算,之后有怎样把计算结果(一维数组)输
问题描述:

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

是把数组存到一个txt文件吗?然后怎样写语句读入这个数组进入程序运算,之后有怎样把计算结果(一维数组)输出到另外一个txt文件?假设我把这两个txt文件存到与mathematicanotebook文件的同一个文件夹下.

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}

范志强回答:
  (**生成一维数组,存到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...
牛慧峰回答:
  aa=OpenRead["C:/Users/DONNA/Desktop/1.txt"]bb=ReadList[aa,Number]Close[aa]d=bbSolve[v*d==0.2,v]cc=vExport["C:/Users/DONNA/Desktop/2.txt",cc,"Table"]Close[cc]请帮忙看看错在哪里,为什么不能输出想要的计算结果?谢谢!文件的读入语句是对的。是Solve[v*d==0.2,v]和cc=v这俩个语句的问题,这只是一个简单的方程,但是如果计算复杂的方程(隐函数),这种情况计算语句怎么写?
范志强回答:
  请提供1.txt如果1.txt内的数据为一维数组,Solve[v*d==0.2,v]的解集为{}。你想解的是什么样的方程?给出一个你想计算复杂的方程(隐函数)
牛慧峰回答:
  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]
范志强回答:
  你要解的方程是Solve[d*1.309*10^(-3)*(0.0186+v^2/2)==2.36086*10^(-8)*v^1.4+10^(-7),v]?d分别取5个值是多少?Solve[d*1.309*10^(-3)*(0.0186+v^2/2)==2.36086*10^(-8)*v^1.4+10^(-7),v,Reals]的通解为:{{v->ConditionalExpression[Root[-3.125*10^28+3.80428*10^31d-1.85249*10^34d^2+4.51032*10^36d^3-5.49073*10^38d^4+2.6737*10^40d^5+(1.02266*10^33d-9.95961*10^35d^2+3.63736*10^38d^3-5.90401*10^40d^4+3.59369*10^42d^5)#1^2+(-1.33866*10^37d^2+9.77785*10^39d^3-2.38065*10^42d^4+1.93209*10^44d^5)#1^4+(8.76151*10^40d^3-4.2664*10^43d^4+5.19379*10^45d^5)#1^6-2.29193*10^25#1^7+(-2.8672*10^44d^4+6.9809*10^46d^5)#1^8+3.75317*10^47d^5#1^10&,1],0.00410721
牛慧峰回答:
  d={0.001,0.00123,0.00138,0.0015,0.0016}求出v的5个相应实数解后,输出到2.txt文件里。
范志强回答:
  sol=Solve[d1*1.309*10^(-3)*(0.0186+v^2/2)==2.36086*10^(-8)*v^1.4+10^(-7),v,Reals][[2]];d={0.001,0.00123,0.00138,0.0015,0.0016};rr=Simplify[v/.sol/.Table[{d1->d[[i]]},{i,5}]]Export["C:/Users/zhou/Desktop/22.txt",rr,"Table"]
牛慧峰回答:
  非常感谢zzz700的热心帮忙!!已经提高了悬赏:)还有一个问题请教:sol=Solve[d1*1.309*10^(-3)*(0.0186+v^2/2)==2.36086*10^(-8)*v^1.4+10^(-7),v,Reals][[2]];这句中的最后的[[2]]是代表什么意思?
范志强回答:
  sol=Solve[d1*1.309*10^(-3)*(0.0186+v^2/2)==2.36086*10^(-8)*v^1.4+10^(-7),v,Reals]的解有两个。你的d={0.001,0.00123,0.00138,0.0015,0.0016}0
点击显示
其它推荐
热门其它推荐
  • 其它