/prep7
!	
! ***file1.db***
!
! add corner elements
!
d1=0.031998
d2=0.01270
ncs=20
*get,nmx,node,,num,maxd
et,245,95
!
*dim,ncr1,,6
*vfill,ncr1(1),data,416608,438313,433250,380157,385993,376555
*do,i,1,6
ndo=ncr1(i)
ndx=ndo+82
ndy=ndo+1013
nd1=ndo+8
nd2=ndo+44
nd3=ndo+998
nd4=ndo+1046
nd5=ndo+1035
cs,ncs,0,ndo,ndx,ndy
n,nmx+1,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)
n,nmx+2,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)+d2	! B*R & T*L
n,nmx+3,nx(ndo)+d1,ny(ndo),nz(ndo)+d2*1.2
n,nmx+4,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)+d2*1.2
mat,113 $real,125 $type,245
e,ndo,ndx,nmx+1,ndy,nd1,nd2,nmx+2,nd3
e,nd4,nmx+3,nmx+4,nd5,nd1,nd2,nmx+2,nd3
ncs=ncs+1
nmx=nmx+4
*enddo
!
*dim,ncl1,,5
*vfill,ncl1(1),data,424613,429648,421011,394658,389595
*do,i,1,5
ndo=ncl1(i)
ndx=ndo+82
ndy=ndo+1013
nd1=ndo+8
nd2=ndo+44
nd3=ndo+998
nd4=ndo+1046
nd5=ndo+1035
cs,ncs,0,ndo,ndx,ndy
n,nmx+1,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)
n,nmx+2,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)-d2	! B*L & T*R
n,nmx+3,nx(ndo)+d1,ny(ndo),nz(ndo)-d2*1.2
n,nmx+4,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)-d2*1.2
e,ndo,ndx,nmx+1,ndy,nd1,nd2,nmx+2,nd3
e,nd4,nmx+3,nmx+4,nd5,nd1,nd2,nmx+2,nd3
ncs=ncs+1
nmx=nmx+4
*enddo
!
*dim,ncr2,,5
*vfill,ncr2(1),data,422894,427929,419292,392939,387876
*do,i,1,5
ndo=ncr2(i)
ndx=ndo+39
ndy=ndo+2511
nd1=ndo-1
nd2=ndo+81
nd3=ndo+2496
nd4=ndo+2613
nd5=ndo+2542
cs,ncs,0,ndo,ndx,ndy
n,nmx+1,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)
n,nmx+2,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)+d2	! B*R & T*L
n,nmx+3,nx(ndo)+d1,ny(ndo),nz(ndo)+d2*1.2
n,nmx+4,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)+d2*1.2
e,ndo,ndx,nmx+1,ndy,nd1,nd2,nmx+2,nd3
e,nd4,nmx+3,nmx+4,nd5,nd1,nd2,nmx+2,nd3
ncs=ncs+1
nmx=nmx+4
*enddo
!
*dim,ncl2,,6
*vfill,ncl2(1),data,414889,436594,431531,378438,384274,374836
*do,i,1,6
ndo=ncl2(i)
ndx=ndo+39
ndy=ndo+2511
nd1=ndo-1
nd2=ndo+81
nd3=ndo+2496
nd4=ndo+2613
nd5=ndo+2542
cs,ncs,0,ndo,ndx,ndy
n,nmx+1,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)
n,nmx+2,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)-d2	! B*L & R*R
n,nmx+3,nx(ndo)+d1,ny(ndo),nz(ndo)-d2*1.2
n,nmx+4,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)-d2*1.2
e,ndo,ndx,nmx+1,ndy,nd1,nd2,nmx+2,nd3
e,nd4,nmx+3,nmx+4,nd5,nd1,nd2,nmx+2,nd3
ncs=ncs+1
nmx=nmx+4
*enddo
!
ndo=370950
ndx=ndo+39
ndy=ndo+1754
nd1=ndo-1
nd2=ndo+81
nd3=ndo+1739
nd4=ndo+3084
nd5=ndo+2697
cs,ncs,0,ndo,ndx,ndy
n,nmx+1,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)
n,nmx+2,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)+d2	! top left3
n,nmx+3,nx(ndo)+d1,ny(ndo),nz(ndo)+d2*1.2
n,nmx+4,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)+d2*1.2
e,ndo,ndx,nmx+1,ndy,nd1,nd2,nmx+2,nd3
e,nd4,nmx+3,nmx+4,nd5,nd1,nd2,nmx+2,nd3
ncs=ncs+1
nmx=nmx+4
!
ndo=372200
ndx=ndo+82
ndy=ndo+539
nd1=ndo+8
nd2=ndo+44
nd3=ndo+524
nd4=ndo+1940
nd5=ndo+1527
cs,ncs,0,ndo,ndx,ndy
n,nmx+1,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)
n,nmx+2,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)-d2	! top right3
n,nmx+3,nx(ndo)+d1,ny(ndo),nz(ndo)-d2*1.2
n,nmx+4,nx(ndo)+d1,ny(ndo)+d2,nz(ndo)-d2*1.2
e,ndo,ndx,nmx+1,ndy,nd1,nd2,nmx+2,nd3
e,nd4,nmx+3,nmx+4,nd5,nd1,nd2,nmx+2,nd3
!
esel,s,type,,245
nsle
csys,1
nrotat,all
emid,add,all
!
esel,a,mat,,113
nsle
nummrg,node
!
! coupling nodes at second brackets
!
allsel
cp,next,uz,117375,382857	!382855
cp,next,uz,117364,382851	!382853
cp,next,uz,117354,417881	!417883
cp,next,uz,117341,417887	!417885	
cp,next,uz,143988,457938	!457936
cp,next,uz,144001,457932	!457934
cp,next,uz,144011,458733	!458735
cp,next,uz,144022,458739	!458737
!