*parameter transx = 0.0 transy = 0.0 phid = 90 phi = pi*phid/180 sinphi = sin(phi) cosphi = cos(phi) dlen = 1.5 xt1 = transx yt1 = transy xt2 = xt1 + dlen yt2 = yt1 xt3 = xt1 + dlen yt3 = yt1 + dlen xt4 = xt1 yt4 = yt1 + dlen ** x1 = xt1*cosphi - yt1*sinphi y1 = xt1*sinphi + yt1*cosphi x2 = xt2*cosphi - yt2*sinphi y2 = xt2*sinphi + yt2*cosphi x3 = xt3*cosphi - yt3*sinphi y3 = xt3*sinphi + yt3*cosphi x4 = xt4*cosphi - yt4*sinphi y4 = xt4*sinphi + yt4*cosphi *node 1001,, 1002,, 1003,, 1004,, *element,type=z1,elset=one,file=lib_misc_pert 10001,1001,1002,1003 *substructure property,elset=one ,,0 0,0,0, 0,0,1, **************************** *step,pert ***steady state dynamics,direct **20, *static *boundary 1001,1,6 1002,1,3 *cload 1003,2,-100 *output,field *node output u, *output,history,freq=0 *substructure path,enter=10001 *output,field *node output u, *substructure path,leave *end step