_______________________________________________________________________________________________________________________________________
/*************************************************************************************************************************************/
/* */
/* O P E R A T I O N S E L E M E N T A I R E S S U R */
/* L E S N O M B R E S C O M P L E X E S S O U S */
/* F O R M E D E " F O N C T I O N S " : */
/* */
/* */
/* Definition : */
/* */
/* Dans ce fichier se trouve toutes */
/* les operations elementaires de */
/* manipulation des nombre complexes, */
/* telles l'egalite et l'addition ; */
/* elles sont exprimees sous forme */
/* de "fonctions", ce qui donne de */
/* mauvaises performances, mais un */
/* encombrement reduit. */
/* */
/* */
/* Author of '$ximcf/operator$FON' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 19870000000000). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O N T R O L E D E L ' A R I T H M E T I Q U E E T E N D U E */
/* L O R S D E C A L C U L S S U R L E S N O M B R E S C O M P L E X E S : */
/* */
/*************************************************************************************************************************************/
#ifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_COMPLEXES
DEFV(Common,DEFV(Logical,_______VERSION__ximcf_operator_____ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_COMPLEXES));
/* Indicateur introduit le 20070129122718... */
#Aifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_COMPLEXES
DEFV(Common,DEFV(Logical,_______VERSION__ximcf_operator_____ARITHMETIQUE_DE_BASE_DANS_LES_NOMBRES_COMPLEXES));
/* Indicateur introduit le 20070129133315... */
#Eifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_COMPLEXES
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E G A L I T E Z = Z 1 : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCegal(z1)))
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCegal(z,z1);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O N J U G A I S O N Z = Z 1 B A R R E : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCconjugaison(z1)))
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCconjugaison(z,z1);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N I T I A L I S A T I O N Z = ( R E E L L E , I M A G I N A I R E ) : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCinitialisation(partie_reelle,partie_imaginaire)))
DEFV(Argument,DEFV(Float,partie_reelle));
/* Partie reelle de la valeur initiale, */
DEFV(Argument,DEFV(Float,partie_imaginaire));
/* Partie imaginaire de la valeur initiale. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCinitialisation(z,partie_reelle,partie_imaginaire);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P R O D U I T Z = Z1 * Z2 : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCproduit(z1,z2)))
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(complexe,z2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCproduit(z,z1,z2);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* N */
/* P U I S S A N C E N - I E M E Z = Z1 ( P O S I T I V E O U N E G A T I V E ) */
/* D ' U N N O M B R E C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCpuissance(z1,exposant)))
/* Fonction introduite le 20111201112209... */
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,exposant));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCpuissance(z,z1,exposant);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* -- */
/* Z1 Z1.Z2 */
/* Q U O T I E N T Z = ---- = ------- D E 2 N O M B R E S C O M P L E X E S : */
/* Z2 2 */
/* |Z2| */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCquotient(z1,z2)))
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(complexe,z2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCquotient(z,z1,z2);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S O M M E Z = Z1 + Z2 : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCsomme(z1,z2)))
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(complexe,z2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCsomme(z,z1,z2);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I F F E R E N C E Z = Z1 - Z2 : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCdifference(z1,z2)))
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(complexe,z2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCdifference(z,z1,z2);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O D U L E | Z | : */
/* */
/*************************************************************************************************************************************/
BFonctionF
DEFV(Common,DEFV(FonctionF,fFCmodule(z)))
DEFV(Argument,DEFV(complexe,z));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
/*..............................................................................................................................*/
RETU(FCmodule(z));
Eblock
EFonctionF
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O D U L E A U C A R R E | Z | * * 2 : */
/* */
/*************************************************************************************************************************************/
BFonctionF
DEFV(Common,DEFV(FonctionF,fFCmodule2(z)))
DEFV(Argument,DEFV(complexe,z));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
/*..............................................................................................................................*/
RETU(FCmodule2(z));
Eblock
EFonctionF
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* V A L E U R M O D U L O D ' U N N O M B R E C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCmodulo(z1,Rorg,Rext,Iorg,Iext)))
/* Fonction introduite le 20121102180847... */
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,Rorg));
DEFV(Argument,DEFV(Float,Rext));
DEFV(Argument,DEFV(Float,Iorg));
DEFV(Argument,DEFV(Float,Iext));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCmodulo(z,z1,Rorg,Rext,Iorg,Iext);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F O R M E L I N E A I R E Z = A * Z 1 + B : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCforme_lineaire(alpha,z1,beta)))
DEFV(Argument,DEFV(Float,alpha));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,beta));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCforme_lineaire(z,alpha,z1,beta);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Z = A*Z1 + B*Z2 */
/* D E 2 N O M B R E S C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcombinaison_lineaire_2(a,z1,b,z2)))
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(complexe,z2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcombinaison_lineaire_2(z,a,z1,b,z2);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Z = A*Z1 + B*Z2 + C*Z3 */
/* D E 3 N O M B R E S C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcombinaison_lineaire_3(a,z1,b,z2,c,z3)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(complexe,z2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(complexe,z3));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcombinaison_lineaire_3(z,a,z1,b,z2,c,z3);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Z = A*Z1 + B*Z2 + C*Z3 + D*Z4 */
/* D E 4 N O M B R E S C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcombinaison_lineaire_4(a,z1,b,z2,c,z3,d,z4)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(complexe,z2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(complexe,z3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(complexe,z4));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcombinaison_lineaire_4(z,a,z1,b,z2,c,z3,d,z4);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Z = A*Z1 + B*Z2 + C*Z3 + D*Z4 + E*Z5 */
/* D E 5 N O M B R E S C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcombinaison_lineaire_5(a,z1,b,z2,c,z3,d,z4,e,z5)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(complexe,z2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(complexe,z3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(complexe,z4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(complexe,z5));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcombinaison_lineaire_5(z,a,z1,b,z2,c,z3,d,z4,e,z5);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Z = A*Z1 + B*Z2 + C*Z3 + D*Z4 + E*Z5 + F*Z6 */
/* D E 6 N O M B R E S C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcombinaison_lineaire_6(a,z1,b,z2,c,z3,d,z4,e,z5,f,z6)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(complexe,z2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(complexe,z3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(complexe,z4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(complexe,z5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(complexe,z6));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcombinaison_lineaire_6(z,a,z1,b,z2,c,z3,d,z4,e,z5,f,z6);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Z = A*Z1 + B*Z2 + C*Z3 + D*Z4 + E*Z5 + F*Z6 + G*Z7 */
/* D E 7 N O M B R E S C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcombinaison_lineaire_7(a,z1,b,z2,c,z3,d,z4,e,z5,f,z6,g,z7)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(complexe,z2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(complexe,z3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(complexe,z4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(complexe,z5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(complexe,z6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(complexe,z7));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcombinaison_lineaire_7(z,a,z1,b,z2,c,z3,d,z4,e,z5,f,z6,g,z7);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Z = A*Z1 + B*Z2 + C*Z3 + D*Z4 + E*Z5 + F*Z6 + G*Z7 + H*Z8 */
/* D E 8 N O M B R E S C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcombinaison_lineaire_8(a,z1,b,z2,c,z3,d,z4,e,z5,f,z6,g,z7,h,z8)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(complexe,z2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(complexe,z3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(complexe,z4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(complexe,z5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(complexe,z6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(complexe,z7));
DEFV(Argument,DEFV(Float,h));
DEFV(Argument,DEFV(complexe,z8));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcombinaison_lineaire_8(z,a,z1,b,z2,c,z3,d,z4,e,z5,f,z6,g,z7,h,z8);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Z = A*Z1 + B*Z2 + C*Z3 + D*Z4 + E*Z5 + F*Z6 + G*Z7 + H*Z8 + I*Z9 */
/* D E 9 N O M B R E S C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcombinaison_lineaire_9(a,z1,b,z2,c,z3,d,z4,e,z5,f,z6,g,z7,h,z8,i,z9)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(complexe,z1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(complexe,z2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(complexe,z3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(complexe,z4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(complexe,z5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(complexe,z6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(complexe,z7));
DEFV(Argument,DEFV(Float,h));
DEFV(Argument,DEFV(complexe,z8));
DEFV(Argument,DEFV(Float,i));
DEFV(Argument,DEFV(complexe,z9));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcombinaison_lineaire_9(z,a,z1,b,z2,c,z3,d,z4,e,z5,f,z6,g,z7,h,z8,i,z9);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E X P O N E N T I A T I O N C O M P L E X E A B A S E C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCexponentielle_complexe(base,z1)))
/* Fonction introduite le 20111201112209... */
DEFV(Argument,DEFV(complexe,base));
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCexponentielle_complexe(z,base,z1);
RETU(z);
Eblock
EFonctionJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* L O G A R I T H M E : */
/* */
/*************************************************************************************************************************************/
#ifdef aClogarithme /* Common,DEFV(Fonction,) : si possible... */
BFonctionJ
DEFV(Common,DEFV(FonctionJ,faFClogarithme(z1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFC...' a cause de 'v $ximcf/fonction$FON fFClogarithme'... */
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FClogarithme(z,z1);
RETU(z);
Eblock
EFonctionJ
#Aifdef aClogarithme /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aClogarithme /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O S I N U S C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aCcosinus /* Common,DEFV(Fonction,) : si possible... */
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCcosinus(z1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcosinus(z,z1);
RETU(z);
Eblock
EFonctionJ
#Aifdef aCcosinus /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aCcosinus /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S I N U S C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aCsinus /* Common,DEFV(Fonction,) : si possible... */
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCsinus(z1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCsinus(z,z1);
RETU(z);
Eblock
EFonctionJ
#Aifdef aCsinus /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aCsinus /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T A N G E N T E C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aCtangente /* Common,DEFV(Fonction,) : si possible... */
BFonctionJ
DEFV(Common,DEFV(FonctionJ,fFCtangente(z1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCtangente(z,z1);
RETU(z);
Eblock
EFonctionJ
#Aifdef aCtangente /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aCtangente /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O S I N U S H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionJ
DEFV(Common,DEFV(FonctionJ,faFCcosinus_hyperbolique(z1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFC...' a cause de 'v $ximcf/fonction$FON fFCcosinus_hyperbolique'... */
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCcosinus_hyperbolique(z,z1);
RETU(z);
Eblock
EFonctionJ
#Aifdef aCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S I N U S H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionJ
DEFV(Common,DEFV(FonctionJ,faFCsinus_hyperbolique(z1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFC...' a cause de 'v $ximcf/fonction$FON fFCsinus_hyperbolique'... */
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCsinus_hyperbolique(z,z1);
RETU(z);
Eblock
EFonctionJ
#Aifdef aCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T A N G E N T E H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionJ
DEFV(Common,DEFV(FonctionJ,faFCtangente_hyperbolique(z1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFC...' a cause de 'v $ximcf/fonction$FON fFCtangente_hyperbolique'... */
DEFV(Argument,DEFV(complexe,z1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(complexe,z);
/*..............................................................................................................................*/
FCtangente_hyperbolique(z,z1);
RETU(z);
Eblock
EFonctionJ
#Aifdef aCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O N T R O L E D E L ' A R I T H M E T I Q U E E T E N D U E */
/* L O R S D E C A L C U L S S U R L E S N O M B R E S H Y P E R - C O M P L E X E S : */
/* */
/*************************************************************************************************************************************/
#ifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_HYPER_COMPLEXES
DEFV(Common,DEFV(Logical,_______VERSION__ximcf_operator_____ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_HYPER_COMPLEXES));
/* Indicateur introduit le 20070129122718... */
#Aifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_HYPER_COMPLEXES
DEFV(Common,DEFV(Logical,_______VERSION__ximcf_operator_____ARITHMETIQUE_DE_BASE_DANS_LES_NOMBRES_HYPER_COMPLEXES));
/* Indicateur introduit le 20070129133315... */
#Eifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_HYPER_COMPLEXES
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E G A L I T E Q = Q 1 : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCegal(q1)))
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCegal(q,q1);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O N J U G A I S O N Q = Q 1 B A R R E : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCconjugaison(q1)))
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCconjugaison(q,q1);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P R O D U I T Q = Q1 * Q2 : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCproduit(q1,q2)))
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(hyper_complexe,q2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCproduit(q,q1,q2);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* N */
/* P U I S S A N C E N - I E M E Q = Q1 ( P O S I T I V E O U N E G A T I V E ) */
/* D ' U N N O M B R E H Y P E R - C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCpuissance(q1,exposant)))
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,exposant));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCpuissance(q,q1,exposant);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* -- */
/* Q1 Q1.Q2 */
/* Q U O T I E N T Q = ---- = ------- D E 2 N O M B R E S H Y P E R - C O M P L E X E S : */
/* Q2 2 */
/* |Q2| */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCquotient(q1,q2)))
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(hyper_complexe,q2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCquotient(q,q1,q2);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S O M M E Q = Q1 + Q2 : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCsomme(q1,q2)))
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(hyper_complexe,q2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCsomme(q,q1,q2);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I F F E R E N C E Q = Q1 - Q2 : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCdifference(q1,q2)))
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(hyper_complexe,q2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCdifference(q,q1,q2);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O D U L E | Q | : */
/* */
/*************************************************************************************************************************************/
BFonctionF
DEFV(Common,DEFV(FonctionF,fFHCmodule(q)))
DEFV(Argument,DEFV(hyper_complexe,q));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
/*..............................................................................................................................*/
RETU(FHCmodule(q));
Eblock
EFonctionF
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O D U L E A U C A R R E | Q | * * 2 : */
/* */
/*************************************************************************************************************************************/
BFonctionF
DEFV(Common,DEFV(FonctionF,fFHCmodule2(q)))
DEFV(Argument,DEFV(hyper_complexe,q));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
/*..............................................................................................................................*/
RETU(FHCmodule2(q));
Eblock
EFonctionF
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* V A L E U R M O D U L O D ' U N N O M B R E H Y P E R - C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCmodulo(q1,Rorg,Rext,Iorg,Iext,Jorg,Jext,Korg,Kext)))
/* Fonction introduite le 20121102180847... */
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,Rorg));
DEFV(Argument,DEFV(Float,Rext));
DEFV(Argument,DEFV(Float,Iorg));
DEFV(Argument,DEFV(Float,Iext));
DEFV(Argument,DEFV(Float,Jorg));
DEFV(Argument,DEFV(Float,Jext));
DEFV(Argument,DEFV(Float,Korg));
DEFV(Argument,DEFV(Float,Kext));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCmodulo(q,q1,Rorg,Rext,Iorg,Iext,Jorg,Jext,Korg,Kext);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F O R M E L I N E A I R E Q = A * Q 1 + B : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCforme_lineaire(alpha,q1,beta)))
DEFV(Argument,DEFV(Float,alpha));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,beta));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCforme_lineaire(q,alpha,q1,beta);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Q = A*Q1 + B*Q2 */
/* D E 2 N O M B R E S H Y P E R - C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcombinaison_lineaire_2(a,q1,b,q2)))
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_complexe,q2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcombinaison_lineaire_2(q,a,q1,b,q2);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Q = A*Q1 + B*Q2 + C*Q3 */
/* D E 3 N O M B R E S H Y P E R - C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcombinaison_lineaire_3(a,q1,b,q2,c,q3)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_complexe,q2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_complexe,q3));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcombinaison_lineaire_3(q,a,q1,b,q2,c,q3);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Q = A*Q1 + B*Q2 + C*Q3 + D*Q4 */
/* D E 4 N O M B R E S H Y P E R - C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcombinaison_lineaire_4(a,q1,b,q2,c,q3,d,q4)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_complexe,q2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_complexe,q3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_complexe,q4));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcombinaison_lineaire_4(q,a,q1,b,q2,c,q3,d,q4);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Q = A*Q1 + B*Q2 + C*Q3 + D*Q4 + E*Q5 */
/* D E 5 N O M B R E S H Y P E R - C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcombinaison_lineaire_5(a,q1,b,q2,c,q3,d,q4,e,q5)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_complexe,q2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_complexe,q3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_complexe,q4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_complexe,q5));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcombinaison_lineaire_5(q,a,q1,b,q2,c,q3,d,q4,e,q5);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Q = A*Q1 + B*Q2 + C*Q3 + D*Q4 + E*Q5 + F*Q6 */
/* D E 6 N O M B R E S H Y P E R - C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcombinaison_lineaire_6(a,q1,b,q2,c,q3,d,q4,e,q5,f,q6)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_complexe,q2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_complexe,q3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_complexe,q4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_complexe,q5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(hyper_complexe,q6));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcombinaison_lineaire_6(q,a,q1,b,q2,c,q3,d,q4,e,q5,f,q6);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Q = A*Q1 + B*Q2 + C*Q3 + D*Q4 + E*Q5 + F*Q6 + G*Q7 */
/* D E 7 N O M B R E S H Y P E R - C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcombinaison_lineaire_7(a,q1,b,q2,c,q3,d,q4,e,q5,f,q6,g,q7)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_complexe,q2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_complexe,q3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_complexe,q4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_complexe,q5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(hyper_complexe,q6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(hyper_complexe,q7));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcombinaison_lineaire_7(q,a,q1,b,q2,c,q3,d,q4,e,q5,f,q6,g,q7);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Q = A*Q1 + B*Q2 + C*Q3 + D*Q4 + E*Q5 + F*Q6 + G*Q7 + H*Q8 */
/* D E 8 N O M B R E S H Y P E R - C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcombinaison_lineaire_8(a,q1,b,q2,c,q3,d,q4,e,q5,f,q6,g,q7,h,q8)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_complexe,q2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_complexe,q3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_complexe,q4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_complexe,q5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(hyper_complexe,q6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(hyper_complexe,q7));
DEFV(Argument,DEFV(Float,h));
DEFV(Argument,DEFV(hyper_complexe,q8));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcombinaison_lineaire_8(q,a,q1,b,q2,c,q3,d,q4,e,q5,f,q6,g,q7,h,q8);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E Q = A*Q1 + B*Q2 + C*Q3 + D*Q4 + E*Q5 + F*Q6 + G*Q7 + H*Q8 + I*Q9 */
/* D E 9 N O M B R E S H Y P E R - C O M P L E X E S */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcombinaison_lineaire_9(a,q1,b,q2,c,q3,d,q4,e,q5,f,q6,g,q7,h,q8,i,q9)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_complexe,q1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_complexe,q2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_complexe,q3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_complexe,q4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_complexe,q5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(hyper_complexe,q6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(hyper_complexe,q7));
DEFV(Argument,DEFV(Float,h));
DEFV(Argument,DEFV(hyper_complexe,q8));
DEFV(Argument,DEFV(Float,i));
DEFV(Argument,DEFV(hyper_complexe,q9));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcombinaison_lineaire_9(q,a,q1,b,q2,c,q3,d,q4,e,q5,f,q6,g,q7,h,q8,i,q9);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E X P O N E N T I A T I O N H Y P E R - C O M P L E X E */
/* A B A S E H Y P E R - C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCexponentielle_quaternionique(base,q1)))
DEFV(Argument,DEFV(hyper_complexe,base));
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCexponentielle_quaternionique(q,base,q1);
RETU(q);
Eblock
EFonctionHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* L O G A R I T H M E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHClogarithme /* Common,DEFV(Fonction,) : si possible... */
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,faFHClogarithme(q1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFHC...' a cause de 'v $ximcf/fonction$FON fFHClogarithme'... */
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHClogarithme(q,q1);
RETU(q);
Eblock
EFonctionHJ
#Aifdef aHClogarithme /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHClogarithme /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O S I N U S C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHCcosinus /* Common,DEFV(Fonction,) : si possible... */
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCcosinus(q1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcosinus(q,q1);
RETU(q);
Eblock
EFonctionHJ
#Aifdef aHCcosinus /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHCcosinus /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S I N U S C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHCsinus /* Common,DEFV(Fonction,) : si possible... */
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCsinus(q1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCsinus(q,q1);
RETU(q);
Eblock
EFonctionHJ
#Aifdef aHCsinus /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHCsinus /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T A N G E N T E C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHCtangente /* Common,DEFV(Fonction,) : si possible... */
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,fFHCtangente(q1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCtangente(q,q1);
RETU(q);
Eblock
EFonctionHJ
#Aifdef aHCtangente /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHCtangente /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O S I N U S H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,faFHCcosinus_hyperbolique(q1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFHC...' a cause de 'v $ximcf/fonction$FON fFHCcosinus_hyperbolique'... */
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCcosinus_hyperbolique(q,q1);
RETU(q);
Eblock
EFonctionHJ
#Aifdef aHCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S I N U S H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,faFHCsinus_hyperbolique(q1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFHC...' a cause de 'v $ximcf/fonction$FON fFHCsinus_hyperbolique'... */
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCsinus_hyperbolique(q,q1);
RETU(q);
Eblock
EFonctionHJ
#Aifdef aHCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T A N G E N T E H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionHJ
DEFV(Common,DEFV(FonctionHJ,faFHCtangente_hyperbolique(q1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFHC...' a cause de 'v $ximcf/fonction$FON fFHCtangente_hyperbolique'... */
DEFV(Argument,DEFV(hyper_complexe,q1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_complexe,q);
/*..............................................................................................................................*/
FHCtangente_hyperbolique(q,q1);
RETU(q);
Eblock
EFonctionHJ
#Aifdef aHCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O N T R O L E D E L ' A R I T H M E T I Q U E E T E N D U E */
/* L O R S D E C A L C U L S S U R L E S 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 : */
/* */
/*************************************************************************************************************************************/
#ifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_HYPER_HYPER_COMPLEXES
DEFV(Common,DEFV(Logical,_______VERSION__ximcf_operator_____ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_HYPER_HYPER_COMPLEXES));
/* Indicateur introduit le 20111201114724... */
#Aifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_HYPER_HYPER_COMPLEXES
DEFV(Common,DEFV(Logical,_______VERSION__ximcf_operator_____ARITHMETIQUE_DE_BASE_DANS_LES_NOMBRES_HYPER_HYPER_COMPLEXES));
/* Indicateur introduit le 20111201114724... */
#Eifdef FAIRE_EVENTUELLEMENT_DE_L_ARITHMETIQUE_ETENDUE_DANS_LES_NOMBRES_HYPER_HYPER_COMPLEXES
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E G A L I T E O = O 1 : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCegal(o1)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCegal(o,o1);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O N J U G A I S O N O = O 1 B A R R E : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCconjugaison(o1)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCconjugaison(o,o1);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P R O D U I T O = O1 * O2 : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCproduit(o1,o2)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCproduit(o,o1,o2);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* N */
/* P U I S S A N C E N - I E M E O = O1 ( P O S I T I V E O U N E G A T I V E ) */
/* D ' U N N O M B R E H Y P E R - H Y P E R - C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCpuissance(o1,exposant)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,exposant));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCpuissance(o,o1,exposant);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* -- */
/* O1 O1.O2 */
/* Q U O T I E N T O = ---- = ------- D E 2 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 : */
/* O2 2 */
/* |O2| */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCquotient(o1,o2)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCquotient(o,o1,o2);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S O M M E O = O1 + O2 : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCsomme(o1,o2)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCsomme(o,o1,o2);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I F F E R E N C E O = O1 - O2 : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCdifference(o1,o2)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCdifference(o,o1,o2);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O D U L E | O | : */
/* */
/*************************************************************************************************************************************/
BFonctionF
DEFV(Common,DEFV(FonctionF,fFHHCmodule(o)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
/*..............................................................................................................................*/
RETU(FHHCmodule(o));
Eblock
EFonctionF
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O D U L E A U C A R R E | O | * * 2 : */
/* */
/*************************************************************************************************************************************/
BFonctionF
DEFV(Common,DEFV(FonctionF,fFHHCmodule2(o)))
DEFV(Argument,DEFV(hyper_hyper_complexe,o));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
/*..............................................................................................................................*/
RETU(FHHCmodule2(o));
Eblock
EFonctionF
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* V A L E U R M O D U L O D ' U N N O M B R E H Y P E R - H Y P E R - C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCmodulo(o1,Rorg,Rext,Iorg,Iext,Jorg,Jext,Korg,Kext,Sorg,Sext,Torg,Text,Uorg,Uext,Vorg,Vext)))
/* Fonction introduite le 20121102180847... */
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,Rorg));
DEFV(Argument,DEFV(Float,Rext));
DEFV(Argument,DEFV(Float,Iorg));
DEFV(Argument,DEFV(Float,Iext));
DEFV(Argument,DEFV(Float,Jorg));
DEFV(Argument,DEFV(Float,Jext));
DEFV(Argument,DEFV(Float,Korg));
DEFV(Argument,DEFV(Float,Kext));
DEFV(Argument,DEFV(Float,Sorg));
DEFV(Argument,DEFV(Float,Sext));
DEFV(Argument,DEFV(Float,Torg));
DEFV(Argument,DEFV(Float,Text));
DEFV(Argument,DEFV(Float,Uorg));
DEFV(Argument,DEFV(Float,Uext));
DEFV(Argument,DEFV(Float,Vorg));
DEFV(Argument,DEFV(Float,Vext));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCmodulo(o,o1,Rorg,Rext,Iorg,Iext,Jorg,Jext,Korg,Kext,Sorg,Sext,Torg,Text,Uorg,Uext,Vorg,Vext);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F O R M E L I N E A I R E O = A * O 1 + B : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCforme_lineaire(alpha,o1,beta)))
DEFV(Argument,DEFV(Float,alpha));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,beta));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCforme_lineaire(o,alpha,o1,beta);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E O = A*O1 + B*O2 */
/* D E 2 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 */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcombinaison_lineaire_2(a,o1,b,o2)))
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcombinaison_lineaire_2(o,a,o1,b,o2);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E O = A*O1 + B*O2 + C*O3 */
/* D E 3 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 */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcombinaison_lineaire_3(a,o1,b,o2,c,o3)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_hyper_complexe,o3));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcombinaison_lineaire_3(o,a,o1,b,o2,c,o3);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E O = A*O1 + B*O2 + C*O3 + D*O4 */
/* D E 4 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 */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcombinaison_lineaire_4(a,o1,b,o2,c,o3,d,o4)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_hyper_complexe,o3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_hyper_complexe,o4));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcombinaison_lineaire_4(o,a,o1,b,o2,c,o3,d,o4);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E O = A*O1 + B*O2 + C*O3 + D*O4 + E*O5 */
/* D E 5 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 */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcombinaison_lineaire_5(a,o1,b,o2,c,o3,d,o4,e,o5)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_hyper_complexe,o3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_hyper_complexe,o4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_hyper_complexe,o5));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcombinaison_lineaire_5(o,a,o1,b,o2,c,o3,d,o4,e,o5);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E O = A*O1 + B*O2 + C*O3 + D*O4 + E*O5 + F*O6 */
/* D E 6 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 */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcombinaison_lineaire_6(a,o1,b,o2,c,o3,d,o4,e,o5,f,o6)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_hyper_complexe,o3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_hyper_complexe,o4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_hyper_complexe,o5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(hyper_hyper_complexe,o6));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcombinaison_lineaire_6(o,a,o1,b,o2,c,o3,d,o4,e,o5,f,o6);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E O = A*O1 + B*O2 + C*O3 + D*O4 + E*O5 + F*O6 + G*O7 */
/* D E 7 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 */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcombinaison_lineaire_7(a,o1,b,o2,c,o3,d,o4,e,o5,f,o6,g,o7)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_hyper_complexe,o3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_hyper_complexe,o4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_hyper_complexe,o5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(hyper_hyper_complexe,o6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(hyper_hyper_complexe,o7));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcombinaison_lineaire_7(o,a,o1,b,o2,c,o3,d,o4,e,o5,f,o6,g,o7);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E O = A*O1 + B*O2 + C*O3 + D*O4 + E*O5 + F*O6 + G*O7 + H*O8 */
/* D E 8 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 */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcombinaison_lineaire_8(a,o1,b,o2,c,o3,d,o4,e,o5,f,o6,g,o7,h,o8)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_hyper_complexe,o3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_hyper_complexe,o4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_hyper_complexe,o5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(hyper_hyper_complexe,o6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(hyper_hyper_complexe,o7));
DEFV(Argument,DEFV(Float,h));
DEFV(Argument,DEFV(hyper_hyper_complexe,o8));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcombinaison_lineaire_8(o,a,o1,b,o2,c,o3,d,o4,e,o5,f,o6,g,o7,h,o8);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M B I N A I S O N L I N E A I R E O = A*O1 + B*O2 + C*O3 + D*O4 + E*O5 + F*O6 + G*O7 + H*O8 + I*O9 */
/* D E 9 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 */
/* L E S N O M B R E S ' A ' E T ' B ' E T A N T R E E L S : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcombinaison_lineaire_9(a,o1,b,o2,c,o3,d,o4,e,o5,f,o6,g,o7,h,o8,i,o9)))
/* Fonction introduite le 20220613102634... */
DEFV(Argument,DEFV(Float,a));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
DEFV(Argument,DEFV(Float,b));
DEFV(Argument,DEFV(hyper_hyper_complexe,o2));
DEFV(Argument,DEFV(Float,c));
DEFV(Argument,DEFV(hyper_hyper_complexe,o3));
DEFV(Argument,DEFV(Float,d));
DEFV(Argument,DEFV(hyper_hyper_complexe,o4));
DEFV(Argument,DEFV(Float,e));
DEFV(Argument,DEFV(hyper_hyper_complexe,o5));
DEFV(Argument,DEFV(Float,f));
DEFV(Argument,DEFV(hyper_hyper_complexe,o6));
DEFV(Argument,DEFV(Float,g));
DEFV(Argument,DEFV(hyper_hyper_complexe,o7));
DEFV(Argument,DEFV(Float,h));
DEFV(Argument,DEFV(hyper_hyper_complexe,o8));
DEFV(Argument,DEFV(Float,i));
DEFV(Argument,DEFV(hyper_hyper_complexe,o9));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcombinaison_lineaire_9(o,a,o1,b,o2,c,o3,d,o4,e,o5,f,o6,g,o7,h,o8,i,o9);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E X P O N E N T I A T I O N H Y P E R - H Y P E R - C O M P L E X E */
/* A B A S E H Y P E R - H Y P E R - C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCexponentielle_octonionique(base,o1)))
DEFV(Argument,DEFV(hyper_hyper_complexe,base));
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCexponentielle_octonionique(o,base,o1);
RETU(o);
Eblock
EFonctionHHJ
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* L O G A R I T H M E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHHClogarithme /* Common,DEFV(Fonction,) : si possible... */
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,faFHHClogarithme(o1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFHHC...' a cause de 'v $ximcf/fonction$FON fFHHClogarithme'... */
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHClogarithme(o,o1);
RETU(o);
Eblock
EFonctionHHJ
#Aifdef aHHClogarithme /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHHClogarithme /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O S I N U S C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHHCcosinus /* Common,DEFV(Fonction,) : si possible... */
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCcosinus(o1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcosinus(o,o1);
RETU(o);
Eblock
EFonctionHHJ
#Aifdef aHHCcosinus /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHHCcosinus /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S I N U S C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHHCsinus /* Common,DEFV(Fonction,) : si possible... */
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCsinus(o1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCsinus(o,o1);
RETU(o);
Eblock
EFonctionHHJ
#Aifdef aHHCsinus /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHHCsinus /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T A N G E N T E C I R C U L A I R E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHHCtangente /* Common,DEFV(Fonction,) : si possible... */
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,fFHHCtangente(o1)))
/* Fonction introduite le 20230323103111... */
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCtangente(o,o1);
RETU(o);
Eblock
EFonctionHHJ
#Aifdef aHHCtangente /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHHCtangente /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O S I N U S H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHHCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,faFHHCcosinus_hyperbolique(o1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFHHC...' a cause de 'v $ximcf/fonction$FON fFHHCcosinus_hyperbolique'... */
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCcosinus_hyperbolique(o,o1);
RETU(o);
Eblock
EFonctionHHJ
#Aifdef aHHCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHHCcosinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S I N U S H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHHCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,faFHHCsinus_hyperbolique(o1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFHHC...' a cause de 'v $ximcf/fonction$FON fFHHCsinus_hyperbolique'... */
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCsinus_hyperbolique(o,o1);
RETU(o);
Eblock
EFonctionHHJ
#Aifdef aHHCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHHCsinus_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
_______________________________________________________________________________________________________________________________________
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T A N G E N T E H Y P E R B O L I Q U E : */
/* */
/*************************************************************************************************************************************/
#ifdef aHHCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
BFonctionHHJ
DEFV(Common,DEFV(FonctionHHJ,faFHHCtangente_hyperbolique(o1)))
/* Fonction introduite le 20230323103111... */
/* */
/* On notera le 'faFHHC...' a cause de 'v $ximcf/fonction$FON fFHHCtangente_hyperbolique'... */
DEFV(Argument,DEFV(hyper_hyper_complexe,o1));
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(hyper_hyper_complexe,o);
/*..............................................................................................................................*/
FHHCtangente_hyperbolique(o,o1);
RETU(o);
Eblock
EFonctionHHJ
#Aifdef aHHCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
#Eifdef aHHCtangente_hyperbolique /* Common,DEFV(Fonction,) : si possible... */
_______________________________________________________________________________________________________________________________________
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.