MODULE essai91; FROM STATUNIF IMPORT SetGener01, Serial, SerialOver, Gap, SimpPoker, CouponCollector, Permutation, Run, MaxOft, Collision, Opso, PeriodsInStrings, NearestPair, Maurer, LongestHeadRun, gTransform, BirthdaySpacings; FROM UNIFORM IMPORT Gen, SetCombTaus3, SetSWB, SetAWC, SetTGFSR, SetGFSR, SetInvGen, SetLCG, WriteState; FROM StandardIO IMPORT GetOutput; FROM Files IMPORT File, FileState, Flush; VAR sortie : File; statut : FileState; i : INTEGER; x : LONGCARD; S : ARRAY [0..50] OF LONGCARD; BEGIN GetOutput( sortie); SetLCG( 2147483647, 16807, 0, 971511); SetGener01 (Gen, "SetLCG( 2147483647, 16807, 0, s)"); WriteState; Serial (8000, 1000, 64, 1); Flush (sortie, statut); Serial (8000, 10000, 256, 1); Flush (sortie, statut); Serial (1000, 100000, 64, 2); Flush (sortie, statut); Serial (1000, 100000, 16, 3); Flush (sortie, statut); Serial (1000, 100000, 8, 4); Flush (sortie, statut); SerialOver (1000, 100000, 10, 3, 4); Flush (sortie, statut); SerialOver (1000, 100000, 20, 3, 4); Flush (sortie, statut); SerialOver (1000, 100000, 10, 4, 3); Flush (sortie, statut); SerialOver (1000, 100000, 20, 4, 3); Flush (sortie, statut); SerialOver (1000, 100000, 10, 6, 2); Flush (sortie, statut); SerialOver (1000, 100000, 20, 6, 2); Flush (sortie, statut); Gap (1000, 10000, 15, 0.0, 0.05); Flush (sortie, statut); Gap (1000, 10000, 15, 0.95, 1.0); Flush (sortie, statut); Gap (1000, 10000, 10, 0.3333333, 0.6666667); Flush (sortie, statut); Gap (1000, 10000, 20, 0.0, 0.02); Flush (sortie, statut); Gap (1000, 10000, 20, 0.5, 0.52); Flush (sortie, statut); Gap (1000, 10000, 8, 0.0, 0.5); Flush (sortie, statut); SimpPoker (1000, 10000, 4, 4); Flush (sortie, statut); SimpPoker (1000, 10000, 4, 6); Flush (sortie, statut); SimpPoker (1000, 10000, 8, 6); Flush (sortie, statut); SimpPoker (1000, 10000, 16, 8); Flush (sortie, statut); SimpPoker (1000, 10000, 16, 10); Flush (sortie, statut); SimpPoker (1000, 10000, 16, 12); Flush (sortie, statut); CouponCollector (1000, 10000, 5, 25); Flush (sortie, statut); CouponCollector (1000, 10000, 10, 40); Flush (sortie, statut); Permutation (1000, 10000, 3); Flush (sortie, statut); Permutation (1000, 10000, 5); Flush (sortie, statut); Permutation (1000, 10000, 6); Flush (sortie, statut); Permutation (1000, 100000, 7); Flush (sortie, statut); Run (1000, 100000, TRUE); Flush (sortie, statut); MaxOft (1000, 10000, 128, 8); Flush (sortie, statut); MaxOft (1000, 10000, 128, 10); Flush (sortie, statut); MaxOft (1000, 10000, 128, 12); Flush (sortie, statut); MaxOft (1000, 10000, 256, 10); Flush (sortie, statut); MaxOft (1000, 10000, 256, 12); Flush (sortie, statut); Collision (100, 10000, 8, 6); Flush (sortie, statut); Collision (100, 10000, 4, 9); Flush (sortie, statut); Collision (100, 10000, 2, 18); Flush (sortie, statut); Collision (100, 20000, 512, 2); Flush (sortie, statut); Collision (100, 20000, 64, 3); Flush (sortie, statut); Opso (100, 0, 1); Flush (sortie, statut); Opso (100, 15, 1); Flush (sortie, statut); Opso (100, 0, 2); Flush (sortie, statut); Opso (100, 15, 2); Flush (sortie, statut); Opso (100, 0, 3); Flush (sortie, statut); Opso (100, 15, 3); Flush (sortie, statut); PeriodsInStrings (100, 100000, 15, 15); Flush (sortie, statut); PeriodsInStrings (100, 100000, 10, 20); Flush (sortie, statut); NearestPair (20, 100000, 6); Flush (sortie, statut); NearestPair (20, 50000, 9); Flush (sortie, statut); NearestPair (20, 50000, 12); Flush (sortie, statut); Maurer (20, 500000, 500000, 0, 10, 10 ); Flush (sortie, statut); Maurer (20, 500000, 500000, 15, 10, 10 ); Flush (sortie, statut); LongestHeadRun (100, 100, 100000, 15, 15); Flush (sortie, statut); LongestHeadRun (100, 100, 100000, 0, 30); Flush (sortie, statut); gTransform (1000, 1000, 1.0); Flush (sortie, statut); gTransform (1000, 10000, 2.0); Flush (sortie, statut); BirthdaySpacings (100, 100, 5000, 2000000000); Flush (sortie, statut); END essai91.