+PROG   AQUA urs:1
    HEAD
    CTRL    FACE    NEG

    NORM    GB 50010-2010
    CONC    NO  TYPE    FCN
        1   C   50

    SECT    1

    TVAR    'B' 1
    TVAR    'H' 1
    TVAR    'A' '=#H+1-1'

    $ 箱梁外轮廓
    POLY    TYPE    MNO
        O   1
$    VERT    NO  Y   Z   !REFP
$        0   0   0                     ! this point is static
$        1   '=#B/2' 0   0
$        2   0   '=-#A'  1
$        3   '=-#B'  0   2
$        4   0   '=#A'   3
    VERT    NO  Y    Z
        1   '=#B/2'  0
        2   '=#B/2'  '=-#H+1-1'
        3   '=-#B/2' '=-#H+1-1'
        4   '=-#B/2' 0

!!!!!!!!!!!!!
    SECT    11

    STO#B 1
    TVAR    'H' 0       ! only H is defined in SOFiMSHC

    $ 箱梁外轮廓
    POLY    TYPE    MNO
        O   1
    VERT    NO  Y               Z
             1   '=#B/2'        0
             2   '=#B/2'        '=-#H+1-1,-1.3'
             3   '=-#B/2'       '=-#H+1-1,-1.3'
             4   '=-#B/2'       0


END

    +PROG   SofimshC urs:2
    SYST    TYPE    GDIV    GDIR
        3D  1000    NEGZ
    GAX 'AXIS'
    GAXA    S   X   Y   SX  SY
        0   0   0   1   0
            L   R
            200 300.75
    GAXP    ID  S   TYPE    TITL
        'AXIS'  0   'S' 'CL Abut 1'
        'AXIS'  32.47   'S' 'Pier 2'
        'AXIS'  74.47   'S' 'Pier 3'
        'AXIS'  106.94  'S' 'CL Abut 4'
    GAXV    ID  NAME    S   V   TYPE
        'AXIS'  'H'   0   1.5 POLY
        'AXIS'  'H'   11.47   1.5 D*
        'AXIS'  'H'   31.47   3   POLY
        'AXIS'  'H'   33.47   3   D-
        'AXIS'  'H'   53.47   1.5 D*
        'AXIS'  'H'   73.47   3   D+
        'AXIS'  'H'   75.47   3   POLY
        'AXIS'  'H'   95.47   1.5 D*
        'AXIS'  'H'   106.94  1.5 POLY
    SPT NO  REF NREF    SX  FIX
        100 AX  'AXIS'  0   PPMM
        101 AX  'AXIS'  32.47   PP
        102 AX  'AXIS'  74.47   PP
        103 AX  'AXIS'  106.94  PP
    SLN NO  NPA NPE REF GRP STYP    SNO
        101 100 101 'AXIS'    1   B   1
        102 101 102 'AXIS'    1   B   1
        103 102 103 'AXIS'    1   B   1
    CTRL    MESH    1    HMIN   1[m]

    END



+PROG AQUA urs:3
HEAD INTERPOLATE ALL SECTIONS
ECHO SECT
INTE ALL
END

    +PROG   Sofiload urs:4
    ACT G

    LC  1   G   DLZ -1

    END

    +PROG   ASE urs:5

    LC  ALL

    END