命令流764.docx
《命令流764.docx》由会员分享,可在线阅读,更多相关《命令流764.docx(24页珍藏版)》请在冰豆网上搜索。
命令流764
!
*
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,2
FITEM,2,14
FITEM,2,-16
LCOMB,P51X,,0
FLST,2,3,4,ORDE,2
FITEM,2,9
FITEM,2,-11
LCOMB,P51X,,0
TYPE,1
MAT,1
REAL,
ESYS,0
SECNUM,
TSHAP,LINE
!
*
!
*
AMAP,3,11,7,8,
!
*
!
*
AMAP,7,18,7,8,
!
*
TYPE,1
MAT,2
REAL,
ESYS,0
SECNUM,
TSHAP,LINE
!
*
!
*
AMAP,4,11,8,12,15
!
*
!
*
AMAP,8,18,8,12,19
!
*
TYPE,1
MAT,1
REAL,
ESYS,0
SECNUM,
TSHAP,LINE
!
*
!
*
AMAP,9,19,12,16,20
!
*
!
*
AMAP,5,15,12,16,1
!
*
FLST,5,2,4,ORDE,2
FITEM,5,3
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,2
FITEM,5,4
FITEM,5,6
FITEM,5,33
FITEM,5,34
FITEM,5,36
CM,_Y,LINE
LSEL,,,,P51X
CM,_Y1,LINE
CMSEL,,_Y
!
*
LESIZE,_Y1,,,4,,,,,1
!
*
FLST,5,2,4,ORDE,2
FITEM,5,31
FITEM,5,22
CM,_Y,LINE
LSEL,,,,P51X
CM,_Y1,LINE
CMSEL,,_Y
!
*
LESIZE,_Y1,,,4,,,,,1
!
*
FLST,5,5,4,ORDE,5
FITEM,5,5
FITEM,5,7
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,1
FITEM,5,-2
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,7
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,
!
*
FINISH
/SOL
FINISH
/PREP7
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,2000000,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,4000000,P51X,,,,-0.5,,1,
FLST,4,17,1,ORDE,12
FITEM,4,497
FITEM,4,509
FITEM,4,-512
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,2000000,P51X,,,0.5,,,1,
FLST,4,17,1,ORDE,12
FITEM,4,497
FITEM,4,509
FITEM,4,-512
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,4000000,P51X,,,,-0.5,,1,
/AUTO,1
/REP,FAST
EPLOT
FINISH
/SOL
FINISH
/PREP7
TYPE,2
MAT,1
REAL,1
ESYS,0
SECNUM,
TSHAP,LINE
!
*
FLST,2,2,1
FITEM,2,429
FITEM,2,2000429
E,P51X
FLST,2,2,1
FITEM,2,441
FITEM,2,2000441
E,P51X
FLST,2,2,1
FITEM,2,442
FITEM,2,2000442
E,P51X
FLST,2,2,1
FITEM,2,443
FITEM,2,2000443
E,P51X
FLST,2,2,1
FITEM,2,361
FITEM,2,2000361
E,P51X
FLST,2,2,1
FITEM,2,373
FITEM,2,2000373
E,P51X
FLST,2,2,1
FITEM,2,374
FITEM,2,2000374
E,P51X
FLST,2,2,1
FITEM,2,375
FITEM,2,2000375
E,P51X
FLST,2,2,1
FITEM,2,313
FITEM,2,2000313
E,P51X
FLST,2,2,1
FITEM,2,325
FITEM,2,2000325
E,P51X
FLST,2,2,1
FITEM,2,326
FITEM,2,2000326
E,P51X
FLST,2,2,1
FITEM,2,327
FITEM,2,2000327
E,P51X
FLST,2,2,1
FITEM,2,253
FITEM,2,2000253
E,P51X
FLST,2,2,1
FITEM,2,266
FITEM,2,2000266
E,P51X
FLST,2,2,1
FITEM,2,267
FITEM,2,2000267
E,P51X
FLST,2,2,1
FITEM,2,268
FITEM,2,2000268
E,P51X
FLST,2,2,1
FITEM,2,265
FITEM,2,2000265
E,P51X
FLST,2,2,1
FITEM,2,866
FITEM,2,2000866
E,P51X
FLST,2,2,1
FITEM,2,878
FITEM,2,2000878
E,P51X
FLST,2,2,1
FITEM,2,879
FITEM,2,2000879
E,P51X
FLST,2,2,1
FITEM,2,880
FITEM,2,2000880
E,P51X
FLST,2,2,1
FITEM,2,802
FITEM,2,2000802
E,P51X
FLST,2,2,1
FITEM,2,814
FITEM,2,2000814
E,P51X
FLST,2,2,1
FITEM,2,815
FITEM,2,2000815
E,P51X
FLST,2,2,1
FITEM,2,2000816
FITEM,2,816
E,P51X
FLST,2,2,1
FITEM,2,661
FITEM,2,2000661
E,P51X
FLST,2,2,1
FITEM,2,673
FITEM,2,2000673
E,P51X
FLST,2,2,1
FITEM,2,674
FITEM,2,2000674
E,P51X
FLST,2,2,1
FITEM,2,675
FITEM,2,2000675
E,P51X
FLST,2,2,1
FITEM,2,497
FITEM,2,2000497
E,P51X
FLST,2,2,1
FITEM,2,2000510
FITEM,2,510
E,P51X
FLST,2,2,1
FITEM,2,511
FITEM,2,2000511
E,P51X
FLST,2,2,1
FITEM,2,2000512
FITEM,2,512
E,P51X
FLST,2,2,1
FITEM,2,509
FITEM,2,2000509
E,P51X
TYPE,2
MAT,1
REAL,2
ESYS,0
SECNUM,
TSHAP,LINE
!
*
FLST,2,2,1
FITEM,2,429
FITEM,2,4000429
E,P51X
FLST,2,2,1
FITEM,2,441
FITEM,2,4000441
E,P51X
FLST,2,2,1
FITEM,2,442
FITEM,2,4000442
E,P51X
FLST,2,2,1
FITEM,2,443
FITEM,2,4000443
E,P51X
FLST,2,2,1
FITEM,2,361
FITEM,2,4000361
E,P51X
FLST,2,2,1
FITEM,2,373
FITEM,2,4000373
E,P51X
FLST,2,2,1
FITEM,2,374
FITEM,2,4000374
E,P51X
FLST,2,2,1
FITEM,2,375
FITEM,2,4000375
E,P51X
FLST,2,2,1
FITEM,2,313
FITEM,2,4000313
E,P51X
FLST,2,2,1
FITEM,2,325
FITEM,2,4000325
E,P51X
FLST,2,2,1
FITEM,2,326
FITEM,2,4000326
E,P51X
FLST,2,2,1
FITEM,2,327
FITEM,2,4000327
E,P51X
FLST,2,2,1
FITEM,2,253
FITEM,2,4000253
E,P51X
FLST,2,2,1
FITEM,2,266
FITEM,2,4000266
E,P51X
FLST,2,2,1
FITEM,2,267
FITEM,2,4000267
E,P51X
FLST,2,2,1
FITEM,2,268
FITEM,2,4000268
E,P51X
FLST,2,2,1
FITEM,2,265
FITEM,2,4000265
E,P51X
FLST,2,2,1
FITEM,2,866
FITEM,2,4000866
E,P51X
FLST,2,2,1
FITEM,2,878
FITEM,2,4000878
E,P51X
FLST,2,2,1
FITEM,2,879
FITEM,2,4000879
E,P51X
FLST,2,2,1
FITEM,2,880
FITEM,2,4000880
E,P51X
FLST,2,2,1
FITEM,2,802
FITEM,2,4000802
E,P51X
FLST,2,2,1
FITEM,2,814
FITEM,2,4000814
E,P51X
FLST,2,2,1
FITEM,2,815
FITEM,2,4000815
E,P51X
FLST,2,2,1
FITEM,2,816
FITEM,2,4000816
E,P51X
FLST,2,2,1
FITEM,2,661
FITEM,2,4000661
E,P51X
FLST,2,2,1
FITEM,2,673
FITEM,2,4000673
E,P51X
FLST,2,2,1
FITEM,2,674
FITEM,2,4000674
E,P51X
FLST,2,2,1
FITEM,2,675
FITEM,2,4000675
E,P51X
FLST,2,2,1
FITEM,2,497
FITEM,2,4000497
E,P51X
FLST,2,2,1
FITEM,2,510
FITEM,2,4000510
E,P51X
FLST,2,2,1
FITEM,2,511
FITEM,2,4000511
E,P51X
FLST,2,2,1
FITEM,2,512
FITEM,2,4000512
E,P51X
FLST,2,2,1
FITEM,2,509
FITEM,2,4000509
E,P51X
FINISH
/SOL
FLST,2,17,1,ORDE,12
FITEM,2,2000253
FITEM,2,2000265
FITEM,2,-2000268
FITEM,2,2000313
FITEM,2,2000325
FITEM,2,-2000327
FITEM,2,2000361
FITEM,2,2000373
FITEM,2,-2000375
FITEM,2,2000429
FITEM,2,2000441
FITEM,2,-2000443
!
*
/GO
D,P51X,,,,,,ALL,,,,,
FLST,2,17,1,ORDE,12
FITEM,2,4000253
FITEM,2,4000265
FITEM,2,-4000268
FITEM,2,4000313
FITEM,2,4000325
FITEM,2,-4000327
FITEM,2,4000361
FITEM,2,4000373
FITEM,2,-4000375
FITEM,2,4000429
FITEM,2,4000441
FITEM,2,-4000443
!
*
/GO
D,P51X,,,,,,ALL,,,,,
FLST,2,17,1,ORDE,12
FITEM,2,2000497
FITEM,2,2000509
FITEM,2,-2000512
FITEM,2,2000661
FITEM,2,2000673
FITEM,2,-2000675
FITEM,2,2000802
FITEM,2,2000814
FITEM,2,-2000816
FITEM,2,2000866
FITEM,2,2000878
FITEM,2,-2000880
!
*
/GO
D,P51X,,,,,,ALL,,,,,
FLST,2,17,1,ORDE,12
FITEM,2,4000497
FITEM,2,4000509
FITEM,2,-4000512
FITEM,2,4000661
FITEM,2,4000673
FITEM,2,-4000675
FITEM,2,4000802
FITEM,2,4000814
FITEM,2,-4000816
FITEM,2,4000866
FITEM,2,4000878
FITEM,2,-4000880
!
*
/GO
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,481
FITEM,2,485
FITEM,2,-487
FITEM,2,513
FITEM,2,-523
!
*
/GO
D,P51X,,,,,,ALL,,,,,
FLST,5,4,5,ORDE,4
FITEM,5,3
FITEM,5,7
FITEM,5,15
FITEM,5,19
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.05245042
BETAD,0.047664025
*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,accel(tm)*2/3,
Allsel!
选择所有内容
Solve!
求解计算
*ENDDO
Finish