概率论第二次试验探索.docxVIP

概率论第二次试验报告 姓 名 杨帆学 号：4012014057姓 名 杨蓝学 号：4012014025姓 名 张艺朋学 号：4012014047 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 #正态分布 #第一问 curve(dnorm(x,mean = -2,sd=1,log=FALSE),type = l,add = TRUE,xlim=c(-5,5),ylim=c(0,1),ylab = 概率) curve(dnorm(x,mean = 0,sd=1,log=FALSE),type = l,add = TRUE,col=red) curve(dnorm(x,mean = 2,sd=1,log=FALSE),type = l,add = TRUE,col=green) curve(pnorm(x,mean = -2,sd=1),type = l,add = TRUE) curve(pnorm(x,mean = 0,sd=1,lower.tail = TRUE,log.p = FALSE),type = l,add = TRUE,col=red) curve(pnorm(x,mean = 2,sd=1,lower.tail = TRUE,log.p = FALSE),type = l,add = TRUE,col=green) title(main = 正态分布) mtext(---单调的是分布函数, adj = 1,line = -1) mtext(---不单调的是概率密度, adj = 1, line = -2) text(x=-3,y=0.6,labels=μ= -2→) text(x=-1,y=0.6,labels=μ= 0→,col=red) text(x=1,y=0.6,labels=μ= -2→,col=green) #第二问 curve(dnorm(x,mean = 0,sd=0.5,log=FALSE),type = l,add = TRUE,lwd=4,xlim=c(-5,5),ylim=c(0,1),ylab = 概率) curve(dnorm(x,mean = 0,sd=1,log=FALSE),type = l,add = TRUE,col=red) curve(dnorm(x,mean = 0,sd=2,log=FALSE),type = l,add = TRUE,col=green) curve(pnorm(x,mean = 0,sd=0.5),type = l,add = TRUE) curve(pnorm(x,mean = 0,sd=1,lower.tail = TRUE,log.p = FALSE),type = l,add = TRUE,col=red) curve(pnorm(x,mean = 0,sd=2,lower.tail = TRUE,log.p = FALSE),type = l,add = TRUE,col=green) title(main = 正态分布) mtext(---单调的是分布函数, adj = 1,line = -1) mtext(---不单调的是概率密度, adj = 1, line = -2) text(x=-3,y=0.6,labels=μ= -2→) text(x=-1,y=0.6,labels=μ= 0→,col=red) text(x=1,y=0.6,labels=μ= -2→,col=green) #泊松分布 x-seq(0,30) plot(x,dpois(x,1),type=b) lines(x,dpois(x,2),type=b,col=red) lines(x,dpois(x,3),type=b,col=green) lines(x,dpois(x,6),typ