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