/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D E N O M B R E S P S E U D O - A L E A T O I R E S */
/* A P A R T I R D E T R I P L E T S { X , Y , Z } : */
/* */
/* */
/* Author of '$xrv/XYZ_PseudoAleatoire.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20150929115501). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R F A C E ' listG ' : */
/* */
/* */
/* :Debut_listG: */
/* :Fin_listG: */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_BASE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* V A L E U R S I M P L I C I T E S D E S P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define TRANSLATION_X__ \
FZERO
#define PONDERATION_X_1 \
PARE(1789)
#define PONDERATION_X_2 \
GRO1(FRA3(FU))
#define TRANSLATION_Y__ \
FZERO
#define PONDERATION_Y_1 \
PARE(1947)
#define PONDERATION_Y_2 \
GRO1(FRA3(FU))
#define TRANSLATION_Z__ \
FZERO
#define PONDERATION_Z_1 \
PARE(2001)
#define PONDERATION_Z_2 \
GRO1(FRA3(FU))
/* Ponderations des coordonnees... */
#define GRAINE \
FU
#define PONDERATION_GENERALE \
FU
#define TRANSLATION_GENERALE \
FZERO
/* Ponderations generales... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S F I C H I E R S : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
/* Passage a l'allocation dynamique le 20060214185230... */
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define X_IMPLICITE \
FZERO
#define Y_IMPLICITE \
FZERO
#define Z_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_LISTE_X,liste_initiale_des_X);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Y,liste_initiale_des_Y);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Z,liste_initiale_des_Z);
/* Definition en memoire des fichiers de coordonnees cartesiennes. */
#define ELEMENT_DU_FICHIER_LISTE_X(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_X,index)
#define ELEMENT_DU_FICHIER_LISTE_Y(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_Y,index)
#define ELEMENT_DU_FICHIER_LISTE_Z(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_Z,index)
/* Acces a un element courant des fichiers de coordonnees cartesiennes. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E L A T R A N S F O R M A T I O N D E S C O O R D O N N E E S : */
/* */
/*************************************************************************************************************************************/
#define TRANSFORMATION_COORDONNEE(coordonnee,ponderation,translation) \
SINX(AXPB(ponderation,MUL2(graine,coordonnee),translation)) \
/* Formule arbitraire de transformation des coordonnees... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D E N O M B R E S P S E U D O - A L E A T O I R E S */
/* A P A R T I R D E T R I P L E T S { X , Y , Z } : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
#include xrv/champs_5.13.I"
DEFV(Float,INIT(translation_X__,TRANSLATION_X__));
DEFV(Float,INIT(ponderation_X_1,PONDERATION_X_1));
DEFV(Float,INIT(ponderation_X_2,PONDERATION_X_2));
DEFV(Float,INIT(translation_Y__,TRANSLATION_Y__));
DEFV(Float,INIT(ponderation_Y_1,PONDERATION_Y_1));
DEFV(Float,INIT(ponderation_Y_2,PONDERATION_Y_2));
DEFV(Float,INIT(translation_Z__,TRANSLATION_Z__));
DEFV(Float,INIT(ponderation_Z_1,PONDERATION_Z_1));
DEFV(Float,INIT(ponderation_Z_2,PONDERATION_Z_2));
/* Ponderations des coordonnees... */
DEFV(Float,INIT(graine,GRAINE));
DEFV(Float,INIT(ponderation_generale,PONDERATION_GENERALE));
DEFV(Float,INIT(translation_generale,TRANSLATION_GENERALE));
/* Ponderations generales... */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
,BLOC(VIDE;)
,BLOC(Bblock
PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
Eblock
)
);
PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;
PROKESF_ARGUMENT_FICHIER("LISTE_X="
,fichier_LISTE_X
,liste_initiale_des_X
,X_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_Y="
,fichier_LISTE_Y
,liste_initiale_des_Y
,Y_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_Z="
,fichier_LISTE_Z
,liste_initiale_des_Z
,Z_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_F("PX1=""pX1=""px1=",ponderation_X_1);
GET_ARGUMENT_F("TX1=""tX1=""tx1=",translation_X__);
GET_ARGUMENT_F("PX2=""pX2=""px2=",ponderation_X_2);
GET_ARGUMENT_F("PY1=""pY1=""py1=",ponderation_Y_1);
GET_ARGUMENT_F("TY1=""tY1=""ty1=",translation_Y__);
GET_ARGUMENT_F("PY2=""pY2=""py2=",ponderation_Y_2);
GET_ARGUMENT_F("PZ1=""pZ1=""pz1=",ponderation_Z_1);
GET_ARGUMENT_F("TZ1=""tZ1=""tz1=",translation_Z__);
GET_ARGUMENT_F("PZ2=""pZ2=""pz2=",ponderation_Z_2);
GET_ARGUMENT_F("graine=",graine);
GET_ARGUMENT_F("ponderation=""pond=""po=",ponderation_generale);
GET_ARGUMENT_F("translation=""tran=""tr=",translation_generale);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
/* Cette procedure fut introduite le 20211005105313... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(coordonnee_X,ELEMENT_DU_FICHIER_LISTE_X(index)));
DEFV(Float,INIT(coordonnee_Y,ELEMENT_DU_FICHIER_LISTE_Y(index)));
DEFV(Float,INIT(coordonnee_Z,ELEMENT_DU_FICHIER_LISTE_Z(index)));
/* Recuperation des coordonnees {X,Y,Z} courantes dans les fichiers. */
DEFV(Float,INIT(transformee_de_X,FLOT__UNDEF));
DEFV(Float,INIT(transformee_de_Y,FLOT__UNDEF));
DEFV(Float,INIT(transformee_de_Z,FLOT__UNDEF));
EGAL(transformee_de_X,TRANSFORMATION_COORDONNEE(coordonnee_X,ponderation_X_1,translation_X__));
EGAL(transformee_de_Y,TRANSFORMATION_COORDONNEE(coordonnee_Y,ponderation_Y_1,translation_Y__));
EGAL(transformee_de_Z,TRANSFORMATION_COORDONNEE(coordonnee_Z,ponderation_Z_1,translation_Z__));
)
,AXPB(ponderation_generale
,LIZ3(ponderation_X_2,transformee_de_X
,ponderation_Y_2,transformee_de_Y
,ponderation_Z_2,transformee_de_Z
)
,translation_generale
)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Generation de nombres pseudo-aleatoires fonctions de {X,Y,Z}... */
lGENERATION_D_UN_FICHIER(liste_initiale_des_Z,Z_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_Y,Y_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_X,X_IMPLICITE);
RETU_Commande;
Eblock
ECommande
Copyright © Jean-François COLONNA, 2019-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2024.