lab1<-c("","","") ## 2.1 画概率密度曲线 for (i in 1:k) { x<-seq(-4,4,by=0.1) y<-dnorm(x,mu[i],sgm[i]) if (i==1) { plot(x,y,xlim =c(-4.5,4.5),ylim=lim1,col=col1[i],lwd=3,type = "l",xlab="σ改变,μ不变",ylab = "f(x)",main="正态分布概率密度曲...