Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

[Date Index] [Thread Index] [Author Index]

Search the Archive

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					



  • Prev by Date: Re: Arg and Re instructions
  • Next by Date: Re: Mathematica Graphics
  • Previous by thread: Re: Using Fold in Select
  • Next by thread: Re: Mathematica Graphics