以下は指数関数π^xのグラフです。 #オイラーの原子量(Euler’s primitive sweep)と指数関数π^x(Euler’s primitive sweep & π^x) pix<-function(n){theta <- seq(pi, -pi, length=360)plot(cos(theta), sin(theta),xlim=c(-2,2),ylim=c(-2,2), type="l",col=rgb(0,1,0), main="Euler’s primitive sweep & y=π^x", xlab="…