####################################################################################################################################### # # # M O U V E M E N T B R O W N I E N E T S A F R O N T I E R E # # E N C O O R D O N N E E S C A R T E S I E N N E S # # A V E C V I S U A L I S A T I O N D E L A D I S T A N C E A L ' O R I G I N E : # # # # # # Author of '$xiirv/.BROW.11.4.$U' : # # # # Jean-Francois Colonna (LACTAMME, 20211004102636). # # # ####################################################################################################################################### #20211004121958____:$Z setParam _____NHistogramme $GRIS_8 # $Z setParam _____NHistogramme $GRIS_4 $Z setParam _____DemiPave 0 $Z setParam _____PasHistogramme 2 $Z $DELETE $xTV/HISTOGRAMME$COORD_X $Z $DELETE $xTV/HISTOGRAMME$COORD_Y $Z set NPaQuEtS=$dimX $Z set TPaQuEtS=`calculINS $_____NPoints/$NPaQuEtS` $Z $xrv/distance.11$X \ $Z ne=$_____NPoints \ $Z LISTE_X=$xTV/POINTS.2$COORD_X \ $Z LISTE_Y=$xTV/POINTS.2$COORD_Y \ $Z LISTE_Z=$xTV/POINTS.2$COORD_Z \ $Z cumuler_valeurs_resultantes=VRAI moyenner_cumul_valeurs_resultantes=VRAI | \ $Z $xrv/un_sur_N.01$X \ $Z ne=$_____NPoints \ $Z fichier== \ $Z taille_paquets=$TPaQuEtS \ $Z nombre_paquets=$NPaQuEtS \ $Z Men_tete=FAUX \ $Z minimum=FAUX \ $Z maximum=FAUX \ $Z premier=FAUX \ $Z dernier=FAUX \ $Z moyenne=VRAI \ $Z cumul=FAUX \ $Z element_variable=FAUX \ $Z > $xTV/HISTOGRAMME$COORD_Y $Z # Calcul des moyennes des distances a l'origine... # $Z set NPoInTs=`$CA $xTV/HISTOGRAMME$COORD_Y | $WCl` $Z set LaRgEuR_H=`calculINS ($Xmax+1-$NPoInTs)/2` $Z set Xmin_H=`calculINS $Xmin+$LaRgEuR_H` $Z set Xmax_H=`calculINS $Xmax-$LaRgEuR_H` $Z $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs \ $Z vD=$Xmin_H vA=$Xmax_H \ $Z lineaire=VRAI \ $Z entiers=FAUX \ $Z > $xTV/HISTOGRAMME$COORD_X $Z # On notera le "entiers=FAUX" ('v $xci/valeurs_inte$K entier=FAUX' a ce propos...). # $Z $xrv/store_image$X \ $Z ne=$NPoInTs \ $Z pas=$_____PasHistogramme \ $Z Xdenormalisees=VRAI \ $Z LISTE_X=$xTV/HISTOGRAMME$COORD_X \ $Z Ydenormalisees=FAUX \ $Z LISTE_Y=$xTV/HISTOGRAMME$COORD_Y \ $Z demi_pave_XG=$_____DemiPave demi_pave_XD=$_____DemiPave \ $Z demi_pave_YG=$_____DemiPave demi_pave_YD=$_____DemiPave \ $Z epaississement_carre=VRAI \ $Z Ndenormalises=VRAI \ $Z LISTE_NIVEAU=$_____NHistogramme \ $Z histogramme=VRAI histogramme_vertical=VRAI \ $Z R=$xTV/HISTOGRAMME \ $Z $formatI $Z # Generation de l'histogramme des distances... # $Z execRVB $xci/cache$X \ $Z A=$_____ImageR%s \ $Z M=$xTV/HISTOGRAMME \ $Z R=$_____ImageR%s \ $Z $formatI