finish
/clear

/prep7


ANTYPE, TRANS 
NLGEOM, ON 

et,1,link8

mp,ex,1,210000
mp,dens,1,7.3e-9
mp,nuxy,1,0.3

R,1,0.1

*do ,i,1,100
x=i*10
y=-i*10
n,i,x,y
  *if,i,ne,1,then
   e,i,i-1
  *endif   
*enddo









/SOLU 

ACEL, ,9810
KBC, 1 

!D, 1, UZ, , , 2 
!D, 1, UX, , , , , UY 
D,1,all

TIME, .01 
NSUBST, 5

OUTRES, , 1 

LSWRITE, 1 
TIME, .158593496
NSUBST, 8 
OUTRES, , 1 

LSWRITE, 2 
TIME, 0.317186992

LSWRITE, 3 
TIME, 0.475780488

LSWRITE, 4 
TIME, 0.634373984

lswrite, 5
time, 0.79296748

lswrite, 6
time, 0.951560976

lswrite, 7
time, 1.110154472

lswrite, 8
time, 1.268747968

lswrite, 9
time, 1.427341464

!lswrite, 10
!time, 1.58593496




solve