!单缺陷管道纵波检测
FINISH
/FILNAME,ONE_CRACK_L
*SET,PI,3.1415926
*SET,L,2.450 !管道长度
*SET,RO,0.076 !管道外径
*SET,T,0.0055 !管道壁厚
*SET,CCL,2*RO*PI/4 !缺陷周向长度
*SET,CAL,0.005 !缺陷轴向长度
*SET,CL,1.1 !缺陷距管道左端位置
*SET,WL,0.078 !导波波长
*SET,RL,0.1 !信号接收位置
!**************************
!
!**************************
/PREP7
ET,1,SHELL63
R,1,T
MP,EX,1,2.1E11
MP,PRXY,1,0.3
MP,DENS,1,7850
/VIEW,1,1,1,1
K,1,0,RO,0
K,2,,RO,L
K,3,,RO,CL
K,4,,RO,CL+CAL
K,100,0,0,0
K,101,,0,L
L,1,3
L,2,4
L,3,4
AROTAT,1,,,,,,100,101,360
AROTAT,2,,,,,,100,101,360
AROTAT,3,,,,,,100,101,270
ALLSEL,ALL
AGLUE,ALL
KDELE,100,101,1
LSEL,S,LINE,,3
LSEL,A,LINE,,35,37,1
LESIZE,ALL,,,5
LSEL,S,LOC,Z,0
LSEL,A,LOC,Z,L
LSEL,A,LOC,Z,CL
LSEL,A,LOC,Z,CL+CAL
LESIZE,ALL,,,8
LSEL,S,LINE,,1,2,1
LSEL,A,LINE,,4,6,1
LSEL,A,LINE,,15,17,1
LESIZE,ALL,WL/8,,
ALLSEL,ALL
MSHAPE,0 !四边形单元类型
MSHKEY,1 !映射网格划分
AMESH,ALL
ALLSEL,ALL
/SOLU
ANTYPE,TRANS
TRNOPT,FULL
LSEL,S,LOC,Z,L
NSLL,S,1
D,ALL,ALL !所有选中节点全加约束
*DIM,WAVE,TABLE,15,1,1
!TIME
*SET,WAVE(1,0,1),6.4E-6
*SET,WAVE(2,0,1),1E-5
*SET,WAVE(3,0,1),1.71E-5
*SET,WAVE(4,0,1),2.42E-5
*SET,WAVE(5,0,1),3.14E-5
*SET,WAVE(6,0,1),3.85E-5
*SET,WAVE(7,0,1),4.56E-5
*SET,WAVE(8,0,1),5.28E-5
*SET,WAVE(9,0,1),6.00E-5
*SET,WAVE(10,0,1),6.71E-5
*SET,WAVE(11,0,1),7.42E-5
*SET,WAVE(12,0,1),8.14E-5
*SET,WAVE(13,0,1),8.85E-5
*SET,WAVE(14,0,1),9.30E-5
*SET,WAVE(15,0,1),1.20E-3
!WAVE
*SET,WAVE(1,1,1),1E-20
*SET,WAVE(2,1,1),-1.32E-6
*SET,WAVE(3,1,1),3.16E-6
*SET,WAVE(4,1,1),-5.00E-6
*SET,WAVE(5,1,1),7.11E-6
*SET,WAVE(6,1,1),-8.68E-6
*SET,WAVE(7,1,1),9.74E-6
*SET,WAVE(8,1,1),-9.74E-6
*SET,WAVE(9,1,1),8.68E-6
*SET,WAVE(10,1,1),-7.11E-6
*SET,WAVE(11,1,1),5.00E-6
*SET,WAVE(12,1,1),-3.16E-6
*SET,WAVE(13,1,1),1.32E-6
*SET,WAVE(14,1,1),-1.00E-15
*SET,WAVE(15,1,1),1.00E-20
TIME,1.2E-3 !指定荷载步结束时间
DELTIM,1.2E-6
LSEL,S,LOC,Z,0
NSLL,S,1
D,ALL,UZ,%WAVE%
OUTRES,ALL,ALL
ALLSEL,ALL
SOLVE
FINISH |