变截面梁定义

《变截面梁定义》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1．变截面梁定义不同截面之间可按线性变化，为了保证正确性，两个截面之间应该一一对应，必要的时候可通过将复杂的截面形状分块的方式。主要过程包括：et,1,plane82!建立截面有限元模型定义截面1secwrite,mysec1!定义对应的截面名称!定义截面2!同上!截面调用命令sectype,1,beam,mesh!读入自定义截面1secread,mysec1,sect,,meshsectype,2,beam,mesh!读入自定义截面2secread,mysec2,sect,,mesh!定义变截面3，对应的s

2、ectype,3,tapersecdata,1,50!截面1开始位置为x=50secdata,2,150!截面2的开始位置为x=1502.截面栅点结果提取!Beam189栅点结果提取命令流jsdgs=？!栅点个数赋值，以六个（A,B,C,D,E,F）为例jdjm=？!？=1,2,3，I节点截面=1,J节点截面=2,K节点截面=3*dim,jsdxh,,6!对于6个栅点，定义数组JSDXH*dim,lsxh,,6!用于保存不考虑comp时I，J对应的LS提取编号*dim,sxyz,,6,3jsdxh(1)=1,

3、7,15,18,10,12!A,B,C,D,E,F点角栅点对应序号*do,i,1,6lsxh(i)=3*(jdjm-1)*jsdgs+3*(jsdxh(i)-1)!编号计算公式，可参考帮助文件*enddo!-------------------------------------------!定义单元的各角栅点的x方向应力(sx)etab*do,i,1,6etable,sigs%i%,ls,lsxh(i)+1*enddo!获取单元1各角栅点的正应力sx*do,i,1,6*get,sxyz(i,1),elem,

4、1,etab,sigs%i%*enddo!--------------------------------------------!定义单元的各角栅点的xz方向应力(sxz)etab*do,i,1,6etable,sigs%i%,ls,lsxh(i)+2*enddo!获取单元1各角栅点的剪应力sxz*do,i,1,6*get,sxyz(i,2),elem,1,etab,sigs%i%*enddo!--------------------------------------------!定义单元的各角栅点的xy

5、方向应力(sxy)etab*do,i,1,6etable,sigs%i%,ls,lsxh(i)+3*enddo!获取单元1各角栅点的剪应力sxy*do,i,1,6*get,sxyz(i,3),elem,1,etab,sigs%i%*enddo!---------------------------------------------