帮顶帮顶 。。

用R语言来做的话：
install.packages("bootstrap")
library(bootstrap)
set.seed(113)
N <- 15
x <- rnorm(N, 5, 1)
theta <- function(x){sd(x)/mean(x)}
results <- bootstrap(x,999,theta)
cv <- results[[1]]
quantile(cv,c(0.025,0.975))

par(mfcol=c(1,2))
hist(cv)
qqnorm(cv)