#######################################################################################################################################
# #
# I N T E R P O L A T I O N E N T R E D E U X C H A M P S B I D I M E N S I O N N E L S : #
# #
# #
# Author of '$xiirv/.STRU.N1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20081009155050). #
# #
#######################################################################################################################################
$Z if ($?Premiere == $NEXIST) then
$Z SET Premiere=1
$Z else
$Z endif
$Z if ($?Derniere == $NEXIST) then
$Z SET Derniere=16
$Z else
$Z endif
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define Olambda 0.0
$c #define Elambda 1.0
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double lambda=((Elambda*(n-N0))+(Olambda*(N-n)))/(N-N0);
$c
$c printf("$xci/interpole.01$X
$c standard=FAUX
$c alpha=%f
$c A1=$xTV/CHAMP.1$COORD_X
$c beta=%f
$c A2=$xTV/CHAMP.2$COORD_X
$c $formatI |
$c $xci/normalise.01$X
$c origine=0 extremite=+1
$c R=$_____imagesS$COORD_X.%04d
$c $formatI\n"
$c ,1-lambda,lambda
$c ,n
$c );
$c printf("$xci/interpole.01$X
$c standard=FAUX
$c alpha=%f
$c A1=$xTV/CHAMP.1$COORD_Y
$c beta=%f
$c A2=$xTV/CHAMP.2$COORD_Y
$c $formatI |
$c $xci/normalise.01$X
$c origine=0 extremite=+1
$c R=$_____imagesS$COORD_Y.%04d
$c $formatI\n"
$c ,1-lambda,lambda
$c ,n
$c );
$c /* Interpolation entre les deux champs bidimensionnels... */
$c }
$c }