MODULE essai7; FROM STATUNIF IMPORT SetGener01, Serial, SerialOver, Gap, SimpPoker, CouponCollector, Permutation, Run, MaxOft, Collision, Opso, PeriodsInStrings, NearestPair, Maurer, LongestHeadRun, gTransform, BirthdaySpacings, Detailed; FROM UNIFORM IMPORT Gen, WriteState; FROM UNIFNR IMPORT Setran0, Setran1, Setran2; FROM MYINOUT IMPORT WriteString, OpenAsOutput, CloseOutput, WriteLn; FROM NUM IMPORT WriteLR; FROM StandardIO IMPORT GetOutput; FROM Files IMPORT File, FileState, Flush; VAR sortie : File; statut : FileState; i,j : INTEGER; s1, s2, s3 : LONGINT; x : LONGCARD; S : ARRAY [0..50] OF LONGCARD; PROCEDURE testswsc92 (); BEGIN Run (1000, 100000, TRUE); Flush (sortie, statut); SimpPoker (1000, 10000, 16, 12); 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); NearestPair (100, 100000, 4); Flush (sortie, statut); NearestPair (20, 100000, 6); Flush (sortie, statut); NearestPair (20, 50000, 9); Flush (sortie, statut); BirthdaySpacings (100, 100, 5000, 2000000000); Flush (sortie, statut); END testswsc92; PROCEDURE testscacm88 (); BEGIN Serial (10000, 1000, 64, 1); Flush (sortie, statut); Serial (10000, 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); 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); 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); 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); Run (1000, 100000, TRUE); Flush (sortie, statut); MaxOft (1000, 10000, 128, 8); Flush (sortie, statut); Collision (100, 20000, 8, 6); Flush (sortie, statut); Collision (100, 20000, 4, 10); Flush (sortie, statut); Collision (100, 20000, 2, 20); Flush (sortie, statut); END testscacm88; PROCEDURE testsAdd (); BEGIN MaxOft (1000, 10000, 128, 8); Flush (sortie, statut); Collision (100, 20000, 8, 6); Flush (sortie, statut); Collision (100, 20000, 4, 10); Flush (sortie, statut); Collision (100, 20000, 2, 20); Flush (sortie, statut); SimpPoker (1000, 10000, 4, 4); Flush (sortie, statut); SimpPoker (1000, 10000, 4, 4); Flush (sortie, statut); END testsAdd; BEGIN GetOutput (sortie); Setran2 (12345); WriteState; SetGener01 (Gen, "rand2"); testswsc92; CloseOutput; END essai7.