MathGroup Archive 2001

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

Search the Archive

Re: Urgent Plot problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg32062] Re: Urgent Plot problem
  • From: "Borut L" <borut at email.si>
  • Date: Fri, 21 Dec 2001 03:57:37 -0500 (EST)
  • References: <9vs8ck$g0m$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

I hope following helps,

Putting plots with different domain together:
a) you can do this by drawing two Plot's with DisplayFunction->Identity and
after that using them in Show[{plt1,plt2}] with
DisplayFunction->$DisplayFunction invoked.
b) The same thing is already done for you if you load <<Graphics`Graphics`
Add-On and use built-in DisplayTogether, which works self-explanatory.


In[22]:=
sol1 = NDSolve[{y'[t] == -1/100 y[t], y[0] == 1}, y, {t, 0, 200}][[1]]

Out[22]=
{y -> InterpolatingFunction[{{0., 200.}}, "<>"]}

In[30]:=
sol2 = NDSolve[{y'[t] == -1/100 y[t], y[200] == Exp[-2]},
      y, {t, 200, 1000}][[1]]

Out[30]=
{y -> InterpolatingFunction[{{200., 1000.}}, "<>"]}

In[7]:=
<< Graphics`Graphics`

In[33]:=
DisplayTogether[
  {
    LogPlot[Evaluate[y[t] /. sol1], {t, 0, 200}, PlotStyle -> Hue[0]],
    LogPlot[Evaluate[y[t] /. sol2], {t, 200, 1000}, PlotStyle -> Hue[.55]]
    }
  , PlotRange -> All
  , Frame -> True
  , Axes -> False
  ]

<deniz.seker at arcelik.com.tr> wrote in message
news:9vs8ck$g0m$1 at smc.vnet.net...
> Hi,
>
> I have a problem with Plot. For two different results of equations, I need
> to plot the results in one plot. For example, one domain has a range of
> 0-100 in x direction, and the other has a range of 200-1000. How can I
> comb,ne the results in one graph?
>
> regards,
>
> Deniz
>
>




  • Prev by Date: RE: Urgent Plot problem
  • Next by Date: Re: Is this a bug?
  • Previous by thread: RE: Urgent Plot problem
  • Next by thread: Fortran-MathLink