4-6.txt

是用apdl语言编的

/TITLE,Crack
/PREP7
ET,1,SOLID65
KEYOPT,1,5,2
ET,2,LINK8
ET,3,PIPE16
R,1
R,2,0.15
R,3,1,0.5
MP,EX,1,2E6
MP,PRXY,1,0
TB,CONC,1
TBDATA,,,,,-1
MP,EX,2,30E6   
MP,PRXY,2,0.3
!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
BLC4, , ,5,6,1.5
/VIEW, 1 ,1,1,1 
/ANG, 1 
/REP,FAST
!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
/PNUM,LINE,1
LSEL,,LOC,Z,0.1,1.4
LSEL,R,LOC,Y,0
TYPE,   2   
MAT,       2
REAL,       2
LESIZE,ALL,,,1
LMESH,ALL 
ALLSEL
LSEL,,LOC,Z,1.5
LSEL,R,LOC,Y,1,4
TYPE,   3   
MAT,       1
REAL,       3
LESIZE,ALL,,,4
LMESH,ALL
ALLSEL
TYPE,   1   
MAT,       1
REAL,       1
LSEL,,LOC,X,1,4
LESIZE,ALL,,,1
ALLSEL
MSHAPE,0,3D
MSHKEY,1
VMESH,ALL
FINISH
!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
/PREP7  
CE,1,0,4,UZ,1,7,UZ,-1,7,ROTX,-3,
CE,2,0,6,UZ,1,7,UZ,-1,7,ROTX,-1.5,  
CE,3,0,8,UZ,1,7,UZ,-1,7,ROTX,1.5,   
CE,4,0,5,UZ,1,7,UZ,-1,7,ROTX,3, 
CE,5,0,1,UZ,1,11,UZ,-1,11,ROTX,-3,  
CE,6,0,12,UZ,1,11,UZ,-1,11,ROTX,-1.5,   
CE,7,0,10,UZ,1,11,UZ,-1,11,ROTX,1.5,
CE,8,0,9,UZ,1,11,UZ,-1,11,ROTX,3, 
NSEL,,LOC,Z,0
D,ALL,ALL
ALLSEL
NSEL,,LOC,Z,1.5
D,ALL,ROTY
D,ALL,ROTZ
ALLSEL
F,7,MX,300
F,11,MX,300
/SOL
NSUBST,5,0,0
AUTOTS,1
SOLVE
!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
/POST1
SET,LAST 
*GET,SCON,NODE,17,S,Z
ETAB,ST,LS,1
ESORT,ST
*GET,STL,SORT,,MAX
*status,parm 
/DEVICE,VECTOR,1
PLCRACK
SAVE
FINISH