【统计模拟及其R实现】工作时间模拟 06-09上机习题答案 纸上作业答案_统计模拟及其r实现答案-程序员宅基地

技术标签: 算法  统计模拟及其R实现  概率论  

题目

R程序

# 06-09 纸上作业题目
# T14

# 定义变量:k lambda alpha
getTime = function(lambda) {
  time = rexp(1, rate=1/lambda)
  time
}

getProb = function(alpha) {
  u = runif(1)
  if (u < alpha) prob = 0 # 继续工作
  else prob = 1 # 停止工作
  prob
}

getCox = function(k, lambda, alpha) {
  T = 0 # 初始化
  for (i in 1:k) {
    T[i] = getTime(lambda)
    if (getProb(alpha[i]) == 1) {
      print(i) # 查看哪个阶段停止工作了,此句可删
      break
    }
  }
  sum(T)
}

getCox(k=10, lambda=10, alpha=runif(10))  # 模拟alpha的值
版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/onion23/article/details/117756877

智能推荐

两个晚上搞了一个QT文本编辑器,效果比较简陋啊_qt编辑器太垃圾了-程序员宅基地

文章浏览阅读202次。前言日常开发一直是linux后台 + 控制系统软件开发,感觉每天的黑框甚是无聊啊,遥想界面开发,平时主要用C++,无他,只能QT了,上次使用还是读书时,已经忘得差不多了。好在看了一下QT的基本框架,感觉封装的非常好,如果做了一个简单的Demo测试。本人晚上九点到家,昨天开发到11点多,今天又开发了一会。终于有个雏形了。功能实现完全参考win10 记事本的样子写的,照猫画虎;不知道怎么弄的就百度;实现基本的功能如下:文件,编辑,查找支持快捷键待改善(实在太多了)只是抱着用用的态度,学_qt编辑器太垃圾了

dede标签调用大全_{dede:field.title function='htmlspecialchars()' /}-程序员宅基地

文章浏览阅读324次。列表隔5行加一行线: {dede:list pagesize='50'} target=_blank>[field:title function="cn_substr(@me,48)"/][field:pubdate runphp='yes'] $a="".strftime('%m-%d',@me).""; $b=strftime('%m-%d',@me); $ntime _{dede:field.title function='htmlspecialchars()' /}htmlspecialchars()如何使用

YCbCr2转换成RGB的verilog解析_ycbcr转rgb verilog-程序员宅基地

文章浏览阅读6.3k次,点赞3次,收藏13次。module YCbCr2RGB (2 input iCLK,3 input iRESET,4 input iDVAL,5 input [7:0] iY,6 input [7:0] iCb,7 input [7:0] iCr,8 output reg _ycbcr转rgb verilog

vscode 前端插件推荐_cscode前端插件-程序员宅基地

文章浏览阅读391次。转载自https://segmentfault.com/a/1190000011779959_cscode前端插件

js 获取当前日期,计算往后三个月的日期_js 当前时间推后三个月-程序员宅基地

文章浏览阅读7k次。js 获取当前日期,计算往后三个月的日期合同管理中的试用期,即当前入职时间(年月日)与到三个月试用期的时间(年月日)//css .Partyinp{ width: 40px; height: 20px; display: inline-block; border:none; border-bottom: 1px solid #464444; text_js 当前时间推后三个月

tomcat org.apache.catalina.LifecycleException 和APR错误信息解决-程序员宅基地

文章浏览阅读2.6k次。[size=large] 一直在写c/s开发的东西,从没有尝试写web方面的工程,闲暇时写了一个,参照视频教程。 我的环境:windows xp x86 32bit tomcat 7.0 jre/jdk 1.6很快参照视频新建立了一个web工程,可是运行的时候出现如下错误:[color=red]..._20-mar-2024 22:24:15.697 信息 [main] org.apache.catalina.core.aprlifecycleli

随便推点

HDU 2084 数塔(DP)-程序员宅基地

文章浏览阅读88次。数塔 Time Limit: 1000/1000 MS (Java/Others) Memory Limit: 32768/32768 K (Java/Others) Total Submission(s): 57067 Accepted Submission(s): 33547Problem Description 在讲述DP算法的时候,一个经典的例子就是数塔问题,它是这样...

一个页面可以重复调用的TAB选项卡切换js代码 鼠标悬浮-程序员宅基地

文章浏览阅读164次。/*下面是景点页面的变动代码*/ .tabbox{ height:176px; padding-bottom:10px; }.tabmenu{ height:25px; background:url(../imges/scenery_04.jpg)rightno-repeat; }.tabmenuul{margin:0;paddin..._js可复用的tab

Git安装与使用_git是基于快照的,而不是补丁文件-程序员宅基地

文章浏览阅读224次。1.简介Git是目前世界上最先进的分布式版本控制系统,git与svn的五个基本区别。它有以下特点:分布式 : Git版本控制系统是一个分布式的系统, 是用来保存工程源代码历史状态的命令行工具;保存点 : Git的保存点可以追踪源码中的文件, 并能得到某一个时间点上的整个工程项目额状态; 可以在该保存点将多人提交的源码合并, 也可以会退到某一个保存点上;Git离线操作性 :Git可以离线进行..._git是基于快照的,而不是补丁文件

字符串作业_输 字符串,获取字符串的中间字符 例如: 输 **'abc1234'** 输出:**'1'** 输-程序员宅基地

文章浏览阅读420次。# 1.输入一个字符串,打印所有奇数位上的字符(下标是1,3,5,7…位上的字符)# 例如: 输入**'abcd1234 ' ** 输出**'bd24'**a = 'abcjdnkwu11234jwe'print(a[1::2])# 2.输入用户名,判断用户名是否合法(用户名长度6~10位)# id_name = input('输入用户名:')# s = len(id_name)# if 6 <= s <= 10:# print('用户名合法')# else:#._输 字符串,获取字符串的中间字符 例如: 输 **'abc1234'** 输出:**'1'** 输

Ane的开发总结_ane打包规范及开发技巧-程序员宅基地

文章浏览阅读1.1k次。Ane的开发总结1.flashBuilder开发创建名为MyNativeLib的项目再创建一个名为EntryPoint的ActionScript类,我们以这个作为扩展的入口,包名com.booyue.myane,OK,工程创建结束。代码有以下三点:① 继承EventDispatcherpublic class EntryPoint extends EventDispatcherEventDispat_ane打包规范及开发技巧

IntelliJ IDEA,代码行宽度超出限制时自动换行-程序员宅基地

文章浏览阅读6.7k次。2019独角兽企业重金招聘Python工程师标准>>> ..._ide有个线的那个插件 标注代码不能单行超过的那个