Drawing by Parametric Functions

xxxxxxxxxx

 

1

print(r.eval("""

2

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

3

    pointsize=10,family='times',bg='steelblue',

4

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

5

t<-seq(0,2*pi,len=360)

6

f1<-(7+.9*cos(12*t))*(1+.05*cos(72*t))

7

f2<-(1+.05*cos(256*t))*(1+sin(t))

8

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

9

for (i in 1:25){

10

    plot(.04*i*x,.04*i*y,type='l',col=rgb(0,.04*i,0),

11

         xlim=c(-11,11),ylim=c(-3,17),xlab='x',ylab='y',

12

         fg='gray',col.axis='gray',col.lab='gray')

13

    par(new=TRUE)}

14

grid(col='gray'); dev.off()"""))

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

---

Messages