Re: Color according to concavity

*To*: mathgroup at smc.vnet.net*Subject*: [mg128852] Re: Color according to concavity*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Fri, 30 Nov 2012 05:58:05 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <20121129110446.BF9AD688F@smc.vnet.net>

f[x_] = Sin[x] Cos[2 x]; Plot[f[x], {x, 0, 4 Pi}, ColorFunction -> Function[{x, y}, If[f''[x] < 0, Red, Blue]], ColorFunctionScaling -> False] Bob Hanlon On Thu, Nov 29, 2012 at 6:04 AM, Sergio Miguel Terrazas Porras <sterraza at uacj.mx> wrote: > > Dear fellows at mathgroup: > > > > I want to plot a function with the color of the parts of the curve according to concavity, say Red when concve down an blue when concave up. > > > > I can do it by brute force, finding whwn the second derivative is cero, and then finding the sign of it in the different intervals, etc. This for particular examples. > > > > But, is there a way to use the second derivative as part of a ColorFunction, or something like that? > > > > Thanks > >

**References**:**Color according to concavity***From:*Sergio Miguel Terrazas Porras <sterraza@uacj.mx>