兄弟姐妹们帮忙编个呗

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Function name: SHIFT
Inputs: a vector of size 7 (numbers)
Outputs: A random number.
How?
Shift Register generators are an example of a random number generator. The steps of the method are as follows:
i) Choose a binary seed. seed=(1,0,0,1,1,0,1)
ii) Shift the seed to the right 2 bits. seed=(0,0,1,0,0,1,1)
iii) Perform an exclusive-or addition of lines i and ii. seed=(1,0,1,1,1,1,0)
iv) Shift the sum to the left 3 bits. seed=(1,1,1,0,0,0,0)
v) Perform an exclusive-or addition of lines iii and iv. seed=(0,1,0,1,1,1,0)
vi) The answer is: 0*2^0+1*2+0*2^2+1*2^4+1*2^5+0*2^6=58
Your code should look like:
SHIFT=function(seed)
{
...lines of code...
return(_something to output_)
}
SHIFT=(c(0,1,1,0,1,1,0))

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：兄弟姐妹 Generators Generator Exclusive something addition example numbers method

找人帮忙还给个英文的。

一个字母一个字母输进去的，不容易啊……

1. > SHIFT <- function(bivec1){
   
2.      bivec2 <- c(c(0,0),bivec1[1:5])
   
3.      bivec3 <- (bivec1+ bivec2)*abs(bivec1+bivec2-2)
   
4.      bivec4 <- c(bivec3[4:7],c(0,0,0))
   
5.      bivec5 <- (bivec3+ bivec4)*abs(bivec3+bivec4-2)
   
6.      out <- sum(bivec5*c(1,2,4,8,16,32,64))
   
7.      return(out)
   
8.      }
   
9. > SHIFT(c(1,0,0,1,1,0,1))
   
10. [1] 58
    
11. > SHIFT(c(0,1,1,0,1,1,0))
    
12. [1] 99
    
13. > bivec1 <- rbinom(7,1,0.58)
    
14. > SHIFT(bivec1)
    
15. [1] 96

复制代码

nuomin 发表于 2014-4-7 22:43

不清楚Shift Register generators

感觉 第三步，  也可以 bivec3= abs(bivec1-bivec2)

jmpamao 发表于 2014-4-7 23:14
不清楚Shift Register generators

感觉 第三步，  也可以 bivec3= abs(bivec1-bivec2)

你的更简单

老师说每个向量代入运算后的结果都是58，我审题七八遍之多了，输出的是random number
如果要求结果是58的话，有木有可能性呢

muyangren001 发表于 2014-4-8 22:03
老师说每个向量代入运算后的结果都是58，我审题七八遍之多了，输出的是random number
如果要求结果是58的话 ...

有这个可能，比如说那个截断操作，一共七个数，左截断3，右截断4，马上就没有随机性了，只是猜测，有证明才是真