- 积分
- 3
- 注册时间
- 2003-11-4
- 仿真币
-
- 最后登录
- 1970-1-1
|
一个生成六边形蜂窝的APDL命令,这是本人在做论文时建立的板,提供出来供大家学习APDL用。
!长度为6*a*h
!宽度为sqrt(3)*a*(2*s-1)
/prep7
s=10 !竖直方向六边形个数
h=20 !水平方向六边形个数
a=1 !六边形边长的一半
*do,j,1,s
*do,i,1,h
k,(i-1)*5+1+(j-1)*5*h,0+6*a*(i-1),sqrt(3)*a+2*sqrt(3)*a*(j-1)
k,(i-1)*5+2+(j-1)*5*h,a+6*a*(i-1),sqrt(3)*a+2*sqrt(3)*a*(j-1)
k,(i-1)*5+3+(j-1)*5*h,2*a+6*a*(i-1),0+2*sqrt(3)*a*(j-1)
k,(i-1)*5+4+(j-1)*5*h,4*a+6*a*(i-1),0+2*sqrt(3)*a*(j-1)
k,(i-1)*5+5+(j-1)*5*h,5*a+6*a*(i-1),sqrt(3)*a+2*sqrt(3)*a*(j-1)
*enddo
*enddo
!*
m=0
*do,i,1,h*s
m=m+1
l,(i-1)*5+1,(i-1)*5+2
l,(i-1)*5+2,(i-1)*5+3
l,(i-1)*5+3,(i-1)*5+4
l,(i-1)*5+4,(i-1)*5+5
*if,m,NE,h,and,i,GE,1,then
l,(i-1)*5+5,i*5+1
*endif
*if,m,EQ,h,then
m=0
*endif
*enddo
*do,n,1,s-1
*do,i,1,h
l,(i-1)*5+2+5*H*(n-1),(i-1)*5+3+5*H*n
l,(i-1)*5+5+5*H*(n-1),(i-1)*5+4+5*H*n
*enddo
*enddo
fini
一下部分就是一些基本操作了 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|