1
$\begingroup$

When the mouse pointer passes over the Locator graphic (or one clicks at any point in the frame), the underlying equation that generates the ContourPlot is visible in a text box. How can I suppress this output? Here is the code.

Manipulate[
iv = Row[{"t0 = " , N[p[[1]], 3], ", ", "x0 = " , N[p[[1]], 3]}];

 ContourPlot[(x - t - 1) Exp[x - p[[2]]] == 
   p[[2]] - p[[1]] - 1, {t, -6, 6}, {x, -6, 6}, 
  PerformanceGoal -> "Quality", BaseStyle -> {FontSize -> 14}, 
  FrameLabel -> {t, x}, RotateLabel -> False, 
  ContourStyle -> Directive[Red, Thick],
  Epilog -> {Point[p], Text[iv]}
  ],
 {{p, {-2, -2}}, {-10, -10}, {10, 10}, Locator,
  Appearance -> Graphics[{Blue, Disk[{0, 0}, .1]}, ImageSize -> 14]}]
Improve this question
$\endgroup$
5
  • $\begingroup$ You have syntax error. !Mathematica graphics $\endgroup$
    – Nasser
    Dec 23, 2013 at 21:17
  • $\begingroup$ You misssbellling the word Manipulate in the code above. $\endgroup$
    – Nasser
    Dec 23, 2013 at 21:51
  • $\begingroup$ Thanks Nasser but the spelling of Manipulate is not the problem. $\endgroup$
    – Stephen
    Dec 23, 2013 at 21:57
  • $\begingroup$ thanks for correcting the spelling. Yes I know it was not the problem, but for futures visitors so they do not have to think it is a new command or something when they look at the code. $\endgroup$
    – Nasser
    Dec 23, 2013 at 22:06
  • $\begingroup$ @Stephen Your last edit cut the question from the text. I put it back. Make sure it's what you want. $\endgroup$
    – Michael E2
    Dec 24, 2013 at 1:36

1 Answer 1

Reset to default
4
$\begingroup$

Add CountourLabels-> None:

Manipulate[

 iv = Row[{"t0 = ", N[p[[1]], 3], ", ", "x0 = ", N[p[[1]], 3]}];
 ContourPlot[(x - t - 1) Exp[x - p[[2]]] ==  p[[2]] - p[[1]] - 1, {t, -6, 6}, {x, -6, 6}, 
  PerformanceGoal -> "Quality", BaseStyle -> {FontSize -> 14}, 
  FrameLabel -> {t, x}, ContourStyle -> Directive[Red, Thick], ContourLabels -> None, 
  Epilog -> {Point[p], Text[iv]}], {{p, {-2, -2}}, {-10, -10}, {10, 10}, Locator, 
  Appearance -> Graphics[{Blue, Disk[{0, 0}, .1]}, ImageSize -> 14]}]
Improve this answer
$\endgroup$
5
  • $\begingroup$ My bad> I left ut the opening Manipulate command. See edited code $\endgroup$
    – Stephen
    Dec 23, 2013 at 21:44
  • $\begingroup$ @Stephen Have you checked my code? $\endgroup$
    – Dr. belisarius
    Dec 23, 2013 at 21:46
  • $\begingroup$ I confirmed your code. It works. V 9.01, No output when mouseover. $\endgroup$
    – Nasser
    Dec 23, 2013 at 21:53
  • $\begingroup$ @Nasser Thanks! $\endgroup$
    – Dr. belisarius
    Dec 23, 2013 at 21:58
  • $\begingroup$ belisarius - I hadn't noticed your addition to the code. It works nicely now. $\endgroup$
    – Stephen
    Dec 23, 2013 at 22:24

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

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