Message Boards Message Boards

0
|
2856 Views
|
1 Reply
|
0 Total Likes
View groups...
Share
Share this post:
GROUPS:

How to put the coordinates of some points in a plot that has been plotted?

Posted 10 years ago

I have plotted a circle in Mathematica 10 and the total code is as follows:

Show[Plot[{4 - Sqrt[16 - (x + 3)^2], 4 + Sqrt[16 - (x + 3)^2]}, {x, -8, 3}, PlotStyle -> {Thickness[.01], Thickness[.01]}], Graphics[Point[{{-3, 4}, {-3, 8}, {1, 4}, {-3, 0}, {-7, 4}}]], ListLinePlot[{{{-3, 4}, {-7, 4}}, {{-3, 4}, {-3, 8}}, {{-3, 4}, {1, 4}}, {{-3, 4}, {-3, 0}}}]] I just want to put the coordinates of the points which I plotted above. Can somebody help?

POSTED BY: Syrous Marivani

Use Text. Here's an example for your case:

Show[
 Plot[{4 - Sqrt[16 - (x + 3)^2], 
   4 + Sqrt[16 - (x + 3)^2]}, {x, -8, 3}, 
  PlotStyle -> {Thickness[.01], Thickness[.01]}], 
 Graphics[{Point[{{-3, 4}, {-3, 8}, {1, 4}, {-3, 0}, {-7, 4}}],

   Text[#, #, {-1, -1}] & /@ {{-3, 4}, {-3, 8}, {1, 4}, {-3, 0}, {-7, 4}}  }], 
   ListLinePlot[{{{-3, 4}, {-7, 4}}, {{-3, 4}, {-3, 8}}, {{-3, 
     4}, {1, 4}}, {{-3, 4}, {-3, 0}}}]]
POSTED BY: David Reiss
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract