Parametric Plotting R

xxxxxxxxxx

 

1

print(r.eval("""

2

svg(filename='Rplots.svg',width=6,height=5,

3

    pointsize=12,onefile=TRUE,family='times',bg='white',

4

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

5

T<-seq(from=0,to=2*pi,by=.01*pi)

6

col<-function(i) {rgb(.005*i,0,1-.005*i)}

7

curve<-function(t) {list(sin(2*t),sin(5*t))}

8

X<-sapply(T,curve)[1,]; Y<-sapply(T,curve)[2,] 

9

for(i in 1:200){

10

    plot(X[i],Y[i],pch=13,cex=.9,

11

         xlim=c(-1.2,1.2),ylim=c(-1.2,1.2),

12

         col=col(i),xlab='x',ylab='y')

13

    par(new=TRUE)}

14

grid(); dev.off()

15

"""))

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

---

Messages