#cls
text(In-Form Equivalent Of PLANT Case Z622
title
libref=777
  DISPLAY
  In-Form is used for varying the y-direction extent of the grid,
  in the manner already used by PLANT.
  
  The PLANT formulae of Z622 are
        PLANTBEGIN
       YRAT=1.+:POWER:*DZ/(ZWADD+ZW)
      REGION(1,1,1,1) /IZ.LE.20
          YRAT=1.+:POWER:*(-1.)*DZ/(ZWADD+ZW)
         REGION(1,1,1,1) /IZ.GT.20.AND.IZ.LE.40
       YRAT=1.+:POWER:*1.*DZ/(ZWADD+ZW)
      REGION(1,1,1,1) /IZ.GT.40
       PLANTEND
  
  The equivalent In-Form formulae are
  (YGRID of YRAT is 1.+:POWER:*DZ/(ZWADD+ZZW) with IF(IZ.LE 
  .20.OR.IZ.GT.40))
  (YGRID of YRAT is 1.+:POWER:*(-DZ)/(ZWADD+ZZW) with IF(IZ
  .GT.20.AND.IZ.LE.40))
  
  ENDDIS
  PHOTON USE
  x;  parxyz
 
  rot y ang 180
  gr x 1
  msg        EXPANDING - CONTRACTING GRID, Y-Z
  msg Press E to end
  enduse

load(z622) 
text(In-Form equivalent of PLANT case Z622
libref=777
     ** The next line de-activates PLANT **
namsat=none
  In-Form Formulae
  
  !!!!! note the use of the IF condition !!!!!  
(YGRID of YRAT is 1.+:POWER:*DZ/(ZWADD+ZZW) with IF(IZ.LE$
.20.OR.IZ.GT.40))
(YGRID of YRAT is 1.+:POWER:*(-DZ)/(ZWADD+ZZW) with IF(IZ$
.GT.20.AND.IZ.LE.40))

DISTIL=T
EX(V1)=1.000E-10; EX(W1)=1.000E-10
STOP