第一个取名为dicedice<-function(N){ #建一个名字叫dice的方程count<-0 #计数器：初始化为0for(n in 1:N){ #运行N次result<-1 #这个是色子点数的乘积，初始化为1for(i in 1:3){#投三次result<-result*sample(1:6,1)#sample(1:6,1)的意思是从1到6中随机选一个}if(result<90)#乘积小于90的话 count<-count+1 #就自增1} prob<-round(count/N,6) #
概率保留6位小数return(prob)#
函数返回这个概率}编好了在控制台source一下你这个R文件，然后输入dice(100000)>dice(100000)[1] 0.84911>dice(100000)[1] 0.85275我跑了2次第二题都不用编函数了，直接算吧。平均寿命3000小时，那么
指数分布的参数lambda就是1/3000,如果X~Exp(1/3000)，题目求P(2000<X<3000)的值R里有函数叫pexp(q,rate=r)是指数分布的分布函数P(X<q)，其中 q是寿命，r是lambda所以P(2000<X<3000)等于>pexp(3000,rate=1/3000)- pexp(2000,rate=1/3000)[1] 0.1455377如果只是画图，用curve()函数就好了
画正态密度：curve(dnorm,xlim=c(-3,3),col=2)
xlim是控制x轴显示从哪儿到哪儿，col是控制曲线颜色
画指数密度：curve(dexp(x,rate=1),xlim=c(0,5))
画指数分布：curve(pexp(x,rate=1),xlim=c(0,5))
你的方法是生成很多点x=seq(-6,6,0.1)
逐一算出函数值
t1[[i]]=dnorm(x,u[i],sigma)
t2[[i]]=pnorm(x,u[i],sigma)
最后在plot出来，用type="l"和lty=2的虚线弄出来。
curve这些功能都可以做到。
curve(dexp(x,rate=1),xlim=c(0,5),lty=2,add=T)就有虚线，
add=T可以一图多线
xp系统进入pe模式首先要双击UltraISO.exe，打开下载的系统文件，插入U盘或是存储卡，选择启动光盘的写入硬盘映像，然后选择写入模式，制作启动盘；制作完成后就可以开始安装系统了。将U盘插入上网本并开机，启动时按DEL进入主板CMOS设置，设置第一启动设备为USB或可移动装置，可以启动即告成功。\r\n
