ansys算變截面連續(xù)梁的例子

1、ansys 算變截面連續(xù)梁的例子/prep7 ! 上頂板關(guān)鍵點位置 0mk,1,k,2,k,3,k,4,k,5,-3,k,6,k,7,k,8,k,9,k,10,k,11,k,12,! 下底板關(guān)鍵點位置k,13,k,14,! 上頂板關(guān)鍵點位置 49m kgen,9,1,12,1,0,0,49/8,100! 上頂板關(guān)鍵點位置 50m kgen,2,1,12,1,50,900! 上頂板關(guān)鍵點位置 50+ kgen,9,901,912,1,8,100 c1= ! 邊跨二次拋物線系數(shù) c2= ! 中跨二次拋物線系數(shù)!yb =+ c1*x1A2 !邊跨梁高變化曲線!ym = + c2*x2A2 !中跨梁高

2、變化曲線*dim,x1,array,8 x1(1)=49/8x1(2)=2*49/8x1(3)=3*49/8x1(4)=4*49/8x1(5)=5*49/8x1(6)=6*49/8x1(7)=7*49/8x1(8)=8*49/8*dim,x2,array,8x2(1)=8x2(2)=2*8x2(3)=3*8x2(4)=4*8x2(5)=5*8x2(6)=6*8x2(7)=7*8x2(8)=8*8*dim,yb,array,8yb(1)=c1*x1(1)*x1(1)yb(2)=c1*x1(2)*x1(2)yb(3)=c1*x1(3)*x1(3)yb(4)=c1*x1(4)*x1(4)yb(5)=

3、c1*x1(5)*x1(5)yb(6)=c1*x1(6)*x1(6) yb(7)=c1*x1(7)*x1(7) yb(8)=c1*x1(8)*x1(8) *dim,ym,array,8 ym(1)=-c2*(x2(1)*2+ ym(2)=-c2*(x2(2)*2+ ym(3)=-c2*(x2(3)*2+ ym(4)=-c2*(x2(4)*2+ ym(5)=-c2*(x2(5)*2+ ym(6)=-c2*(x2(6)*2+ ym(7)=-c2*(x2(7)*2+ ym(8)=-c2*(x2(8)*2+ kgen,2,13,14,1,0,-yb(1),x1(1),100 kgen,2,13,14,

4、1,0,-yb(2),x1(2),200 kgen,2,13,14,1,0,-yb(3),x1(3),300 kgen,2,13,14,1,0,-yb(4),x1(4),400 kgen,2,13,14,1,0,-yb(5),x1(5),500 kgen,2,13,14,1,0,-yb(6),x1(6),600 kgen,2,13,14,1,0,-yb(7),x1(7),700 kgen,2,13,14,1,0,-yb(8),x1(8),800 kgen,2,813,814,1,0,0,1,100 kgen,2,913,914,1,0,ym(1),x2(1),100 kgen,2,913,91

5、4,1,0,ym(2),x2(2),200 kgen,2,913,914,1,0,ym(3),x2(3),300 kgen,2,913,914,1,0,ym(4),x2(4),400 kgen,2,913,914,1,0,ym(5),x2(5),500 kgen,2,913,914,1,0,ym(6),x2(6),600 kgen,2,913,914,1,0,ym(7),x2(7),700 kgen,2,913,914,1,0,ym(8),x2(8),800kgen,2,1,14,1,50et,1,63mp,dens,1,2500mp,ex,1,mp,prxy,r,1,*do,i,0,16,1

6、a,1+i*100,1+(i+1)*100,2+(i+1)*100,2+i*100 *enddoa,1,51,52,2aatt,1,1,1asel,noner,2,*do,i,0,16,1a,2+i*100,2+(i+1)*100,3+(i+1)*100,3+i*100 *enddoa,2,52,53,3aatt,1,2,1asel,noner,3,*do,i,0,16,1a,3+i*100,3+(i+1)*100,4+(i+1)*100,4+i*100a,4+i*100,4+(i+1)*100,5+(i+1)*100,5+i*100 *enddoa,3,53,54,4a,4,54,55,5a

7、att,1,3,1asel,none*dim,hd,array,9hd(9)=hd(8)=7)*+hd(7)=2*7)*+hd(6)=3*7)*+hd(5)=4*7)*+hd(4)=5*7)*+hd(3)=6*7)*+hd(2)=7*7)*+hd(1)=*do,i,1,8,1r,30+i,hd(i+1),hd(i+1),hd(i),hd(i)*enddo*do,i,0,16,1*do,k,5,11,1 a,k+i*100,k+(i+1)*100,k+1+(i+1)*100,k+1+i*100 a,k,k+50,k+1+50,k+1aatt,1,k+26,1asel,none*enddo*end

8、doasel,noner,4,*do,i,0,16,1 a,4+i*100,4+(i+1)*100,13+(i+1)*100,13+i*100 *enddoa,4,54,63,13 aatt,1,4,1asel,nonec3=c4=*dim,h1,array,8h1(1)=+c3*x1(1)*x1(1)h1(2)=+c3*x1(2)*x1(2)h1(3)=+c3*x1(3)*x1(3)h1(4)=+c3*x1(4)*x1(4)h1(5)=+c3*x1(5)*x1(5)h1(6)=+c3*x1(6)*x1(6)h1(7)=+c3*x1(7)*x1(7)h1(8)=+c3*x1(8)*x1(8)*

9、dim,h2,array,9h2(1)=+c4*x1(1)*x1(1)h2(2)=+c4*x1(2)*x1(2)h2(3)=+c4*x1(3)*x1(3)h2(4)=+c4*x1(4)*x1(4)h2(5)=+c4*x1(5)*x1(5)h2(6)=+c4*x1(6)*x1(6)h2(7)=+c3*x1(7)*x1(7)h2(8)=+c4*x1(8)*x1(8)h2(9)=*do,i,1,8,1r,10+i,h1(i)a,13+(i-1)*100,13+i*100,14+i*100,14+(i-1)*100aatt,1,10+i,1asel,none*enddo*do,i,1,9,1r,20+

10、i,h2(i)a,13+(i+7)*100,13+(i+8)*100,14+(i+8)*100,14+(i+7)*100 a,13,63,64,14aatt,1,20+i,1asel,none*enddor,50,2a,1,51,64,14a,801,901,914,814aatt,1,50,1asel,noneallsesize,mshape,0mshkey,1amesh,allnsel,allnsym,x,10000,1,80000,1esym,10000,1,10000,1cskp,12,0,1714,1713,1701nsym,z,100000,1,100000,1esym,10000

11、0,1,1000000,1nummrg,all csys,0 nsel,s,loc,y, nsel,r,loc,x,-3, nsel,r,loc,z,0 d,all,ux,uy,roty,rotz alls nsel,s,loc,y, nsel,r,loc,x,3 nsel,r,loc,z,0 d,all,ux,uy,roty,rotz alls nsel,s,loc,y, nsel,r,loc,x,-3, nsel,r,loc,z,169, d,all,ux,uy,roty,rotz alls nsel,s,loc,y, nsel,r,loc,x,3 nsel,r,loc,z,169, d,all,ux,uy,roty,rotz alls nsel,s,loc,y, nsel,r,loc,x,3 nsel,r,loc,z,49,50 d,all,ux,uy,roty,rotzallsnsel,s,loc,y, nsel,r,loc,x,-3, nsel,r,loc,z,49,50 d,all,ux,uy,roty,rotz allsnsel,s,loc,y, nsel,r,loc,x,-3, nsel,r,loc,z,119,120 d,all,ux,uy