!学号：2009
!姓名：GUO
!ansys第一次作业

FINISH 
/clear

/filename,truss
/TITLE,truss

NX=4    !X向网壳格数
NZ=5    !Z向网壳格数
DNX=2    !X向弦杆长度
DNZ=2    !Z向弦杆长度
DH=1    !网架高度

/PREP7 
!* 
ET,1,LINK8 
!* 
R,1,4.91e-4, , 
!mpdata not works 
!MPDATA,DENS,1,,7800
!MPDATA,EX,1,,2.07e11
!MPDATA,PRXY,1,,0.3 
MP,DENS,1,7800
MP,EX,1,2.07e11
MP,PRXY,1,0.3 

!nodes
*do,i,1,nx+1,1
n,i,(i-1)*dnx,0,0
*enddo
ngen,nz+1,nx+1,all,,,0,0,dnz

numstr,node,101

*do,i,1,nx,1
n,100+i,(i-1)*dnx+dnx/2,-1*dh,dnz/2
*enddo
ngen,nz,nx,101,100+nx,,0,0,dnz

!elements
*do,i,1,(nz+1)*(nx+1),nx+1
*do,j,1,nx,1
e,i+j-1,i+j
*enddo
*enddo
*do,i,1,nz*(nx+1),1
e,i,i+nx+1
*enddo

*do,i,101,100+nz*nx,nx
*do,j,1,nx-1,1
e,i+j-1,i+j
*enddo
*enddo
*do,i,101,100+(nz-1)*nx,1
e,i,i+nx
*enddo

*do,i,1,nz,1
*do,j,1,nx,1
e,100+j+(i-1)*nx,j+(i-1)*(nx+1)
e,100+j+(i-1)*nx,j+(i-1)*(nx+1)+1
e,100+j+(i-1)*nx,j+i*(nx+1)
e,100+j+(i-1)*nx,j+i*(nx+1)+1
*enddo
*enddo

!constraints
nsel,s,loc,x,-0.1,0.1
nsel,a,loc,x,nx*dnx-0.1,nx*dnx+0.1
nsel,a,loc,z,-0.1,0.1
nsel,a,loc,z,nz*dnz-0.1,nz*dnz+0.1
D,all,all

allsel,all

ACEL,0,9.8,0,  

FINISH 

/SOL
SOLVE  
FINISH 

/POST1 
SET,FIRST  
PLDISP,0
/VIEW,1,1,1,1  
/VIEW,1,,,1
PLNSOL, U,SUM, 0,1.0




---------------
My blogs:
http://blog.sina.com.cn/hmilye
http://hmilye.blogspot.com/
http://hmilye.spaces.live.com