zone.lay

有限元求解柏松方程。本文采用FORTRAN语言编制程序。程序中大部分变量采用有名公共区存储方式存储

#!MC 1000
$!VarSet |LFDSFN1| = '"DAT"'
$!VarSet |LFDSVL1| = '"X" "Y" "F" "DIFX" "DIFY"'
$!SETSTYLEBASE FACTORY
$!PAPER 
  BACKGROUNDCOLOR = WHITE
  ISTRANSPARENT = YES
  ORIENTPORTRAIT = NO
  SHOWGRID = YES
  SHOWRULER = YES
  SHOWPAPER = YES
  PAPERSIZE = LETTER
  PAPERSIZEINFO
    {
    LETTER
      {
      WIDTH = 8.5
      HEIGHT = 11
      LEFTHARDCLIPOFFSET = 0.125
      RIGHTHARDCLIPOFFSET = 0.125
      TOPHARDCLIPOFFSET = 0.125
      BOTTOMHARDCLIPOFFSET = 0.125
      }
    }
  RULERSPACING = ONEINCH
  PAPERGRIDSPACING = HALFINCH
  REGIONINWORKAREA
    {
    X1 = -0.05
    Y1 = -0.05
    X2 = 11.05
    Y2 = 8.55
    }
$!COLORMAP 
  CONTOURCOLORMAP = SMRAINBOW
$!COLORMAPCONTROL RESETTOFACTORY
### Frame Number 1 ###
$!READDATASET  '|LFDSFN1|' 
  INITIALPLOTTYPE = CARTESIAN2D
  INCLUDETEXT = NO
  INCLUDEGEOM = NO
  VARLOADMODE = BYNAME
  VARNAMELIST = '|LFDSVL1|' 
$!REMOVEVAR |LFDSVL1|
$!REMOVEVAR |LFDSFN1|
$!FRAMELAYOUT 
  SHOWBORDER = NO
  ISTRANSPARENT = YES
  HEADERCOLOR = RED
  XYPOS
    {
    X = 0
    Y = 0
    }
  WIDTH = 8
  HEIGHT = 8
$!PLOTTYPE  = CARTESIAN2D
$!FRAMENAME  = 'Frame 001' 
$!ACTIVEFIELDZONES  =  [1]
$!GLOBALRGB 
  RANGEMIN = 0
  RANGEMAX = 1
$!GLOBALCONTOUR  1
  LEGEND
    {
    XYPOS
      {
      X = 95
      }
    }
  COLORMAPFILTER
    {
    CONTINUOUSCOLOR
      {
      CMIN = 0
      CMAX = 1
      }
    }
$!GLOBALCONTOUR  2
  LEGEND
    {
    XYPOS
      {
      X = 95
      }
    }
  COLORMAPFILTER
    {
    CONTINUOUSCOLOR
      {
      CMIN = 0
      CMAX = 1
      }
    }
$!GLOBALCONTOUR  3
  LEGEND
    {
    XYPOS
      {
      X = 95
      }
    }
  COLORMAPFILTER
    {
    CONTINUOUSCOLOR
      {
      CMIN = 0
      CMAX = 1
      }
    }
$!GLOBALCONTOUR  4
  LEGEND
    {
    XYPOS
      {
      X = 95
      }
    }
  COLORMAPFILTER
    {
    CONTINUOUSCOLOR
      {
      CMIN = 0
      CMAX = 1
      }
    }
$!GLOBALSCATTER 
  LEGEND
    {
    XYPOS
      {
      X = 95
      }
    }
  REFSCATSYMBOL
    {
    COLOR = RED
    FILLCOLOR = RED
    }
$!FIELD  [1]
  MESH
    {
    COLOR = BLACK
    }
  CONTOUR
    {
    CONTOURTYPE = FLOOD
    COLOR = RED
    USELIGHTINGEFFECT = YES
    }
  VECTOR
    {
    COLOR = RED
    }
  SCATTER
    {
    COLOR = RED
    }
  SHADE
    {
    COLOR = WHITE
    }
  BOUNDARY
    {
    SHOW = YES
    COLOR = BLACK
    }
  POINTS
    {
    POINTSTOPLOT = SURFACENODES
    }
  SURFACES
    {
    SURFACESTOPLOT = KPLANES
    }
  VOLUMEMODE
    {
    VOLUMEOBJECTSTOPLOT
      {
      SHOWISOSURFACES = NO
      SHOWSLICES = NO
      SHOWSTREAMTRACES = NO
      }
    }
$!TWODAXIS 
  XDETAIL
    {
    VARNUM = 1
    }
  YDETAIL
    {
    VARNUM = 2
    }
$!VIEW FIT
$!TWODAXIS 
  DEPXTOYRATIO = 1
  VIEWPORTPOSITION
    {
    X2 = 90
    Y2 = 90
    }
  VIEWPORTTOPSNAPTARGET = 90
$!TWODAXIS 
  XDETAIL
    {
    RANGEMIN = 0
    RANGEMAX = 3.4428441333644959
    GRSPACING = 0.5
    }
$!TWODAXIS 
  YDETAIL
    {
    RANGEMIN = 0
    RANGEMAX = 3.5322686563090286
    GRSPACING = 0.5
    }
$!GLOBALISOSURFACE 
  MARCHINGCUBEALGORITHM = CLASSICPLUS
$!GLOBALSLICE 
  BOUNDARY
    {
    SHOW = NO
    }
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 31.684303351
    Y = 12.6532186949
    }
  TEXT = '2' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 14.8104056437
    Y = 12.4636243386
    }
  TEXT = '1' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 48.7477954144
    Y = 12.6532186949
    }
  TEXT = '3' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 66.0008818342
    Y = 12.8428130511
    }
  TEXT = '4' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 84.3915343915
    Y = 12.6532186949
    }
  TEXT = '5' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 14.4312169312
    Y = 29.5271164021
    }
  TEXT = '6' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 31.3051146385
    Y = 29.7167107584
    }
  TEXT = '7' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 48.3686067019
    Y = 29.7167107584
    }
  TEXT = '8' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 65.6216931217
    Y = 29.9063051146
    }
  TEXT = '9' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 84.012345679
    Y = 29.7167107584
    }
  TEXT = '10' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 14.0520282187
    Y = 82.0447530864
    }
  TEXT = '21' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 30.925925926
    Y = 82.2343474427
    }
  TEXT = '22' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 47.9894179894
    Y = 82.2343474427
    }
  TEXT = '23' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 65.2425044092
    Y = 82.4239417989
    }
  TEXT = '24' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 83.6331569665
    Y = 82.2343474427
    }
  TEXT = '25' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 65.8112874779
    Y = 47.5385802469
    }
  TEXT = '14' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 84.2019400352
    Y = 47.3489858907
    }
  TEXT = '15' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 48.5582010581
    Y = 47.3489858907
    }
  TEXT = '13' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 31.4947089947
    Y = 47.3489858907
    }
  TEXT = '12' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 14.6208112874
    Y = 47.1593915344
    }
  TEXT = '11' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 66.0008818342
    Y = 64.7916666666
    }
  TEXT = '19' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 84.3915343915
    Y = 64.6020723104
    }
  TEXT = '20' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 48.7477954144
    Y = 64.6020723104
    }
  TEXT = '18' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 31.684303351
    Y = 64.6020723104
    }
  TEXT = '17' 
$!ATTACHTEXT 
  ANCHORPOS
    {
    X = 14.8104056437
    Y = 64.4124779541
    }
  TEXT = '16' 
$!ATTACHGEOM 
  ANCHORPOS
    {
    Y = 0.785399973392
    }
  RAWDATA
1
2
0 0 
0.785399973392 -0.785399973392 
$!ATTACHGEOM 
  ANCHORPOS
    {
    Y = 1.57079994678
    }
  RAWDATA
1
2
0 0 
1.57079994678 -1.57079994678 
$!ATTACHGEOM 
  ANCHORPOS
    {
    Y = 2.35619997978
    }
  RAWDATA
1
2
0 0 
2.35619997978 -2.35619997978 
$!ATTACHGEOM 
  ANCHORPOS
    {
    Y = 3.14159989357
    }
  RAWDATA
1
2
0 0 
3.14159989357 -3.14159989357 
$!ATTACHGEOM 
  ANCHORPOS
    {
    X = 0.785399973392
    Y = 3.14159989357
    }
  RAWDATA
1
2
0 0 
2.35619997978 -2.35619997978 
$!ATTACHGEOM 
  ANCHORPOS
    {
    X = 1.57079994678
    Y = 3.14159989357
    }
  RAWDATA
1
2
0 0 
1.57079994678 -1.57079994678 
$!ATTACHGEOM 
  ANCHORPOS
    {
    X = 2.35619997978
    Y = 3.14159989357
    }
  RAWDATA
1
2
0 0 
0.785399913788 -0.785399913788 
$!SETSTYLEBASE CONFIG