论坛首页    职业区    学术与写作    工程技术区    软件区    资料区    商务合作区    社区办公室
 您好! 欢迎 登录注册 最新帖子 邀请注册 活动聚焦 统计排行 社区服务 帮助
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
  • 1476阅读
  • 1回复

哪个大神会隧道循环开挖啊, [复制链接]

上一主题 下一主题
离线943002088
 

发帖
6
土币
17
威望
5
原创币
0
只看楼主 倒序阅读 使用道具 楼主  发表于: 2017-05-23
求助隧道循环开挖的fish语言

发帖
2
土币
26
威望
0
原创币
0
只看该作者 1楼 发表于: 2017-05-26

y0=-1.5
    y5=0
  
def excav1
        y0=y0+1.5
        y1=y0+1.5
                command
            model null range group 'kaiwa' y @y0 @y1
            model null range group 'erchen' y @y0 @y1
            model null range group 'chuzhi' y @y0 @y1
        end_command

                command
            solve
        end_command
end
@excav1


def excav2
    cut_i=2
    loop cut (cut_i,60)
        cut_cur=cut
        step_name='excavation step'+string(cut)
        ii=out(step_name)
        y0=1.5*(cut-1)
        y1=y0+1.5
                y2=y0-1.5
                y3=y1-1.5
                h=y0-y5

        command
            model null range group 'kaiwa' y @y0 @y1
            model null range group 'erchen' y @y0 @y1
            model null range group 'chuzhi' y @y0 @y1
        end_command

        command
            model e range group 'chuzhi' y @y2 @y3
            pro density 2200 bulk 12.78e9 shear 9.58e9 range group 'chuzhi' y @y2 @y3
         end_command

                if h>=60 then
                  y5=y5+9
                  y4=y5-9
                  command
            model e range group 'erchen' y @y4 @y5
            pro density 2300 bulk 17.58e9 shear 13.125e9 range group 'erchen' y @y4 @y5
           end_command
                end_if

        command
            solve
        end_command

    
    end_loop
end
@excav2
快速回复
限100 字节
温馨提示:欢迎交流讨论,请勿纯表情、纯引用!
 
上一个 下一个

      浙公网安备 33010602003799号 浙ICP备14021682号-1

      工业和信息化部备案管理系统网站