#$r002
 
LOAD(R111)
   *  GROUP 1.  Run identifiers and other preliminaries.
TEXT(1-D TRANSIENT : R119
   VRV USE
  * Start of frame
  P
  parphi;;;;
  SCALE  1.000000E+00 1.000000E+00 1.000000E-04
  PROBE  5.000000E-01  1.093750E-01  5.000000E-01
  SLICE X
  VIEW -1.000000E+00  0.000000E+00  0.000000E+00
  UP  0.000000E+00  1.000000E+00  0.000000E+00
  VIEW CENTRE  5.000000E-01  5.000000E-01  5.000000E+03
  VIEW SIZE  8.313845E-01
  VIEW DEPTH  3.000000E+00;VIEW TILT 0.8
  WIREFRAME ON
  VARIABLE Temperature
  CONTOUR ON
  MSG Z axis represents time
  PAUSE
  ENDUSE
TITLE
  DISPLAY
   This case is identical to case R111 except that the expected
   steady-state solution is achieved asymptotically through
   a unsteady calculation.

   The Q1 contains a Viewer Macro. Press F3 in the Viewer to run it.
  ENDDIS
   *  GROUP 2.  Time-dependence and related parameters.
STEADY=F;GRDPWR(T,50,10000,1)
STORE(SPH1)
FIINIT(TEM1)=293
PATCH(TFIXL,SWALL,#1,#1,#1,#1,#1,#1,1,LSTEP)
PATCH(TFIXR,NWALL,#1,#1,#2,#2,#1,#1,1,LSTEP)
PATCH(@RI001,SOUTH,#1,#1,#1,#1,#1,#1,1,LSTEP)
PATCH(@RI002,SOUTH,#1,#1,#2,#2,#1,#1,1,LSTEP)
LSWEEP=100
RESFAC=1E-5
IDISPA=1; NTPRIN=5
SPEDAT(SET,GXMONI,TRANSIENT,L,F)
STOP