/*************************************************************************************************************************************/
/* */
/* A P P L I C A T I O N D E F O N C T I O N S Q U E L C O N Q U E S */
/* D A N S L E P L A N H Y P E R - H Y P E R - C O M P L E X E : */
/* */
/* */
/* Author of '$xrv/o_fonctions.81$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20220609115420). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R F A C E ' listG ' : */
/* */
/* */
/* :Debut_listG: */
/* :Fin_listG: */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
#define PRAGMA_CPP_____AUTORISER_LE_GooF
#define PRAGMA_CPP_____SI_LE_GooF_EST_ACTIVABLE_ALORS_FAIRE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_BASE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* V A L E U R S I M P L I C I T E S D E S P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define NOMBRE_D_ITERATIONS \
UN \
/* Nombre d'iterations de la transformation (introduit le 20220604083802). */
#define PONDERATION_NEUTRE__________________ \
FU
#define PONDERATION_COSINUS_CIRCULAIRE______ \
FZERO
#define PONDERATION_SINUS_CIRCULAIRE________ \
FZERO
#define PONDERATION_TANGENTE_CIRCULAIRE_____ \
FZERO
#define PONDERATION_COSINUS_HYPERBOLIQUE____ \
FZERO
#define PONDERATION_SINUS_HYPERBOLIQUE______ \
FZERO
#define PONDERATION_TANGENTE_HYPERBOLIQUE___ \
FZERO
#define PONDERATION_EXPONENTIELLE___________ \
FZERO
#define PONDERATION_EXPONENTIELLE_NEPERIENNE \
FZERO
#define PONDERATION_LOGARITHME______________ \
FZERO
/* Ponderation de selection des fonctions. */
#define BASE_DE_L_EXPONENTIELLE_NEPERIENNE \
EN \
/* Base de la fonction 'FHHCexponentielle(...)' */
#define PONDERATION_R \
FZERO
#define PONDERATION_I \
FZERO
#define PONDERATION_J \
FZERO
#define PONDERATION_K \
FZERO
#define PONDERATION_S \
FZERO
#define PONDERATION_T \
FZERO
#define PONDERATION_U \
FZERO
#define PONDERATION_V \
FZERO
/* Ponderations de selection des coordonnees cartesiennes apres transformation. */
#define PONDERATION_RR \
FZERO
#define PONDERATION_A1 \
FZERO
#define PONDERATION_A2 \
FZERO
#define PONDERATION_A3 \
FZERO
#define PONDERATION_A4 \
FZERO
#define PONDERATION_A5 \
FZERO
#define PONDERATION_A6 \
FZERO
#define PONDERATION_A7 \
FZERO
/* Ponderations de selection des coordonnees hyper-hyper-spheriques apres transformation */
/* (introduites le 20220611124259)... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S T R O I S F I C H I E R S : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define R_IMPLICITE \
FZERO
#define I_IMPLICITE \
FZERO
#define J_IMPLICITE \
FZERO
#define K_IMPLICITE \
FZERO
#define S_IMPLICITE \
FZERO
#define T_IMPLICITE \
FZERO
#define U_IMPLICITE \
FZERO
#define V_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_LISTE_R,liste_initiale_des_R);
gGENERATION_D_UN_FICHIER(fichier_LISTE_I,liste_initiale_des_I);
gGENERATION_D_UN_FICHIER(fichier_LISTE_J,liste_initiale_des_J);
gGENERATION_D_UN_FICHIER(fichier_LISTE_K,liste_initiale_des_K);
gGENERATION_D_UN_FICHIER(fichier_LISTE_S,liste_initiale_des_S);
gGENERATION_D_UN_FICHIER(fichier_LISTE_T,liste_initiale_des_T);
gGENERATION_D_UN_FICHIER(fichier_LISTE_U,liste_initiale_des_U);
gGENERATION_D_UN_FICHIER(fichier_LISTE_V,liste_initiale_des_V);
/* Definition en memoire des fichiers de coordonnees. */
#define ELEMENT_DU_FICHIER_LISTE_R(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_R,index)
#define ELEMENT_DU_FICHIER_LISTE_I(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_I,index)
#define ELEMENT_DU_FICHIER_LISTE_J(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_J,index)
#define ELEMENT_DU_FICHIER_LISTE_K(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_K,index)
#define ELEMENT_DU_FICHIER_LISTE_S(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_S,index)
#define ELEMENT_DU_FICHIER_LISTE_T(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_T,index)
#define ELEMENT_DU_FICHIER_LISTE_U(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_U,index)
#define ELEMENT_DU_FICHIER_LISTE_V(index) \
gELEMENT_DU_FICHIER(liste_initiale_des_V,index)
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N I T I A L I S A T I O N S D I V E R S E S : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* A P P L I C A T I O N D E F O N C T I O N S Q U E L C O N Q U E S */
/* D A N S L E P L A N H Y P E R - H Y P E R - C O M P L E X E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Positive,INIT(nombre_d_iterations,NOMBRE_D_ITERATIONS));
/* Nombre d'iterations de la transformation (introduit le 20220604083802). */
DEFV(Float,INIT(ponderation_neutre__________________,PONDERATION_NEUTRE__________________));
DEFV(Float,INIT(ponderation_cosinus_circulaire______,PONDERATION_COSINUS_CIRCULAIRE______));
DEFV(Float,INIT(ponderation_sinus_circulaire________,PONDERATION_SINUS_CIRCULAIRE________));
DEFV(Float,INIT(ponderation_tangente_circulaire_____,PONDERATION_TANGENTE_CIRCULAIRE_____));
DEFV(Float,INIT(ponderation_cosinus_hyperbolique____,PONDERATION_COSINUS_HYPERBOLIQUE____));
DEFV(Float,INIT(ponderation_sinus_hyperbolique______,PONDERATION_SINUS_HYPERBOLIQUE______));
DEFV(Float,INIT(ponderation_tangente_hyperbolique___,PONDERATION_TANGENTE_HYPERBOLIQUE___));
DEFV(Float,INIT(ponderation_exponentielle_neperienne,PONDERATION_EXPONENTIELLE_NEPERIENNE));
DEFV(Float,INIT(ponderation_logarithme______________,PONDERATION_LOGARITHME______________));
/* Ponderation de selection des fonctions. */
DEFV(Float,INIT(ponderation_R,PONDERATION_R));
DEFV(Float,INIT(ponderation_I,PONDERATION_I));
DEFV(Float,INIT(ponderation_J,PONDERATION_J));
DEFV(Float,INIT(ponderation_K,PONDERATION_K));
DEFV(Float,INIT(ponderation_S,PONDERATION_S));
DEFV(Float,INIT(ponderation_T,PONDERATION_T));
DEFV(Float,INIT(ponderation_U,PONDERATION_U));
DEFV(Float,INIT(ponderation_V,PONDERATION_V));
/* Ponderations de selection des coordonnees cartesiennes apres transformation. */
DEFV(Float,INIT(ponderation_RR,PONDERATION_RR));
DEFV(Float,INIT(ponderation_A1,PONDERATION_A1));
DEFV(Float,INIT(ponderation_A2,PONDERATION_A2));
DEFV(Float,INIT(ponderation_A3,PONDERATION_A3));
DEFV(Float,INIT(ponderation_A4,PONDERATION_A4));
DEFV(Float,INIT(ponderation_A5,PONDERATION_A5));
DEFV(Float,INIT(ponderation_A6,PONDERATION_A6));
DEFV(Float,INIT(ponderation_A7,PONDERATION_A7));
/* Ponderations de selection des coordonnees hyper-hyper-spheriques apres transformation */
/* (introduites le 20220611124259)... */
DEFV(Float,INIT(base_de_l_exponentielle_neperienne,BASE_DE_L_EXPONENTIELLE_NEPERIENNE));
/* Base de la fonction 'FHHCexponentielle(...)' */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
GET_ARGUMENTS_(nombre_d_arguments
,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
,BLOC(VIDE;)
,BLOC(Bblock
PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
Eblock
)
);
PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;
PROKESF_ARGUMENT_FICHIER("LISTE_R=""LISTE_X="
,fichier_LISTE_R
,liste_initiale_des_R
,R_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_I=""LISTE_Y="
,fichier_LISTE_I
,liste_initiale_des_I
,I_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_J=""LISTE_Z="
,fichier_LISTE_J
,liste_initiale_des_J
,J_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_K="
,fichier_LISTE_K
,liste_initiale_des_K
,K_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_S="
,fichier_LISTE_S
,liste_initiale_des_S
,S_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_T="
,fichier_LISTE_T
,liste_initiale_des_T
,T_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_U="
,fichier_LISTE_U
,liste_initiale_des_U
,U_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("LISTE_V="
,fichier_LISTE_V
,liste_initiale_des_V
,V_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_I("nombre=""iterations=",nombre_d_iterations);
GET_ARGUMENT_F("PondNEUT=""pn=",ponderation_neutre__________________);
GET_ARGUMENT_F("PondCosC=""pcc=",ponderation_cosinus_circulaire______);
GET_ARGUMENT_F("PondSinC=""psc=",ponderation_sinus_circulaire________);
GET_ARGUMENT_F("PondTanC=""ptc=",ponderation_tangente_circulaire_____);
GET_ARGUMENT_F("PondCosH=""pch=",ponderation_cosinus_hyperbolique____);
GET_ARGUMENT_F("PondSinH=""psh=",ponderation_sinus_hyperbolique______);
GET_ARGUMENT_F("PondTanH=""pth=",ponderation_tangente_hyperbolique___);
GET_ARGUMENT_F("PondExpN=""pen=",ponderation_exponentielle_neperienne);
GET_ARGUMENT_F("PondLog=""pl=",ponderation_logarithme______________);
GET_ARGUMENT_F("Pond1=""pR=""px=""pX=",ponderation_R);
GET_ARGUMENT_F("Pond2=""pI=""py=""pY=",ponderation_I);
GET_ARGUMENT_F("Pond3=""pJ=""pz=""pZ=",ponderation_J);
GET_ARGUMENT_F("Pond4=""pK=",ponderation_K);
GET_ARGUMENT_F("Pond5=""pS=",ponderation_S);
GET_ARGUMENT_F("Pond6=""pT=",ponderation_T);
GET_ARGUMENT_F("Pond7=""pU=",ponderation_U);
GET_ARGUMENT_F("Pond8=""pV=",ponderation_V);
GET_ARGUMENT_F("PondRR=""prr=",ponderation_RR);
GET_ARGUMENT_F("PondA1=""pa1=",ponderation_A1);
GET_ARGUMENT_F("PondA2=""pa2=",ponderation_A2);
GET_ARGUMENT_F("PondA3=""pa3=",ponderation_A3);
GET_ARGUMENT_F("PondA4=""pa4=",ponderation_A4);
GET_ARGUMENT_F("PondA5=""pa5=",ponderation_A5);
GET_ARGUMENT_F("PondA6=""pa6=",ponderation_A6);
GET_ARGUMENT_F("PondA7=""pa7=",ponderation_A7);
/* Ces ponderations ont ete introduites le 20220611124259... */
GET_ARGUMENT_L("DeveloppementSerieCosC=""dscc="
,fFHHCcosinus_circulaire_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieSinC=""dssc="
,fFHHCsinus_circulaire_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieTanC=""dstc="
,fFHHCtangente_circulaire_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieCosH=""dsch="
,fFHHCcosinus_hyperbolique_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieSinH=""dssh="
,fFHHCsinus_hyperbolique_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieTanH=""dsth="
,fFHHCtangente_hyperbolique_____utiliser_le_developpement_en_serie
);
/* Ces indicateurs ont ete introduits le 20220611092450... */
GET_ARGUMENT_F("base=",base_de_l_exponentielle_neperienne);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
CONTROLE_DE_L_ARITHMETIQUE_FOLKLORIQUE_DES_NOMBRES_COMPLEXES;
CONTROLE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_HYPER_HYPER_COMPLEXES;
/* Ces extensions de controle "folklorique"s ont ete introduites le 20220605091431... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(hyper_hyper_complexe,p1);
DEFV(hyper_hyper_complexe,p2);
DEFV(hyper_hyper_complexe_etendu,p2_etendu);
HHCinitialisation(p1
,ELEMENT_DU_FICHIER_LISTE_R(index)
,ELEMENT_DU_FICHIER_LISTE_I(index)
,ELEMENT_DU_FICHIER_LISTE_J(index)
,ELEMENT_DU_FICHIER_LISTE_K(index)
,ELEMENT_DU_FICHIER_LISTE_S(index)
,ELEMENT_DU_FICHIER_LISTE_T(index)
,ELEMENT_DU_FICHIER_LISTE_U(index)
,ELEMENT_DU_FICHIER_LISTE_V(index)
);
Repe(nombre_d_iterations)
Bblock
HHCcombinaison_lineaire_9(p2
,ponderation_neutre__________________
,p1
,ponderation_cosinus_circulaire______
,fFHHCcosinus_circulaire(p1)
,ponderation_sinus_circulaire________
,fFHHCsinus_circulaire(p1)
,ponderation_tangente_circulaire_____
,fFHHCtangente_circulaire(p1)
,ponderation_cosinus_hyperbolique____
,fFHHCcosinus_hyperbolique(p1)
,ponderation_sinus_hyperbolique______
,fFHHCsinus_hyperbolique(p1)
,ponderation_tangente_hyperbolique___
,fFHHCtangente_hyperbolique(p1)
,ponderation_exponentielle_neperienne
,fFHHCexponentielle(base_de_l_exponentielle_neperienne,p1)
,ponderation_logarithme______________
,fFHHClogarithme(p1)
);
/* On notera le 20220616110521 que "PondNEUT=" associe dans le 'LIZ16(...)' ci-apres et */
/* aux ponderations {RR,A1,A2,A3,A4,A5,A6,A7} permet finalement de faire simplement de la */
/* conversion des coordonnees cartesiennes en coordonnees hyper-hyper-spheriques... */
/* */
/* Le 20220617100133, 'PONDERATION_NEUTRE__________________' est donc passe de 'FZERO' */
/* a 'FU' pour ce faire... */
Test(IFLT(compteur_des_repetitions_du_Repe,nombre_de_repetitions_du_Repe))
Bblock
HHCegal(p1,p2);
/* Afin de preparer l'iteration suivante... */
Eblock
ATes
Bblock
Eblock
ETes
Eblock
ERep
HHCextension_directe(p2_etendu,p2);
)
,USe_GooF(LIZ16(ponderation_R,HHReelle(p2)
,ponderation_I,HHImaginaire(p2)
,ponderation_J,HHJmaginaire(p2)
,ponderation_K,HHKmaginaire(p2)
,ponderation_S,HHSmaginaire(p2)
,ponderation_T,HHTmaginaire(p2)
,ponderation_U,HHUmaginaire(p2)
,ponderation_V,HHVmaginaire(p2)
,ponderation_RR,HHCHHS_Rho(p2_etendu)
,ponderation_A1,HHCHHS_Angle1(p2_etendu)
,ponderation_A2,HHCHHS_Angle2(p2_etendu)
,ponderation_A3,HHCHHS_Angle3(p2_etendu)
,ponderation_A4,HHCHHS_Angle4(p2_etendu)
,ponderation_A5,HHCHHS_Angle5(p2_etendu)
,ponderation_A6,HHCHHS_Angle6(p2_etendu)
,ponderation_A7,HHCHHS_Angle7(p2_etendu)
)
)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Transformation "fonctionnelle"... */
lGENERATION_D_UN_FICHIER(liste_initiale_des_V,V_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_U,U_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_T,T_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_S,S_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_K,K_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_J,J_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_I,I_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_R,R_IMPLICITE);
RETU_Commande;
Eblock
ECommande