Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

Re: Re: PutAppend Command and Data Output

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49823] Re: [mg49762] Re: [mg49695] PutAppend Command and Data Output
  • From: "Daniel Kramer" <boydkramer at hotmail.com>
  • Date: Tue, 3 Aug 2004 01:10:54 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Using "Evaluate" to generate my end values from a series of differential 
equations and "NDSolve", I still get a 2 by 3 matrix in a .dat, .txt, or a 
.csv file when using the code you provided.  If I arbitrarily assign values, 
as you did, I can get a 1 x 6 row vector to export to a spreadsheet file as 
I would like.  I am not too concerned about the text headers since this is 
easy to do, but I still would like to export these values in a 1 x 6 row 
vector to an excel spreadsheet.  This shouldn't be so difficult.

Daniel Kramer




>From: DrBob <drbob at bigfoot.com>
To: mathgroup at smc.vnet.net
>Reply-To: drbob at bigfoot.com
>To: mathgroup at smc.vnet.net
>Subject: [mg49823] [mg49762] Re: [mg49695] PutAppend Command and Data Output
>Date: Fri, 30 Jul 2004 06:02:15 -0400 (EDT)
>
>In the first set of code, I've duplicated your resulting file (I think). 
>The result isn't a 2x3 matrix at all. The brackets are there because hend, 
>pend, ... are lists (because of the way you defined them).
>
>Clear[hend,pend,shend,spend,aend,cend]
>values={hend,pend,shend,spend,aend,cend};
>names=ToString/@values;
>data={{84.44222381154862}, {17.295098646610068}, {0.9999464544412083} \
>,{0.00005354555879104163} ,{0.6314412255157023} ,{0.16406999044034634}};
>Put[names,"output.csv"];
>{hend,pend,shend,spend,aend,cend}=data;
>PutAppend[values,"output.csv"];
>ReadList["output.csv"]
>
>{{hend,pend,shend,spend,aend,cend},{{84.4422},{17.2951},{
>      0.999946},{0.0000535456},{0.631441},{0.16407}}}
>
>In this version, Flatten eliminates the brackets:
>
>Clear[hend,pend,shend,spend,aend,cend]
>values={hend,pend,shend,spend,aend,cend};
>names=ToString/@values;
>Put[names,"output.csv"];
>{hend,pend,shend,spend,aend,cend}=Flatten@data;
>PutAppend[values,"output.csv"];
>ReadList["output.csv"]
>
>{{hend,pend,shend,spend,aend,cend},{
>      84.4422,17.2951,0.999946,0.0000535456,0.631441,0.16407}}
>
>Flatten@data could be replaced by First/@data, or the definition of each 
>variable could include First, as in hend=h[time]/.First@sol or 
>hend=First[h[time]/.sol.
>
>Bobby
>
>
>On Thu, 29 Jul 2004 07:43:02 -0400 (EDT), Daniel Kramer 
><boydkramer at hotmail.com> wrote:
>
> > There should be a simple solution to this problem, but I am stumped.
> > Wolfram support is unhelpful as well.  I am running a simulation model 
>with
> > six differential equations.  I would like to store the ending values for
> > these six variables in spreadsheet form as I perform sensitivity 
>analyses on
> > the parameter values.  So I define the ending values for my variables...
> >
> > hend=Evaluate[h[time]/.sol;
> > pend=Evaluate[p[time]/.sol;
> > shend=Evaluate[sh[time]/.sol;
> > spend=Evaluate[sp[time]/.sol;
> > aend=Evaluate[a[time]/.sol;
> > cend=Evaluate[c[time]/.sol;
> >
> > I then append these values to an existing spreadsheet file.  The problem 
>is
> > that the ending values are always added to my file in a 2 by 3 matrix
> > instead of a 1 by 6 row matrix.  See the â??PutAppendâ?? command line 
>below and
> > the output.  I have tried putting the output in a 6 by 1 column matrix 
>and
> > this works by using the following in my PutAppend command -
> > {{hend},{pend},{shend},{spend},{aend},{cend}}.  This works fine but data 
>is
> > appended down the spreadsheet instead of in columns which is as 
>cumbersome
> > as my original problem.  The other minor problem is the brackets in my
> > output.  I wish they werenâ??t there.  Perhaps these two problems are 
>related?
> >   Are the values in a form that Excel has trouble reading?  I would 
>greatly
> > appreciate anyoneâ??s help.
> >
> > PutAppend[{hend,pend,shend,spend,aend,cend},â??output.csvâ??]
> >
> > hend	pend	shend	spend	aend	cend
> > {{84.44222381154862}	 {17.295098646610068}	 {0.9999464544412083}
> > {0.00005354555879104163}	 {0.6314412255157023}	 {0.16406999044034634}}
> >
> >
> > By the way, if I add the following line as a test, it works perfectly,
> > adding a 1 by 6 row vector to the spreadsheet file.
> >
> > PutAppend[{1,2,3,4,5,6},â??output.csvâ??]
> >
> > Daniel Kramer
> >
> > _________________________________________________________________
> > Overwhelmed by debt? Find out how to â??Dig Yourself Out of Debtâ?? from 
>MSN
> > Money. http://special.msn.com/money/0407debt.armx
> >
> >
> >
>
>
>
>--
>DrBob at bigfoot.com
>www.eclecticdreams.net
>

_________________________________________________________________
Planning a family vacation? Check out the MSN Family Travel guide! 
http://dollar.msn.com


  • Prev by Date: Re: Re: newbie problem with NIntegrate
  • Next by Date: Re: Re: PutAppend Command and Data Output
  • Previous by thread: Re: ListDensityPlot, ColorFunction, and associated confusions
  • Next by thread: Re: Re: PutAppend Command and Data Output