Skip to main content
Mathematica

Return to Question

Became Hot Network Question
code formatting
Source Link
flinty
flinty
  • 25.9k
  • 2
  • 22
  • 92

Here is my code:

h[\[Theta]_]h[θ_] := (1 - \[Theta]θ)/\[Theta]θ
x = Plot[{h[\[Theta]]h[θ], 2.5}, {\[Theta]θ, 0.1, 1}, 
  PlotTheme -> "Monochrome",
  AxesLabel -> {"\[Theta]""θ", "h(\[Theta]θ)"}, 
  PlotLegends -> 
   Placed[{"h(\[Theta]θ)", 
     "\!\(\*OverscriptBox[\(\[Theta]\θ\), \(^\)]\)"}, Below], 
  LabelStyle -> {FontSize -> 10},
  Epilog -> {PointSize[0.01], Black,
    Point[{{0.2, 4}, {0.25, 3}, {0.4, 1.5}, {0.5, 1}}]
    }]

I want to label these 4 points as A,B,C,D, respectively. I tried to implement the answer from here, but I got lost with Map, Transpose, etc.

So, I would appreciate any help

Here is my code:

h[\[Theta]_] := (1 - \[Theta])/\[Theta]
x = Plot[{h[\[Theta]], 2.5}, {\[Theta], 0.1, 1}, 
  PlotTheme -> "Monochrome",
  AxesLabel -> {"\[Theta]", "h(\[Theta])"}, 
  PlotLegends -> 
   Placed[{"h(\[Theta])", 
     "\!\(\*OverscriptBox[\(\[Theta]\), \(^\)]\)"}, Below], 
  LabelStyle -> {FontSize -> 10},
  Epilog -> {PointSize[0.01], Black,
    Point[{{0.2, 4}, {0.25, 3}, {0.4, 1.5}, {0.5, 1}}]
    }]

I want to label these 4 points as A,B,C,D, respectively. I tried to implement the answer from here, but I got lost with Map, Transpose, etc.

So, I would appreciate any help

Here is my code:

h[θ_] := (1 - θ)/θ
x = Plot[{h[θ], 2.5}, {θ, 0.1, 1}, 
  PlotTheme -> "Monochrome",
  AxesLabel -> {"θ", "h(θ)"}, 
  PlotLegends -> Placed[{"h(θ)", "\!\(\*OverscriptBox[\(θ\), \(^\)]\)"}, Below], 
  LabelStyle -> {FontSize -> 10},
  Epilog -> {PointSize[0.01], Black, Point[{{0.2, 4}, {0.25, 3}, {0.4, 1.5}, {0.5, 1}}]}]

I want to label these 4 points as A,B,C,D, respectively. I tried to implement the answer from here, but I got lost with Map, Transpose, etc.

So, I would appreciate any help

Source Link
Yorgos
Yorgos
  • 229
  • 1
  • 7

Label points in a plot

Here is my code:

h[\[Theta]_] := (1 - \[Theta])/\[Theta]
x = Plot[{h[\[Theta]], 2.5}, {\[Theta], 0.1, 1}, 
  PlotTheme -> "Monochrome",
  AxesLabel -> {"\[Theta]", "h(\[Theta])"}, 
  PlotLegends -> 
   Placed[{"h(\[Theta])", 
     "\!\(\*OverscriptBox[\(\[Theta]\), \(^\)]\)"}, Below], 
  LabelStyle -> {FontSize -> 10},
  Epilog -> {PointSize[0.01], Black,
    Point[{{0.2, 4}, {0.25, 3}, {0.4, 1.5}, {0.5, 1}}]
    }]

I want to label these 4 points as A,B,C,D, respectively. I tried to implement the answer from here, but I got lost with Map, Transpose, etc.

So, I would appreciate any help