/*************************************************************************************************************************************/
/* */
/* F O N C T I O N S I G M O I D E D ' U N F I C H I E R N U M E R I Q U E : */
/* */
/* */
/* Nota : */
/* */
/* La fonction 'SIGM(...)' se rapproche */
/* beaucoup plus lentement de 0 et de 1 que la */
/* fonction 'TANH01(...)', ainsi que le montre : */
/* */
/* */
/* FICHIER : SIGM(...) : TAHX01(...) : */
/* */
/* ---- -------- */
/* -10 +0.00004539786870 +0.00000000206115 */
/* -9 +0.00012339457599 +0.00000001522998 */
/* -8 +0.00033535013047 +0.00000011253516 */
/* -7 +0.00091105119440 +0.00000083152803 */
/* -6 +0.00247262315663 +0.00000614417460 */
/* -5 +0.00669285092428 +0.00004539786870 */
/* -4 +0.01798620996209 +0.00033535013047 */
/* -3 +0.04742587317757 +0.00247262315663 */
/* -2 +0.11920292202212 +0.01798620996209 */
/* -1 +0.26894142137000 +0.11920292202212 */
/* */
/* 0 +0.50000000000000 +0.50000000000000 */
/* */
/* +1 +0.73105857863000 +0.88079707797788 */
/* +2 +0.88079707797788 +0.98201379003791 */
/* +3 +0.95257412682243 +0.99752737684337 */
/* +4 +0.98201379003791 +0.99966464986953 */
/* +5 +0.99330714907572 +0.99995460213130 */
/* +6 +0.99752737684337 +0.99999385582540 */
/* +7 +0.99908894880560 +0.99999916847197 */
/* +8 +0.99966464986953 +0.99999988746484 */
/* +9 +0.99987660542401 +0.99999998477002 */
/* +10 +0.99995460213130 +0.99999999793885 */
/* ---- -------- */
/* */
/* */
/* Author of '$xrv/SIGM.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20230605134731). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D U F I C H I E R : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define VALEUR_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_des_valeurs,liste_des_valeurs);
/* Definition en memoire du fichier. */
#define ELEMENT_DU_FICHIER(index) \
gELEMENT_DU_FICHIER(liste_des_valeurs,index) \
/* Acces a un element courant du fichier. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F O N C T I O N S I G M O I D E D ' U N F I C H I E R N U M E R I Q U E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
/*..............................................................................................................................*/
#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("fichier="
,fichier_des_valeurs
,liste_des_valeurs
,VALEUR_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
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;
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
/* Recuperation de la valeur courante dans le fichier. */
)
,SIGM(valeur_courante)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Sigmoide du fichier argument. */
lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);
RETU_Commande;
Eblock
ECommande