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