Functions & Recurrence Tables

xxxxxxxxxx

 

1

print(r.eval("""

2

svg(filename='Rplots.svg',width=6,height=6,pointsize=10,

3

    onefile=TRUE,family='times',bg='steelblue',

4

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

5

gen<-function (a,b,n){i<-1; xyi<-array(c(0,0),c(n,2))

6

    while (i<=n-1){

7

        xi<-(1+0.01*a)*abs(xyi[i,1])-(1+.00001*b)*xyi[i,2]+1

8

        yi<-xyi[i,1]; i<-i+1; xyi[i,1]<-xi; xyi[i,2]<-yi}

9

    return(xyi)}

10

xyn<-gen(7,5,5000)

11

col<-rgb(.9*runif(1),.9*runif(1),.9*runif(1))

12

plot(xyn[,1],xyn[,2],type='p',cex=.1,col=col,

13

     xlab='x',ylab='y',fg='gray',

14

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

15

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

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

---

Messages