Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I have to plot this graph http://i.imgur.com/hf54aiT.jpg

I tried Graphics[{Circle[{0, 0}, 3, {-2Pi, 2Pi}]},PointSize[.025]] I don't know how to proceed from here. Any help would be appreciated!

share|improve this question

2 Answers 2

Such plane figures are amenable to using complex numbers instead of pairs of reals for their points, and hence readily drawn using David Park's Presentations add-on (http://home.comcast.net/~djmpark/DrawGraphicsPage.html):

   ComplexCircle[0, 1],
   ComplexLine[{0, (1 + I)/Sqrt[2]}], PointSize[0.025], ComplexPoint[(1 + I)/Sqrt[2]],
   ComplexLine[{1/Sqrt[2], (1 + I)/Sqrt[2]}], ComplexLine[{I/Sqrt[2], (1 + I)/Sqrt[2]}]
   Axes -> True, Ticks -> {{1/Sqrt[2]}, {1/Sqrt[2]}}]

enter image description here

share|improve this answer
Graphics[{{Green, Line[{{0, 0}, {1/Sqrt[2], 1/Sqrt[2]}}]}, {Red, 
  Line[{{1/Sqrt[2], 0}, {1/Sqrt[2], 1/Sqrt[2]}}]}, {Line[{{0, 1/Sqrt[2]},
    {1/Sqrt[2], 1/Sqrt[2]}}]}, {Green, PointSize[.03], 
  Point[{1/Sqrt[2], 1/Sqrt[2]}]}, {Circle[{0, 0}, 1, {-2 Pi, 2 Pi}]}}, 
  Axes -> True, Ticks -> {{0, 1/Sqrt[2]}, {0, 1/Sqrt[2]}}]

Mathematica graphics

share|improve this answer
I added a picture & fixed formatting, I hope you don't mind :) –  Öskå May 18 '14 at 16:00
@Öskå that is ok. thanks –  Algohi May 19 '14 at 4:14

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

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