Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

Struggling often with Trigonometry I would like to have some code to generate this Unit Circle Trigonometry. Would be of great help when I need to transform some data :

enter image description here

share|improve this question
Is your question: how to create this figure in Mathematica? Can you please describe what you tried so far and where you got stuck? You've been using Mathematica for a while, so to avoid the repliers spend too much time on writing up what you can already do yourself, please focus on the detail which you really couldn't solve. – Szabolcs Feb 29 '12 at 17:11
up vote 29 down vote accepted

There are a couple tricky points here. Here's a start, which I imagine you can finish.

markings[t_] := Module[{o={0,0},p={Cos[t],Sin[t]}, 
  t2=Together[t],tFormat, rot},
  tFormat = If[Denominator[t2]=!=1, 
  rot = If[TrueQ[Pi/2<Mod[t,2Pi]<3Pi/2],t+Pi,t];
       Row[{t(180/Pi)Degree, " = ",tFormat}],
     FontSize->18], p/2],rot], 

enter image description here

In addition to finishing it, logical enhancements would include: Making the Circle thicker, adjusting the size and/or format of the point labels, adding Points on the boundary, and/or making it dynamic.

Have fun!

share|improve this answer
Ooh! Making it dynamic would be interesting. (and, you already got my +1) – rcollyer Feb 29 '12 at 17:32
@Mark, Thank you very much ! – 500 Feb 29 '12 at 17:43
doesn't tFormat need to include how the thing should look if the condition is False, i.e., unaltered t2? Or was that the thing for 500 to work out on his own? – Verbeia Mar 1 '12 at 6:16

Here's a dynamic version (sorry, I couldn't resist).

 DynamicModule[{alist, pt, pc},
  pt[a_] := {Cos[a], Sin[a]};
  alist = 
   Union[Range[0, 2 Pi - Pi/6, Pi/6], Range[0, 2 Pi - Pi/4, Pi/4]];
  a = Nearest[alist, Mod[ArcTan @@ p, 2 Pi, 0]][[1]];
  pc = pt[a];

    {LightGray, Line[{{0, 0}, pt[#]}] & /@ alist},
    {PointSize[Medium], Blue, Point[pt /@ alist]},
    {AbsoluteThickness[2], Line[{{0, 0}, pc}]},
    {PointSize[Large], Red, Point[pc]},
    Text[pc, pc, -2 pc],
    Text[Framed[Row[{a/Pi/2 360, "\[Degree] = ", a}], 
      Background -> White, FrameStyle -> None], pc/2, {0, 0}, 
     pt[Mod[a, Pi, -Pi/2]]]},
   PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}]],
 {{p, {1, 0}}, Locator, Appearance -> None},
 {{a, 0}, None}]

Mathematica graphics

share|improve this answer
If only I would have thought of that! :) – Mark McClure Feb 29 '12 at 19:01
@Heike, Thank You so much. This is so cool ! – 500 Feb 29 '12 at 19:11
@Heike Very nice. Perhaps we should all upvote a question that generates such pleasing answers... Funny that this Q still has 0 votes at the moment. – cormullion Feb 29 '12 at 20:10
+1 for aesthetics (white background on the text, etc...) – Brett Champion Feb 29 '12 at 20:11
@cormullion The question actually currently has two Upvotes and two Downvotes. – Mark McClure Feb 29 '12 at 20: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.