隧道开挖(三维)的命令流

发布日期:[08-12-04 12:33:13] 浏览人次:[]

3,2)+Y_RDCC(3,1)/2+1E-7
LESIZE,ALL,1
ALLS


*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1
VSEL,S,,,CM_VMESH
VSEL,R,LOC,Z,DBKZDZ(I,1),DBKZDZ(I+1,1)
CM,CM_NEXTV,VOLU

CMSEL,S,CM_NEXTV
VSEL,R,LOC,X,DBKZDX(LTS_ZD+3,1),DBKZDX(LTS_ZD+3+2,1)
ESIZE,4
VSWEEP,ALL
ALLS
*ENDDO
ALLS

VSEL,S,,,CM_ZSDKW
ASLV,R
VSEL,S,,,CM_ZMG
ASLV,R
CM,CM_ZGXW,AREA
TYPE,2
MAT,MAT_GXW
AMESH,ALL
ALLS

VSEL,S,,,CM_YSDKW
ASLV,R
VSEL,S,,,CM_YMG
ASLV,R
CM,CM_YGXW,AREA
TYPE,2
MAT,MAT_GXW
AMESH,ALL
ALLS

NUMCMP,ALL
ALLS
MPCHG,MAT_TXYS,ALL
ALLS

SAVE,TNLMESH,DB
!------------------------------------------------------- 开始求解 ---------------------------------------!
/SOLU
!*
ACEL,,9.8
ANTYPE,STATIC,NEW
TIME,1
NROPT,FULL
AUTOTS,ON
DELTIM,0.5,0.01,0.5
LNSRCH,ON
PRED,ON
ISWRITE,1
ALLS
!*
ALLS
ESEL,S,TYPE,,2
EKILL,ALL
!*
ALLS
SOLV
FINI
!*

/CLE
/FILNAME,CALTUN
/PREP7
RESUME,TNLMESH,DB
FINI
!*
/SOLU
!*
ACEL,,9.8
!*
ANTYPE,STATIC,NEW
TIME,1
NROPT,FULL
AUTOTS,ON
DELTIM,0.5,0.01,0.5
LNSRCH,ON
PRED,ON
ESEL,U,TYPE,,2
ISFILE,READ,TUNNEL,IST,,0
!*
ALLS
ESEL,S,TYPE,,2
EKILL,ALL!*
CNVTOL,F,0.05
ALLS
!*
SOLV

!---------------------------------------------------------------------- 开挖模拟 ---------------------------------------------------!
!-----------------------------------第一步开挖,这一步没有支护 ----------------------------------!
ALLS
VSEL,S,,,CM_ZSDKW
VSEL,A,,,CM_YSDKW
VSEL,R,LOC,Z,DBKZDZ(1,1),DBKZDZ(2,1)
ESLV,R
!ESEL,A,TYPE,,2
EKILL,ALL
TIME,2
NROPT,FULL
AUTOTS,ON
DELTIM,0.3,0.001,0.5
LNSRCH,ON
PRED,ON
NCNV,2
ALLS
SOLV
SAVE,KW-1,DB
!*
!---------------------------- 循环做第二步到第五步的开挖,第一步到第四步的支护 ----------------------------!
!*
ALLS
ESEL,S,TYPE,,2
EKILL,ALL
!----------------------------第I步开挖,第I-1步支护 ---------------------!
*DIM,KWD_TOU,ARRAY,4
*DIM,KWD_WEI,ARRAY,4
*DIM,ZHD_TOU,ARRAY,4
*DIM,ZHD_WEI,ARRAY,4
KWD_TOU(1,1)=3,4,5,6
KWD_WEI(1,1)=2,3,4,5
ZHD_TOU(1,1)=2,3,4,5
ZHD_WEI(1,1)=1,2,3,4
*DO,I,1,4
!*
TOU=KWD_TOU(I,1)
WEI=KWD_WEI(I,1)
!*
ALLS
VSEL,S,,,CM_ZSDKW
VSEL,A,,,CM_YSDKW
VSEL,R,LOC,Z,DBKZDZ(WEI,1),DBKZDZ(TOU,1)
ESLV,R
EKILL,ALL
!*
!*
TOU=ZHD_TOU(I,1)
WEI=ZHD_WEI(I,1)
!*
ALLS
VSEL,S,,,CM_ZDB
VSEL,A,,,CM_YDB
VSEL,R,LOC,Z,DBKZDZ(WEI,1),DBKZDZ(TOU,1)
ESLV,R
EALIVE,ALL
MPCHG,MAT_DB,ALL
!*
ALLS
VSEL,S,,,CM_ZMG
VSEL,A,,,CM_YMG
VSEL,R,LOC,Z,DBKZDZ(WEI,1),DBKZDZ(TOU,1)
ESLV,R
MPCHG,MAT_MG,ALL
!*
ALLS
ASEL,S,,,CM_ZGXW
ASEL,A,,,CM_YGXW
ASEL,R,LOC,Z,DBKZDZ(WEI,1),DBKZDZ(TOU,1)
ESLA,R
EALIVE,ALL
MPCHG,MAT_GXW,ALL
!*
ALLS
ASEL,S,,,CM_ZGXW
ASEL,A,,,CM_YGXW
ASEL,R,LOC,Z,DBKZDZ(WEI,1),DBKZDZ(TOU,1)
ESLA,S
SFE,ALL,,PRES,,ZH_MG
ALLS
!*
TIME,I+2
NROPT,FULL
AUTOTS,ON
DELTIM,0.3,0.001,0.5
LNSRCH,ON
|<< << < 1 2 3 4 5 6 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:隧道  开挖  三维  命令流
相关资讯
热点资讯
推荐资讯

关于我们 | 站点导航 | 使用帮助 | 友情链接 | 广告服务 | 免责声明 | 新手上路
设为首页 | 加入收藏 | 在线留言 | 马棚网QQ群:{92562572}{102901272}{333259257} | 交流QQ: 客户服务 客户服务 客户服务