/*************************************************************************************************************************************/
/* */
/* C A L C U L D E L A D I M E N S I O N F R A C T A L E G E N E R A L I S E E */
/* D ' H A U S D O R F F D ' U N E I M A G E : */
/* */
/* */
/* Definition : */
/* */
/* Cette commande calcule la dimension */
/* fractale generalisee d'Hausdorff suivant */
/* une famille de "boites" generalisees dont */
/* la forme est donnee par 'imageB'. */
/* */
/* Le 20070621094240, voici un exemple */
/* d'utilisation : */
/* */
/* Std */
/* $xci/complement$X A=$xiio/SPIRALE R=$xTV/SPIRALE $formatI */
/* $xci/format.01$X A=$xTV/SPIRALE mode=0 R=$xTV/SPIRALE $formatR_Pal */
/* */
/* Pal */
/* $xci/dimension.01$X A=$xiirk/DIFF.21.Plage n=198 B=$xTV/SPIRALE $formatI */
/* */
/* ou "198" est le niveau de la "plage" dans */
/* l'image 'v $xiirk/DIFF.21.Plage'... */
/* */
/* */
/* Author of '$xci/dimension.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1988??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define NIVEAU_DE_CALCUL_DE_LA_DIMENSION \
GRIS \
/* A priori on calcule la dimension fractale pour le niveau moyen ('GRIS'). */
#define NIVEAU_DE_DEPART \
NOIR \
/* Niveau de la premiere boite du calcul, */
#define NIVEAU_D_ARRIVEE \
BLANC \
/* Niveau de la derniere boite du calcul. */
#define PAS_DES_NIVEAUX \
PAS_COULEURS \
/* Pas de passage de la premiere a la derniere boite du calcul. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C A L C U L D E L A D I M E N S I O N F R A C T A L E G E N E R A L I S E E */
/* D ' H A U S D O R F F D ' U N E I M A G E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
/* Nom de l'image a displayer. */
DEFV(CHAR,INIC(POINTERc(nom_imageB),NOM_PIPE));
/* Nom de l'image definissant la forme des "boites" generalisees. */
DEFV(genere_p,INIT(niveau_de_calcul,NIVEAU_DE_CALCUL_DE_LA_DIMENSION));
/* Niveau de calcul de la dimension fractale initialise sur sa valeur par defaut. */
DEFV(genere_p,INIT(niveau_de_depart,NIVEAU_DE_DEPART));
/* Niveau de la premiere boite du calcul (en general 'NOIR'), */
DEFV(genere_p,INIT(niveau_d_arrivee,NIVEAU_D_ARRIVEE));
/* Niveau de la derniere boite du calcul (en general 'BLANC'). */
DEFV(Int,INIT(pas_des_niveaux,PAS_DES_NIVEAUX));
/* Pas de passage du niveau de depart au niveau d'arrivee (en general */
/* 'PAS_COULEURS'). */
/*..............................................................................................................................*/
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_C("imageA=""A=",nom_imageA);
GET_ARGUMENT_C("imageB=""B=",nom_imageB);
GET_ARGUMENT_P("niveau=""n=",niveau_de_calcul);
GET_ARGUMENT_P("depart=",niveau_de_depart);
GET_ARGUMENT_P("arrivee=",niveau_d_arrivee);
GET_ARGUMENT_I("pas=",pas_des_niveaux);
)
);
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA,nom_imageA))))
/* Chargement de l'image dont on veut calculer la dimension fractale. */
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(Masque,nom_imageB))))
/* Chargement de l'image de definition des boites generalisees. */
Bblock
CAL3(Prme1("La dimension fractale de Hausdorff generalisee de l'image '%s'\n",nom_imageA));
CAL3(Prme1("pour le niveau %d\n",niveau_de_calcul));
CAL3(Prme1("et suivant la famille de 'boites' generalisees '%s'\n",nom_imageB));
CAL3(Prme3("(premiere=%d, derniere=%d, pas=%d)\n",niveau_de_depart,niveau_d_arrivee,pas_des_niveaux));
CALS(Fsauts_de_lignes(UN));
CAL3(Prme1("vaut : DimensionFractale=%.^^^\n"
,IFdimension_fractale(ImageA
,niveau_de_calcul
,niveau_de_depart,niveau_d_arrivee
,pas_des_niveaux
)
)
);
/* Le 20060105154756, le format "16g" est passe a "^^g" pour plus de souplesse... */
/* */
/* Le 20091123123219, le format "^^g" est passe a "^^^" pour plus de souplesse... */
CALS(Fsauts_de_lignes(UN));
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
RETU_Commande;
Eblock
ECommande