0
$\begingroup$

So I have the following plot (see image):

Plot[ (81 1 + (64 π^2 x^2 - 9 2)^2 - 18 (64 π^2 x^2 + 9 2))/(2304 1^2 π^2 x^2), {x, 0, 0.4} ]

I want to do two things:

  1. Make the curve dashed only to the right side of the minimum. Accompanied with a text labeling what the dashed and undashed regions mean.
  2. I would like to remove the Ticks, which I can do. But I want to exchange values at the zeros with custom text "(a-b)" and "(a+b)" (sort of a dotted line following the ticks at the zeros).

I could not find options to do this. But I assume it is possible? Any ideas?

current plot results

Improve this question
$\endgroup$

1 Answer 1

Reset to default
1
$\begingroup$

Here is a pedestrian, not very elegant way of doing it:

p1 = Plot[(81 1 + (64 \[Pi]^2 x^2 - 9 2)^2 - 18 (64 \[Pi]^2 x^2 + 9 2))/(2304 1^2 \[Pi]^2 x^2), {x, 0, 0.1}]; p2 = Plot[(81 1 + (64 \[Pi]^2 x^2 - 9 2)^2 - 18 (64 \[Pi]^2 x^2 + 9 2))/(2304 1^2 \[Pi]^2 x^2), {x, 0.1, 0.4}, PlotStyle -> Dashing[{0.02, 0.02}]]; Show[{p1, p2, Graphics[{Text[Style["(a-b)", FontSize -> 15], {0.03, -0.3}], Text[Style["(a+b)", FontSize -> 15], {0.31, -0.3}], Text[Style["Pre Minimum", FontSize -> 15], {0.1, 2}], Text[Style["Post Minimum", FontSize -> 15], {0.3, 1}]}]}, PlotRange -> {-1, 4}, Ticks -> None]

enter image description here

Improve this answer
$\endgroup$
1
  • 2
    $\begingroup$ Using @andre314 answer in this question: Plot[(81 1 + (64 \[Pi]^2 x^2 - 9 2)^2 - 18 (64 \[Pi]^2 x^2 + 9 2))/(2304 1^2 \[Pi]^2 x^2), {x, 0, 0.4}, Mesh -> {{.11}}, MeshFunctions -> {#1 &}, MeshShading -> {Automatic, Dashed}] $\endgroup$ Commented Apr 7, 2021 at 13:39

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.