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

MathGroup Archive 2009

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

Search the Archive

Re: Manipulate Using Listplot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99280] Re: [mg99250] Manipulate Using Listplot
  • From: "David Park" <djmpark at comcast.net>
  • Date: Sat, 2 May 2009 05:55:13 -0400 (EDT)
  • References: <7225781.1241171156021.JavaMail.root@n11>

Here is one method that dispenses with both ListPlot and Manipulate and
builds the graphic directly. The routine, element, defines how each value
will be represented.

v1 = Table[Random[], {50}];
v2 = Table[Random[], {50}];
element[points_][i_] :=
  Module[{val = Part[points, i], color, marker},
   If[val >= 0,
    color = Green; marker = Style["+", Medium],
    color = Red; marker = Style["-", Medium]];
   {color, Line[{{i, 0}, {i, val}}], Black, Text[marker, {i, val}]}];

Module[
 {a = .0, b = .0,
  pointvals, calcAll, i},
 
 calcAll[c1_, c2_] := (pointvals = c1 v1 + c2 v2);
 calcAll[a, b];
 
 Column[
  {Row[{"Param 1 ", 
     Slider[Dynamic[a, (a = #; calcAll[a, b]) &], {-.1, .1, .01}, 
      Appearance -> "Labeled"]}],
   Row[{"Param 2 ", 
     Slider[Dynamic[b, (b = #; calcAll[a, b]) &], {-.1, .1, .01}, 
      Appearance -> "Labeled"]}],
   Dynamic@
    Graphics[{
      Table[element[pointvals][i], {i, 1, 50}]},
     AspectRatio -> 1/GoldenRatio,
     Axes -> True,
     PlotRange -> {-.15, .15},
     ImageSize -> 450]}](* Column *)
 ]


David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/  


From: Richard Palmer [mailto:rhpalmer at gmail.com] 


Here is some sample code that uses Manipulate with ListPlot
v1 = Table[Random[], {50}];
v2 = Table[Random[], {50}];
fn[a_, b_] := a v1 + b v2
f[n_] := If[n >= 0, "+", "-"]
Manipulate[
 ListPlot[fn[a, b], Filling -> Axis, PlotRange -> {-.15, .15},
  PlotMarkers -> {Automatic, Medium},
  FillingStyle -> {Red, Green}], {{a, 0, "Param 1"}, -.1, .1, .01,
  Appearance -> "Labeled"}, {{b, 0, "Param 2"}, -.1, .1, .01,
  Appearance -> "Labeled"}]

I would like to do things with the markers {color differently when positive,
change to "+" when positive, use labels rather than "dots", ...}

Is this possible?  Are there some simple examples of this.  Have not been
able to find in the documentation.

-- 
Richard Palmer

Home       508 877-3862
Cell          508 982-7266





  • Prev by Date: Re: New Wolfram Tutorial Collection documentation is ready
  • Next by Date: Re: New Wolfram Tutorial Collection documentation is ready
  • Previous by thread: Manipulate Using Listplot
  • Next by thread: Re: Mathematica crashed -- where did my notebook go?