#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   I M A G E S   D U   M O D E L E   D ' I S I N G                                               #
#         D E S T I N E   A   V O I R   L ' E F F E T   D E   L ' E L E V A T I O N   D E   L A   T E M P E R A T U R E  :            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000010/face.2/.ISIN.8.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20050824154105).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Npremiere                1

$Z                  SETParam            _____Nderniere                64

$Z                  setParam            _____Iterations               1000

$Z                  SETParam            _____TemperatureD             0.1

$Z                  SETParam            _____TemperatureA             0.6

$Z                  setParam            _____Graine                   1111

$Z                  SETParam            _____AffinerRdn               FAUX

$Z                  SETParam            _____ItererRdn                FAUX

$Z                  SETParam            _____DeltaX                   0

$Z                  SETParam            _____DeltaY                   0

$Z                  SETParam            _____PeriodiserX              FAUX

$Z                  SETParam            _____PeriodiserY              FAUX

$Z                  Pal

$Z                  $xci/random.02$X                                                                                                    \
$Z                                      graine=$_____Graine                                                                             \
$Z                                      affiner_rdn=$_____AffinerRdn                                                                    \
$Z                                      iterer_rdn=$_____ItererRdn                                                                      \
$Z                                      R=$xTV/INITIAL                                                                                  \
$Z                                                                                                                      $formatI

$c                  #include  <stdio.h>
$c
$c                  #define   N0        _____Npremiere
$c                  #define   N         _____Nderniere
$c
$c                  #define   TD        _____TemperatureD
$c                  #define   TA        _____TemperatureA
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    temperature=((TA*(n-N0))+(TD*(N-n)))/(N-N0);;
$c
$c                                      printf("$xci/Ising_2D.11$X
$c                                                          A=$xTV/INITIAL
$c                                                          premiere=%d
$c                                                          derniere=%d
$c                                                          initiales=FAUX
$c                                                          iterations=$_____Iterations
$c                                                          temperature=%f
$c                                                          affiner_rdn=$_____AffinerRdn
$c                                                          iterer_rdn=$_____ItererRdn
$c                                                          dX=$_____DeltaX
$c                                                          dY=$_____DeltaY
$c                                                          periodiser_X=$_____PeriodiserX
$c                                                          periodiser_Y=$_____PeriodiserY
$c                                                          R=$_____images.
$c                                                          $formatI\n"
$c                                            ,n
$c                                            ,n
$c                                            ,temperature
$c                                             );
$c                                      }
$c                            }

$Z                  $DELETE   $xTV/INITIAL