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.

How can I draw a picture like the following using Mathematica's graphics primitives?

picture

share|improve this question

closed as too localized by Szabolcs, Sjoerd C. de Vries, rcollyer, Oleksandr R., Yves Klett Feb 14 '13 at 7:20

This question is unlikely to help any future visitors; it is only relevant to a small geographic area, a specific moment in time, or an extraordinarily narrow situation that is not generally applicable to the worldwide audience of the internet. For help making this question more broadly applicable, visit the help center.If this question can be reworded to fit the rules in the help center, please edit the question.

4  
You should show your attempts and where you are getting stuck –  Rojo Jan 18 '13 at 3:03
    
redeye, you'll note that this question has been down-voted by the community. If you answer some questions (thoughtfully) attitudes may be improved toward questions such as this one. Nevertheless showing your efforts always helps. –  Mr.Wizard Jan 18 '13 at 10:01
add comment

2 Answers 2

up vote 10 down vote accepted

Here's a start...

Manipulate[
 Show[poly[n], circ[n]],{{n, 5}, {5, 6, 7, 8, 9, 10}},
 Initialization :> (
  circ[n_] := 
  Graphics[{Arrowheads[.13], Thickness[.025], Circle[{0, 0}, 3], 
  Table[Arrow[
    BezierCurve[{3 {Cos@(t + 1.6 \[Pi]/n), Sin@(t + 1.6 \[Pi]/n)},
       2 {Cos@(t + .4 \[Pi]/n), Sin@(t + .4 \[Pi]/n)}, 
      1 {Cos@t, Sin@t}}]], {t, 0, 2 \[Pi], 2 \[Pi]/n}]}];
 poly[n_] := 
  Graphics[
  Polygon[(4/5) Partition[
    Flatten@Table[{{Cos@t, 
        Sin@t}, (2/3) {Cos@(t + \[Pi]/n), Sin@(t + \[Pi]/n)}}, {t,
        0, 2 \[Pi], 2 \[Pi]/n}], 2]]];)]

circle star

share|improve this answer
add comment

I'm bored:

s = .3 {{1, 0}, {.6, -.6}, {.3, -.2}};
k = {Arrowheads[.13], Thickness[.03], Circle[{0, 0}, .3], Arrow[BezierCurve[{s}]]};
Graphics[{Polygon[Table[.11 {Cos[t + Pi/17], Sin[t + Pi/17]}, {t, 0, 10 Pi, 10 Pi/8}]],             
                  Table[Rotate[k, 2 Pi i/8, {0, 0}], {i, 8}]}, 
                  PlotRange -> .32 {{-1, 1}, {-1, 1}}]

Mathematica graphics

share|improve this answer
add comment

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