/config,nres,20000
/PREP7
ET,1,BEAM188
ET,2,SHELL181
ET,3,SOLID65
SECTYPE, 1, BEAM, I,beam
SECOFFSET, CENT
SECDATA,200,200,200,12,12,8
SECTYPE, 2, BEAM, I,column
SECOFFSET, CENT
SECDATA,200,200,200,12,12,8
R,3,4, , , , , ,
RMORE, , , , , , ,
R,4,1,0.015,0,0,1,0.015
RMORE,90,0, , , , ,
RMORE, ,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.06e5
MPDATA,PRXY,1,,0.3
TB,BKIN,1
MPTEMP,,,,,,,,
MPTEMP,1,0
TBDATA,,235,2060,,,,
MPDATA,EX,2,,30000
MPDATA,PRXY,2,,0.2
TB,CONC,2,1,9,
TBTEMP,0
TBDATA,,0.25,0.9,1.29,-1,,
k,1
k,2,0,1000,0
k,3,1800,1000
k,4,1800
k,5000,-500
k,5001,500,1500,0
k,5002,2000,500
l,1,2
l,2,3
l,3,4
lsel,s,,,1
LATT,1,,1,,5000,,2
lesize,1,25,,,,,,,1
lsel,s,,,2
LATT,1,,1,,5001,,1
lesize,2,30,,,,,,,1
lsel,s,,,3
LATT,1,,1,,5002,,2
lesize,3,25,,,,,,,1
lsel,all
lmesh,all
/eshape,1
eplot
RECTNG,450,1350,0,1000
aatt,1,3,2,,
lsel,s,,,5,7,2
lesize,5,25,,,,,,,1
lesize,7,25,,,,,,,1
lsel,s,,,4,6,2
lesize,4,30,,,,,,,1
lesize,6,30,,,,,,,1
amesh,1

block,450,1350,90,810,4,64
vatt,2,4,3,,
lsel,s,,,10
lesize,10,20,,,,,,,1
lsel,s,,,13
lesize,13,20,,,,,,,1
lsel,s,,,15
lesize,15,20,,,,,,,1
lsel,s,,,8
lesize,8,20,,,,,,,1
lsel,s,,,9
lesize,9,30,,,,,,,1
lsel,s,,,14
lesize,14,30,,,,,,,1
lsel,s,,,12
lesize,12,30,,,,,,,1
lsel,s,,,11
lesize,11,30,,,,,,,1
lsel,s,,,16,19,1
lesize,16,30,,,,,,,1
lesize,17,30,,,,,,,1
lesize,18,30,,,,,,,1
lesize,19,30,,,,,,,1
vsel,all
vsweep,1
allsel,all



/SOL
FINISH
/PREP7
FLST,4,42,1,ORDE,5
FITEM,4,112
FITEM,4,-132
FITEM,4,343
FITEM,4,383
FITEM,4,-402
CP,1,ALL,P51X
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/VIEW,1,,,-1
/ANG,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST, 1, 663.777421210
/ANG, 1, -2.40000000000
/REPLO
/VIEW,1,,,-1
/ANG,1
/REP,FAST
/FOC, 1, 867.907985850 , 649.899316460 , 0.00000000000
/REPLO
/FOC, 1, 857.951324532 , 510.506058006 , 0.00000000000
/REPLO
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/FOC, 1, 854.809229094 , 340.832904357 , 0.00000000000
/REPLO
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/FOC, 1, 855.954522881 , 265.816161300 , 0.00000000000
/REPLO
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
/FOC, 1, 859.040454558 , 199.468630237 , 0.00000000000
/REPLO
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
FLST,4,4,1,ORDE,4
FITEM,4,1036
FITEM,4,1331
FITEM,4,2364
FITEM,4,3365
CP,100,ALL,P51X
FLST,4,4,1,ORDE,4
FITEM,4,802
FITEM,4,1325
FITEM,4,2370
FITEM,4,3371
CP,110,ALL,P51X
FLST,4,4,1,ORDE,4
FITEM,4,568
FITEM,4,1319
FITEM,4,2376
FITEM,4,3377
CP,120,ALL,P51X
/FOC, 1, 852.124066083 , 284.112051096 , 0.00000000000
/REPLO
/FOC, 1, 849.818603258 , 381.929545240 , 0.00000000000
/REPLO
/FOC, 1, 849.818603258 , 418.158246775 , 0.00000000000
/REPLO
FLST,4,4,1,ORDE,4
FITEM,4,1044
FITEM,4,1521
FITEM,4,2174
FITEM,4,3175
CP,130,ALL,P51X
FLST,4,4,1,ORDE,4
FITEM,4,810
FITEM,4,1515
FITEM,4,2180
FITEM,4,3181
CP,140,ALL,P51X
FLST,4,4,1,ORDE,4
FITEM,4,576
FITEM,4,1509
FITEM,4,2186
FITEM,4,3187
CP,150,ALL,P51X
/FOC, 1, 830.057493330 , 547.593516805 , 0.00000000000
/REPLO
/FOC, 1, 852.124066083 , 605.230087429 , 0.00000000000
/REPLO
FLST,4,4,1,ORDE,4
FITEM,4,1052
FITEM,4,1711
FITEM,4,1984
FITEM,4,2985
CP,160,ALL,P51X
FLST,4,4,1,ORDE,4
FITEM,4,818
FITEM,4,1705
FITEM,4,1990
FITEM,4,2991
CP,170,ALL,P51X
FLST,4,4,1,ORDE,4
FITEM,4,584
FITEM,4,1699
FITEM,4,1996
FITEM,4,2997
CP,180,ALL,P51X
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/AUTO,1
/REP,FAST
!*
!*
/COM, CONTACT PAIR CREATION - START
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
/GSAV,cwz,gsav,,temp
MP,MU,3,
MAT,3
MP,EMIS,3,7.88860905221e-031
R,5
REAL,5
ET,4,170
ET,5,174
R,5,,,1.0,0.1,0,
RMORE,,,1.0E20,0.0,1.0,
RMORE,0.0,0,1.0,,1.0,0.5
RMORE,0,1.0,1.0,0.0,,1.0
KEYOPT,5,4,0
KEYOPT,5,5,3
KEYOPT,5,7,0
KEYOPT,5,8,0
KEYOPT,5,9,0
KEYOPT,5,10,2
KEYOPT,5,11,0
KEYOPT,5,12,0
KEYOPT,5,2,0
KEYOPT,4,5,0
! Generate the target surface
ASEL,S,,,1
CM,_TARGET,AREA
TYPE,4
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,2
CM,_CONTACT,AREA
TYPE,5
NSLA,S,1
ESLN,S,0
ESURF
*SET,_REALID,5
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,4
ESEL,A,TYPE,,5
ESEL,R,REAL,,5
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,4
ESEL,A,TYPE,,5
ESEL,R,REAL,,5
CMSEL,A,_NODECM
CMDEL,_NODECM
CMSEL,A,_ELEMCM
CMDEL,_ELEMCM
CMSEL,S,_KPCM
CMDEL,_KPCM
CMSEL,S,_LINECM
CMDEL,_LINECM
CMSEL,S,_AREACM
CMDEL,_AREACM
CMSEL,S,_VOLUCM
CMDEL,_VOLUCM
/GRES,cwz,gsav
CMDEL,_TARGET
CMDEL,_CONTACT
/COM, CONTACT PAIR CREATION - END
ALLSEL,ALL
/REPLOT
/MREP,EPLOT
/solu
d,1,all
d,242,all
dl,4,1,all
f,2,fy,-300000
f,82,fy,-300000
ANTYPE,0
ANTYPE,0
NLGEOM,0
NSUBST,30,0,0
OUTRES,ERASE
OUTRES,ALL,ALL
CUTCONTROL,CRPLIMITexp,0.05,0
RESCONTRL,DEFINE,ALL,ALL,1
time,1
d,2,ux,2
lswrite,1
time,2
d,2,ux,-2
lswrite,2
time,3
d,2,ux,4
lswrite,3
time,4
d,2,ux,-4
lswrite,4
time,5
d,2,ux,6
lswrite,5
time,6
d,2,ux,-6
lswrite,6
time,7
d,2,ux,8
lswrite,7
time,8
d,2,ux,-8
lswrite,8
time,9
d,2,ux,10
lswrite,9
time,10
d,2,ux,-10
lswrite,10
time,11
d,2,ux,13
lswrite,11
time,12
d,2,ux,-13
lswrite,12
time,13
d,2,ux,16
lswrite,13
time,14
d,2,ux,-16
lswrite,14
time,15
d,2,ux,19
lswrite,15
time,16
d,2,ux,-19
lswrite,16
time,17
d,2,ux,22
lswrite,17
time,18
d,2,ux,-22
lswrite,18
time,19
d,2,ux,25
lswrite,19
time,20
d,2,ux,-25
lswrite,20
time,21
d,2,ux,28
lswrite,21
time,22
d,2,ux,-28
lswrite,22
time,23
d,2,ux,31
lswrite,23
time,24
d,2,ux,-31
lswrite,24
time,25
d,2,ux,34
lswrite,25
time,26
d,2,ux,-34
lswrite,26
time,27
d,2,ux,39
lswrite,27
time,28
d,2,ux,-39
lswrite,28
time,29
d,2,ux,44
lswrite,29
time,30
d,2,ux,-44
lswrite,30
time,31
d,2,ux,49
lswrite,31
time,32
d,2,ux,-49
lswrite,32
LSSOLVE,1,32,1,