Rotation of Polygons

xxxxxxxxxx

 

1

r.svg(filename='"Rplots.svg"',width=6,height=6,onefile=True,

2

    family='"sans"',bg='"white"',pointsize=10,

3

    antialias=r.c('"default"','"none"','"gray"','"subpixel"'))

4

r.eval("""

5

a<-sample(5:9,1); b<-sample(10:14,1); c<-sample(19:25,1)

6

q<-2*sample(3:10,1); n<-sample(4:16,1); l<-5; t<-seq(1,2*n+1,1) 

7

par(mar=c(0,0,0,0))

8

plot(0,0,type='n',xlim=c(-l,l),ylim=c(-l,l),

9

     xlab='',ylab='',xaxt='n',yaxt='n',frame=FALSE)

10

for (k in 1:q){

11

    col1=rgb(runif(1)/2,runif(1)/2,1)

12

    col2=rgb(runif(1),runif(1),1,alpha=.1); par(mar=c(0,0,0,0))

13

    fy<-cos(pi*t/n+2*k*pi/q)+cos(a*pi*t/n+2*k*pi/q)+

14

        cos(b*pi*t/n+2*k*pi/q)+cos(c*pi*t/n+2*k*pi/q)

15

    fx<-sin(pi*t/n+2*k*pi/q)-sin(a*pi*t/n+2*k*pi/q)+

16

        sin(b*pi*t/n+2*k*pi/q)-sin(c*pi*t/n+2*k*pi/q)

17

    polygon(1.5*fx,1.2*fy,col=col2,border=F,xlab='',ylab='',

18

            xlim=c(-l,l),ylim=c(-l,l),xaxt='n',yaxt='n',

19

            frame=FALSE); par(new=TRUE)

20

    polygon(fx,fy,lwd=.5,border=col1,xlab='',ylab='',

21

            xlim=c(-l,l),ylim=c(-l,l),xaxt='n',yaxt='n',

22

            frame=FALSE); par(new=TRUE)}

23

""")

24

r.dev_off()

25

r.eval("paste0('a = ',a,'; b = ',b,'; c = ',c,'; q = ',q,'; n = ',n)")

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

---

Messages