小编Gjj*_*urg的帖子

我在用R在R中播种用户定义的RNG时遇到了一些麻烦

set.seed(123, kind='user', normal.kind='user')

实际上没有传递123给用户定义的RNG初始化.

我回到了现有的文档,?Random.user并尝试了那里给出的示例代码,稍加修改,我打印传递给user_unif_init函数的种子(下面的完整代码).

重现步骤:

1. 粘贴下面的代码 urand.c
2. 跑 R CMD SHLIB urand.c
3. 打开 R

4. 运行以下命令:

   > dyn.load('urand.so')
   > set.seed(123, kind='user', normal.kind='user')
   Received seed: 720453763
   Received seed: 303482705 // any other numbers than 123
   

   Run Code Online (Sandbox Code Playgroud)

这是我用过的完整代码urand.c:

// ##  Marsaglia's congruential PRNG

#include <stdio.h>
#include <R_ext/Random.h>

static Int32 seed;
static double res;
static int nseed = 1;

double * user_unif_rand()
{
    seed = 69069 * seed + 1;
    res = seed * 2.32830643653869e-10; …

我正在尝试使用Python填写并提交表单,但我无法检索生成的页面.我已尝试使用mechanize和urllib/urllib2方法发布表单,但两者都遇到了问题.

我想要检索的表格是:http://zrs.leidenuniv.nl/ul/start.php.该页面是荷兰语,但这与我的问题无关.值得注意的是,表单操作重定向到http://zrs.leidenuniv.nl/ul/query.php.

首先,这是我尝试过的urllib/urllib2方法:

import urllib, urllib2
import socket, cookielib

url = 'http://zrs.leidenuniv.nl/ul/start.php'
params = {'day': 1, 'month': 5, 'year': 2012, 'quickselect' : "unchecked",
          'res_instantie': '_ALL_', 'selgebouw': '_ALL_', 'zrssort': "locatie",
          'submit' : "Uitvoeren"}
http_header = {  "User-Agent" : "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/535.11 (KHTML, like Gecko) Chrome/17.0.963.46 Safari/535.11",
                 "Accept" : "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
                 "Accept-Language" : "nl-NL,nl;q=0.8,en-US;q=0.6,en;q=0.4" }

timeout = 15
socket.setdefaulttimeout(timeout)

request = urllib2.Request(url, urllib.urlencode(params), http_header)
response = urllib2.urlopen(request)

cookies = cookielib.CookieJar()
cookies.extract_cookies(response, request)
cookie_handler = urllib2.HTTPCookieProcessor(cookies)
redirect_handler = …