DFGRD1
關注創建者：明明就_6690 創建時間：2020-08-24
DFGRD1的實例教程
'MAT1') THEN
CALL UMAT_MAT1(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
1 RPL,DDSDDT,DRPLDE,DRPLDT,
2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,
3 NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,
4 CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,JSTEP,KINC)
ELSE IF(CMNAME(1:4) .EQ.
展開 SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,
2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,MATERL,NDI,NSHR,NTENS,
3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,
4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)
INCLUDE 'ABA_PARAM.INC'
CHARACTER*80 MATERL
real*8 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(3),DROT(3,3),
4 DFGRD0(3,3),DFGRD1(3,3),PIAN(6),PIAN1(6),PIAN2(6),PIAN3(6),
5 SHUZU(NTENS)
!props(1)=E0,props(2)=v,泊松比，props(3)=a,props(4)=b,!非線性彈簧參數與泊松比
! 4個Maxwell體參數。
展開 ddsddt(ntens),drplde(ntens), &
stran(ntens),dstran(ntens),time(2), &
predef(1),dpred(1),props(nprops),coords(3), &
drot(3,3),dfgrd0(3,3),dfgrd1(3,3)
!
展開 平面應力脆性斷裂相場AT2模型 ￥120
umat進行可視化
subroutine umat(stress,statev,ddsdde,sse,spd,scd, &
rpl,ddsddt,drplde,drpldt, &
stran,dstran,time,dtime,temp,dtemp,predef,dpred,cmname, &
ndi,nshr,ntens,nstatv,props,nprops,coords,drot,pnewdt, &
celent,dfgrd0,dfgrd1,noel,npt,layer,kspt,kstep,kinc)
use AT2_plane_stress_uel_pack
include 'aba_param.inc'
character*80 cmname
dimension stress(ntens),statev(nstatv),ddsdde(ntens,ntens), &
ddsddt(ntens),drplde(ntens), &
stran(ntens),dstran(ntens),time(2), &
predef(1),dpred(1),props(nprops),coords(3), &
drot(3,3),dfgrd0(3,3),dfgrd1
展開 (3), &
drot(3,3),dfgrd0(3,3),dfgrd1(3,3)
!
DFGRD1的相關專題、標簽、搜索
DFGRD1的最新內容
,dfgrd1,noel,npt,layer,kspt,jstep,kinc)
use kvisual
include 'aba_param.inc' !
(NTENS),
3 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),
4 PROPS(NPROPS),COORDS(3),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3)
C
DIMENSION EELAS(NTENS),EPLAS(NTENS),FLOW(NTENS),DEPLAS
DRPLDE, DRPLDT, STRAN, DSTRAN, TIME, DTIME, &
TEMP, DTEMP, PREDEF, DPRED, CMNAME, NDI, NSHR, NTENS, &
NSTATV, PROPS, NPROPS, COORDS, DROT, PNEWDT, &
CELENT, DFGRD0, DFGRD1
,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC) !
,DFGRD1, &
NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
INCLUDE 'ABA_PARAM.INC'
for each integration point K in block:
# 0) 初始化/讀入
if STATEV(1,K) <= 0: STATEV(1,K) = s0
s = STATEV(1,K) # 內部抗力
平面應力脆性斷裂相場AT2模型10個月前
,dfgrd1,noel,npt,layer,kspt,kstep,kinc)
use AT2_plane_stress_uel_pack
include 'aba_param.inc'
character*80 cmname
dimension stress(ntens),statev(nstatv),ddsdde(ntens,ntens)
,nshr,ntens,nstatv,nprop,
& time,dTime,temp,dtemp,
& stress,statev,ddsdde,sse,spd,epseq,
& stran,dstran, epsPl, props, coords,
& var0, dfgrd0, dfgrd1
&
stran(ntens),dstran(ntens),time(2), &
predef(1),dpred(1),props(nprops),coords(3), &
drot(3,3),dfgrd0(3,3),dfgrd1
,dfgrd1,noel,npt,layer,kspt,kstep,kinc)
use plastic_kinematic_pack
include 'aba_param.inc'
character*80 cmname
dimension &
,dfgrd1,noel,npt,layer,kspt,kstep,kinc)
use plastic_iso_pack
include 'aba_param.inc'
character*80 cmname
dimension stress(ntens),statev(nstatv),ddsdde(ntens,ntens),
