APDL-两向正交正放网架.doc

APDL-两向正交正放网架 /prep7 !进入前处理 *afun,deg !角度单位为度数 multipro,start,5 !生成多行参数输入对话框 *CSET,1,3,lx,Grid Side lx=(m),1 !输入网格长边变长lx *CSET,4,6,ly,Grid Side ly=(m),1.2 !输入网格短边变长ly *CSET,7,9,n,Grid number of the long side n the top surface=,7 !输入上弦平面网格长边方向节点数 *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,please input geometry parameters of the grid. !对话框顶部显示内容为 MULTIPRO,END *DO,i,1,m, !计算上弦平面节点坐标位置并定义节点 *DO,j,n*(i-1)+1,n*i N,j,(j-1-n*(i-1))*1x,1y*(i-1),0 !沿长边方向生成第1~m行节点 *enddo *enddo *DO,i,2,m-1, !计算下弦平面节点坐标位置并定义节点 *DO,j,n*m+1+(i-2)*(n-2),(n-2)*(i-1)+n*m n,j,(j-n*m-(i-2)*(n-2))*1x,1y*(i-1),z !沿长边方向生成第2~m-1行节点 *enddo *enddo !定义单元类型和实常数 RTNUM=3 !可输入的实常数类型数最大数 *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为link8,1为beam4 *cset,61,62,eltype,Element Type 1 Option: multipro,END *if,eltype,EQ,0,THEN !若输入0，即eltype=0 ET,1,Link8 !定义第一类杆件为link8 *endif *if,eltype,EQ,1,THEN !若输入1，eltype=1 ET,1,Beam4 !定义第一类杆件为beam4 *endif multipro,start,10