MathGroup Archive 2012

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

Search the Archive

Plots for terms of polynomials. Slider initial values?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg124725] Plots for terms of polynomials. Slider initial values?
  • From: Chris Young <cy56 at comcast.net>
  • Date: Thu, 2 Feb 2012 04:58:00 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

I hope to get this working for a variable number of terms. Probably 
this would work fine in a Manipulate block; I just took it from some 
demo of how to rearrange sliders.

Is there any way to set initial values when you create sliders with 
Slider[ ] rather than via Manipulate[ ]?

Any suggestions for better ways to do this are welcome.

Chris Young
cy56 at comcast.net

DynamicModule[
 {a, b, c, d,
  f,
  x,
  xRange, yRange,
  opt},

 f[1][x_] = a x^3 + b x^2 + c x + d;
 f[2][x_] = b x^2 + c x + d;
 f[3][x_] = c x + d;
 f[4][x_] = d;

 opt = Appearance -> "Labeled";

 Panel @ Grid
   [
   {
    {Row @ {"a \!\(\*SuperscriptBox[\(x\), \(3\)]\) + b \
\!\(\*SuperscriptBox[\(x\), \(2\)]\) + c x + d = ",
       Dynamic @ f[1][x]}},
    {
     Column[
      Row @ {
          StringTake[ToString[#], 1] <> " ",
          Manipulator[Dynamic @ #, {-2, 2, 0.125}]
          } & /@  {a, b, c, d}
      ]
     },
    {
     Dynamic @
      Show[
       Plot[
        {f[1][x], f[2][x], f[3][x], f[4][x]},
        {x, -xRange, xRange},
        PlotStyle -> {Red, Darker[Orange, 0.1], Darker[Green, 0.1],
          Blue},
        PlotRange -> {{-xRange, xRange}, {-yRange, yRange}},
        AspectRatio -> 1,
        PlotRangeClipping -> False
        ],
       Graphics @ {Red, PointSize[Large], Point[{x, f[1][x]}]}
       ]
     },
    {Row @ {"x ",
       Slider[Dynamic @ x, {-6, 6}, opt]}}, {Row @ {"x plot range ",
       Slider[Dynamic @ xRange, {2, 100},
        opt]}}, {Row @ {"y plot range ",
       Slider[Dynamic @ yRange, {2, 100}, opt]}}
    }
   ]
 ]




  • Prev by Date: Re: Input cells destroy Grids?
  • Next by Date: Re: Automatic Numbering in Mathematica
  • Previous by thread: Dynamically launching more kernels *during* a parallel calculation -- is it safe?
  • Next by thread: Can't work with Mathematica 8