曲率为零时隧道模型命令流.docx
《曲率为零时隧道模型命令流.docx》由会员分享，可在线阅读，更多相关《曲率为零时隧道模型命令流.docx（24页珍藏版）》请在冰豆网上搜索。
曲率为零时隧道模型命令流
!
*
ET,1,PLANE42
KEYOPT,1,3,2
ET,2,COMBIN40
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,36e6
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,2200
TB,DP,1,,,
TBMODIF,1,1,0.18e6
TBMODIF,1,2,35
TBMODIF,1,3,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,2,,13.33e9
MPDATA,PRXY,2,,0.2
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,2,,2400
nummrg,all
numcmp,all
FLST,2,3,4,ORDE,3
FITEM,2,1
FITEM,2,7
FITEM,2,-8
LCOMB,P51X,,0
FLST,2,3,4,ORDE,2
FITEM,2,3
FITEM,2,-5
LCOMB,P51X,,0
TYPE,1
MAT,1
REAL,
ESYS,0
SECNUM,
TSHAP,LINE
!
*
!
*
AMAP,7,15,18,2,
!
*
!
*
AMAP,4,15,7,2,
!
*
TYPE,1
MAT,2
REAL,
ESYS,0
SECNUM,
TSHAP,LINE
!
*
!
*
AMAP,8,18,2,3,19
!
*
!
*
AMAP,1,2,7,6,3
!
*
TYPE,1
MAT,1
REAL,
ESYS,0
SECNUM,
TSHAP,LINE
!
*
!
*
AMAP,9,19,3,16,20
!
*
!
*
AMAP,5,6,3,16,9
!
*
FLST,5,2,4,ORDE,2
FITEM,5,11
FITEM,5,32
CM,_Y,LINE
LSEL,,,,P51X
CM,_Y1,LINE
CMSEL,,_Y
!
*
LESIZE,_Y1,,,4,,,,,1
!
*
FLST,5,6,4,ORDE,6
FITEM,5,33
FITEM,5,34
FITEM,5,36
FITEM,5,10
FITEM,5,12
FITEM,5,14
CM,_Y,LINE
LSEL,,,,P51X
CM,_Y1,LINE
CMSEL,,_Y
!
*
LESIZE,_Y1,,,4,,,,,1
!
*
FLST,5,2,4,ORDE,2
FITEM,5,22
FITEM,5,31
CM,_Y,LINE
LSEL,,,,P51X
CM,_Y1,LINE
CMSEL,,_Y
!
*
LESIZE,_Y1,,,4,,,,,1
!
*
FLST,5,5,4,ORDE,5
FITEM,5,13
FITEM,5,15
FITEM,5,21
FITEM,5,30
FITEM,5,35
CM,_Y,LINE
LSEL,,,,P51X
CM,_Y1,LINE
CMSEL,,_Y
!
*
LESIZE,_Y1,,,12,,,,,1
!
*
MSHAPE,0,2D
MSHKEY,1
!
*
FLST,5,6,5,ORDE,5
FITEM,5,2
FITEM,5,-3
FITEM,5,6
FITEM,5,10
FITEM,5,-12
CM,_Y,AREA
ASEL,,,,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!
*
AMESH,_Y1
!
*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!
*
KWPAVE,15
CSYS,4
FLST,3,12,5,ORDE,2
FITEM,3,1
FITEM,3,-12
ARSYM,X,P51X,,,10000,0,0
EPLOT
nummrg,all
numcmp,all
!
*
R,1,1.288e6,3300e3,,,,,
!
*
R,2,0.966e6,174526,0,0,0,0,
!
*
FLST,2,24,5,ORDE,2
FITEM,2,1
FITEM,2,-24
ARSCALE,P51X,,,0.01,0.01,0.01,10000000000,0,1
EPLOT
FLST,4,17,1,ORDE,12
FITEM,4,253
FITEM,4,265
FITEM,4,-268
FITEM,4,313
FITEM,4,325
FITEM,4,-327
FITEM,4,361
FITEM,4,373
FITEM,4,-375
FITEM,4,429
FITEM,4,441
FITEM,4,-443
NGEN,2,20000,P51X,,,-0.5,,,1,
FLST,4,17,1,ORDE,12
FITEM,4,253
FITEM,4,265
FITEM,4,-268
FITEM,4,313
FITEM,4,325
FITEM,4,-327
FITEM,4,361
FITEM,4,373
FITEM,4,-375
FITEM,4,429
FITEM,4,441
FITEM,4,-443
NGEN,2,40000,P51X,,,,-0.5,,1,
FLST,4,17,1,ORDE,12
FITEM,4,529
FITEM,4,541
FITEM,4,-544
FITEM,4,661
FITEM,4,673
FITEM,4,-675
FITEM,4,802
FITEM,4,814
FITEM,4,-816
FITEM,4,866
FITEM,4,878
FITEM,4,-880
NGEN,2,20000,P51X,,,0.5,,,1,
FLST,4,17,1,ORDE,12
FITEM,4,529
FITEM,4,541
FITEM,4,-544
FITEM,4,661
FITEM,4,673
FITEM,4,-675
FITEM,4,802
FITEM,4,814
FITEM,4,-816
FITEM,4,866
FITEM,4,878
FITEM,4,-880
NGEN,2,40000,P51X,,,,-0.5,,1,
TYPE,2
MAT,1
REAL,1
ESYS,0
SECNUM,
TSHAP,LINE
!
*
FLST,2,2,1
FITEM,2,429
FITEM,2,20429
E,P51X
FLST,2,2,1
FITEM,2,441
FITEM,2,20441
E,P51X
FLST,2,2,1
FITEM,2,442
FITEM,2,20442
E,P51X
FLST,2,2,1
FITEM,2,443
FITEM,2,20443
E,P51X
FLST,2,2,1
FITEM,2,361
FITEM,2,20361
E,P51X
FLST,2,2,1
FITEM,2,20373
FITEM,2,373
E,P51X
FLST,2,2,1
FITEM,2,374
FITEM,2,20374
E,P51X
FLST,2,2,1
FITEM,2,375
FITEM,2,20375
E,P51X
FLST,2,2,1
FITEM,2,313
FITEM,2,20313
E,P51X
FLST,2,2,1
FITEM,2,325
FITEM,2,20325
E,P51X
FLST,2,2,1
FITEM,2,326
FITEM,2,20326
E,P51X
FLST,2,2,1
FITEM,2,327
FITEM,2,20327
E,P51X
FLST,2,2,1
FITEM,2,20253
FITEM,2,253
E,P51X
FLST,2,2,1
FITEM,2,20266
FITEM,2,266
E,P51X
FLST,2,2,1
FITEM,2,267
FITEM,2,20267
E,P51X
FLST,2,2,1
FITEM,2,268
FITEM,2,20268
E,P51X
FLST,2,2,1
FITEM,2,265
FITEM,2,20265
E,P51X
FLST,2,2,1
FITEM,2,866
FITEM,2,20866
E,P51X
FLST,2,2,1
FITEM,2,878
FITEM,2,20878
E,P51X
FLST,2,2,1
FITEM,2,20879
FITEM,2,879
E,P51X
FLST,2,2,1
FITEM,2,880
FITEM,2,20880
E,P51X
FLST,2,2,1
FITEM,2,802
FITEM,2,20802
E,P51X
FLST,2,2,1
FITEM,2,814
FITEM,2,20814
E,P51X
FLST,2,2,1
FITEM,2,815
FITEM,2,20815
E,P51X
FLST,2,2,1
FITEM,2,816
FITEM,2,20816
E,P51X
FLST,2,2,1
FITEM,2,661
FITEM,2,20661
E,P51X
FLST,2,2,1
FITEM,2,673
FITEM,2,20673
E,P51X
FLST,2,2,1
FITEM,2,20674
FITEM,2,674
E,P51X
FLST,2,2,1
FITEM,2,675
FITEM,2,20675
E,P51X
FLST,2,2,1
FITEM,2,529
FITEM,2,20529
E,P51X
FLST,2,2,1
FITEM,2,542
FITEM,2,20542
E,P51X
FLST,2,2,1
FITEM,2,543
FITEM,2,20543
E,P51X
FLST,2,2,1
FITEM,2,544
FITEM,2,20544
E,P51X
FLST,2,2,1
FITEM,2,20541
FITEM,2,541
E,P51X
TYPE,2
MAT,1
REAL,2
ESYS,0
SECNUM,
TSHAP,LINE
!
*
FLST,2,2,1
FITEM,2,429
FITEM,2,40429
E,P51X
FLST,2,2,1
FITEM,2,441
FITEM,2,40441
E,P51X
FLST,2,2,1
FITEM,2,442
FITEM,2,40442
E,P51X
FLST,2,2,1
FITEM,2,443
FITEM,2,40443
E,P51X
FLST,2,2,1
FITEM,2,361
FITEM,2,40361
E,P51X
FLST,2,2,1
FITEM,2,373
FITEM,2,40373
E,P51X
FLST,2,2,1
FITEM,2,374
FITEM,2,40374
E,P51X
FLST,2,2,1
FITEM,2,375
FITEM,2,40375
E,P51X
FLST,2,2,1
FITEM,2,313
FITEM,2,40313
E,P51X
FLST,2,2,1
FITEM,2,325
FITEM,2,40325
E,P51X
FLST,2,2,1
FITEM,2,326
FITEM,2,40326
E,P51X
FLST,2,2,1
FITEM,2,327
FITEM,2,40327
E,P51X
FLST,2,2,1
FITEM,2,253
FITEM,2,40253
E,P51X
FLST,2,2,1
FITEM,2,266
FITEM,2,40266
E,P51X
FLST,2,2,1
FITEM,2,267
FITEM,2,40267
E,P51X
FLST,2,2,1
FITEM,2,268
FITEM,2,40268
E,P51X
FLST,2,2,1
FITEM,2,265
FITEM,2,40265
E,P51X
FLST,2,2,1
FITEM,2,866
FITEM,2,40866
E,P51X
FLST,2,2,1
FITEM,2,878
FITEM,2,40878
E,P51X
FLST,2,2,1
FITEM,2,879
FITEM,2,40879
E,P51X
FLST,2,2,1
FITEM,2,880
FITEM,2,40880
E,P51X
FLST,2,2,1
FITEM,2,802
FITEM,2,40802
E,P51X
FLST,2,2,1
FITEM,2,814
FITEM,2,40814
E,P51X
FLST,2,2,1
FITEM,2,815
FITEM,2,40815
E,P51X
FLST,2,2,1
FITEM,2,816
FITEM,2,40816
E,P51X
FLST,2,2,1
FITEM,2,661
FITEM,2,40661
E,P51X
FLST,2,2,1
FITEM,2,673
FITEM,2,40673
E,P51X
FLST,2,2,1
FITEM,2,674
FITEM,2,40674
E,P51X
FLST,2,2,1
FITEM,2,675
FITEM,2,40675
E,P51X
FLST,2,2,1
FITEM,2,529
FITEM,2,40529
E,P51X
FLST,2,2,1
FITEM,2,542
FITEM,2,40542
E,P51X
FLST,2,2,1
FITEM,2,543
FITEM,2,40543
E,P51X
FLST,2,2,1
FITEM,2,544
FITEM,2,40544
E,P51X
FLST,2,2,1
FITEM,2,541
FITEM,2,40541
E,P51X
FINISH
/SOL
FLST,2,34,1,ORDE,24
FITEM,2,20253
FITEM,2,20265
FITEM,2,-20268
FITEM,2,20313
FITEM,2,20325
FITEM,2,-20327
FITEM,2,20361
FITEM,2,20373
FITEM,2,-20375
FITEM,2,20429
FITEM,2,20441
FITEM,2,-20443
FITEM,2,20529
FITEM,2,20541
FITEM,2,-20544
FITEM,2,20661
FITEM,2,20673
FITEM,2,-20675
FITEM,2,20802
FITEM,2,20814
FITEM,2,-20816
FITEM,2,20866
FITEM,2,20878
FITEM,2,-20880
!
*
/GO
D,P51X,,,,,,ALL,,,,,
FLST,2,34,1,ORDE,24
FITEM,2,40253
FITEM,2,40265
FITEM,2,-40268
FITEM,2,40313
FITEM,2,40325
FITEM,2,-40327
FITEM,2,40361
FITEM,2,40373
FITEM,2,-40375
FITEM,2,40429
FITEM,2,40441
FITEM,2,-40443
FITEM,2,40529
FITEM,2,40541
FITEM,2,-40544
FITEM,2,40661
FITEM,2,40673
FITEM,2,-40675
FITEM,2,40802
FITEM,2,40814
FITEM,2,-40816
FITEM,2,40866
FITEM,2,40878
FITEM,2,-40880
!
*
/GO
D,P51X,,,,,,ALL,,,,,
D,P51X,,,,,,ALL,,,,,
FLST,2,31,1,ORDE,10
FITEM,2,233
FITEM,2,237
FITEM,2,-240
FITEM,2,269
FITEM,2,-279
FITEM,2,513
FITEM,2,517
FITEM,2,-519
FITEM,2,545
FITEM,2,-555
!
*
/GO
D,P51X,,,,,,ALL,,,,,
FLST,5,4,5,ORDE,4
FITEM,5,3
FITEM,5,8
FITEM,5,15
FITEM,5,20
ASEL,S,,,P51X
ESLA,S
ekill,all
esel,ALL
esel,s,live!
选择活单元，即所有围岩实体单元
nsle,s!
选择生单元上的节点
nsel,invert!
反向选择，即选择了死单元上的节点
d,all,all!
将死单元上的节点
allse
antype,modal
modopt,subsp,2
allsel
SOLVE
FINISH
/POST1
set,list
FINISH
/solu
!
ACEL,,9.81,0,!
在Y方向施加重力加速度
ANTYPE,TRANS
TRNOPT,FULL
NROPT,FULL,!
采用全牛顿－拉普森法进行求解
!
NROPT,INIT
AUTOTS,on
NLGEOM,on
!
确定阻尼系数
ALPHAD,0.126349436
BETAD,0.019358854
*DIM,accel,TABLE,1000,1
*TREAD,accel,elcetr,txt!
地震波据说是El-centro波；这个文件很奇怪，把前面那
TM_START=0.001!
列删了以后就不行。
TM_END=8
TM_INCR=0.02
Allsel!
选择所有内容
*DO,TM,TM_START,TM_END,TM_INCR
deltim,0.02,0.001,0.02
TIME,TM+0.02
OUTRES,BASIC,LAST
!
OUTRES,ALL,all
kbc,0
!
ACEL,accel（tm）,9.81,0,!
在Y方向施加重力加速度
ACEL,,accel（tm）*2/3,
Allsel!
选择所有内容
Solve!
求解计算
*ENDDO
Finish
升级会员 