文档章节

转盘问题的R语言模拟

非线性方程
 非线性方程
发布于 2017/03/31 11:24
字数 510
阅读 10
收藏 0
R

##一次的结果
##初始化
a1 <- NULL;a2 <- NULL;a3 <- NULL;zuida <- NULL
##第一个人转轮盘过程  
x <- sample(c(1:20),1)
exp1<-15
if(x>=exp1){a1 <- x
           }else{
              a1 <- x+sample(c(1:20),1)
              }
while(a1>20){a1=0}
zuida[1]=a1


##第二个人转轮盘过程
x <- sample(c(1:20),1)
exp2<- sample(c(14,15,16,17,18),1)
if(x>=exp2&&x>a1){a2=x
                 }else{
                   a2=x+sample(c(1:20),1)
                 }
while(a2>20){a2=0}
zuida[2] <- a2
max=max(zuida)

#第三个人转轮盘过程
x <- sample(c(1:20),1)
if(x>max){a3=x
            }else{
              a3=x+sample(c(1:20),1)
            }
while(a3>20){a3=0}
zuida[3] <- a3
##找出获胜者
for(i in 1:3){
  if(zuida[order(zuida,decreasing=T)][1]==zuida[i]){
    win=i
  }
}
##########################################
##重复一万遍游戏
for(j in 1:100){
  ##一次的结果
  ##初始化
  a1 <- NULL;a2 <- NULL;a3 <- NULL;zuida <- NULL
  ##第一个人转轮盘过程  
  x <- sample(c(1:20),1)
  exp1<-15
  if(x>=exp1){a1 <- x
  }else{
    a1 <- x+sample(c(1:20),1)
  }
  while(a1>20){a1=0}
  zuida[1]=a1
  
  
  ##第二个人转轮盘过程
  x <- sample(c(1:20),1)
  exp2<- sample(c(14,15,16,17,18),1)
  if(x>=exp2&&x>a1){a2=x
  }else{
    a2=x+sample(c(1:20),1)
  }
  while(a2>20){a2=0}
  zuida[2] <- a2
  max=max(zuida)
  
  #第三个人转轮盘过程
  x <- sample(c(1:20),1)
  if(x>max){a3=x
  }else{
    a3=x+sample(c(1:20),1)
  }
  while(a3>20){a3=0}
  zuida[3] <- a3
  ##找出获胜者
  for(i in 1:3){
    if(zuida[order(zuida,decreasing=T)][1]==zuida[i]){
      win=i
    }
  }
  winman[j]=win
}


 

© 著作权归作者所有

非线性方程
粉丝 1
博文 22
码字总数 9927
作品 0
天津
程序员
私信 提问
数据可视化,带给你的惊艳并不止这一点!

在大数据时代的现今,数据庞大且繁杂,仅通过简单的数据整理得出清晰的结论,已经不太合理。实际上,若要简明扼要地展示出结论,不妨考虑一下数据可视化。 那么,什么是数据可视化呢? 数据可...

技术小能手
2018/08/22
0
0
R语言模拟:Bias Variance Decomposition

作者:量化小白一枚,上财研究生在读,偏向数据分析与量化投资 个人公众号:量化小白上分记 接上一篇《R语言模拟:Bias-Variance trade-off》,本文通过模拟分析算法的泛化误差、偏差、方差和噪...

R语言中文社区
2018/12/04
0
0
Rserve的R语言客户端RSclient

R语言作为统计学一门语言,一直在小众领域闪耀着光芒。直到大数据的爆发,R语言变成了一门炙手可热的数据分析的利器。随着越来越多的工程背景的人的加入,R语言的社区在迅速扩大成长。现在已...

zh119893
2014/05/04
716
1
给我两小时!带你发动R语言数据挖掘的高铁,一往直前!

主题: 数据挖掘快速上手之R语言实践 随之DT时代的到来,传统的统计分析方法已经不能解决海量高维数据,如何运用数据挖掘手段对复杂数据进行数据处理、数据可视化、数据建模及模型解读是每一...

李晓文
2017/04/18
0
0
OSChina 第 35 期高手问答 —— R语言

OSCHINA 本期高手问答我们请来了 @雁起平沙 为大家解答关于 R编程语言以及统计学方面的问题。 @雁起平沙 (陈堰平)是《R语言编程艺术》一书的译者,毕业于中国人民大学统计学院,现任国家金融...

红薯
2013/05/19
4.3K
30

没有更多内容

加载失败,请刷新页面

加载更多

只需一步,在Spring Boot中统一Restful API返回值格式与统一处理异常

统一返回值 在前后端分离大行其道的今天,有一个统一的返回值格式不仅能使我们的接口看起来更漂亮,而且还可以使前端可以统一处理很多东西,避免很多问题的产生。 比较通用的返回值格式如下:...

晓月寒丶
今天
58
0
区块链应用到供应链上的好处和实际案例

区块链可以解决供应链中的很多问题,例如记录以及追踪产品。那么使用区块链应用到各产品供应链上到底有什么好处?猎头悬赏平台解优人才网小编给大家做个简单的分享: 使用区块链的最突出的优...

猎头悬赏平台
今天
27
0
全世界到底有多少软件开发人员?

埃文斯数据公司(Evans Data Corporation) 2019 最新的统计数据(原文)显示,2018 年全球共有 2300 万软件开发人员,预计到 2019 年底这个数字将达到 2640万,到 2023 年达到 2770万。 而来自...

红薯
今天
61
0
Go 语言基础—— 通道(channel)

通过通信来共享内存(Java是通过共享内存来通信的) 定义 func service() string {time.Sleep(time.Millisecond * 50)return "Done"}func AsyncService() chan string {retCh := mak......

刘一草
今天
57
0
Apache Flink 零基础入门(一):基础概念解析

Apache Flink 的定义、架构及原理 Apache Flink 是一个分布式大数据处理引擎,可对有限数据流和无限数据流进行有状态或无状态的计算,能够部署在各种集群环境,对各种规模大小的数据进行快速...

Vincent-Duan
今天
50
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部