MathGroup Archive 2010

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

Search the Archive

superimposed plots using SHOW command

  • To: mathgroup at smc.vnet.net
  • Subject: [mg108260] superimposed plots using SHOW command
  • From: jihane <jihane.ajaja at mail.mcgill.ca>
  • Date: Fri, 12 Mar 2010 07:08:34 -0500 (EST)

hello everyone,

I have a question and your help would be very appreciated.Here is my question:

How can I use the command SHOW to produce superimposed plots that are generated in a loop? The lists used to generate the plots are initialized before the start of the loop and when the program goes through a loop it produces the plots from the full lists then it goes out from the loop and empty the lists and go again through the list. I am doing it manually right now and it is very tedious. I have to export the lists everytime the program goes through the loop and then in an other notebook import these lists and use show to plot them all together in one plot;

data1zRAW = ReadList["ZDVNew - Parabola1.txt"];
plot1zRAW = 
  ListLinePlot[data1zRAW, PlotRange -> All, Joined -> True, 
   Frame -> True, 
   FrameLabel -> {"Time (sec)", 
     "Measured Acceleration (g/\!\(\*SubscriptBox[\"g\", \"0\"]\))"}, 
   LabelStyle -> Directive[15], ImageSize -> Scaled[1]];

data2zRAW = ReadList["ZDVNew - Parabola2.txt"];
plot2zRAW = 
  ListLinePlot[data2zRAW, PlotRange -> All, Joined -> True, 
   Frame -> True, 
   FrameLabel -> {"Time (sec)", 
     "Measured Acceleration (g/\!\(\*SubscriptBox[\"g\", \"0\"]\))"}, 
   LabelStyle -> Directive[15], ImageSize -> Scaled[1]];

data3zRAW = ReadList["ZDVNew - Parabola3.txt"];
plot3zRAW = 
  ListLinePlot[data3zRAW, PlotRange -> All, Joined -> True, 
   Frame -> True, 
   FrameLabel -> {"Time (sec)", 
     "Measured Acceleration (g/\!\(\*SubscriptBox[\"g\", \"0\"]\))"}, 
   LabelStyle -> Directive[15], ImageSize -> Scaled[1]];


plotzRAW = 
  Framed[Show[plot1zRAW, plot2zRAW, plot3zRAW, 
    PlotLabel -> 
     Style[ "Z-Axis Accelerometer Measurement - Flight 1 \n \
\!\(\*SubscriptBox[SubscriptBox[\"a\", \"z\"], \" \"]\)= " <> 
       ToString[zMean] <> "(g/\!\(\*SubscriptBox[\"g\", \"0\"]\))" , 
      20], Frame -> True, Axes -> False, ImageSize -> Scaled[1]]];


Export["zRAW.gif", plotzRAW];


  • Prev by Date: Re: bad Mathieu functions
  • Next by Date: Re: Integrate bug
  • Previous by thread: keyboard short cut for equal symbol aligned math cell
  • Next by thread: Re: superimposed plots using SHOW command