*heading *preprint,model=yes *node,nset=nbot 1,1.,0.,0. 2,0.707106781,0.707106781,0. 3,0.,1.,0. 4,-0.707106781,0.707106781,0. 5,-1.,0.,0. 6,-0.707106781,-0.707106781,0. 7,0.,-1.,0. 8,0.707106781,-0.707106781,0. ** *node,nset=ntop 11,1.,0.,1. 21,0.707106781,0.707106781,1. 31,0.,1.,1. 41,-0.707106781,0.707106781,1. 51,-1.,0.,1. 61,-0.707106781,-0.707106781,1. 71,0.,-1.,1. 81,0.707106781,-0.707106781,1. ** *nset,nset=nall nbot,ntop *element,type=mcl6,elset=one 1,1,11,31,3,21,2 2,3,31,51,5,41,4 3,5,51,71,7,61,6 4,7,71,11,1,81,8 *membrane section,elset=one,material=mone,ori=or1, poisson=0. 0.05 *orientation,system=cylindrical,name=or1 0.,0.,0.,0.,0.,1. 1,45. *material,name=mone *elastic,type=engineering constants 1.E2, 1.E8, 1.E2, 0., 0., 0., 1.E2, 1.E2, 1.E2, *transform,nset=nall,type=c 0.,0.,0.,0.,0.,1. *initial conditions,type=stress one,0.001,0.001 *nset,nset=top 11,21,31,41,51,61,71,81 *node,nset=mstr 1000,0.,0.,1. *transform,nset=mstr 0.,1.,0.,0.,0.,1. *mpc beam,top,mstr *step,nlgeom *static 1.,1. *boundary nall,1,3, 1000,1,6, *output,history,freq=0 *output,field *element output s, e, sth, *node output u, rf, tf, *end step *step,nlgeom *static 1.,1. *boundary,op=new nbot,1,3,0. *cload mstr,2,2. *end step