MathGroup Archive 2010

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

Search the Archive

Re: plot solution derivative

  • To: mathgroup at smc.vnet.net
  • Subject: [mg108259] Re: plot solution derivative
  • From: Peter Pein <petsie at dordos.net>
  • Date: Fri, 12 Mar 2010 07:08:23 -0500 (EST)
  • References: <op.u9c2oxvv422244@toshiba> <hnakjb$5rr$1@smc.vnet.net>

Am 11.03.2010 12:36, schrieb Beata WarchoÅ?:
...
> and plot:
> Plot[{deriv2func}, {t, First[First[date]], First[Last[date]]},
>   Frame ->  True, GridLines ->  Automatic]
> and I would like to plot additionally in this graph vertically lines, in
> points which are solution of equation
> deriv2fun == 0,
>
> Maybe I need something like this
> Reduce[deriv2func == 0&&  38000<  t<  41000, t, Reals], but how should I
> plot this?
>
> Beata
>

Hi Beata,

you can use Epilog inside the Plot command:

Plot[deriv2func, {t, date[[1,1]], date[[-1,1]]},
Frame->True, Axes->False, GridLines->Automatic, Epilog->Evaluate[{Green,
   Line[{{t,-1},{t,1}}/.{ToRules[Reduce[
     {deriv2func==0,date[[1,1]]<=t<=date[[-1,1]],Im[t]==0},t
   ]]}]
}]]

Peter


  • Prev by Date: Re: locally changing Options
  • Next by Date: Re: locally changing Options
  • Previous by thread: plot solution derivative
  • Next by thread: Re: plot solution derivative