18/08/10 15:02:20.95 40ocowuF.net
Rは複素数対応しているので作図の復習。
URLﾘﾝｸ(i.imgur.com)
(r=1/2*exp(pi/3*1i))
1/(1-r)
P <- function(n) (1-r^n)/(1-r)
N=0:10
plot(P(N), type='b', bty='l' ,asp=1)
points(1/(1-r),pch='+',col='red')
URLﾘﾝｸ(i.imgur.com)
18/08/10 15:02:20.95 40ocowuF.net
Rは複素数対応しているので作図の復習。
URLﾘﾝｸ(i.imgur.com)
(r=1/2*exp(pi/3*1i))
1/(1-r)
P <- function(n) (1-r^n)/(1-r)
N=0:10
plot(P(N), type='b', bty='l' ,asp=1)
points(1/(1-r),pch='+',col='red')
URLﾘﾝｸ(i.imgur.com)