资源描述：
《ansys实例——混凝土加弹簧.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、!定义相关参量*DIM,MK,ARRAY,1,4,,,,!定义水平抗力系数比例常数m的矩阵*SET,MK(1,1,1),6000!第四层土的m值*SET,MK(1,2,1),5000!第三层土的m值*SET,MK(1,3,1),4000!第二层土的m值*SET,MK(1,4,1),2000!第一层土的m值*DIM,FQ,ARRAY,1,4,,,,!定义桩周单位面积摩擦力*SET,FQ(1,1,1),40.53!中性点以下的单位面积正摩擦力*SET,FQ(1,2,1),-33.78!中性点以上第三层的单位面积负摩擦力*SET,FQ(1,3,1),-16.14*SET,F
2、Q(1,4,1),-4.8*SET,QX,100!水平荷载*SET,QZ,100*SET,b0,1*SET,h0,0.5!进入前处理器/prep7et,1,solid45!桩身单元et,2,combin14!弹簧单元et,3,surf154!表面效应单元keyopt,1,1,0keyopt,2,3,0!作为纵向三维弹簧keyopt,3,4,1!不包含中间节点r,1mp,ex,1,3.25e10!桩的材料属性mp,nuxy,1,0.3mp,dens,1,2700!建立整个桩模型的节点n,1n,6,1fill,1,6ngen,6,6,1,6,1,,,0.2ngen,21,
3、36,1,36,1,,0.5/view,1,1,1,1!以正等侧显示/ang,1/REP,FASTGPLOT!建立桩的几何实体模型k,1k,2,1k,3,1,,1k,4,,,1k,5,,10,k,6,1,10,k,7,1,10,1k,8,,10,1/PNUM,kp,1kplotv,1,2,3,4,5,6,7,8lsel,s,loc,y,0lsel,a,loc,y,10lesize,all,,,5allsellsel,s,loc,y,5lesize,all,,,20vmesh,1nummrg,all!压缩重复元素numcmp,all!合并重复元素!建立第一组弹簧模型,共
4、7*16=102个弹簧nsel,s,loc,x,1nsel,r,loc,y,-0.1,8.1nplotngen,2,1000,all,,,2type,2*do,i,1,17,1*if,i,le,4,then!判断属于哪一层土kk=1*elseif,i,le,8,thenkk=2*elseif,i,le,12,thenkk=3*elseif,i,le,17,thenkk=4*endif*do,j,6,36,6*get,vy,node,j+(i-1)*36,loc,y!获取节点的Y坐标值r,kk+1,mk(1,kk,1)*abs(vy-8)*b0*h0/6!根据Y值计算水
5、平抗力系数，即弹簧的刚度real,kk+1e,j+(i-1)*36,1000+j+(i-1)*36*enddo*enddoallsel!最大单元号602!第二组弹簧单元,共7*16=102个弹簧allselnsel,s,loc,x,0nsel,r,loc,y,-0.1,8.1nsel,r,loc,z,-0.1,1.1nplotngen,2,2000,all,,,-2type,2*do,i,1,17,1*if,i,le,4,thenkk=1*elseif,i,le,8,thenkk=2*elseif,i,le,12,thenkk=3*elseif,i,le,17,the
6、nkk=4*endif*do,j,1,31,6*get,vy,node,j+(i-1)*36,loc,yr,kk+10,mk(1,kk,1)*abs(vy-8)*b0*h0/6real,kk+10e,j+(i-1)*36,2000+j+(i-1)*36*enddo*enddoallsel!最大单元号704!第三组弹簧单元,共7*16=102个弹簧local,11,0,,,,,90csys,0allselnsel,s,loc,z,1nsel,r,loc,y,-0.1,8.1nsel,r,loc,x,-0.1,1.1nplotngen,2,3000,all,,,,,2ty
7、pe,2*do,i,1,17,1*if,i,le,4,thenkk=1*elseif,i,le,8,thenkk=2*elseif,i,le,12,thenkk=3*elseif,i,le,17,thenkk=4*endif*do,j,31,36,1*get,vy,node,j+(i-1)*36,loc,yr,kk+20,mk(1,kk,1)*abs(vy-8)*b0*h0/6real,kk+20esys,0e,j+(i-1)*36,3000+j+(i-1)*36*enddo*enddoallsel!最大单元号码806!第四组弹簧单元,共7*16=1
