1
unit LUX.Random.SFMT.P11213;
3
interface //#################################################################### ■
5
uses LUX, LUX.D3, LUX.D4,
9
type //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【型】
11
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
13
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
15
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TRandom32SMT11213
17
TRandom32SMT11213 = class( TRandom32SMT )
22
function GetSFMT_MEXP :Int32s; override;
23
function GetSFMT_POS1 :Int32s; override;
24
function GetSFMT_SL1 :Int32s; override;
25
function GetSFMT_SL2 :Int32s; override;
26
function GetSFMT_SR1 :Int32s; override;
27
function GetSFMT_SR2 :Int32s; override;
28
function GetSFMT_MSK1 :Int32u; override;
29
function GetSFMT_MSK2 :Int32u; override;
30
function GetSFMT_MSK3 :Int32u; override;
31
function GetSFMT_MSK4 :Int32u; override;
32
function GetSFMT_PARITY1 :Int32u; override;
33
function GetSFMT_PARITY2 :Int32u; override;
34
function GetSFMT_PARITY3 :Int32u; override;
35
function GetSFMT_PARITY4 :Int32u; override;
36
function GetSFMT_IDSTR :String; override;
40
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TRandom64SMT11213
42
TRandom64SMT11213 = class( TRandom64SMT )
47
function GetSFMT_MEXP :Int32s; override;
48
function GetSFMT_POS1 :Int32s; override;
49
function GetSFMT_SL1 :Int32s; override;
50
function GetSFMT_SL2 :Int32s; override;
51
function GetSFMT_SR1 :Int32s; override;
52
function GetSFMT_SR2 :Int32s; override;
53
function GetSFMT_MSK1 :Int32u; override;
54
function GetSFMT_MSK2 :Int32u; override;
55
function GetSFMT_MSK3 :Int32u; override;
56
function GetSFMT_MSK4 :Int32u; override;
57
function GetSFMT_PARITY1 :Int32u; override;
58
function GetSFMT_PARITY2 :Int32u; override;
59
function GetSFMT_PARITY3 :Int32u; override;
60
function GetSFMT_PARITY4 :Int32u; override;
61
function GetSFMT_IDSTR :String; override;
65
//const //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【定数】
67
//var //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【変数】
69
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
71
implementation //############################################################### ■
75
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
77
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
79
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TRandom32SMT11213
81
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
83
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
85
function TRandom32SMT11213.GetSFMT_MEXP :Int32s;
90
function TRandom32SMT11213.GetSFMT_POS1 :Int32s;
95
function TRandom32SMT11213.GetSFMT_SL1 :Int32s;
100
function TRandom32SMT11213.GetSFMT_SL2 :Int32s;
105
function TRandom32SMT11213.GetSFMT_SR1 :Int32s;
110
function TRandom32SMT11213.GetSFMT_SR2 :Int32s;
115
function TRandom32SMT11213.GetSFMT_MSK1 :Int32u;
120
function TRandom32SMT11213.GetSFMT_MSK2 :Int32u;
125
function TRandom32SMT11213.GetSFMT_MSK3 :Int32u;
130
function TRandom32SMT11213.GetSFMT_MSK4 :Int32u;
135
function TRandom32SMT11213.GetSFMT_PARITY1 :Int32u;
140
function TRandom32SMT11213.GetSFMT_PARITY2 :Int32u;
145
function TRandom32SMT11213.GetSFMT_PARITY3 :Int32u;
150
function TRandom32SMT11213.GetSFMT_PARITY4 :Int32u;
155
function TRandom32SMT11213.GetSFMT_IDSTR :String;
157
Result := 'SFMT-11213:68-14-3-7-3:effff7fb-ffffffef-dfdfbfff-7fffdbfd';
160
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
162
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TRandom64SMT11213
164
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
166
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
168
function TRandom64SMT11213.GetSFMT_MEXP :Int32s;
173
function TRandom64SMT11213.GetSFMT_POS1 :Int32s;
178
function TRandom64SMT11213.GetSFMT_SL1 :Int32s;
183
function TRandom64SMT11213.GetSFMT_SL2 :Int32s;
188
function TRandom64SMT11213.GetSFMT_SR1 :Int32s;
193
function TRandom64SMT11213.GetSFMT_SR2 :Int32s;
198
function TRandom64SMT11213.GetSFMT_MSK1 :Int32u;
203
function TRandom64SMT11213.GetSFMT_MSK2 :Int32u;
208
function TRandom64SMT11213.GetSFMT_MSK3 :Int32u;
213
function TRandom64SMT11213.GetSFMT_MSK4 :Int32u;
218
function TRandom64SMT11213.GetSFMT_PARITY1 :Int32u;
223
function TRandom64SMT11213.GetSFMT_PARITY2 :Int32u;
228
function TRandom64SMT11213.GetSFMT_PARITY3 :Int32u;
233
function TRandom64SMT11213.GetSFMT_PARITY4 :Int32u;
238
function TRandom64SMT11213.GetSFMT_IDSTR :String;
240
Result := 'SFMT-11213:68-14-3-7-3:effff7fb-ffffffef-dfdfbfff-7fffdbfd';
243
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
245
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
247
//############################################################################## □
249
initialization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 初期化
251
finalization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 最終化
253
end. //######################################################################### ■