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

MathGroup Archive 2005

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

Search the Archive

Re: Output format

  • To: mathgroup at smc.vnet.net
  • Subject: [mg56049] Re: Output format
  • From: Peter Pein <petsie at arcor.de>
  • Date: Thu, 14 Apr 2005 08:54:56 -0400 (EDT)
  • References: <d3iboa$9tr$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Csukas Attila wrote:
> Dear All,
> 
> I have an output in the following equation form:
> 
> \!\({150, \(\(163.59156799819695`\)\(\[InvisibleSpace]\)\) - \
> 61.64885169034477`\/\(\[ExponentialE]\^\(\(-12.853120710004662`\)\ \
> \((\(-11.234409593431206`\) + t)\)\) + 
> \[ExponentialE]\^\(1.7252685283232099`\
> \ \((\(-11.234409593431206`\) + t)\)\)\)}\)
> 
> I would like to have the numbers with their - signs in different cells 
> of Excel format. Now if I export them all (except the first number) is 
> crowded to one cell, so a bit messy.
> 
> Does anybody have idea on this matter? Any help is appreciated.
> 
> "Your beginner admirer"
> 
> Attila Csukas
> 
>   
> 
If I understand you correctly:
In[1]:=
  data = {150, 163.59156799819695 - 61.64885169034477/
     (E^(-12.853120710004662*(-11.234409593431206 + t)) +
      E^(1.7252685283232099*(-11.234409593431206 + t)))};
In[2]:=
  Cases[data[[2]], x_Real, Infinity]
Out[2]=
  {163.59156799819695, -61.64885169034477, -12.853120710004662,
  -11.234409593431206, 1.7252685283232099, -11.234409593431206}

??

-- 
Peter Pein
Berlin


  • Prev by Date: Re: Output format
  • Next by Date: Re: Algebra in Mathematica
  • Previous by thread: Re: Output format
  • Next by thread: Re: Output format