尪剽’坌辣午懇筋坌幵及田永弁失永皿(No.1)

塢及墊昫 y 卞ㄢ勾及尪剽﹜坌辣井日懇筋坌幵及怍蘸毛じ恘﹝

 > y<-matrix(0,nrow=500,ncol=3)
 > for(j in 1:3){d<-dnorm(x,mean=m[j],sd=s[j])
 + y[,j]<-d }

y 及襖毛皿伕永玄﹝

 > matplot(x,y,type="l",lty=1,col=1:3,ylab="density")

弘仿白卞咑拺毛馨笛﹝咑拺反弘仿白及 x 及杴戴及 -4.0 及午仇欠井日踏仁﹝
```
 > legend(-3.5,0.5,paste("mean=",m,"sd=",s,sep=""),col=1:3,lty=1,bty="n")
```
瘉詨卞杴戴瞬毛鰾瞬匹馨笛﹝
```
 > abline(h=0,v=0,lty=3)
```