

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.
