信息检索与抽取

开发平台：

Unix_Linux

include.gens.setting.m：源码内容

							// include.gens.setting.m
//
// 
// Common code for simple generators
// Random version 0.8
// 
// SETTING
-setStateFromSeed: (unsigned) seed {
   if (seed == 0)
   [InvalidCombination raiseEvent:
   "%s setStateFromSeed: seed %u cannot be zeron", genName, seed ];
   singleInitialSeed = YES;
   initialSeed = seed;
   [self generateSeeds];		// fill initialSeeds[] using PMMLCG
   [self setState];			// fill state from initialSeeds[]
   return self;
}
-setStateFromSeeds: (unsigned *) seeds {
   unsigned i;
   for (i = 0; i < lengthOfSeedVector; i++)
     if ( (seeds[i] > maxSeedValues[i]) || (seeds[i] == 0) )
       [InvalidCombination raiseEvent:
       "%s setStateFromSeeds: seeds[%u]=%u is too large (max %u) or zeron",
       genName, i, seeds[i], maxSeedValues[i] ];
   singleInitialSeed = NO;
   initialSeed = 0;			// this value not used 
   for (i = 0; i < lengthOfSeedVector; i++)
     initialSeeds[i] = seeds[i];	// fill initialSeeds[]
   [self setState];			// fill state from initialSeeds[]
   return self;
}
// Use an inline generator to create the full number of seeds required,
// using the single seed initialSeed to seed this inline generator.
// The specific generator used is a PMMLCG with a=69069 and m=2^32
// (see Knuth vol. 2, table 1 on p. 102, line 25). Cf. MT19937 source.
// This generator creates random nonzero 32-bit values, as long as
// initialSeed is not zero.
// Note: for now, this method is identical to that for split generators.
-generateSeedVector {
   unsigned ki;
   unsigned z;
   z = initialSeed;
   // Mix the bits a bit:
   for (ki=0; ki < 16; ki++)
      z = (69069 * z);		// modulo 2^32
   // Generate seeds, as many as needed:
   for (ki=0; ki < lengthOfSeedVector; ki++) {
     z = (69069 * z);		// modulo 2^32
     initialSeeds[ki] = z;
      
   }
   // Make sure we don't supply invalid seed values for this generator:
   for (ki=0; ki < lengthOfSeedVector; ki++) {
      if (maxSeedValues[ki] < 0xffffffff) {	// avoid seeds > maxSeedValue
        initialSeeds[ki] = initialSeeds[ki] % (maxSeedValues[ki] + 1);
        if (initialSeeds[ki] == 0) 		// avoid seed = 0
          initialSeeds[ki] = 0xecec;		// arbitrary value < 2^16
      } 
   }
   return self;
}
-setAntithetic: (BOOL) antiT {
   antiThetic = antiT;
   return self;
}
//
// include.gens.setting.m

						