plot

plotが変。

あとで書こう。

x=seq(-15,15,length=500)
lambda=0.8

laplace=function(x){
	(lambda/2)*exp(-lambda*abs(x))
}


plot(x,laplace(x),type='l',ylim=c(0,0.4))
par(new=T)
lambda=0.6
plot(x,laplace(x),type='l',ylim=c(0,0.4))
par(new=T)
lambda=0.4
plot(x,laplace(x),type='l',ylim=c(0,0.4))
lambda=0.2
par(new=T)
plot(x,laplace(x),type='l',ylim=c(0,0.4))