/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D E V A L E U R S C O R R E S P O N D A N T A */
/* L A T A N G E N T E H Y P E R B O L I Q U E : */
/* */
/* */
/* Definition : */
/* */
/* Cette commande genere une sequence */
/* de valeurs numeriques flottantes obtenues */
/* par calcul d'une fonction du type : */
/* */
/* th[F.(x + T)] + 1 */
/* K.------------------- + G */
/* 2 */
/* */
/* avec par defaut : */
/* */
/* F = 1 */
/* */
/* D+A */
/* T = - ----- */
/* 2 */
/* */
/* ou 'D' et 'A' designent respectivement les */
/* valeurs de depart et d'arrivee... */
/* */
/* */
/* Author of '$xci/valeurs_TAHX$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20070829110608). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_MINI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define INTERPOLER_PAR_DES_SPLINES_CUBIQUES \
VRAI \
/* Cet indicateur permet la selection entre une interpolation "cubique" ('VRAI') ou bien */ \
/* "lineaire" ('FAUX'). */
#include xci/sequence.01.I"
#define X_DE_DEPART \
FZERO
#define DERIVEE_DE_L_X_DE_DEPART \
FZERO
/* Definition de la variable 'x' de depart et de sa derivee. */
#define X_D_ARRIVEE \
FU
#define DERIVEE_DE_L_X_D_ARRIVEE \
FZERO
/* Definition de la variable 'x' d'arrivee et de sa derivee. */
#define PARAMETRE_K \
FU
#define PARAMETRE_G \
FZERO
#define PARAMETRE_F \
FU
#define PARAMETRE_T \
NEGA(MOYE(X_DE_DEPART,X_D_ARRIVEE))
/* Parametres utiles... */
#include xci/valeurs.01.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#include xci/valeurs.02.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D E V A L E U R S C O R R E S P O N D A N T A */
/* U N E " P R O G R E S S I O N B A R Y C E N T R I Q U E " : */
/* G E N E R A T I O N D E V A L E U R S C O R R E S P O N D A N T A */
/* L A T A N G E N T E H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(Logical,INIT(interpoler_par_des_splines_cubiques,INTERPOLER_PAR_DES_SPLINES_CUBIQUES));
/* Cet indicateur permet la selection entre une interpolation "cubique" ('VRAI') ou bien */
DEFV(Int,INIT(premiere_image,PREMIERE_IMAGE));
/* Numero de la premiere image, */
DEFV(Int,INIT(derniere_image,DERNIERE_IMAGE));
/* Numero de la derniere image. */
DEFV(Int,INIT(numero_d_image,UNDEF));
/* Numero de l'image courante. */
DEFV(Int,INIT(pas_des_images,PAS_DES_IMAGES));
/* Pas de passage d'un numero d'image a une autre. */
DEFV(Float,INIT(X_de_depart,X_DE_DEPART));
DEFV(Float,INIT(derivee_de_l_X_de_depart,DERIVEE_DE_L_X_DE_DEPART));
/* Definition de la variable 'x' d'arrivee et de sa derivee. */
DEFV(Float,INIT(X_d_arrivee,X_D_ARRIVEE));
DEFV(Float,INIT(derivee_de_l_X_d_arrivee,DERIVEE_DE_L_X_D_ARRIVEE));
/* Definition de la variable 'x' de depart et de sa derivee. */
DEFV(Float,INIT(X_courant,FLOT__UNDEF));
/* Definition de la variable 'x' courante. */
DEFV(Float,INIT(parametre_K,PARAMETRE_K));
DEFV(Float,INIT(parametre_G,PARAMETRE_G));
DEFV(Float,INIT(parametre_F,PARAMETRE_F));
DEFV(Float,INIT(parametre_T,PARAMETRE_T));
/* Parametres utiles... */
#include xci/valeurs.03.I"
/*..............................................................................................................................*/
GET_ARGUMENTS_(nombre_d_arguments
,BLOC(GET_ARGUMENT_L("cubique=",interpoler_par_des_splines_cubiques);
GET_ARGUMENT_N("lineaire=",interpoler_par_des_splines_cubiques);
GET_ARGUMENT_I("premiere=""p=""D=",premiere_image);
GET_ARGUMENT_I("derniere=""d=""A=",derniere_image);
GET_ARGUMENT_I("pas=",pas_des_images);
GET_ARGUMENT_F("Xd=""XD=",X_de_depart);
GET_ARGUMENT_F("dXd=""dXD=",derivee_de_l_X_de_depart);
GET_ARGUMENT_F("Xa=""XA=",X_d_arrivee);
GET_ARGUMENT_F("dXa=""dXA=",derivee_de_l_X_d_arrivee);
GET_ARGUMENT_F("parametre_K=""k=""K=",parametre_K);
GET_ARGUMENT_F("parametre_G=""g=""G=",parametre_G);
GET_ARGUMENT_F("parametre_F=""f=""F=",parametre_F);
GET_ARGUMENT_F("parametre_T=""t=""T=",parametre_T);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
)
);
Test(IFLT(premiere_image,derniere_image))
/* ATTENTION : on ne peut ecrire : */
/* */
/* Test(IFLE(premiere_image,derniere_image)) */
/* */
/* a cause de 'iINTERPOLATION_...(...)' qui calcule 'derniere_image-premiere_image' */
/* ('v $xci/valeurs.02$I iTRANSFORMATION'). */
Bblock
DoIn(numero_d_image,premiere_image,derniere_image,pas_des_images)
Bblock
Test(IL_FAUT(interpoler_par_des_splines_cubiques))
Bblock
EGAL(X_courant
,iINTERPOLATION_CUBIQUE(X_de_depart,derivee_de_l_X_de_depart
,X_d_arrivee,derivee_de_l_X_d_arrivee
,numero_d_image
,premiere_image,derniere_image
)
);
/* Interpolation cubique de la variable 'X' courante. */
Eblock
ATes
Bblock
EGAL(X_courant
,iINTERPOLATION_LINEAIRE(X_de_depart,derivee_de_l_X_de_depart
,X_d_arrivee,derivee_de_l_X_d_arrivee
,numero_d_image
,premiere_image,derniere_image
)
);
/* Interpolation lineaire de la variable 'X' courante. */
Eblock
ETes
CAL2(Prin2(Cara(chain_Aconcaten5(INTRODUCTION_FORMAT,valeurs_signees,".*",format_d_edition,"\n"))
,NOMBRE_DE_DECIMALES_EFFECTIF(nombre_de_decimales)
,MULTIPLE_DE(ENTIER_FLOTTANT(AXPB(parametre_K
,MOYE(TAHX(MUL2(parametre_F,ADD2(X_courant,parametre_T))),FU)
,parametre_G
)
)
)
)
);
/* Et enfin, edition de la tangente hyperbolique courante... */
Eblock
EDoI
Eblock
ATes
Bblock
PRINT_ERREUR("la relation d'ordre stricte ('premier < dernier') n'est pas respectee");
Eblock
ETes
RETU_Commande;
Eblock
ECommande