Random Polygon Plotting 2

xxxxxxxxxx

 

1

var('t,k'); n=randint(16,36)

2

a,b,c=randint(5,11),randint(13,19),2*randint(3,6)

3

s1=r'<p style="color:#ff00aa;">'

4

s2=r'$a=%d; \; b=%d; \; c=%d; \; n=%d$</p>'

5

pretty_print(html(s1+s2%(a,b,c,n)))

6

fy(t,k)=cos(pi*t/n+2*k*pi/c)

7

fy(t,k)=fy(t,k)+cos(a*pi*t/n+2*k*pi/c)+cos(b*pi*t/n+2*k*pi/c)

8

fx(t,k)=sin(pi*t/n+2*k*pi/c)

9

fx(t,k)=fx(t,k)-sin(a*pi*t/n+2*k*pi/c)+sin(b*pi*t/n+2*k*pi/c)

10

L=[[[fx(t,k),fy(t,k)] 

11

    for t in range(2*n)] for k in range(2*c)]

12

sum([polygon2d(L[i],color=(1,random(),random()),

13

               thickness=.5,fill=False,axes=False) 

14

     for i in range(2*c)])

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

---

Messages