Tell me more ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.
up vote -6 down vote favorite

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

picture

share|improve this question
4  
You should show your attempts and where you are getting stuck – Rojo Jan 18 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 at 10:01

closed as too localized by Szabolcs, Sjoerd C. de Vries, rcollyer, Oleksandr R., Yves Klett Feb 14 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, see the FAQ.

2 Answers

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
up vote 8 down vote

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
+1 You beat me to it! – David Carraher Jan 18 at 3:31
@dude To boredom? :) – belisarius Jan 18 at 3:58
1  
I would say that I was slower than you in snapping out of boredom. – David Carraher Jan 18 at 4:09

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