Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Creating a sign chart

  • To: mathgroup at smc.vnet.net
  • Subject: [mg98896] Re: [mg98866] Creating a sign chart
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Tue, 21 Apr 2009 05:09:08 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

f[x_] = Expand[(x - 1) (x - 3) (x - 7)]

x^3 - 11*x^2 + 31*x - 21

xmin = 0;
xmax = 8;

Plot[{f[x], f'[x], f''[x]}, {x, xmin, xmax}]

Transpose[Join[{{"f[x]", "f'[x]", "f''[x]"}},
   Table[If[# > 0, "+", If[# == 0, 0, "-"]] & /@
     {f[x], f'[x], f''[x]},
    {x, xmin, xmax, 1/4}]]] // Grid


Bob Hanlon

---- davef <davidfrick2003 at yahoo.com> wrote: 

=============
Is it possible to render a sign chart in Mathematica 10?

Typically a sign chart is used with the first and second derivatives to identify extrema.  I know there are other ways to convey this information.  However, in my case I  need to demonstrate a sign chart by means of an illustation.  I can create a graphic in Visio and import into Mathematica but I would prefer if there were a means of generating such a chart directly in Mathematica.

Something like:

+++++++++++++++------------


Thanks for any ideas.
Dave
x2373



  • Prev by Date: Re: Getting the height and width of controls?
  • Next by Date: Re: Creating a sign chart
  • Previous by thread: Creating a sign chart
  • Next by thread: Re: Creating a sign chart