概率论经统一班第一组 小组成员：王璠璟 罗楫 王梓豪

#第一题：假设100件产品中，有5件次品，现从中随机地抽取20件，求“次品数”的分布律.次品数的数学期望和方差

P<-numeric(6)

for(k in 0:5){ P[k+1]<-choose(5,k)*choose(95,20-k)/choose(100,20) } P

D<-expand.grid(sheji=c(2,3,4),shigong=c(6,7,8))

D$wanchengshijian<-apply(D,1,sum)

D

mu<-weighted.mean(x=0:5,w=P);mu

D<-expand.grid(sheji=c(2,3,4),shigong=c(6,7,8))

D$wanchengshijian<-apply(D,1,sum)

D

mu<-weighted.mean(x=0:5,w=P)

weighted.mean((0:5-mu)^2,w=P)

#第二题：有两台机床生产同一型号的滚珠，根据以往经验知，这两台机床生产的滚珠直径都服从正态分布. 现分别从这两台机床生产的滚珠中随机地抽取7个和9个，测得它们的直径如下(单位: mmm) 机床甲 15.2 14.5 15.5 14.8 15.1 15.6 14.7 机床乙 15.2 15.0 14.8 15.2 15.0 14.9 15.1 14.8 15.3 试问机床乙生产的滚珠的方差是否比机床甲生产的滚珠直径的方差小? #甲:x, 乙:y

x=c(15.2,14.5,15.5,14.8,15.1,15.6,14.7)

y=c(15.2,15.0,14.8,15.2,15,14.9,15.1,14.8,15.3)

var.test(x,y)

#乙方差小于甲