APDL-正方四角锥网架.docVIP

APDL-正方四角锥网架 FINISH /CLEAR !清除当前数据库文件，并开始一个新的启动 /prep7 !进入前处理 !（1）用户界面设计，输入基本几何参数 multipro,start,5 !生成多行参数输入对话框 *CSET,1,3,lx,Grid Side lx=(m),1 !输入网络长边方向上弦杆长 *CSET,4,6,ly,Grid Side ly=(m),1.2 !输入网络短边方向上弦杆长 *CSET,7,9,n,Grid number of the long side n the top surface=,6 !输入上弦平面网络长边方向节点数 *CSET,10,12,m,Grid number of the short side n the top surface=,7 !输入上弦平面网络短边方向节点数 *CSET,13,15,z,distance between the top and bottom surface z=(m),-1 !输入上，,下弦平面网络之间的垂直距离 *cset,61,62,m,please input geometry parameters of the grid. ！在对话框顶部显示提示“please input geometry parameters of the grid” multipro,END ！（2）计算节点坐标位置，并定义节点 !计算上弦平面节点坐标位置并定义节点 *DO,i,1,m, *DO,j,n*(i-1)+1,n*i n,j,(j-1-n*(i-1))*1x,1y*(i-1),0 *enddo *enddo !计算下弦平面节点坐标位置并定义节点 *do,i,1,m-1, *do,j,n*m+1+(i-1)*(n-1),(n-1)*i+n*m n,j,(2*(j-n*m-(i-1)*(n-1))-1)/2*1x,(2*i-1)/2*1y,z *enddo *enddo ！(3)定义单元类型及实常数 RTNUM=1 !可输入的实常数类型数最大数 *DIM,AREAIN,ARRAY,RTNUM !定义杆件截面面积数组 *DIM,IZZIN,ARRAY,RTNUM !定义面积惯性矩数组 *DIM,IYYIN,ARRAY,RTNUM !定义面积惯性矩数组 *DIM,TKZIN,ARRAY,RTNUM !定义截面沿Z轴高度数组 *DIM,TKYIN,ARRAY,RTNUM !定义截面沿Y轴高度数组 *DIM,THETAIN,ARRAY,RTNUM !定义杆件轴线与X轴夹角数组 *DIM,ISTRNIN,ARRAY,RTNUM !定义杆件初始应变数组 *DIM,IXXIN,ARRAY,RTNUM !定义杆件扭矩数组 *DIM,SHEARZIN,ARRAY,RTNUM !定义剪切变形常量数组 *DIM,SHEARYIN,ARRAY,RTNUM !定义剪切变形常量数组 multipro,start,1 !生成单元类型选择对话框 *cset,1,3,eltype,Link8 input 0,Beam4 input 1,0 !单元类型选择0为li