Tell me more ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.
up vote 0 down vote favorite

The following interactive plot causes Mathematica 9 to become unresponsive. Could someone please tell me what is wrong with it?

Manipulate[
 Module[{tbl1}, 
  tbl1 = Table[
    Tooltip[{effS, 
      B + EQ (P - P pfold) + 
       pfold (P + V) + (-1 - 2 EQ (-1 + pfold) + pfold) effS}], {effS,
      0.05, Min[S, T], 0.01}];
  ListLinePlot[{tbl1}, PlotLegends -> {"EV"},  
   PlotStyle -> {Directive[Orange]}, Mesh -> All, 
   MeshStyle -> Opacity[0], GridLines -> {Automatic}, 
   AxesLabel -> {"eff stack", "EV"}]], {{B, 180, "Hero bet"}, 0.05, S,
   0.01, Appearance -> "Labeled"}, {{V, 400, "Villain bet"}, 0.05, T, 
  0.01, Appearance -> "Labeled"}, {{S, 1280, "Hero remaining stack"}, 
  0.05, 10000, 0.01, 
  Appearance -> "Labeled"}, {{T, 870, "Villain remaining stack"}, 
  0.05, 10000, 0.01, Appearance -> "Labeled"}, {{P, 260, "Pot"}, 0.05,
   10000, 0.01, Appearance -> "Labeled"}, {{EQ, 0.25, "Hero Equity"}, 
  0, 100, 0.01, 
  Appearance -> "Labeled"}, {{pfold, 0.5, 
   "Probability villain folds"}, 0, 1, 0.01, Appearance -> "Labeled"}]
share|improve this question
2  
Change {effS,0.05, Min[S, T], 0.01} to {effS,0.05, Min[S, T], 10} seems to work. – user0501 Apr 22 at 20:05
Yes it seems to work but why does the graph x-axis show from -1 to 1 instead of from 0 to min[S,T]? – dabd Apr 22 at 20:10
It's like @user0501 said, you have too MANY points for speedy dynamic refresh. – Silvia Apr 22 at 20:13
I also find the mistake that is causing the axis to show the incorrect range. Thanks for the help. – dabd Apr 22 at 20:21

closed as too localized by cormullion, Oleksandr R., Yves Klett, m_goldberg, rm -rf♦ Apr 23 at 14:32

This question is unlikely to help any future visitors; it is only relevant to a small geographic area, a specific moment in time, or an extraordinarily narrow situation that is not generally applicable to the worldwide audience of the internet. For help making this question more broadly applicable, see the FAQ.

1 Answer

up vote 1 down vote

One thing you can do to improve Manipulate speeds is to use ControlActive, which lets you set different behaviours for when a control is being moved and when it isn't.

For example, with this code:

ListLinePlot[{
 ControlActive[Take[tbl1, {1, -1, 5000}], 
               Take[tbl1, {1, -1, 50}]]}, 
 PlotLegends -> {"EV"}, 
 PlotStyle -> {Directive[Orange]}, 
 Mesh -> ControlActive[None, All], 
 MeshStyle -> Opacity[0], 
 GridLines -> {Automatic}, 
 AxesLabel -> {"eff stack", "EV"}]]

you're drawing the first set of data when the sliders are moving, and drawing the second set once they stop. It's now much more responsive.

plot

which is an improvement on my machine, because your original code didn't produce a plot at all before aborting.

Still, I think too many points is still your main problem...

share|improve this answer

Not the answer you're looking for? Browse other questions tagged or ask your own question.