| 查看: 1462 | 回复: 1 | ||
lj521775木虫 (正式写手)
|
[求助]
DEFORM软件中韧性断裂子程序
|
本人采用DEFORM软件预测挤压成形过程中的表面裂纹，损伤模型为修正的Cockroft-Latham断裂准则，欲将临界损伤值修正为关于温度和应变速率的函数，故需要采用Fortran语言编写用户子程序。由于缺乏这方面的基础，望大家帮忙编写Cockroft-Latham断裂准则的用户子程序，谢谢！ SUBROUTINE USRDM1(STS,EFSTS,EFEPS,DAMAG,STRLMT,DTIME) C******************************************************************** C C User damage model C C This routine is used to demonstrate the implementation of C damage routine. All the real variables should be double C precision. the definition of arguments are described as follows C C INPUT : C C NRT = DAMAGE MODEL NUMBER C STS = STRESS C EFSTS = EFFECTIVE STRESS C EFEPS = EFFECTIVE STRAIN RATE C DAMAG = PREVIOUS ACCUMULATED DAMAGE C STRLMT = STRAIN LIMIT C DTIME = TIME INCREMENT C C OUTPUT C C DAMAG = NEW VALUE OF ACCUMULATED DAMAGE C C******************************************************************** IMPLICIT INTEGER*4 (I,J,K,L,M,N), REAL*8 (A-H,O-Z) C Additional element data available from the common block ELMCOM C COMMON /ELMCOM/ C C RZE : Four corner coordinates C URZE : Velocity C STSE : Stress C EPSE : Strain rate C EFEPSE : effective strain rate C EFSTSE : Effective stress C TEPSE : Total effective strain C RDTYE : Density C TEMPE : Temperature C DTMPE : Temperature rate C DAMAGE : Damage value C USRE1 : Element user state variable 1 C USRE2 : Element user state variable 2 C USRNE : Nodal user state variables 1,2 at 4 nodes C NODEE : Connectivity C KELE : Global element number C KELEL : Local element number C KGROUP : Material group number C COMMON /ELMCOM/ RZE(2,4),URZE(2,4),STSE(4),EPSE(4),EFEPSE,EFSTSE, + TEPSE,RDTYE,TEMPE(4),DTMPE(4),DAMAGE, + USRE1(1500),USRE2(1500), + USRNE(1500,4),NODEE(4),KELE,KELEL,KGROUP DIMENSION STS(4) C C User codes C RETURN END [ Last edited by lj521775 on 2012-7-26 at 17:38 ] |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有13人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有10人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有12人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有11人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有9人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有11人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有11人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有8人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 陶瓷材料的抗弯强度和断裂韧性数据能否同时得到？
已经有6人回复
- 求助分析断裂韧性
已经有5人回复
- 陶瓷材料断裂韧性如何测量
已经有19人回复
- 聚合物以及聚合物基复合材料断裂韧性GIC或者KIC测试
已经有6人回复
- 沈阳什么地方可以做微晶玻璃断裂韧性和弹性系数的测试？？？？
已经有3人回复
- 材料断裂韧性的测试方法和所需仪器
已经有6人回复
- 断裂韧性KIc测试过程问题，请教
已经有8人回复
- 断裂韧性偏高 肿么办
已经有20人回复
- 【求助】陶瓷断裂韧性的测试
已经有21人回复
- 【求助】陶瓷材料的硬度和断裂韧性有什么吗？
已经有8人回复
2楼2014-05-16 10:59:41
