File: rtestmt19937.mac

package info (click to toggle)
maxima 5.27.0-3
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 120,648 kB
  • sloc: lisp: 322,503; fortran: 14,666; perl: 14,343; tcl: 11,031; sh: 4,146; makefile: 2,047; ansic: 471; awk: 24; sed: 10
file content (45 lines) | stat: -rw-r--r-- 1,550 bytes parent folder | download | duplicates (14)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
(random_state: make_random_state (987654321), 0);
0;

set_random_state (random_state);
done;

map (random, [2^16, 2^32, 2^64, 2^128]);
[23815, 1226283474, 14110244264496474887, 256880639077478706419109239557077996976];

map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * [2^52, 2^(52-16), 2^(52-32), 1]);
[1832214229593881, 3554405100599231, 36172692743681, 705526283404820480];

(L: makelist (random (2^32), i, 1, 1000), 0);
0;

apply ("+", L * makelist (i, i, 1, 1000));
1047661644052859;

map (random, [2^16, 2^32, 2^64, 2^128]);
[61259, 1512147836, 5201588561757929978, 55876996326958407997738817869273087742];

map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * 2^52);
[3378087623307407, 950036134838534144, 12401473179864865699790848, 31898738619930029950889265274552320];

set_random_state (random_state);
done;

map (random, [2^16, 2^32, 2^64, 2^128]);
[23815, 1226283474, 14110244264496474887, 256880639077478706419109239557077996976];

map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * [2^52, 2^(52-16), 2^(52-32), 1]);
[1832214229593881, 3554405100599231, 36172692743681, 705526283404820480];

(L: makelist (random (2^32), i, 1, 1000), 0);
0;

apply ("+", L * makelist (i, i, 1, 1000));
1047661644052859;

map (random, [2^16, 2^32, 2^64, 2^128]);
[61259, 1512147836, 5201588561757929978, 55876996326958407997738817869273087742];

map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * 2^52);
[3378087623307407, 950036134838534144, 12401473179864865699790848, 31898738619930029950889265274552320];