- 积分
- 29
- 注册时间
- 2006-7-27
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2008-10-31 00:56:24
|
显示全部楼层
来自 美国
另外自己可以编写cohesive Uel, 以便更加灵活的定义cohesive element的T-S law, 也有不少人做过,基本流程如下,源程序抱歉我不方便贴上来。
C SUBROUTINE UEL(RHS,AMATRX,SVARS,ENERGY,NDOFEL,NRHS,NSVARS,
1 PROPS,NPROPS,COORDS,MCRD,NNODE,U,DU,V,A,JTYPE,TIME,DTIME,
2 KSTEP,KINC,JELEM,PARAMS,NDLOAD,JDLTYP,ADLMAG,PREDEF,NPREDF,
3 LFLAGS,MLVARX,DDLMAG,MDLOAD,PNEWDT,JPROPS,NJPROP,PERIOD)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION RHS(MLVARX,*),AMATRX(NDOFEL,NDOFEL),PROPS(*),
1 SVARS(*),ENERGY(8),COORDS(MCRD,NNODE),U(NDOFEL),
2 DU(MLVARX,*),V(NDOFEL),A(NDOFEL),TIME(2),PARAMS(*),
3 JDLTYP(MDLOAD,*),ADLMAG(MDLOAD,*),DDLMAG(MDLOAD,*),
4 PREDEF(2,NPREDF,NNODE),LFLAGS(*),JPROPS(*)
DIMENSION C_COOR(3,8), R_COOR(3,8),R_F(24)
DIMENSION R_MATRX(24,24),ANGLE(3,9),R_DUX(4),R_DUY(4),R_DUZ(4)
DIMENSION TN(4),TT_2(4),TT_3(4),STFN(4),STFT_2(4),STFT_3(4)
DIMENSION AX(3,2),AY(3,2),AZ(3,2),AB(3,2)
DIMENSION PMID(3,2),R_U(3,8),R_DU(3,8)
C INITIALIZE LOCAL VARIABLES
C INITIALIZE THE STIFFNESS MATRIX AND RESIDUAL FORCE ARRAY
C CALCULATE THE CURRENT ELEMENT GEOMETRY
C DEFINE ROTATION ANGLES BETWEEN LOCAL AND GLOBAL SYSTEM
C COMPUTE LOCAL ELEMENAL COORDINATE SYSTEM
C COMPUTE COORDINATES IN LOCAL COORDINATE SYSTEM
C COMPUTE RELATIVE DISP. IN LOCAL COOR. SYSTEM
C COMPUTE LOCAL STIFFNESS AND NODAL TRACTIONS
C---------------------------------------------------------------
C COMPUTE THE LOCAL STIFFNESS AND NODAL TRACTIONS FOR NODE PAIR 1 AND 5, 2 AND 6, 3 AND 7, 4 AND 8
C---------------------------------------------------------------
C CHECK IF CRITICAL DISP. IS REACHED
C CHECK ENERGY FRACTURE CRITERION
C-----------------------------------------------------------------------------
C CALCULATE THE RESIDUAL FORCE AND THE STIFFNESS MATRIX
C END OF MAIN CODE
C SUBROUTINES
感觉掌握好以上这些方法这些对ABAQUS的断裂分析应该算是比较完善了,个人见解难免有偏差,不足之处欢迎牛人补充。
[ 本帖最后由 yaooay 于 2008-10-31 01:00 编辑 ] |
|