#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N C H A M P D E F I B R E S A L E A T O I R E S : #
# #
# #
# Author of '$xivP/disk.000000006/face.2/.RAND.3.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SET Premiere=1
$Z SET Derniere=128
$Z setParam _____Gauss 128
$Z SETParam _____SEUIL_1_1 126
$Z SETENV SEUIL_1_1 $_____SEUIL_1_1
$Z SETParam _____SEUIL_1_N 253
$Z SETENV SEUIL_1_N $_____SEUIL_1_N
$Z SETParam _____INF_____1 140
$Z SETENV INF_____1 $_____INF_____1
$Z SETParam _____INF_____N 170
$Z SETENV INF_____N $_____INF_____N
$Z SETParam _____SUP_____1 150
$Z SETENV SUP_____1 $_____SUP_____1
$Z SETParam _____SUP_____N 180
$Z SETENV SUP_____N $_____SUP_____N
$Z SETParam _____SEUIL_2_1 80
$Z SETENV SEUIL_2_1 $_____SEUIL_2_1
$Z SETParam _____SEUIL_2_N 200
$Z SETENV SEUIL_2_N $_____SEUIL_2_N
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'... #
$Z Sdu
$Z $xci/gauss$X \
$Z c=$_____Gauss \
$Z R=$xTV/RANDOM.12 \
$Z $formatI
$Z $xci/gauss$X \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z $xci/random.01$X \
$Z graine=2 \
$Z R=$xTV/RANDOM.13 \
$Z $formatI
$c #include <stdio.h>
$c
$c extern int atoi();
$c extern char *getenv();
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define SEUIL_1_1 (atoi(getenv("SEUIL_1_1")))
$c #define SEUIL_1_N (atoi(getenv("SEUIL_1_N")))
$c
$c #define INF_____1 (atoi(getenv("INF_____1")))
$c #define INF_____N (atoi(getenv("INF_____N")))
$c
$c #define SUP_____1 (atoi(getenv("SUP_____1")))
$c #define SUP_____N (atoi(getenv("SUP_____N")))
$c
$c #define SEUIL_2_1 (atoi(getenv("SEUIL_2_1")))
$c #define SEUIL_2_N (atoi(getenv("SEUIL_2_N")))
$c
$c #define BARY(a,b) (int)(((double)((((a)*(N-n)))+((b)*(n-N0))))/((double)(N-N0)))
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c int seuil_1_1=BARY(SEUIL_1_1,SEUIL_1_N);
$c int inf______=BARY(INF_____1,INF_____N);
$c int sup______=BARY(SUP_____1,SUP_____N);
$c int seuil_2_1=BARY(SEUIL_2_1,SEUIL_2_N);
$c
$c printf("$xci/filtre.01$X
$c A=$xTV/RANDOM.13
$c N=$xTV/RANDOM.12
$c seuil=%d
$c $formatI |
$c $xci/passe_bande$X
$c inf=%d
$c sup=%d
$c R=$xTV/RANDOM.34
$c $formatI\n"
$c ,seuil_1_1
$c ,inf______
$c ,sup______
$c );
$c
$c printf("$xci/Sy$X
$c A=$xTV/RANDOM.34
$c $formatI |
$c $xci/minmax$X
$c A1=$xTV/RANDOM.34
$c R=$xTV/RANDOM.45
$c $formatI\n"
$c );
$c printf("$xci/Sx$X
$c A=$xTV/RANDOM.45
$c $formatI |
$c $xci/minmax$X
$c A1=$xTV/RANDOM.45
$c $formatI |
$c $xci/acces$X
$c r=VRAI
$c $formatI |
$c $xci/filtre.01$X
$c N=$xTV/GAUSS
$c seuil=%d
$c $formatI |
$c $xci/format.01$X
$c $formatI
$c mode=7
$c R=$_____imagesR.%04d
$c $formatR_Pal\n"
$c ,seuil_2_1
$c ,n
$c );
$c }
$c }
$Z Pal