为什么会穿透呢?
浏览:184446
/PREP7
!*
ET,1,PLANE162
!*
ET,2,PLANE162
!*
ET,3,PLANE162
!*
KEYOPT,1,3,2
KEYOPT,1,5,0
!*
KEYOPT,2,3,2
KEYOPT,2,5,0
!*
KEYOPT,3,3,2
KEYOPT,3,5,0
!*
!*
EDMP,RIGI,1,0,0
MP,DENS,1,7800
MP,EX,1,2e11
MP,NUXY,1,0.3
MP,DENS,2,2390
TB,EVIS,2,,,,
TBDAT,46,27.4e9
TBDAT,47,0
TBDAT,48,60.5e9
TBDAT,61,0.53
*CSET,1,2, 1,3,
MPCOPY, ,1,3
TBCOPY,ALL,1,3
!*
SAVE
PCIRC,0.0025, ,0,360,
RECTNG,-5e-3,5e-3,0.0025,0.005,
RECTNG,-0.005,0.005,-0.0025,-0.005,
SAVE
CM,_Y,AREA
ASEL, , , , 2
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 1, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 2, , 2, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 3
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 3, , 3, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
ESIZE,0.0005,0,
MSHAPE,0,2D
MSHKEY,1
!*
FLST,5,3,5,ORDE,2
FITEM,5,1
FITEM,5,-3
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
SAVE
/UI,MESH,OFF
!*
EDPART,CREATE
!*
FINISH
/SOL
FINISH
/PREP7
!*
EDCGEN,ASTS, 1, 2,0.2,0,0,0,0, , , , ,0,10000000,0,0
!*
EDCGEN,ASTS, 1, 3,0.2,0,0,0,0, , , , ,0,10000000,0,0
FLST,2,1,5,ORDE,1
FITEM,2,3
!*
/GO
DA,P51X,UY,
*DIM,t,ARRAY,3,1,1, , ,
!*
*DIM,d,ARRAY,3,1,1, , ,
!*
*SET,T(2,1,1) , 1
*SET,T(3,1,1) , 5
*SET,D(2,1,1) , -0.0015
*SET,D(3,1,1) , -0.0015
EDLOAD,ADD,RBUY,0, 2,T,D, 0, , , , ,
FINISH
/SOL
TIME,5,
EDCTS,0.05,0.9,
EDOPT,ADD,blank,LSDYNA
EDRST,50,
EDHTIME,50,
EDDUMP,1,
!*
/STATUS,SOLU
SOLVE
EDCTS,0.05,0.9,
/STATUS,SOLU
SOLVE
!*
ET,1,PLANE162
!*
ET,2,PLANE162
!*
ET,3,PLANE162
!*
KEYOPT,1,3,2
KEYOPT,1,5,0
!*
KEYOPT,2,3,2
KEYOPT,2,5,0
!*
KEYOPT,3,3,2
KEYOPT,3,5,0
!*
!*
EDMP,RIGI,1,0,0
MP,DENS,1,7800
MP,EX,1,2e11
MP,NUXY,1,0.3
MP,DENS,2,2390
TB,EVIS,2,,,,
TBDAT,46,27.4e9
TBDAT,47,0
TBDAT,48,60.5e9
TBDAT,61,0.53
*CSET,1,2, 1,3,
MPCOPY, ,1,3
TBCOPY,ALL,1,3
!*
SAVE
PCIRC,0.0025, ,0,360,
RECTNG,-5e-3,5e-3,0.0025,0.005,
RECTNG,-0.005,0.005,-0.0025,-0.005,
SAVE
CM,_Y,AREA
ASEL, , , , 2
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 1, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 2, , 2, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 3
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 3, , 3, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
ESIZE,0.0005,0,
MSHAPE,0,2D
MSHKEY,1
!*
FLST,5,3,5,ORDE,2
FITEM,5,1
FITEM,5,-3
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
SAVE
/UI,MESH,OFF
!*
EDPART,CREATE
!*
FINISH
/SOL
FINISH
/PREP7
!*
EDCGEN,ASTS, 1, 2,0.2,0,0,0,0, , , , ,0,10000000,0,0
!*
EDCGEN,ASTS, 1, 3,0.2,0,0,0,0, , , , ,0,10000000,0,0
FLST,2,1,5,ORDE,1
FITEM,2,3
!*
/GO
DA,P51X,UY,
*DIM,t,ARRAY,3,1,1, , ,
!*
*DIM,d,ARRAY,3,1,1, , ,
!*
*SET,T(2,1,1) , 1
*SET,T(3,1,1) , 5
*SET,D(2,1,1) , -0.0015
*SET,D(3,1,1) , -0.0015
EDLOAD,ADD,RBUY,0, 2,T,D, 0, , , , ,
FINISH
/SOL
TIME,5,
EDCTS,0.05,0.9,
EDOPT,ADD,blank,LSDYNA
EDRST,50,
EDHTIME,50,
EDDUMP,1,
!*
/STATUS,SOLU
SOLVE
EDCTS,0.05,0.9,
/STATUS,SOLU
SOLVE