/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N */
/* D ' U N E S U R F A C E 1 D E H O R N E R " H Y P E R B O L I Q U E " D U D E U X I E M E D E G R E : */
/* */
/* */
/* Author of '$xrs/Horner42.21$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20201012130413). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_____MODULE_NON_DERIVABLE
#nodefine PRAGMA_CPP_____AUTORISER_LE_GooF
/* Le 20201020103202, passage de 'define' a 'nodefine' car, en effet, des tests effectues */
/* la veille ont montre le peu d'interet de la chose, ce qui se comprend puisque la */
/* procedure 'HORNER_4_02(...)' ne contient que des 'ADD2(...)'s et des 'MUL2(...)'s ; */
/* changer leur definition ne provoque donc pas des petites modifications subtiles... */
/* De plus, le pre-processing avec 'GooF' est interminable... */
#nodefine PRAGMA_CPP_____SI_LE_GooF_EST_ACTIVABLE_ALORS_FAIRE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS
/* Le 20201020114522, passage de 'define' a 'nodefine' suite a la suppression du 'GooF' */
/* le 20201020103202... */
@define PRAGMA_CL_____MODULE_NON_OPTIMISABLE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_BASE
#include image_image_IMAGESF_EXT
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S D E B A S E E T U N I V E R S E L L E S : */
/* */
/*************************************************************************************************************************************/
#include xrv/dimensionnement.01.vv.I"
#include xrk/attractor.11.I"
#include xrv/particule.41.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 3 */
/* D E F I N I T I O N D E L ' E S P A C E P H Y S I Q U E D A N S R ( D E B U T ) : */
/* */
/* */
/* Nota : */
/* */
/* Les extrema des coordonnees {x,y,z} */
/* ainsi que ceux de leurs differentielles */
/* {dx,dy,dz} sont fixees un peu arbitrairement */
/* et sans etre parametrees. */
/* */
/* */
/*************************************************************************************************************************************/
#include xrs/Horner42.28.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 3 */
/* D E F I N I T I O N D E L ' E S P A C E P H Y S I Q U E D A N S R ( D E B U T ) : */
/* */
/*************************************************************************************************************************************/
#include xrk/attractor.12.I"
#include xrs/Horner42.29.I"
/*===================================================================================================================================*/
/* :Debut_listMN_HORNER42_21: */
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N */
/* D ' U N E S U R F A C E 1 D E H O R N E R " H Y P E R B O L I Q U E " D U D E U X I E M E D E G R E : */
/* */
/* */
/* Definition de la surface ('v $xrs/Horner42.21$K') : */
/* */
/* La surface 'hyperbolique' 1 de Horner */
/* est est definie parametriquement */
/* en fonction des deux parametres 'u' */
/* (appele aussi 'distance polaire' ou */
/* 'theta' ou encore 'latitude') et 'v' */
/* (appele aussi 'longitude' ou 'phi') */
/* en notant que les fonctions 'ch(...)' */
/* et 'sh(...)' ne sont pas bornees : */
/* */
/* F (u,v) = RX.HORNER_4_02(ch(u),sh(u),ch(v),sh(v),{pXijkl}) */
/* x */
/* */
/* F (u,v) = RY.HORNER_4_02(ch(u),sh(u),ch(v),sh(v),{pYijkl}) */
/* y */
/* */
/* F (u,v) = RZ.HORNER_4_02(ch(u),sh(u),ch(v),sh(v),{pZijkl}) */
/* z */
/* */
/* ('v $ximd/operator.1$FON HORNER_4_02') avec : */
/* */
/* {pXijkl} un ensemble de coefficients (i,j,k,l E {0,1,2}) */
/* {pYijkl} un ensemble de coefficients (i,j,k,l E {0,1,2}) */
/* {pZijkl} un ensemble de coefficients (i,j,k,l E {0,1,2}) */
/* */
/* et : */
/* */
/* u E [ -1 , +1 ] */
/* */
/* v E [ -1 , +1 ] */
/* */
/* */
/*************************************************************************************************************************************/
/* :Fin_listMN_HORNER42_21: */
#define SI_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS_EST_ACTIVABLE_ALORS_L_UTILISER_AUSSI_POUR_LES_DERIVEES
#include xrs/Horner42.22.I"
#include xrs/Horner42.24.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F O N C T I O N S D E V I S U A L I S A T I O N E T D ' I N T E R P O L A T I O N : */
/* */
/*************************************************************************************************************************************/
#include xrs/surfaces.21.I"
#define EDITER_LES_EXTREMA_S_ILS_SONT_HORS_PREVISIONS \
FAUX \
/* En consequence de quoi, le message d'erreur relatif aux extrema de {x,y,z} et/ou de */ \
/* {dx,dy,dz} n'a plus de sens (introduit le 20201016110347...). */
#include xrs/Horner42.23.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S T R O I S F O N C T I O N S ' F ' : */
/* */
/*************************************************************************************************************************************/
#include xrs/Horner42.21.I"
/* ATTENTION, il est imperatif que les fonctions derivables formellement soient definies */
/* dans un fichier a part afin qu'elles ne soient pas l'objet d'une double definition. En */
/* effet, on trouve dans 'v $xcc/cpp$Z' : */
/* */
/* $CA $module$w */
/* | $xcp/cpp$X ... -c$PASSE_D -e$PASSE_5 */
/* > $fichierR */
/* */
/* Ainsi, si par exemple la definition de 'RAYON(h,theta)' etait faite localement dans le */
/* fichier '$xrf/recursif.11$K', cette definition apparaitrait deux fois dans le fichier */
/* '$module$w' : une premiere fois en tete, provenant de '$PASSE_D' ou l'on ne trouve que */
/* les definitions du type '-define ...', puis une deuxieme fois a la suite, la ou se trouve */
/* concatene au fichier '$module$W' des '-define ...' le fichier '$fichierA' a compiler... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P O U R D E S R A I S O N S D E C O M P A T I B I L I T E : */
/* */
/*************************************************************************************************************************************/
#include xrk/integr.1B.vv.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S I N I T I A L I S A T I O N S : */
/* */
/*************************************************************************************************************************************/
#include xrk/attractor.18.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N */
/* D ' U N E S U R F A C E 1 D E H O R N E R " H Y P E R B O L I Q U E " D U D E U X I E M E D E G R E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrs/surfaces.41.I"
#include xrs/surfaces.22.I"
/*..............................................................................................................................*/
INITIALISATIONS_GENERALES;
/* Initialisations generales faites au tout debut... */
#include xrv/champs_5.1A.I"
#include xrs/surfaces.13.I"
GET_ARGUMENTSv(nombre_d_arguments
,BLOC(PROCESS_ARGUMENTS_GEOMETRIQUES;
GET_ARGUMENT_F("RX=",parametre_RX);
/* Argument introduit le 20201020104053... */
GET_ARGUMENT_F("pX0000=",pX_a0000);
GET_ARGUMENT_F("pX0001=",pX_a0001);
GET_ARGUMENT_F("pX0002=",pX_a0002);
GET_ARGUMENT_F("pX0010=",pX_a0010);
GET_ARGUMENT_F("pX0011=",pX_a0011);
GET_ARGUMENT_F("pX0012=",pX_a0012);
GET_ARGUMENT_F("pX0020=",pX_a0020);
GET_ARGUMENT_F("pX0021=",pX_a0021);
GET_ARGUMENT_F("pX0022=",pX_a0022);
GET_ARGUMENT_F("pX0100=",pX_a0100);
GET_ARGUMENT_F("pX0101=",pX_a0101);
GET_ARGUMENT_F("pX0102=",pX_a0102);
GET_ARGUMENT_F("pX0110=",pX_a0110);
GET_ARGUMENT_F("pX0111=",pX_a0111);
GET_ARGUMENT_F("pX0112=",pX_a0112);
GET_ARGUMENT_F("pX0120=",pX_a0120);
GET_ARGUMENT_F("pX0121=",pX_a0121);
GET_ARGUMENT_F("pX0122=",pX_a0122);
GET_ARGUMENT_F("pX0200=",pX_a0200);
GET_ARGUMENT_F("pX0201=",pX_a0201);
GET_ARGUMENT_F("pX0202=",pX_a0202);
GET_ARGUMENT_F("pX0210=",pX_a0210);
GET_ARGUMENT_F("pX0211=",pX_a0211);
GET_ARGUMENT_F("pX0212=",pX_a0212);
GET_ARGUMENT_F("pX0220=",pX_a0220);
GET_ARGUMENT_F("pX0221=",pX_a0221);
GET_ARGUMENT_F("pX0222=",pX_a0222);
GET_ARGUMENT_F("pX1000=",pX_a1000);
GET_ARGUMENT_F("pX1001=",pX_a1001);
GET_ARGUMENT_F("pX1002=",pX_a1002);
GET_ARGUMENT_F("pX1010=",pX_a1010);
GET_ARGUMENT_F("pX1011=",pX_a1011);
GET_ARGUMENT_F("pX1012=",pX_a1012);
GET_ARGUMENT_F("pX1020=",pX_a1020);
GET_ARGUMENT_F("pX1021=",pX_a1021);
GET_ARGUMENT_F("pX1022=",pX_a1022);
GET_ARGUMENT_F("pX1100=",pX_a1100);
GET_ARGUMENT_F("pX1101=",pX_a1101);
GET_ARGUMENT_F("pX1102=",pX_a1102);
GET_ARGUMENT_F("pX1110=",pX_a1110);
GET_ARGUMENT_F("pX1111=",pX_a1111);
GET_ARGUMENT_F("pX1112=",pX_a1112);
GET_ARGUMENT_F("pX1120=",pX_a1120);
GET_ARGUMENT_F("pX1121=",pX_a1121);
GET_ARGUMENT_F("pX1122=",pX_a1122);
GET_ARGUMENT_F("pX1200=",pX_a1200);
GET_ARGUMENT_F("pX1201=",pX_a1201);
GET_ARGUMENT_F("pX1202=",pX_a1202);
GET_ARGUMENT_F("pX1210=",pX_a1210);
GET_ARGUMENT_F("pX1211=",pX_a1211);
GET_ARGUMENT_F("pX1212=",pX_a1212);
GET_ARGUMENT_F("pX1220=",pX_a1220);
GET_ARGUMENT_F("pX1221=",pX_a1221);
GET_ARGUMENT_F("pX1222=",pX_a1222);
GET_ARGUMENT_F("pX2000=",pX_a2000);
GET_ARGUMENT_F("pX2001=",pX_a2001);
GET_ARGUMENT_F("pX2002=",pX_a2002);
GET_ARGUMENT_F("pX2010=",pX_a2010);
GET_ARGUMENT_F("pX2011=",pX_a2011);
GET_ARGUMENT_F("pX2012=",pX_a2012);
GET_ARGUMENT_F("pX2020=",pX_a2020);
GET_ARGUMENT_F("pX2021=",pX_a2021);
GET_ARGUMENT_F("pX2022=",pX_a2022);
GET_ARGUMENT_F("pX2100=",pX_a2100);
GET_ARGUMENT_F("pX2101=",pX_a2101);
GET_ARGUMENT_F("pX2102=",pX_a2102);
GET_ARGUMENT_F("pX2110=",pX_a2110);
GET_ARGUMENT_F("pX2111=",pX_a2111);
GET_ARGUMENT_F("pX2112=",pX_a2112);
GET_ARGUMENT_F("pX2120=",pX_a2120);
GET_ARGUMENT_F("pX2121=",pX_a2121);
GET_ARGUMENT_F("pX2122=",pX_a2122);
GET_ARGUMENT_F("pX2200=",pX_a2200);
GET_ARGUMENT_F("pX2201=",pX_a2201);
GET_ARGUMENT_F("pX2202=",pX_a2202);
GET_ARGUMENT_F("pX2210=",pX_a2210);
GET_ARGUMENT_F("pX2211=",pX_a2211);
GET_ARGUMENT_F("pX2212=",pX_a2212);
GET_ARGUMENT_F("pX2220=",pX_a2220);
GET_ARGUMENT_F("pX2221=",pX_a2221);
GET_ARGUMENT_F("pX2222=",pX_a2222);
GET_ARGUMENT_F("RY=",parametre_RY);
/* Argument introduit le 20201020104053... */
GET_ARGUMENT_F("pY0000=",pY_a0000);
GET_ARGUMENT_F("pY0001=",pY_a0001);
GET_ARGUMENT_F("pY0002=",pY_a0002);
GET_ARGUMENT_F("pY0010=",pY_a0010);
GET_ARGUMENT_F("pY0011=",pY_a0011);
GET_ARGUMENT_F("pY0012=",pY_a0012);
GET_ARGUMENT_F("pY0020=",pY_a0020);
GET_ARGUMENT_F("pY0021=",pY_a0021);
GET_ARGUMENT_F("pY0022=",pY_a0022);
GET_ARGUMENT_F("pY0100=",pY_a0100);
GET_ARGUMENT_F("pY0101=",pY_a0101);
GET_ARGUMENT_F("pY0102=",pY_a0102);
GET_ARGUMENT_F("pY0110=",pY_a0110);
GET_ARGUMENT_F("pY0111=",pY_a0111);
GET_ARGUMENT_F("pY0112=",pY_a0112);
GET_ARGUMENT_F("pY0120=",pY_a0120);
GET_ARGUMENT_F("pY0121=",pY_a0121);
GET_ARGUMENT_F("pY0122=",pY_a0122);
GET_ARGUMENT_F("pY0200=",pY_a0200);
GET_ARGUMENT_F("pY0201=",pY_a0201);
GET_ARGUMENT_F("pY0202=",pY_a0202);
GET_ARGUMENT_F("pY0210=",pY_a0210);
GET_ARGUMENT_F("pY0211=",pY_a0211);
GET_ARGUMENT_F("pY0212=",pY_a0212);
GET_ARGUMENT_F("pY0220=",pY_a0220);
GET_ARGUMENT_F("pY0221=",pY_a0221);
GET_ARGUMENT_F("pY0222=",pY_a0222);
GET_ARGUMENT_F("pY1000=",pY_a1000);
GET_ARGUMENT_F("pY1001=",pY_a1001);
GET_ARGUMENT_F("pY1002=",pY_a1002);
GET_ARGUMENT_F("pY1010=",pY_a1010);
GET_ARGUMENT_F("pY1011=",pY_a1011);
GET_ARGUMENT_F("pY1012=",pY_a1012);
GET_ARGUMENT_F("pY1020=",pY_a1020);
GET_ARGUMENT_F("pY1021=",pY_a1021);
GET_ARGUMENT_F("pY1022=",pY_a1022);
GET_ARGUMENT_F("pY1100=",pY_a1100);
GET_ARGUMENT_F("pY1101=",pY_a1101);
GET_ARGUMENT_F("pY1102=",pY_a1102);
GET_ARGUMENT_F("pY1110=",pY_a1110);
GET_ARGUMENT_F("pY1111=",pY_a1111);
GET_ARGUMENT_F("pY1112=",pY_a1112);
GET_ARGUMENT_F("pY1120=",pY_a1120);
GET_ARGUMENT_F("pY1121=",pY_a1121);
GET_ARGUMENT_F("pY1122=",pY_a1122);
GET_ARGUMENT_F("pY1200=",pY_a1200);
GET_ARGUMENT_F("pY1201=",pY_a1201);
GET_ARGUMENT_F("pY1202=",pY_a1202);
GET_ARGUMENT_F("pY1210=",pY_a1210);
GET_ARGUMENT_F("pY1211=",pY_a1211);
GET_ARGUMENT_F("pY1212=",pY_a1212);
GET_ARGUMENT_F("pY1220=",pY_a1220);
GET_ARGUMENT_F("pY1221=",pY_a1221);
GET_ARGUMENT_F("pY1222=",pY_a1222);
GET_ARGUMENT_F("pY2000=",pY_a2000);
GET_ARGUMENT_F("pY2001=",pY_a2001);
GET_ARGUMENT_F("pY2002=",pY_a2002);
GET_ARGUMENT_F("pY2010=",pY_a2010);
GET_ARGUMENT_F("pY2011=",pY_a2011);
GET_ARGUMENT_F("pY2012=",pY_a2012);
GET_ARGUMENT_F("pY2020=",pY_a2020);
GET_ARGUMENT_F("pY2021=",pY_a2021);
GET_ARGUMENT_F("pY2022=",pY_a2022);
GET_ARGUMENT_F("pY2100=",pY_a2100);
GET_ARGUMENT_F("pY2101=",pY_a2101);
GET_ARGUMENT_F("pY2102=",pY_a2102);
GET_ARGUMENT_F("pY2110=",pY_a2110);
GET_ARGUMENT_F("pY2111=",pY_a2111);
GET_ARGUMENT_F("pY2112=",pY_a2112);
GET_ARGUMENT_F("pY2120=",pY_a2120);
GET_ARGUMENT_F("pY2121=",pY_a2121);
GET_ARGUMENT_F("pY2122=",pY_a2122);
GET_ARGUMENT_F("pY2200=",pY_a2200);
GET_ARGUMENT_F("pY2201=",pY_a2201);
GET_ARGUMENT_F("pY2202=",pY_a2202);
GET_ARGUMENT_F("pY2210=",pY_a2210);
GET_ARGUMENT_F("pY2211=",pY_a2211);
GET_ARGUMENT_F("pY2212=",pY_a2212);
GET_ARGUMENT_F("pY2220=",pY_a2220);
GET_ARGUMENT_F("pY2221=",pY_a2221);
GET_ARGUMENT_F("pY2222=",pY_a2222);
GET_ARGUMENT_F("RZ=",parametre_RZ);
/* Argument introduit le 20201020104053... */
GET_ARGUMENT_F("pZ0000=",pZ_a0000);
GET_ARGUMENT_F("pZ0001=",pZ_a0001);
GET_ARGUMENT_F("pZ0002=",pZ_a0002);
GET_ARGUMENT_F("pZ0010=",pZ_a0010);
GET_ARGUMENT_F("pZ0011=",pZ_a0011);
GET_ARGUMENT_F("pZ0012=",pZ_a0012);
GET_ARGUMENT_F("pZ0020=",pZ_a0020);
GET_ARGUMENT_F("pZ0021=",pZ_a0021);
GET_ARGUMENT_F("pZ0022=",pZ_a0022);
GET_ARGUMENT_F("pZ0100=",pZ_a0100);
GET_ARGUMENT_F("pZ0101=",pZ_a0101);
GET_ARGUMENT_F("pZ0102=",pZ_a0102);
GET_ARGUMENT_F("pZ0110=",pZ_a0110);
GET_ARGUMENT_F("pZ0111=",pZ_a0111);
GET_ARGUMENT_F("pZ0112=",pZ_a0112);
GET_ARGUMENT_F("pZ0120=",pZ_a0120);
GET_ARGUMENT_F("pZ0121=",pZ_a0121);
GET_ARGUMENT_F("pZ0122=",pZ_a0122);
GET_ARGUMENT_F("pZ0200=",pZ_a0200);
GET_ARGUMENT_F("pZ0201=",pZ_a0201);
GET_ARGUMENT_F("pZ0202=",pZ_a0202);
GET_ARGUMENT_F("pZ0210=",pZ_a0210);
GET_ARGUMENT_F("pZ0211=",pZ_a0211);
GET_ARGUMENT_F("pZ0212=",pZ_a0212);
GET_ARGUMENT_F("pZ0220=",pZ_a0220);
GET_ARGUMENT_F("pZ0221=",pZ_a0221);
GET_ARGUMENT_F("pZ0222=",pZ_a0222);
GET_ARGUMENT_F("pZ1000=",pZ_a1000);
GET_ARGUMENT_F("pZ1001=",pZ_a1001);
GET_ARGUMENT_F("pZ1002=",pZ_a1002);
GET_ARGUMENT_F("pZ1010=",pZ_a1010);
GET_ARGUMENT_F("pZ1011=",pZ_a1011);
GET_ARGUMENT_F("pZ1012=",pZ_a1012);
GET_ARGUMENT_F("pZ1020=",pZ_a1020);
GET_ARGUMENT_F("pZ1021=",pZ_a1021);
GET_ARGUMENT_F("pZ1022=",pZ_a1022);
GET_ARGUMENT_F("pZ1100=",pZ_a1100);
GET_ARGUMENT_F("pZ1101=",pZ_a1101);
GET_ARGUMENT_F("pZ1102=",pZ_a1102);
GET_ARGUMENT_F("pZ1110=",pZ_a1110);
GET_ARGUMENT_F("pZ1111=",pZ_a1111);
GET_ARGUMENT_F("pZ1112=",pZ_a1112);
GET_ARGUMENT_F("pZ1120=",pZ_a1120);
GET_ARGUMENT_F("pZ1121=",pZ_a1121);
GET_ARGUMENT_F("pZ1122=",pZ_a1122);
GET_ARGUMENT_F("pZ1200=",pZ_a1200);
GET_ARGUMENT_F("pZ1201=",pZ_a1201);
GET_ARGUMENT_F("pZ1202=",pZ_a1202);
GET_ARGUMENT_F("pZ1210=",pZ_a1210);
GET_ARGUMENT_F("pZ1211=",pZ_a1211);
GET_ARGUMENT_F("pZ1212=",pZ_a1212);
GET_ARGUMENT_F("pZ1220=",pZ_a1220);
GET_ARGUMENT_F("pZ1221=",pZ_a1221);
GET_ARGUMENT_F("pZ1222=",pZ_a1222);
GET_ARGUMENT_F("pZ2000=",pZ_a2000);
GET_ARGUMENT_F("pZ2001=",pZ_a2001);
GET_ARGUMENT_F("pZ2002=",pZ_a2002);
GET_ARGUMENT_F("pZ2010=",pZ_a2010);
GET_ARGUMENT_F("pZ2011=",pZ_a2011);
GET_ARGUMENT_F("pZ2012=",pZ_a2012);
GET_ARGUMENT_F("pZ2020=",pZ_a2020);
GET_ARGUMENT_F("pZ2021=",pZ_a2021);
GET_ARGUMENT_F("pZ2022=",pZ_a2022);
GET_ARGUMENT_F("pZ2100=",pZ_a2100);
GET_ARGUMENT_F("pZ2101=",pZ_a2101);
GET_ARGUMENT_F("pZ2102=",pZ_a2102);
GET_ARGUMENT_F("pZ2110=",pZ_a2110);
GET_ARGUMENT_F("pZ2111=",pZ_a2111);
GET_ARGUMENT_F("pZ2112=",pZ_a2112);
GET_ARGUMENT_F("pZ2120=",pZ_a2120);
GET_ARGUMENT_F("pZ2121=",pZ_a2121);
GET_ARGUMENT_F("pZ2122=",pZ_a2122);
GET_ARGUMENT_F("pZ2200=",pZ_a2200);
GET_ARGUMENT_F("pZ2201=",pZ_a2201);
GET_ARGUMENT_F("pZ2202=",pZ_a2202);
GET_ARGUMENT_F("pZ2210=",pZ_a2210);
GET_ARGUMENT_F("pZ2211=",pZ_a2211);
GET_ARGUMENT_F("pZ2212=",pZ_a2212);
GET_ARGUMENT_F("pZ2220=",pZ_a2220);
GET_ARGUMENT_F("pZ2221=",pZ_a2221);
GET_ARGUMENT_F("pZ2222=",pZ_a2222);
PROCESS_ARGUMENTS_DE_VISUALISATION;
PROCESS_ARGUMENTS_DE_TRANSFORMATION_DE_u_v;
PROCESS_ARGUMENTS_DE_PERMUTATION_DES_COORDONNEES_ET_DES_DIFFERENTIELLES;
PROCESS_ARGUMENTS_DE_PROJECTION_DE_LA_SURFACE;
PROCESS_ARGUMENTS_DE_VISUALISATION_DE_LA_TEXTURE;
PROCESS_ARGUMENTS_DE_VISUALISATION_DE_LA_NORMALE;
PROCESS_ARGUMENTS_DE_DEFINITION_DES_COORDONNEES_CURVILIGNES;
PROCESS_ARGUMENTS_DE_DEFINITION_D_UNE_DROITE_DU_PLAN_UV;
PROCESS_ARGUMENTS_D_ACTIVATION_DE_L_ARITHMETIQUE_ETENDUE_ET_NON_BASIQUE_POUR_Fx_Fy_Fz;
PROCESS_ARGUMENTS_DE_GESTION_DE_LA_RELATIVITE_RESTREINTE;
)
);
#include xrs/surfaces.12.I"
/* Visualisation et evolution de la surface au cours du temps... */
VISUALISATION_DE_LA_SURFACE_AVEC_DIFFERENCES____(BLOC(BLOC(VIDE;)
)
,Fx_Horner42_2,Fy_Horner42_2,Fz_Horner42_2
/* Fonctions definissant parametriquement la surface... */
,Pxyz_Horner42_2
,BLOC(VIDE;)
/* Il n'y a rien de specifique a calculer pour le point courant... */
);
RETU_Commande;
Eblock
ECommande
Copyright © Jean-François COLONNA, 2020-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2020-2024.