当前位置:文库下载 > 所有分类 > 自然科学 > 化学 > APDL-两向正交正放网架
侵权投诉

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 !生成第一类实常数R1输入对话框
*cset,1,3,AREAIN(1),'Section Area (mm^2),AREA(1)=',


!面积
*cset,4,6,IZZIN(1),'Area Moment of inertia,IZZ(1)=', !惯性矩Z
*cset,7,9,IYYIN(1),'Area Moment of inertia,IYY(1)=', !惯性矩Y

第1页

猜你喜欢

返回顶部