DEFINITION MODULE SCATTER; FROM UNIFORM IMPORT Gener01; EXPORT QUALIFIED Unif01, Retenu, H, L, V, x, y, Npoints, d, PlotBatch, PlotScreen, Random01, Tempo1, retenu, Retient, Titre, TitreGen, Methode, TestBoxMuller, TestNormalPolaire, NBM, NP, DansFich, HeadGr, fichier, Nretenus, N, Temps, IniChrono, ValeurChrono ; TYPE Dimension = [1..10]; VAR N : LONGCARD; d : CARDINAL; x, y : CARDINAL; L, H : ARRAY Dimension OF LONGREAL; Titre : ARRAY [0..79] OF CHAR; Largeur, Hauteur : LONGREAL; DocComplete : BOOLEAN; Nretenus : LONGINT; (* Nb. de points retenus. *) Npoints : LONGCARD; (* Nb. de points generes a date. *) Unif01 : Gener01; (* Generateur utilise. *) S : ARRAY [0..31] OF CHAR; V : ARRAY Dimension OF LONGREAL; Dim : Dimension; DansFich : BOOLEAN; NomFichier : ARRAY[1..13] OF CHAR; bidon : CHAR; bidon2 : ARRAY[0..79] OF CHAR; OK : BOOLEAN; Tempo1 : LONGREAL ; retenu : CARDINAL ; TitreGen : ARRAY[0..79] OF CHAR; Methode : CARDINAL ; fichier : ARRAY[0..31] OF CHAR; Temps : LONGREAL ; PROCEDURE PlotBatch ( VAR G : Gener01; F : ARRAY OF CHAR ); PROCEDURE PlotBatchDef2 ( VAR G : Gener01; F : ARRAY OF CHAR; N : LONGINT ); PROCEDURE PlotScreen (VAR G : Gener01); PROCEDURE TestBoxMuller (VAR G : Gener01) ; PROCEDURE TestNormalPolaire (VAR G : Gener01) ; PROCEDURE Retenu () : BOOLEAN ; PROCEDURE Random01 () ; PROCEDURE Retient () ; PROCEDURE NBM () ; PROCEDURE NP () ; PROCEDURE HeadGr () ; PROCEDURE IniChrono () ; PROCEDURE ValeurChrono () ; END SCATTER.