找回密码
 注册
Simdroid-非首页
查看: 383|回复: 8

(共享)一个生成六边行蜂窝板的APDL命令

[复制链接]
发表于 2007-6-1 22:18:18 | 显示全部楼层 |阅读模式 来自 江苏徐州
一个生成六边形蜂窝的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

查看全部评分

发表于 2007-6-1 22:26:55 | 显示全部楼层 来自 陕西西安
Simdroid开发平台
谢谢LZ分享
回复 不支持

使用道具 举报

发表于 2011-1-18 09:52:51 | 显示全部楼层 来自 辽宁沈阳
楼主好人啊,谢谢了!
回复 不支持

使用道具 举报

发表于 2011-10-31 21:29:04 | 显示全部楼层 来自 华南理工大学
为啥不做成一个文件 这样看起来全部是乱码
回复 不支持

使用道具 举报

发表于 2013-1-18 00:01:11 | 显示全部楼层 来自 湖南长沙
感谢分享
回复 不支持

使用道具 举报

发表于 2013-1-18 12:55:11 | 显示全部楼层 来自 上海
谢谢,老好了!
回复 不支持

使用道具 举报

发表于 2015-4-10 09:02:30 | 显示全部楼层 来自 陕西西安
谢谢啊 ,                                                
回复 不支持

使用道具 举报

发表于 2015-9-21 10:25:46 | 显示全部楼层 来自 黑龙江哈尔滨
刚谢楼主的分享,赚个金币
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-29 23:21 , Processed in 0.062124 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表