Circle Drawing

xxxxxxxxxx

 

1

var('u'); R,r,n=12,6,24; x=r*cos(u); y=r*sin(u)

2

p1=sum([parametric_plot(

3

    (x-R*cos(2*i*pi/n),y-R*sin(4*i*pi/n)),

4

    (u,0,2*pi),color='#3636ff') for i in [0..n]])

5

p2=sum([parametric_plot(

6

    (y-R*sin(4*i*pi/n),x-R*cos(2*i*pi/n)),

7

    (u,0,2*pi),fill=True,fillalpha=.1,

8

    fillcolor=colormaps['cool'](cos(25.12*i/n)^2)[:3],

9

    color='#3636ff',plot_points=30) for i in [0..n]])

10

p3=sum([parametric_plot(

11

    (1.5*x-R*cos(2*i*pi/n),1.5*y-R*sin(2*i*pi/n)),

12

    (u,0,2*pi),color='slategray') for i in [0..n]])

13

(p1+p2+p3).show(figsize=(5,5),axes=False)

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages