Functions with Summation

xxxxxxxxxx

 

1

print(r.eval("""

2

svg(filename='Rplots.svg',width=6.5,height=5.2,pointsize=15,

3

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

4

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

5

f<-function(n,x){s=0; 

6

    for (i in 1:n){

7

        d<-cos(i*x)+sin(i*x)

8

        s<-s+sqrt(exp(1)^(-i*x)+x^(i-1))/d};

9

    return (s*log(n*x-1));}

10

x<-seq(1,5,len=47); y2<-f(2,x); y3<-f(3,x); y4<-f(4,x)

11

plot(x,y2,type='o',cex=.9,col='#3636ff',pch=7,

12

     xlim=c(1,5),ylim=c(-150,150),xlab='',ylab='')

13

par(new=TRUE) 

14

plot(x,y3,type='o',cex=.9,col='#ff36ff',pch=8,

15

     xlim=c(1,5),ylim=c(-150,150),xlab='',ylab='')

16

par(new=TRUE)

17

plot(x,y4,type='o',cex=.9,col='#ff3636',pch=9,

18

     xlab='x',ylab='y',xlim=c(1,5),ylim=c(-150,150),

19

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

20

legend(list(x=3,y=150),legend=c('n=2','n=3','n=4'),

21

       col=c('#3636ff','#ff36ff','#ff3636'),

22

       pch=7:9,lty=1,merge=TRUE,box.col='white',

23

       text.col=c('#3636ff','#ff36ff','#ff3636'))

24

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

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

---

Messages