Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Beginning syntax problems

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104538] Beginning syntax problems
  • From: Michael Greene <mgreene at csumb.edu>
  • Date: Tue, 3 Nov 2009 02:55:53 -0500 (EST)

I'm coaching a middle school Mathcounts program and am attempting to use
Mathematica to illustrate some simple ideas.  I've created the following
script to illustrate slope and intercept.

Grid[{{Manipulate[
    Graphics[{{Dotted, Line[{{1, 0}, {1, m + b}}]}, {Dotted,
       Line[{{0, m + b}, {1, m + b}}]},
      Annotation[Line[t = {Table[{x, m*x + b}, {x, -5, 5}]}], "Line",
       "Mouse"]
      }, Axes -> True, AxesLabel -> {x, "y=mx+b"},
     PlotRange -> {{-5, 5}, {-5, 5}}], {b, 2, -2, -.5,
     ControlType -> None},
    Row[{"m",
      Manipulator[Dynamic[m], {2, -2, -.5}, Appearance -> "Labeled",
       ImageSize -> Small], "b",
      Manipulator[Dynamic[b], {2, -2, -.5}, Appearance -> "Labeled",
       ImageSize -> Small]}]],
   Grid[{"x", "y",
     Grid[Table[{x,  Dynamic[m]*x + 2}, {x, -5, 5}],
      Frame -> {All, False}]}]}}]

My problems with the script are twofold. First, I can't get the table on the
right side to dynamically update its values as I adjust the slope and
intercept. The second problem is I'm having a heck of a time placing labels
on top of their respective columns in the same table. I'm just trying to put
an x and a y above the two table columns but can't figure out the correct
Mathematica syntax to make it happen.

Can anyone correct the above script so it exhibits those two features?

Thanks,

Michael green



  • Prev by Date: ForAll testing equality, and Limit evaluating wrong
  • Next by Date: Re: Wrong Simplify[] Answer for Simplify[Cos[x]^4-Sin[x]^4]?
  • Previous by thread: Re: ForAll testing equality, and Limit evaluating wrong
  • Next by thread: Re: Beginning syntax problems