#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E L I S T E D E V O I S I N S #
# T R I D I M E N S I O N N E L S A L E A T O I R E S H E T E R O G E N E S G A U S S I E N S : #
# #
# #
# Author of '$xiirv/.CARB.A1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20150826092222). #
# #
#######################################################################################################################################
$Z setParam _____Format "Suq"
$Z # Parametre introduit le 20150929103024... #
$Z SETParam _____FGraine 2001
$Z setParam _____NiveauNoeuds $BLANC
$Z setParam _____FPalette $xiP/gris.41
$Z SETParam _____RGraine 1947
$Z SETParam _____RFacteur 0.02
$Z SformatI
#20150929103024____:$Z Suq #
$Z eval "$_____Format"
$c #define N0 _____TriPremiere
$c #define N (_____TriPremiere+_____TriZmax-_____TriZmin)
$c
$c #define GAUSS 4.0
$c
$c #define OZ (-0.5)
$c #define EZ (+0.5)
$c
$c #define GRAINE _____RGraine
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0);
$c
$c printf("$xci/gauss$X
$c c=%f
$c Z=%.16f
$c $formatI |
$c $xci/substitue$X
$c p=$_____FPalette
$c substitution=L_SUBSTITUTION_ROUGE
$c $formatI |
$c $xci/random.03$X
$c graine=%d
$c niveau_du_fond=$NOIR
$c niveau_de_marquage=$_____NiveauNoeuds
$c facteur=$_____RFacteur
$c R=$_____ImageN.%04d
$c $formatI\n"
$c ,GAUSS
$c ,Z
$c ,((n-N0+1)*GRAINE)
$c ,n
$c );
$c }
$c
$c }
$Z RformatI