/*************************************************************************************************************************************/
/* */
/* 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 C O M P L E X E : */
/* */
/* */
/* Author of '$xrv/z_fonctions.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20220616113141). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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. */
#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 'FCexponentielle(...)' */
#define PONDERATION_R \
FZERO
#define PONDERATION_I \
FZERO
/* Ponderations de selection des coordonnees cartesiennes apres transformation. */
#define PONDERATION_RR \
FZERO
#define PONDERATION_AT \
FZERO
/* Ponderations de selection des coordonnees polaires apres transformation. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
gGENERATION_D_UN_FICHIER(fichier_LISTE_R,liste_initiale_des_R);
gGENERATION_D_UN_FICHIER(fichier_LISTE_I,liste_initiale_des_I);
/* 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)
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 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));
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));
/* Ponderations de selection des coordonnees cartesiennes apres transformation. */
DEFV(Float,INIT(ponderation_RR,PONDERATION_RR));
DEFV(Float,INIT(ponderation_AT,PONDERATION_AT));
/* Ponderations de selection des coordonnees polaires apres transformation. */
DEFV(Float,INIT(base_de_l_exponentielle_neperienne,BASE_DE_L_EXPONENTIELLE_NEPERIENNE));
/* Base de la fonction 'FCexponentielle(...)' */
/*..............................................................................................................................*/
#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
);
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("PondRR=""prr=",ponderation_RR);
GET_ARGUMENT_F("PondAT=""pat=",ponderation_AT);
GET_ARGUMENT_L("DeveloppementSerieCosC=""dscc="
,fFCcosinus_circulaire_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieSinC=""dssc="
,fFCsinus_circulaire_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieTanC=""dstc="
,fFCtangente_circulaire_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieCosH=""dsch="
,fFCcosinus_hyperbolique_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieSinH=""dssh="
,fFCsinus_hyperbolique_____utiliser_le_developpement_en_serie
);
GET_ARGUMENT_L("DeveloppementSerieTanH=""dsth="
,fFCtangente_hyperbolique_____utiliser_le_developpement_en_serie
);
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;
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(complexe,p1);
DEFV(complexe,p2);
DEFV(complexe_etendu,p2_etendu);
Cinitialisation(p1
,ELEMENT_DU_FICHIER_LISTE_R(index)
,ELEMENT_DU_FICHIER_LISTE_I(index)
);
Repe(nombre_d_iterations)
Bblock
Ccombinaison_lineaire_9(p2
,ponderation_neutre__________________
,p1
,ponderation_cosinus_circulaire______
,fFCcosinus_circulaire(p1)
,ponderation_sinus_circulaire________
,fFCsinus_circulaire(p1)
,ponderation_tangente_circulaire_____
,fFCtangente_circulaire(p1)
,ponderation_cosinus_hyperbolique____
,fFCcosinus_hyperbolique(p1)
,ponderation_sinus_hyperbolique______
,fFCsinus_hyperbolique(p1)
,ponderation_tangente_hyperbolique___
,fFCtangente_hyperbolique(p1)
,ponderation_exponentielle_neperienne
,fFCexponentielle(base_de_l_exponentielle_neperienne,p1)
,ponderation_logarithme______________
,fFClogarithme(p1)
);
/* On notera que "PondNEUT=" associe dans le 'LIZ4(...)' ci-apres et aux ponderations */
/* {RR,AT} permet finalement de faire simplement de la conversion des coordonnees */
/* cartesiennes en coordonnees polaires... */
/* */
/* Le 20220617100550, '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
Cegal(p1,p2);
/* Afin de preparer l'iteration suivante... */
Eblock
ATes
Bblock
Eblock
ETes
Eblock
ERep
Cextension_directe(p2_etendu,p2);
)
,USe_GooF(LIZ4(ponderation_R,Reelle(p2)
,ponderation_I,Imaginaire(p2)
,ponderation_RR,CP_Rho(p2_etendu)
,ponderation_AT,CP_Theta(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_I,I_IMPLICITE);
lGENERATION_D_UN_FICHIER(liste_initiale_des_R,R_IMPLICITE);
RETU_Commande;
Eblock
ECommande