TITLE : PLANT for simulation of moving objects

    BY               : S.V.ZHUBRIN
    FOR              : Technical-discussion meeting
    DATE             : September 1997
    PHOENICS Version : 3.1

The pictures show an example of PLANT application to introduce the simulation technique having the following features:-

1. PLANT generates a MARK-linked pices of codings which fix values of velocities of moving object as a function of X, Y, Z and time.
2. PLANT generates a coding in which the in-cell values of MARK are functions of X, Y, Z and time.

A series of PHOTON plots describe the fluid movements around solid object taking off from the bottom of enclosed cavity.

At 1 sec.

At 2 sec.

At 3 sec.

At 4 sec.

At 5 sec.

At 6 sec.

At 7 sec.

At 8 sec.

Appendix. The extractions from Q1 file.

      NAMSAT=MOSG
      REAL(UIN,VIN,XW,XE,VW,UW,YS,YN,PROP)
      PROP=50.
      XW=0.;XE=3.;UW=1.;VW=.2;YS=0.0;YN=0.9
      RG(1)=XW;RG(2)=XE;RG(3)=UW
      RG(4)=YS;RG(5)=YN;RG(6)=VW
      RG(7)=PROP

      PATCH(SS050U,EAST,1,NX,1,NY,1,NZ,1,lstep)
         CO=1.e10
         VAL=RG(3)
      COVAL(SS050U,U1,GRND,GRND)
         CO=1.e10
         VAL=RG(6)
      COVAL(SS050U,V1,GRND,GRND)

         MARK=0.5*(AMAX1(ABS(XU2D-(RG(1)+RG(3)*TIM))/$
                       (XU2D-(RG(1)+RG(3)*TIM)-1.e-05) ,0.0)+$
                       AMIN1(ABS((RG(2)+RG(3)*TIM-XU2D))/    $
                       ((RG(2)+RG(3)*TIM)+1.e-05-XU2D) ,0.0)+$
                       AMAX1(ABS(YV2D-(RG(4)+RG(6)*TIM))/    $
                       (YV2D-(RG(4)+RG(6)*TIM)-1.e-05) ,0.0)+$
                       AMIN1(ABS((RG(5)+RG(6)*TIM-YV2D))/    $
                       ((RG(5)+RG(6)*TIM)+1.e-05-YV2D) ,0.0))
        MARK =RG(7)*AMAX1((PRPS-1)/ABS(PRPS-1),0.0)