Random Polygon Plotting

xxxxxxxxxx

 

1

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

2

a,b=randint(5,15),randint(4,18)

3

s=r'<p style="color:#aa00ff;">$a=%d; \; b=%d; \; n=%d$</p>'

4

pretty_print(html(s%(a,b,n)))

5

fx(t,k)=a*cos(pi*t/n+k*pi/b)+b*cos(a*pi*t/n)

6

fy(t,k)=a*sin(pi*t/n+k*pi/b)-b*sin(a*pi*t/n)

7

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

8

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

9

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

10

               thickness=1,alpha=.05,axes=False) 

11

     for i in range(2*b)])

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

---

Messages