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
add comment

2 Answers

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):

Draw2D[{
   ComplexCircle[0, 1],
   Green, 
   ComplexLine[{0, (1 + I)/Sqrt[2]}], PointSize[0.025], ComplexPoint[(1 + I)/Sqrt[2]],
   Red, 
   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
add comment
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 at 16:00
    
@Öskå that is ok. thanks –  Algohi May 19 at 4:14
add comment

Your Answer

 
discard

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.