Random Coefficients & Colors 5

xxxxxxxxxx

 

1

print(r.eval("""

2

svg(filename='Rplots.svg',width=6.8,height=7,onefile=TRUE,

3

    pointsize=12,family='courier',bg='black',

4

    antialias=c('default','none','gray','subpixel'))

5

tmin<--pi; tmax<-pi; n<-36; t<-seq(0,2*pi,len=120)

6

for (i in 1:n){

7

    f1<-(sample(8:11,1)+.9*cos(sample(12:24,1)*t+2*pi*i/n))

8

    f2<-(1+.1*cos(sample(25:81,1)*t+2*pi*i/n))

9

    f3<-(1+.05*cos(sample(216:256,1)*t+2*pi*i/n))

10

    f4<-(1+sin(t+2*pi*i/n))

11

    x<-f1*f2*f3*f4*cos(t); y<-f1*f2*f3*f4*sin(t)

12

    plot(x,y,type='o',cex=.3,xlim=c(-27,27),ylim=c(-27,27),

13

         col=rgb(.8*runif(1),.8*runif(1),.8*runif(1)),

14

         lwd=1,xlab='x',ylab='y',fg='slategray',

15

         col.axis='slategray',col.lab='slategray')

16

    par(new=TRUE)}

17

grid(col='slategray'); dev.off()

18

"""))

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

---

Messages