ABAQUS使用者子程式UMAT如何編譯兩種以上材料本構?

時間 2021-06-04 00:16:53

1樓:

乙個UMAT子程式格式的小例子如下:

CUMAT子程式SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,

1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,

2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,

3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,

4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)

C INCLUDE 'ABA_PARAM.INC'

C CHARACTER*80 CMNAME

DIMENSION STRESS(NTENS),STATEV(NSTATV),

1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),

2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),

3 PROPS(NPROPS),COORDS(2),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3)

C IF (CMNAME(1:4) .EQ. 'MAT0') THEN注意此處變數名MAT0必須大寫

CALL UMAT_MAT0(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,

1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,

2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,

3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,

4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)

C ELSE IF(CMNAME(1:4) .EQ. 'MAT1') THEN !注意此處變數名MAT1必須大寫

CALL UMAT_MAT1(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,

1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,

2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,

3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,

4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)

END IF

CRETURN

ENDCMAT0 子程式SUBROUTINE UMAT_MAT0(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,

1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,

2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,

3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,

4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)

C INCLUDE 'ABA_PARAM.INC'

C CHARACTER*80 CMNAME

DIMENSION STRESS(NTENS),STATEV(NSTATV),

1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),

2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),

3 PROPS(NPROPS),COORDS(2),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3自定義程式段RETURN

ENDCMAT1 子程式SUBROUTINE UMAT_MAT1(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,

1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,

2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,

3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,

4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)

C INCLUDE 'ABA_PARAM.INC'

C CHARACTER*80 CMNAME

DIMENSION STRESS(NTENS),STATEV(NSTATV),

1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),

2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),

3 PROPS(NPROPS),COORDS(2),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3自定義程式段RETURN

END相應地,INP檔案中材料本構定義如下:

*Material, name=MAT0

*Depvar

Nvar1,

*User Material, constants=N1

...*Material, name=MAT1

*Depvar

Nvar2,

*User Material, constants=N2...

2樓:杏子

這個查Documentation就有了,使用CMNAME來區分材料名稱就是了

CMNAME就是你定義的材料名稱

注意:不管你在CAE或者在inp檔案裡定義*Material的材料名稱是大寫還是小寫還是混合,在UMAT裡全部使用大寫的材料名稱

IF (CMNAME(1:4) .EQ.

'MAT1') THENCALL UMAT_MAT1(argument_list)ELSE IF(CMNAME(1:4) .EQ.

'MAT2') THEN

CALL UMAT_MAT2(argument_list)END IF

目前很多android app 使用者體驗和UI設計規範往IOS一邊倒,您怎麼看?

Black J 因為那麼多安卓應用不安卓,所以就無所謂。如果應用都遵循規範那必定是極好的,應用內的操作行為可得到統一。跨應用操作信手拈來。 武豔齡 1 iOS的很多設計是針對手持裝置而非iOS系統的,其目的在於使使用者在盡可能短的時間內使用起來更方便快捷。2 iOS另外有一些設計是僅對iOS系統適用...

abaqus中建立接觸這一分析步直接5u不收斂,有大神來解答一下嗎,文件匯入不了,只能乾說了?

星海 5u的原因有很多,最常見的是沒有提交計算,很快就不收斂了,可能是同一零件設定多個接觸導致網格畸變了,建議首先調網格,節點盡量對的好一些,主從面種子大小一致,實在不行時情況改為tie 還有可能是侵入了,調接觸那邊的adjust防止侵入 人生當苦無妨 建議可以嘗試的辦法 1,接觸主面和從面反過來設...

目前(2020 年)開發WINDOWS程式,用UNICODE還是多位元組更實際?

昊陽 由於在學校學習時,都是用的多位元組函式,很多做專案也是用多位元組函式,於是習慣了多位元組的。用unicode需要重新審視一遍各種函式的版本,工作量大。民營企業一般軟體開發時間都比較緊,自然是什麼方便用什麼,如無必須,勿增實體。我從事影象識別將近10年,一直用多位元組版本,各種函式呼叫很方便,操...