新手的apdl

zhouxman

新手写的一个apdl，请大家指教


/prep7
et,1,link1
mp,ex,1,200e3
mp,prxy,1,0.3
r,1,0.1      !定义实常数
!----------------设置缺省常数---------------------
*set,length,8
*set,heigth,sqrt(3)
*set,n,8  !支撑数
!----------------用对话框获得常数---------------------
*ask,length,'Please input length:',length
*ask,heigth,'Please input heigth:',heigth
!这里的n必须输入偶数
*ask,n,'Please input n(You'd better make sure the 'n' are an even number and bigger than 2):',n     

!----------------用设置参数的方法计算中间变量---------------------
*set,l,2*(length/n) !下面小段的长度
*set,nn,n+1 !节点数目
!----------------建立节点---------------------
*do,i,1,n/2+1      !这个循环建立下侧的所有节点
  n,i,(i-1)*l,0
*enddo
*do,j,1,nn-i        !这个循环建立上侧的所有节点
  n,i+j,(2*j-1)*(l/2),heigth
*enddo
!----------------建立单元---------------------
*do,k,1,n/2       !这个嵌套循环用link1单元连接所有节点
   e,k,k+1        !连接下侧所有节点   
*enddo
*do,j,i+1,nn-1   ！这里的i值已经是n/2+1了
   e,j,j+1   !连接上侧所有节点   
*enddo
!-------------------------------------
!对这个题目建立单元还可以用一下的*repeat命令，所得结果等效上面的一段命令
!-------------------------------------
!   e,1,2
!   *repeat,n/2,1,1
!   e,n/2+2,n/2+3
!   *repeat,nn-(n/2+1)-1,1,1
!-------------------------------------
!----------------连接上下侧节点---------------------
*set,lab,n/2
  *do,gg,1,n/2+1
  *if,gg,eq,1,then
   e,gg,gg+lab+1
  *elseif,gg,eq,n/2+1
   e,gg,gg+lab
  *else
   e,gg,gg+lab
   e,gg,gg+lab+1
  *endif
*enddo
!----------------到此自动建模完成---------------------

zhouxman

谢谢 鼓励 谢谢