Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Beginning syntax problems

• To: mathgroup at smc.vnet.net
• Subject: [mg104550] Re: [mg104538] Beginning syntax problems
• From: Larry Adelston <larrya at wolfram.com>
• Date: Wed, 4 Nov 2009 01:30:48 -0500 (EST)
• References: <200911030755.CAA01540@smc.vnet.net> <BCE0AE11-F412-4CC4-9544-C6E84B656CF2@wolfram.com>

Hi Michael,

With a little help from my colleagues I was also able to get the "b"  
value to update in the table by removing the list {b, 2, -2, -.5,  
ControlType -> None} and replacing {x, Dynamic[m]*x + 2} with {x,  
Dynamic[m]*x + Dynamic[b]} in your Table expression. The full code  
then becomes:

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}}],
     Row[{"m",
       Manipulator[Dynamic[m], {2, -2, -.5}, Appearance -> "Labeled",
        ImageSize -> Small], "b",
       Manipulator[Dynamic[b], {2, -2, -.5}, Appearance -> "Labeled",
        ImageSize -> Small]}]],
    Grid[Prepend[
      Table[{x, Dynamic[m]*x + Dynamic[b]}, {x, -5, 5}], {Style["x",  
Bold],
       Style["y", Bold]}], Frame -> {All, False}]}}]



On Nov 3, 2009, at 11:02 AM, Larry Adelston wrote:

> Hi Michael,
>
> I am able to help you with the table formatting. I am not able to  
> determine why the right column, in particular, your "b" value is not  
> updating. But the following should help the formatting anyway.
>
> 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[Prepend[
>     Table[{x, Dynamic[m]*x + 2}, {x, -5, 5}], {Style["x", Bold],
>      Style["y", Bold]}], Frame -> {All, False}]}}]
>
>
> On Nov 3, 2009, at 1:55 AM, Michael Greene wrote:
>
>> 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}]}]}}]
>

• References:
  • Beginning syntax problems
    • From: Michael Greene <mgreene@csumb.edu>