How write the result of Table[NSolve...] into a text file can be read by Excel
- To: mathgroup at smc.vnet.net
- Subject: [mg9012] How write the result of Table[NSolve...] into a text file can be read by Excel
- From: Bastien Monnerat <monnerat at igcsun3.epfl.ch>
- Date: Wed, 8 Oct 1997 00:05:10 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Dear Sir,
I have this program :
P = 1 10^5
M = 1
Y20 = 1
Keq = ReadList["c1.TXT", Table[{Number}]]
Eq = Table[Xeq^4 - (Keq[[{i}]]M)/(4 P^2 Y20^2) - (Keq[[{i}]]
Xeq^3)/(4P^2 Y20) + (Keq[[{i}]] Xeq((1 + M - M Y20)))/(4P^2 Y20^2) -
(Keq[[{i}]] Xeq^2 ((1 - Y20 - M Y20)))/(4 P^2 Y20^2) == 0, {i, 86}]
Res = Table[NSolve[Eq[[{i}]], Xeq], {i, 86}])
I would like to write these results into a file that can be read by the
excel software.
Have you one solution to my problem ?
Thank you in advance
Best regards
Bastien Monnerat
********************************************************************
Bastien Monnerat
Institute of Chemical Reaction Engineering
Swiss Federal Institute of Technology Lausanne
1015 Lausanne - Switzerland
Phone: +41 21 693.31.86
Fax: +41 21 693.61.61
E-mail : monnerat at igcsun3.epfl.ch