Message Boards

WOLFRAM COMMUNITY

2858 Views

1 Reply

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics

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

Syrous Marivani

Syrous Marivani, LSUA

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

1 Reply

Sort By:

David Reiss

David Reiss, Scientific Arts

Posted 10 years ago

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}}}]]

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

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback