/*************************************************************************************************************************************/
/* */
/* M I S E A L ' E C H E L L E D ' U N F I C H I E R N U M E R I Q U E D E T Y P E ' A*X + B ' */
/* U T I L I S A N T E V E N T U E L L E M E N T U N E D R O I T E D E F I N I E P A R D E U X P O I N T S : */
/* */
/* */
/* Author of '$xrv/AXPB.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1997??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 UTILISER_LA_DROITE_AB \
FAUX \
/* Faut-il utiliser les parametres de la mise a l'echelle ('FAUX'), ou bien utiliser */ \
/* une droite 'AB' qui permettra de calculer ces deux parametres ('VRAI') ? */
#define FACTEUR_D_HOMOTHETIE \
FU
#define CONSTANTE_DE_TRANSLATION \
FZERO
/* Parametres de la mise a l'echelle. */
#define UTILISER_AXPB \
VRAI \
/* Faut-il utiliser 'AXPB' ('VRAI') ou 'XPBA' ('FAUX'). Ceci a ete introduit le */ \
/* 20240315114822 pour 'v $xiirv/.PIPO.D4.21.$U AXPB'... */
#define ADAPTER_LE_SIGNE_DE_LA_CONSTANTE_DE_TRANSLATION \
FAUX \
/* Doit-on doit-on donner le signe de 'valeur_courante' a 'constante_de_translation' */ \
/* (introduit le 20180529100706 pour 'v $xiird/.NETW.11.1.$U adapter_signe_translation'. */ \
/* Cela permet, par exemple, de passer automatiquement de valeurs dans [-1,+1] a des */ \
/* valeurs dans [-1,-1/2]U[+1/2,+1]. */
#define COORDONNEE_XA \
FZERO
#define COORDONNEE_YA \
FZERO
/* Definition du point 'A'. */
#define COORDONNEE_XB \
FU
#define COORDONNEE_YB \
FU
/* Definition du point 'B'. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D U F I C H I E R : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
/* Passage a l'allocation dynamique le 20060214133309... */
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define VALEUR_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_des_valeurs,liste_des_valeurs);
/* Definition en memoire du fichier. */
#define ELEMENT_DU_FICHIER(index) \
gELEMENT_DU_FICHIER(liste_des_valeurs,index) \
/* Acces a un element courant du fichier. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#include xrv/AXPB.01.I"
/* A cause de l'usage de 'OPC3(...)'... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M I S E A L ' E C H E L L E D ' U N F I C H I E R N U M E R I Q U E D E T Y P E ' A*X + B ' */
/* U T I L I S A N T E V E N T U E L L E M E N T U N E D R O I T E D E F I N I E P A R D E U X P O I N T S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Logical,INIT(utiliser_la_droite_AB,UTILISER_LA_DROITE_AB));
/* Faut-il utiliser les parametres de la mise a l'echelle ('FAUX'), ou bien utiliser */
/* une droite 'AB' qui permettra de calculer ces deux parametres ('VRAI') ? */
DEFV(Float,INIT(facteur_d_homothetie,FACTEUR_D_HOMOTHETIE));
DEFV(Float,INIT(constante_de_translation,CONSTANTE_DE_TRANSLATION));
/* Parametres de la mise a l'echelle. */
DEFV(Logical,INIT(utiliser_AXPB,UTILISER_AXPB));
/* Faut-il utiliser 'AXPB' ('VRAI') ou 'XPBA' ('FAUX'). Ceci a ete introduit le */
/* 20240315114822 pour 'v $xiirv/.PIPO.D4.21.$U AXPB'... */
DEFV(Logical,INIT(adapter_le_signe_de_la_constante_de_translation,ADAPTER_LE_SIGNE_DE_LA_CONSTANTE_DE_TRANSLATION));
/* Doit-on doit-on donner le signe de 'valeur_courante' a 'constante_de_translation' */
/* (introduit le 20180529100706 pour 'v $xiird/.NETW.11.1.$u adapter_signe_translation'). */
/* Cela permet, par exemple, de passer automatiquement de valeurs dans [-1,+1] a des */
/* valeurs dans [-1,-1/2]U[+1/2,+1]. */
DEFV(Float,INIT(coordonnee_XA,COORDONNEE_XA));
DEFV(Float,INIT(coordonnee_YA,COORDONNEE_YA));
/* Definition du point 'A'. */
DEFV(Float,INIT(coordonnee_XB,COORDONNEE_XB));
DEFV(Float,INIT(coordonnee_YB,COORDONNEE_YB));
/* Definition du point 'A'. */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103170337... */
GET_ARGUMENTS_(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("fichier="
,fichier_des_valeurs
,liste_des_valeurs
,VALEUR_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_L("droite=""AB=",utiliser_la_droite_AB);
GET_ARGUMENT_F("homothetie=""a=",facteur_d_homothetie);
GET_ARGUMENT_F("translation=""b=",constante_de_translation);
GET_ARGUMENT_L("AXPB=",utiliser_AXPB);
GET_ARGUMENT_N("XPBA=",utiliser_AXPB);
/* Parametres introduits le 20240315114822... */
GET_ARGUMENT_L("adapter_signe_translation=""ast=",adapter_le_signe_de_la_constante_de_translation);
/* Le parametre "adapter_signe_translation=" a ete introduit le 20180529100706... */
GET_ARGUMENT_F("xa=""XA=",coordonnee_XA);
GET_ARGUMENT_F("ya=""YA=",coordonnee_YA);
GET_ARGUMENT_F("xb=""XB=",coordonnee_XB);
GET_ARGUMENT_F("yb=""YB=",coordonnee_YB);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103170337... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226190303... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
/* Cette procedure fut introduite le 20211005104025... */
)
);
Test(IL_FAUT(utiliser_la_droite_AB))
Bblock
#define pente_de_la_droite \
facteur_d_homothetie
#define ordonnee_a_l_origine \
constante_de_translation
EGAL(pente_de_la_droite
,DIVZ(SOUS(coordonnee_YB,coordonnee_YA)
,SOUS(coordonnee_XB,coordonnee_XA)
)
);
EGAL(ordonnee_a_l_origine
,DIVZ(SOUS(MUL2(coordonnee_XB,coordonnee_YA),MUL2(coordonnee_XA,coordonnee_YB))
,SOUS(coordonnee_XB,coordonnee_XA)
)
);
/* Definition de droite 'AB'. */
#undef pente_de_la_droite
#undef ordonnee_a_l_origine
Eblock
ATes
Bblock
Eblock
ETes
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
/* Recuperation de la valeur courante dans le fichier. */
DEFV(Float,INIT(constante_de_translation_effective,FLOT__UNDEF));
EGAL(constante_de_translation_effective
,COND(IL_NE_FAUT_PAS(adapter_le_signe_de_la_constante_de_translation)
,NEUT(constante_de_translation)
,MEME_SIGNE_QUE(valeur_courante,constante_de_translation)
)
);
)
,CHOIX_ENTRE_AXPB_ET_XPBA(facteur_d_homothetie,valeur_courante,constante_de_translation_effective)
/* Possibilite introduite le 20240315114822... */
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Mise a l'echelle du fichier argument. */
lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_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.