/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D ' U N E V A R I E T E D E C A L A B I - Y A U 1 6 - D I M E N S I O N N E L L E : */
/* */
/* */
/* Author of '$xrs/CalabiYau.82$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20230225183154). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
@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. */
/* */
/* */
/*************************************************************************************************************************************/
#define hXmin_ESPACE \
PARE(-1.0)
#define hYmin_ESPACE \
PARE(-1.0)
#define hZmin_ESPACE \
PARE(-1.0)
/* Definition du "coin" inferieur-gauche-arriere de l'espace physique. */
#define hXmax_ESPACE \
PARE(+1.0)
#define hYmax_ESPACE \
PARE(+1.0)
#define hZmax_ESPACE \
PARE(+1.0)
/* Definition du "coin" superieur-droite-avant de l'espace physique. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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"
#define dXmin_ESPACE \
PARE(-1.00)
#define dYmin_ESPACE \
PARE(-1.00)
#define dZmin_ESPACE \
PARE(-1.00)
/* Definition des minima des differentielles {dx,dy,dz}. */
#define dXmax_ESPACE \
PARE(+1.00)
#define dYmax_ESPACE \
PARE(+1.00)
#define dZmax_ESPACE \
PARE(+1.00)
/* Definition des maxima des differentielles {dx,dy,dz}. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D ' U N E V A R I E T E D E C A L A B I - Y A U 1 6 - D I M E N S I O N N E L L E : */
/* */
/* */
/* Definition de l'hyper-hyper-volume ('v $xrs/CalabiYau.82$K') : */
/* */
/* Une variete hyper-hyper-complexe de Calabi-Yau */
/* est definie implicitement par : */
/* */
/* n1 n2 */
/* O + O = 1 */
/* 1 2 */
/* */
/* ou 'O1' et 'O2' sont deux nombres hyper-hyper-complexes. */
/* Cette variete est donc a 8 dimensions, et la */
/* surface a 3 dimensions que l'on visualisera */
/* sera definie par : */
/* */
/* */
/* X = (A .R(O )) + (A .I(O )) + (...) + (A .U(O )) + (A .V(O )) */
/* X01 1 X02 1 X15 2 X16 2 */
/* */
/* */
/* Y = (A .R(O )) + (A .I(O )) + (...) + (A .U(O )) + (A .V(O )) */
/* Y01 1 Y02 1 Y15 2 Y16 2 */
/* */
/* */
/* Z = (A .R(O )) + (A .I(O )) + (...) + (A .U(O )) + (A .V(O )) */
/* Z01 1 Z02 1 Z15 2 Z16 2 */
/* */
/* */
/* soit, par defaut (qui fait que 'v $xiirs/CAYA.A1.0129' et 'v $xiirs/CAYA.O3' sont semblables bien qu'ayant ete */
/* generees par '$xrs/CalabiYau.12$X' et '$xrs/CalabiYau.32$X' respectivement) : */
/* */
/* */
/* X = R(O ) + I(O ) */
/* 1 2 */
/* */
/* */
/* Y = I(O ) + I(O ) */
/* 1 2 */
/* */
/* */
/* Z = R(O ) + I(O ) */
/* 2 2 */
/* */
/* */
/* (ou 'R(...)', 'I(...)', J(...)', 'K(...)', S(...)', 'T(...)', 'U(...)' et 'V(...)' designent respectivement */
/* les parties Reelle, Imaginaire, Jmaginaire, Kmaginaire, Smaginaire, Tmaginaire, Umaginaire et Vmaginaire) */
/* avec : */
/* */
/* w1 E [ 0 , p/2 ] */
/* */
/* w2 E [ -1 , +1 ] */
/* */
/* w3 E [ -1 , +1 ] */
/* */
/* w4 E [ -1 , +1 ] */
/* */
/* w5 E [ -1 , +1 ] */
/* */
/* w6 E [ -1 , +1 ] */
/* */
/* w7 E [ -1 , +1 ] */
/* */
/* w8 E [ -1 , +1 ] */
/* */
/* (ou 'p' designe 'pi'). */
/* */
/* */
/*************************************************************************************************************************************/
#include xrs/CalabiYau.82.I"
#include xrs/CalabiYau.84.I"
#include xrs/CalabiYau.85.I"
#include xrs/CalabiYau.87.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/hyper_hyper_volumes.21.I"
#define PONDERATION_ROUGE_VERTE_BLEUE_POUR_dcx_dcy_dcz \
FU
#define PRENDRE_LA_VALEUR_ABSOLUE_DES_DIFFERENTIELLES \
VRAI
#include xrs/CalabiYau.86.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 ' : */
/* */
/*************************************************************************************************************************************/
#define EDITER_LES_PROJECTIONS \
FAUX
DEFV(Local,DEFV(Logical,INIT(editer_les_projections,EDITER_LES_PROJECTIONS)));
/* Faut-il editer les projections ('VRAI') ou pas ('FAUX') ? Ceci a ete introduit le */
/* 20230317105145, la valeur par defaut garantissant la compatibilite anterieure... */
#define FAIRE_UNE_PROJECTION_PARALLELE \
VRAI
DEFV(Local,DEFV(Logical,INIT(faire_une_projection_parallele,FAIRE_UNE_PROJECTION_PARALLELE)));
/* Faut-il faire une projection parallele ('VRAI') ou perspective ('FAUX') ? Ceci a ete */
/* introduit le 20230316163011, la valeur par defaut garantissant la compatibilite */
/* anterieure... */
#define VALIDER_LA_QUALITE_DU_CALCUL_DE_O1_ET_DE_O2 \
FAUX
#define EPSILON_DE_VALIDATION_DU_CALCUL_DE_O1_ET_DE_O2 \
tgEPSILON
DEFV(Local,DEFV(Logical,INIT(valider_la_qualite_du_calcul_de_o1_et_de_o2,VALIDER_LA_QUALITE_DU_CALCUL_DE_O1_ET_DE_O2)));
DEFV(Local,DEFV(Float,INIT(epsilon_de_validation_du_calcul_de_o1_et_de_o2,EPSILON_DE_VALIDATION_DU_CALCUL_DE_O1_ET_DE_O2)));
/* Faut-il valider le calcul de {o1,o2} ('VRAI') ou pas ('FAUX'). */
/* */
/* L'epsilon de validation a ete introduit le 20230321103102... */
#include xrs/CalabiYau.81.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 V A R I E T E D E C A L A B I - Y A U 1 6 - D I M E N S I O N N E L L E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrs/hyper_hyper_volumes.41.I"
#include xrs/hyper_hyper_volumes.22.I"
/*..............................................................................................................................*/
INITIALISATIONS_GENERALES;
/* Initialisations generales faites au tout debut... */
iTRANSFORMAT_31(liste_PARAMETRE_N1,PARAMETRE_N1_IMPLICITE);
iTRANSFORMAT_31(liste_PARAMETRE_N2,PARAMETRE_N2_IMPLICITE);
/* Initialisation des parametres 'n1' et 'n2'. */
#include xrv/champs_5.1A.I"
#include xrs/hyper_hyper_volumes.13.I"
GET_ARGUMENTSv(nombre_d_arguments
,BLOC(CONTROLE_DES_COMPATIBILITES_DES_FONCTIONS_DES_NOMBRES_HYPER_HYPER_COMPLEXES;
/* Mis sous cette forme le 20230322100629... */
PROCESS_ARGUMENTS_GEOMETRIQUES;
GET_FICHIER_PARAMETRE("PARAMETRE_N1=",_N1);
GET_FICHIER_PARAMETRE("PARAMETRE_N2=",_N2);
GET_ARGUMENT_F("HHRA=",HHReelle(parametre_oA));
GET_ARGUMENT_F("HHIA=",HHImaginaire(parametre_oA));
GET_ARGUMENT_F("HHJA=",HHJmaginaire(parametre_oA));
GET_ARGUMENT_F("HHKA=",HHKmaginaire(parametre_oA));
GET_ARGUMENT_F("HHSA=",HHSmaginaire(parametre_oA));
GET_ARGUMENT_F("HHTA=",HHTmaginaire(parametre_oA));
GET_ARGUMENT_F("HHUA=",HHUmaginaire(parametre_oA));
GET_ARGUMENT_F("HHVA=",HHVmaginaire(parametre_oA));
GET_ARGUMENT_F("HHRB=",HHReelle(parametre_oB));
GET_ARGUMENT_F("HHIB=",HHImaginaire(parametre_oB));
GET_ARGUMENT_F("HHJB=",HHJmaginaire(parametre_oB));
GET_ARGUMENT_F("HHKB=",HHKmaginaire(parametre_oB));
GET_ARGUMENT_F("HHSB=",HHSmaginaire(parametre_oB));
GET_ARGUMENT_F("HHTB=",HHTmaginaire(parametre_oB));
GET_ARGUMENT_F("HHUB=",HHUmaginaire(parametre_oB));
GET_ARGUMENT_F("HHVB=",HHVmaginaire(parametre_oB));
GET_ARGUMENT_L("editer_projections=""ep=",editer_les_projections);
/* Argument introduit le 20230317105145... */
/* */
/* On notera le 20230317114430 que l'on a interet a definir alors les arguments suivants : */
/* */
/* ModeFlot=f */
/* ChiffresFlot=6 */
/* */
/* pour ameliorer la lisibilite des editions... */
GET_ARGUMENT_F("xR1=",coefficient_de_projection_parallele_01_16D_3D_x01_X);
GET_ARGUMENT_F("xI1=",coefficient_de_projection_parallele_01_16D_3D_x02_X);
GET_ARGUMENT_F("xJ1=",coefficient_de_projection_parallele_01_16D_3D_x03_X);
GET_ARGUMENT_F("xK1=",coefficient_de_projection_parallele_01_16D_3D_x04_X);
GET_ARGUMENT_F("xS1=",coefficient_de_projection_parallele_01_16D_3D_x05_X);
GET_ARGUMENT_F("xT1=",coefficient_de_projection_parallele_01_16D_3D_x06_X);
GET_ARGUMENT_F("xU1=",coefficient_de_projection_parallele_01_16D_3D_x07_X);
GET_ARGUMENT_F("xV1=",coefficient_de_projection_parallele_01_16D_3D_x08_X);
GET_ARGUMENT_F("xR2=",coefficient_de_projection_parallele_01_16D_3D_x09_X);
GET_ARGUMENT_F("xI2=",coefficient_de_projection_parallele_01_16D_3D_x10_X);
GET_ARGUMENT_F("xJ2=",coefficient_de_projection_parallele_01_16D_3D_x11_X);
GET_ARGUMENT_F("xK2=",coefficient_de_projection_parallele_01_16D_3D_x12_X);
GET_ARGUMENT_F("xS2=",coefficient_de_projection_parallele_01_16D_3D_x13_X);
GET_ARGUMENT_F("xT2=",coefficient_de_projection_parallele_01_16D_3D_x14_X);
GET_ARGUMENT_F("xU2=",coefficient_de_projection_parallele_01_16D_3D_x15_X);
GET_ARGUMENT_F("xV2=",coefficient_de_projection_parallele_01_16D_3D_x16_X);
GET_ARGUMENT_F("yR1=",coefficient_de_projection_parallele_01_16D_3D_x01_Y);
GET_ARGUMENT_F("yI1=",coefficient_de_projection_parallele_01_16D_3D_x02_Y);
GET_ARGUMENT_F("yJ1=",coefficient_de_projection_parallele_01_16D_3D_x03_Y);
GET_ARGUMENT_F("yK1=",coefficient_de_projection_parallele_01_16D_3D_x04_Y);
GET_ARGUMENT_F("yS1=",coefficient_de_projection_parallele_01_16D_3D_x05_Y);
GET_ARGUMENT_F("yT1=",coefficient_de_projection_parallele_01_16D_3D_x06_Y);
GET_ARGUMENT_F("yU1=",coefficient_de_projection_parallele_01_16D_3D_x07_Y);
GET_ARGUMENT_F("yV1=",coefficient_de_projection_parallele_01_16D_3D_x08_Y);
GET_ARGUMENT_F("yR2=",coefficient_de_projection_parallele_01_16D_3D_x09_Y);
GET_ARGUMENT_F("yI2=",coefficient_de_projection_parallele_01_16D_3D_x10_Y);
GET_ARGUMENT_F("yJ2=",coefficient_de_projection_parallele_01_16D_3D_x11_Y);
GET_ARGUMENT_F("yK2=",coefficient_de_projection_parallele_01_16D_3D_x12_Y);
GET_ARGUMENT_F("yS2=",coefficient_de_projection_parallele_01_16D_3D_x13_Y);
GET_ARGUMENT_F("yT2=",coefficient_de_projection_parallele_01_16D_3D_x14_Y);
GET_ARGUMENT_F("yU2=",coefficient_de_projection_parallele_01_16D_3D_x15_Y);
GET_ARGUMENT_F("yV2=",coefficient_de_projection_parallele_01_16D_3D_x16_Y);
GET_ARGUMENT_F("zR1=",coefficient_de_projection_parallele_01_16D_3D_x01_Z);
GET_ARGUMENT_F("zI1=",coefficient_de_projection_parallele_01_16D_3D_x02_Z);
GET_ARGUMENT_F("zJ1=",coefficient_de_projection_parallele_01_16D_3D_x03_Z);
GET_ARGUMENT_F("zK1=",coefficient_de_projection_parallele_01_16D_3D_x04_Z);
GET_ARGUMENT_F("zS1=",coefficient_de_projection_parallele_01_16D_3D_x05_Z);
GET_ARGUMENT_F("zT1=",coefficient_de_projection_parallele_01_16D_3D_x06_Z);
GET_ARGUMENT_F("zU1=",coefficient_de_projection_parallele_01_16D_3D_x07_Z);
GET_ARGUMENT_F("zV1=",coefficient_de_projection_parallele_01_16D_3D_x08_Z);
GET_ARGUMENT_F("zR2=",coefficient_de_projection_parallele_01_16D_3D_x09_Z);
GET_ARGUMENT_F("zI2=",coefficient_de_projection_parallele_01_16D_3D_x10_Z);
GET_ARGUMENT_F("zJ2=",coefficient_de_projection_parallele_01_16D_3D_x11_Z);
GET_ARGUMENT_F("zK2=",coefficient_de_projection_parallele_01_16D_3D_x12_Z);
GET_ARGUMENT_F("zS2=",coefficient_de_projection_parallele_01_16D_3D_x13_Z);
GET_ARGUMENT_F("zT2=",coefficient_de_projection_parallele_01_16D_3D_x14_Z);
GET_ARGUMENT_F("zU2=",coefficient_de_projection_parallele_01_16D_3D_x15_Z);
GET_ARGUMENT_F("zV2=",coefficient_de_projection_parallele_01_16D_3D_x16_Z);
GET_ARGUMENT_L("ProjectionParallele=""pparallele=""ppar=",faire_une_projection_parallele);
GET_ARGUMENT_N("ProjectionPerspective=""pperspective=""pper=",faire_une_projection_parallele);
GET_ARGUMENT_F("O01=",observateur_de_projection_perspective_01_16D_X01);
GET_ARGUMENT_F("O02=",observateur_de_projection_perspective_01_16D_X02);
GET_ARGUMENT_F("O03=",observateur_de_projection_perspective_01_16D_X03);
GET_ARGUMENT_F("O04=",observateur_de_projection_perspective_01_16D_X04);
GET_ARGUMENT_F("O05=",observateur_de_projection_perspective_01_16D_X05);
GET_ARGUMENT_F("O06=",observateur_de_projection_perspective_01_16D_X06);
GET_ARGUMENT_F("O07=",observateur_de_projection_perspective_01_16D_X07);
GET_ARGUMENT_F("O08=",observateur_de_projection_perspective_01_16D_X08);
GET_ARGUMENT_F("O09=",observateur_de_projection_perspective_01_16D_X09);
GET_ARGUMENT_F("O10=",observateur_de_projection_perspective_01_16D_X10);
GET_ARGUMENT_F("O11=",observateur_de_projection_perspective_01_16D_X11);
GET_ARGUMENT_F("O12=",observateur_de_projection_perspective_01_16D_X12);
GET_ARGUMENT_F("O13=",observateur_de_projection_perspective_01_16D_X13);
GET_ARGUMENT_F("O14=",observateur_de_projection_perspective_01_16D_X14);
GET_ARGUMENT_F("O15=",observateur_de_projection_perspective_01_16D_X15);
GET_ARGUMENT_F("O16=",observateur_de_projection_perspective_01_16D_X16);
GET_ARGUMENT_F("PA=",plan_de_projection_perspective_01_16D_A);
GET_ARGUMENT_F("PB=",plan_de_projection_perspective_01_16D_B);
GET_ARGUMENT_F("PC=",plan_de_projection_perspective_01_16D_C);
GET_ARGUMENT_F("PD=",plan_de_projection_perspective_01_16D_D);
GET_ARGUMENT_F("PE=",plan_de_projection_perspective_01_16D_E);
GET_ARGUMENT_F("PF=",plan_de_projection_perspective_01_16D_F);
GET_ARGUMENT_F("PG=",plan_de_projection_perspective_01_16D_G);
GET_ARGUMENT_F("PH=",plan_de_projection_perspective_01_16D_H);
GET_ARGUMENT_F("PI=",plan_de_projection_perspective_01_16D_I);
GET_ARGUMENT_F("PJ=",plan_de_projection_perspective_01_16D_J);
GET_ARGUMENT_F("PK=",plan_de_projection_perspective_01_16D_K);
GET_ARGUMENT_F("PL=",plan_de_projection_perspective_01_16D_L);
GET_ARGUMENT_F("PM=",plan_de_projection_perspective_01_16D_M);
GET_ARGUMENT_F("PN=",plan_de_projection_perspective_01_16D_N);
GET_ARGUMENT_F("PO=",plan_de_projection_perspective_01_16D_O);
GET_ARGUMENT_F("PP=",plan_de_projection_perspective_01_16D_P);
GET_ARGUMENT_F("PQ=",plan_de_projection_perspective_01_16D_Q);
/* Les arguments relatifs au choix de la projection ont ete introduit le 20230316163011 */
/* et le 20230316163219... */
GET_ARGUMENT_L("valider=""qualite=",valider_la_qualite_du_calcul_de_o1_et_de_o2);
GET_ARGUMENT_F("espilon_validation=""epsval=",epsilon_de_validation_du_calcul_de_o1_et_de_o2);
/* Argument introduit le 20230321103252... */
PROCESS_ARGUMENTS_DE_VISUALISATION;
PROCESS_ARGUMENTS_DE_TRANSFORMATION_DE_w1_w2_w3_w4_w5_w6_w7_w8;
PROCESS_ARGUMENTS_DE_PERMUTATION_DES_COORDONNEES_ET_DES_DIFFERENTIELLES;
PROCESS_ARGUMENTS_DE_DEFINITION_DES_COORDONNEES_CURVILIGNES;
PROCESS_ARGUMENTS_DE_GESTION_DE_LA_RELATIVITE_RESTREINTE;
)
);
#include xrs/hyper_hyper_volumes.12.I"
/* Visualisation et evolution de l'hyper-hyper-volume au cours du temps... */
Test(IL_FAUT(valider_la_qualite_du_calcul_de_o1_et_de_o2))
/* Test introduit le 20230403171731 suite a 'v $ximcd/operator$FON 2023032410053'... */
Bblock
PRINT_ATTENTION("la mutiplication des hyper-hyper-complexes n'etant pas commutative, cette validation n'a pas de sens");
Eblock
ATes
Bblock
Eblock
ETes
VISUALISATION_GENERALE_DE_L_HYPER_HYPER_VOLUME(BLOC(Bblock
EGAL(parametre_n1,sPARAMETRE_N1(numero_de_la_periode_courante));
EGAL(parametre_n2,sPARAMETRE_N2(numero_de_la_periode_courante));
/* Calcul de la valeur des parametres 'n1' et 'n2'. */
Test(N_EST_PAS_ENTIER(parametre_n1))
Bblock
PRINT_ATTENTION("le parametre 'N1' n'est pas entier");
Eblock
ATes
Bblock
Eblock
ETes
Test(N_EST_PAS_ENTIER(parametre_n2))
Bblock
PRINT_ATTENTION("le parametre 'N2' n'est pas entier");
Eblock
ATes
Bblock
Eblock
ETes
Eblock
)
,BLOC(Bblock
DEFV(Float,INIT(minimum_k1
,FLOT(RESZ(NEUT(INTE(parametre_n1)),INTE(parametre_n1)))
)
);
DEFV(Float,INIT(maximum_k1
,FLOT(RESZ(PRED(ARRX(parametre_n1)),ARRX(parametre_n1)))
)
);
DEFV(Float,INIT(minimum_k2
,FLOT(RESZ(NEUT(INTE(parametre_n2)),INTE(parametre_n2)))
)
);
DEFV(Float,INIT(maximum_k2
,FLOT(RESZ(PRED(ARRX(parametre_n2)),ARRX(parametre_n2)))
)
);
/* Afin de faire evoluer 'k1' et 'k2'. */
DEFV(Float,INIT(facteur_1_de_la_translation_de_uv,FLOT__UNDEF));
DEFV(Float,INIT(facteur_2_de_la_translation_de_uv,FLOT__UNDEF));
/* Pour tester le changement des associations {u,v} <--> {1,2}. */
EGAL(facteur_1_de_la_translation_de_uv,FZERO);
DoIn(parametre_k1,minimum_k1,maximum_k1,FU)
Bblock
EGAL(facteur_2_de_la_translation_de_uv,FZERO);
DoIn(parametre_k2,minimum_k2,maximum_k2,FU)
/* Boucles sur les N1xN2 "patches" composant la variete de Calabi-Yau. */
Bblock
GENER_HYPER_HYPER_VOLUME_AVEC_DIFFERENCES____(Fx_CalabiYau_8
,Fy_CalabiYau_8
,Fz_CalabiYau_8
,BLOC(VIDE;)
);
/* Il n'y a rien de specifique a calculer pour le point courant... */
Eblock
EDoI
Eblock
EDoI
Eblock
)
,Fx_CalabiYau_8,Fy_CalabiYau_8,Fz_CalabiYau_8
/* Fonctions definissant parametriquement la surface... */
,Pxyz_CalabiYau_8
);
RETU_Commande;
Eblock
ECommande