abaqus混凝土徐变计算子程序2.0.docVIP

下载本文档

5
0
约1.08万字
约 8页
2018-02-27 发布于河北
举报
版权申诉

abaqus混凝土徐变计算子程序2.0.doc

1、本文档共8页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

abaqus混凝土徐变计算子程序2.0

此为1.0版的修正版，可以考虑混凝土弹性模量随时间，应力变化等情况下的徐变。可以考虑徐变恢复。注意，getvrm中的变量编号与坐标系有关。否则，结果不正确。 ??????? SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,???? 1 TIME,DTIME,CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,???? 2 KSPT,KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO,???? 3 LACCFLA)C??????? INCLUDE ABA_PARAM.INCC??????? CHARACTER*80 CMNAME,ORNAME??????? CHARACTER*3 FLGRAY(15)??????? DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),???? 1 T(3,3),TIME(2)??????? DIMENSION ARRAY(10),JARRAY(10),JMAC(*),JMATYP(*),???? 1 COORD(*)CC??? Reading instantaneous thermal strain in direction 11(x axial)C??? Storing the thermal strain in state variableC??????? CALL GETVRM(THE,ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,???? 1 MATLAYO,LACCFLA)??????? STATEV(1)= ARRAY(1)??????? CC??? Reading instantaneous elastic x axial strain C??? Storing the thermal strain in state variableC??? NOTE: ARRAY(1)--X AXIALC????????? ARRAY(2)--Y AXIALC????????? ARRAY(3)--Z AXIALC??????? CALL GETVRM(EE,ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,???? 1 MATLAYO,LACCFLA)??????? STATEV(2)= ARRAY(3)C??????? CC??? Modifying Field variables to model development of Young’s C????? modulus with age.Cc??????? IF(TIME(2).GT.1) THENc?????????? FIELD(1)=TIME(2)c??????? ELSEc?????????? FIELD(1)=0c??????? END IF??????? RETURN??????? ENDCCC??????? SUBROUTINE UEXPAN(EXPAN,DEXPANDT,TEMP,TIME,DTIME,PREDEF,???? 1 DPRED,STATEV,CMNAME,NSTATV,NOEL)C??????? INCLUDE ABA_PARAM.INCC??????? CHARACTER*80 CMNAMEC??????? DIMENSION EXPAN(*),DEXPANDT(*),TEMP(2),TIME(2),PREDEF(*),???? 1 DPRED(*),STATEV(NSTATV),ARRAY(15)??????? REAL CINI(4,8),T0(8),CLAMDA(4),AN(4)??????? REAL CCLOAD(4),EMOD(8)CC??? SWITCH, II=1, CREEP; II=2, SHRINKAGE, II=3, CREEP+SHRANKAGEC??????? KK=3 C??????????? C===================== INTIAL VALUES =========================C ******* FOR CREEP (USING 1STOPT) *********C?????? C??? INITIAL FUNCTION IS Y=1.9*T0^(-0.118)*(T-T0)/(61-0.51*FC+T-T0)CC?? MODELING FUNCTION (SOFTWARE