/*************************************************************************************************************************************/ /* */ /* E X P O N E N T I E L L E D E D E U X N O M B R E S H Y P E R - H Y P E R - C O M P L E X E S : */ /* */ /* */ /* Author of '$xcg/o_EXP2.01$K' : */ /* */ /* Jean-Francois COLONNA (LACTAMME, 20230203182421). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* 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 : */ /* */ /*************************************************************************************************************************************/ #define GENERER_LES_GET_ARGUMENTS_DE_CONTROLE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* F I C H I E R S D ' I N C L U D E S : */ /* */ /*************************************************************************************************************************************/ #include INCLUDES_BASE /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ #define PARTIE_REELLE_____DE_NOMBRE_1 \ FU #define PARTIE_IMAGINAIRE_DE_NOMBRE_1 \ FZERO #define PARTIE_JMAGINAIRE_DE_NOMBRE_1 \ FZERO #define PARTIE_KMAGINAIRE_DE_NOMBRE_1 \ FZERO #define PARTIE_SMAGINAIRE_DE_NOMBRE_1 \ FZERO #define PARTIE_TMAGINAIRE_DE_NOMBRE_1 \ FZERO #define PARTIE_UMAGINAIRE_DE_NOMBRE_1 \ FZERO #define PARTIE_VMAGINAIRE_DE_NOMBRE_1 \ FZERO #define PARTIE_REELLE_____DE_NOMBRE_2 \ FU #define PARTIE_IMAGINAIRE_DE_NOMBRE_2 \ FZERO #define PARTIE_JMAGINAIRE_DE_NOMBRE_2 \ FZERO #define PARTIE_KMAGINAIRE_DE_NOMBRE_2 \ FZERO #define PARTIE_SMAGINAIRE_DE_NOMBRE_2 \ FZERO #define PARTIE_TMAGINAIRE_DE_NOMBRE_2 \ FZERO #define PARTIE_UMAGINAIRE_DE_NOMBRE_2 \ FZERO #define PARTIE_VMAGINAIRE_DE_NOMBRE_2 \ FZERO /* Nombre hyper-hyper-complexe dont on veut l'exponentielle et sa base hyper-hyper-complexe. */ #include xcg/ARIT.01.I" #include xci/valeurs.01.I" /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* M A C R O S U T I L E S : */ /* */ /*************************************************************************************************************************************/ #include xci/valeurs.02.I" /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* E X P O N E N T I E L L E D E D E U X N O M B R E S H Y P E R - H Y P E R - C O M P L E X E S : */ /* */ /*************************************************************************************************************************************/ BCommande(nombre_d_arguments,arguments) /*-----------------------------------------------------------------------------------------------------------------------------------*/ Bblock DEFV(hyper_hyper_complexe,nombre_1); DEFV(hyper_hyper_complexe,nombre_2); /* Nombre hyper-hyper-complexe dont on veut l'exponentielle et sa base hyper-hyper-complexe. */ DEFV(hyper_hyper_complexe,exponentielle); #include xci/valeurs.03.I" /*..............................................................................................................................*/ HHCinitialisation(nombre_1 ,PARTIE_REELLE_____DE_NOMBRE_1 ,PARTIE_IMAGINAIRE_DE_NOMBRE_1 ,PARTIE_JMAGINAIRE_DE_NOMBRE_1 ,PARTIE_KMAGINAIRE_DE_NOMBRE_1 ,PARTIE_SMAGINAIRE_DE_NOMBRE_1 ,PARTIE_TMAGINAIRE_DE_NOMBRE_1 ,PARTIE_UMAGINAIRE_DE_NOMBRE_1 ,PARTIE_VMAGINAIRE_DE_NOMBRE_1 ); HHCinitialisation(nombre_2 ,PARTIE_REELLE_____DE_NOMBRE_2 ,PARTIE_IMAGINAIRE_DE_NOMBRE_2 ,PARTIE_JMAGINAIRE_DE_NOMBRE_2 ,PARTIE_KMAGINAIRE_DE_NOMBRE_2 ,PARTIE_SMAGINAIRE_DE_NOMBRE_2 ,PARTIE_TMAGINAIRE_DE_NOMBRE_2 ,PARTIE_UMAGINAIRE_DE_NOMBRE_2 ,PARTIE_VMAGINAIRE_DE_NOMBRE_2 ); GET_ARGUMENTS_(nombre_d_arguments ,BLOC(CONTROLE_DES_COMPATIBILITES_DES_FONCTIONS_DES_NOMBRES_HYPER_HYPER_COMPLEXES; /* Mis sous cette forme le 20230322102517... */ GET_ARGUMENT_F("partie_reelle_1=""r1=",HHReelle(nombre_1)); GET_ARGUMENT_F("partie_imaginaire_1=""i1=",HHImaginaire(nombre_1)); GET_ARGUMENT_F("partie_jmaginaire_1=""j1=",HHJmaginaire(nombre_1)); GET_ARGUMENT_F("partie_kmaginaire_1=""k1=",HHKmaginaire(nombre_1)); GET_ARGUMENT_F("partie_smaginaire_1=""s1=",HHSmaginaire(nombre_1)); GET_ARGUMENT_F("partie_tmaginaire_1=""t1=",HHTmaginaire(nombre_1)); GET_ARGUMENT_F("partie_umaginaire_1=""u1=",HHUmaginaire(nombre_1)); GET_ARGUMENT_F("partie_vmaginaire_1=""v1=",HHVmaginaire(nombre_1)); GET_ARGUMENT_F("partie_reelle_2=""r2=",HHReelle(nombre_2)); GET_ARGUMENT_F("partie_imaginaire_2=""i2=",HHImaginaire(nombre_2)); GET_ARGUMENT_F("partie_jmaginaire_2=""j2=",HHJmaginaire(nombre_2)); GET_ARGUMENT_F("partie_kmaginaire_2=""k2=",HHKmaginaire(nombre_2)); GET_ARGUMENT_F("partie_smaginaire_2=""s2=",HHSmaginaire(nombre_2)); GET_ARGUMENT_F("partie_tmaginaire_2=""t2=",HHTmaginaire(nombre_2)); GET_ARGUMENT_F("partie_umaginaire_2=""u2=",HHUmaginaire(nombre_2)); GET_ARGUMENT_F("partie_vmaginaire_2=""v2=",HHVmaginaire(nombre_2)); CONTROLE_DE_L_ARITHMETIQUE_FOLKLORIQUE_DES_NOMBRES_COMPLEXES; CONTROLE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_HYPER_HYPER_COMPLEXES; PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1; PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_2; ) ); HHCexponentielle_octonionique(exponentielle,nombre_1,nombre_2); PRINT_DANS_HHC("exponentielle",exponentielle); /* Edition de l'exponentielle eventuellement generalisee et/ou folklorique... */ RETU_Commande; Eblock ECommande