/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   R E L A T I V E S   A U X   P A R A M E T R E S                                                    */
/*        D ' U N E   V A R I E T E   D E   C A L A B I - Y A U   8 - D I M E N S I O N N E L L E  :                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/CalabiYau.45$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20230210113517).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S   ' A '   E T   ' B '  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   PARTIE_REELLE_DU_PARAMETRE_qA                                                                                                 \
                    R1_Quaternion
#define   PARTIE_IMAGINAIRE_DU_PARAMETRE_qA                                                                                             \
                    I0_Quaternion
#define   PARTIE_JMAGINAIRE_DU_PARAMETRE_qA                                                                                             \
                    J0_Quaternion
#define   PARTIE_KMAGINAIRE_DU_PARAMETRE_qA                                                                                             \
                    K0_Quaternion
DEFV(Local,DEFV(hyper_complexe,INIS(parametre_qA
                                   ,IstructL04(PARTIE_REELLE_DU_PARAMETRE_qA
                                              ,PARTIE_IMAGINAIRE_DU_PARAMETRE_qA
                                              ,PARTIE_JMAGINAIRE_DU_PARAMETRE_qA
                                              ,PARTIE_KMAGINAIRE_DU_PARAMETRE_qA
                                               )
                                    )
                )
     );
                                        /* Parametre 'A' initialise avec le nombre (1,0,0,0).                                        */
#define   PARTIE_REELLE_DU_PARAMETRE_qB                                                                                                 \
                    R1_Quaternion
#define   PARTIE_IMAGINAIRE_DU_PARAMETRE_qB                                                                                             \
                    I0_Quaternion
#define   PARTIE_JMAGINAIRE_DU_PARAMETRE_qB                                                                                             \
                    J0_Quaternion
#define   PARTIE_KMAGINAIRE_DU_PARAMETRE_qB                                                                                             \
                    K0_Quaternion
DEFV(Local,DEFV(hyper_complexe,INIS(parametre_qB
                                   ,IstructL04(PARTIE_REELLE_DU_PARAMETRE_qB
                                              ,PARTIE_IMAGINAIRE_DU_PARAMETRE_qB
                                              ,PARTIE_JMAGINAIRE_DU_PARAMETRE_qB
                                              ,PARTIE_KMAGINAIRE_DU_PARAMETRE_qB
                                               )
                                    )
                )
     );
                                        /* Parametre 'B' initialise avec le nombre (1,0,0,0).                                        */