开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多国语言处理 > 信息检索与抽取 > 查看源码
include.xgens.using.m
资源名称：swarm-2.2.tar.gz　[点击查看]
上传用户：shenzhenrh
上传日期：2013-05-12
资源大小：2904k
文件大小：5k
源码类别：

信息检索与抽取

开发平台：

Unix_Linux

include.xgens.using.m：源码内容
  1. // include.xgens.using.m
  2. // 
  4. // 
  5. // Common code for split generators
  6. // Random version 0.8
  7. // 
  9. // USING
  11. - (void)drop
  12. {
  13.   [[self getZone] free: vGenArr];
  14.   [super drop];
  15. }
  17. -restartGenerator: (unsigned) vGen {
  18.    unsigned j;
  19. // Reset chosen virtual generator to beginning of current segment
  20.    for (j=0; j<COMPONENTS; j++)
  21.    {
  22.      vGenArr[vGen].Cg[j] = vGenArr[vGen].Lg[j]; // reset state = segmentSeed
  23.    }
  24.    vGenArr[vGen].currentCount = 0; // restart counter
  25.    return self;
  26. }
  28. -advanceGenerator: (unsigned) vGen {
  29.    unsigned j;
  30. // Advance chosen virtual generator to beginning of next segment
  31.    for (j=0; j<COMPONENTS; j++)
  32.    {
  33.    vGenArr[vGen].Lg[j] = [self MultModMs: aw[j] t: vGenArr[vGen].Lg[j] M: m[j]];
  34.    vGenArr[vGen].Cg[j] = vGenArr[vGen].Lg[j];
  35.    }
  36.    vGenArr[vGen].currentCount = 0; // restart counter
  37.    vGenArr[vGen].currentSegment++; // going to next segment
  39.    if (vGenArr[vGen].currentSegment > segmentMax)
  40.    [InvalidCombination raiseEvent:
  41.    "%s advanceGenerator: %u exceeding limit on #segments %24qun", 
  42.    genName, vGen, vGenArr[vGen].currentSegment];
  44.    return self;
  45. }
  47. -jumpGenerator: (unsigned) vGen toSegment: (unsigned long long int) seg {
  48.    unsigned long long int i;
  50.    if (seg > segmentMax)
  51.    [InvalidCombination raiseEvent:
  52.    "%s jumpGenerator: segment chosen is too big! %24qun", genName,seg];
  54. // Position chosen virtual generator to start of specified segment 
  55.    [self initGenerator: vGen];
  56.    for (i=0; i<seg; i++)
  57.      [self advanceGenerator: vGen];
  58.    return self;
  59. }
  62. -restartAll {
  63.    unsigned int i;
  65.      for (i=0; i<numGenerators; i++) 
  66.      [self restartGenerator: i];
  68.    return self;
  69. }
  71. -advanceAll {
  72.    unsigned int i;
  74.      for (i=0; i<numGenerators; i++) 
  75.      [self advanceGenerator: i];
  77.    return self;
  78. }
  80. -jumpAllToSegment: (unsigned long long int) seg {
  81.    unsigned int i;
  83.      for (i=0; i<numGenerators; i++) 
  84.      [self jumpGenerator: i toSegment: seg];
  86.    return self;
  87. }
  90. -(BOOL) getAntithetic {
  91.    return antiThetic;
  92. }
  94. -(unsigned) getUnsignedMax {
  95.    return unsignedMax;
  96. }
  98. -(unsigned) lengthOfSeedVector {
  99.    return lengthOfSeedVector;
  100. }
  102. -(unsigned) getMaxSeedValue {
  103.    return 0xffffffff;
  104. }
  106. -(unsigned *) getMaxSeedValues {
  107.    return &(maxSeedValues[0]);
  108. }
  110. -(unsigned) getInitialSeed {
  111.    return initialSeed;
  112. }
  114. -(unsigned *) getInitialSeeds {
  115.    return &(initialSeeds[0]);
  116. }
  118. -(const char *) getName {
  119.    return SSTRDUP (genName);
  120. }
  122. -(unsigned) getMagic {
  123.    return genMagic;
  124. }
  126. -(unsigned) getStateSize {
  127.    return stateSize;
  128. }
  130. -(unsigned) getNumGenerators {
  131.    return numGenerators;
  132. }
  134. -(unsigned) getNumSegments {
  135.    return numSegments;
  136. }
  138. -(unsigned) getSegmentLength {
  139.    return segmentLength;
  140. }
  143. -(unsigned long long int) getCurrentCount: (unsigned) vGen {
  144.    return vGenArr[vGen].currentCount;
  145. }
  147. -(unsigned long long int) getCurrentSegment: (unsigned) vGen {
  148.    return vGenArr[vGen].currentSegment;
  149. }
  151. // These 3 methods are implemented following L'Ecuyer,
  152. // for debug purposes only. Not published.
  154. -(unsigned *) getInitialSeeds: (unsigned) vGen {
  155.    return &(vGenArr[vGen].Ig[0]);
  156. }
  158. -(unsigned *) getLastSeeds: (unsigned) vGen {
  159.    return &(vGenArr[vGen].Lg[0]);
  160. }
  162. -(unsigned *) getCurrentSeeds: (unsigned) vGen {
  163.    return &(vGenArr[vGen].Cg[0]);
  164. }
  167. // Change in version 0.75:
  168. // -getDoubleSample no longer calls -getLongDoubleSample,
  169. // since doing so made the method non-portable.
  171. // ----- Producing generator output: -----
  173. -(float) getFloatSample: (unsigned) vGen {
  174.    double dd;
  175.    // One 32-bit unsigned random number is used
  176.    // to fill the 24-bit mantissa of a float
  178.    dd = invModMult * [self getUnsignedSample: vGen];
  179.    return (float) dd;
  180. }
  182. -(double) getThinDoubleSample: (unsigned) vGen {
  183.    double dd;
  184.    // *One single* 32-bit unsigned random number is used
  185.    // to fill the 53-bit mantissa of a double
  187.    dd = invModMult * [self getUnsignedSample: vGen];
  188.    return dd;
  189. }
  191. -(double) getDoubleSample: (unsigned) vGen {
  192.    double dd;
  193.    // *Two* 32-bit unsigned random numbers are used
  194.    // to fill the 53-bit mantissa of a double.
  196.    dd = invModMult  * [self getUnsignedSample: vGen]
  197.       + invModMult2 * [self getUnsignedSample: vGen];
  198.    return dd;
  199. }
  201. // NOTE: since the size of a long double is machine dependent,
  202. // using this method may render the simulation non-portable!
  203. -(long double) getLongDoubleSample: (unsigned) vGen {
  204.    long double ld;
  205.    // Two 32-bit unsigned random numbers are used
  206.    // to fill the mantissa of a long double.
  208.    ld = (long double) invModMult  * [self getUnsignedSample: vGen]
  209.       + (long double) invModMult2 * [self getUnsignedSample: vGen];
  210.    return ld;
  211. }
  213. // include.xgens.setting.m