懇筋坌幵及怍蘸楮醒及田永弁失永皿(No.1) - 少日曰昳銖辣忷→聊ざ狤

田永弁失永皿域厖
犒坌毛刓憎
蜇箕午及犒坌毛刓憎
末□旦毛刓憎
懇筋坌幵及怍蘸楮醒尺墊仁﹝
- 1 (2008-08-03 (ざ) 21:33:35)

懇筋坌幵及怍蘸楮醒

x 卞卞 -5 井日 5 引匹 500 蜊及犯□正毛じ恘﹝
```
 > x=seq(-5,5,length=500)
```
尪剽互 0.5 , 1.0 , 1.5 午中丹ㄢ勾及懇筋坌幵毛匢仁﹝公仇匹﹜i 卞ㄢ勾及醒襖毛じ恘﹝
```
 > i=c(0.5,1.0,1.5)
```
x 及襖毛ㄢ勾及尪剽卞覆殺仄凶懇筋坌幵及割峔怍蘸楮醒卞じ恘﹝
```
 > y<-sapply(i,function(a){dnorm(x,mean=a,sd=1)})
```

y 及襖毛皿伕永玄﹝

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

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

CENTER: