子程序编写,VDLOAD/DLOAD,圆形光斑峰值载荷5100MPa,方形光斑峰值载荷3150MPa
subroutine vdload (
C Read only (unmodifiable)variables -
1 nBlock, ndim, stepTime, totalTime,
2 amplitude, curCoords, velocity, dirCos, jltyp, sname,
C Write only (modifiable) variable -
1 value )
C
include 'vaba_param.inc'
C
dimension curCoords(nBlock,ndim), velocity(nBlock,ndim),
1 dirCos(nBlock,ndim,ndim), value(nBlock)
character*80 sname
C
!变量声明
!变量参数定义
do k = 1, nBlock
value(k) = p(用户自定义部分,具体包括幅值曲线的表达式,光斑加载范围)
end do
return
end
SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,
1 COORDS,JLTYP,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION TIME(2), COORDS (3)
CHARACTER*80 SNAME
!变量声明
!变量定义
!幅值曲线、光斑约束定义
F = p
RETURN
END
米塞斯应力:圆形成四周扩散形式,方形相对范围较小
等效塑性应变:圆形中心区域变形较大,方形整体变形均匀,顶点处出现应力集中,变形过大
隐式计算时间成本较长,此处计算到1.5e-8
米塞斯应力:圆形呈高斯分布,方形均匀
等效塑性应变:与显式规律基本一致
米塞斯应力:隐式计算得到的应力分布相对均匀,且数值相对较小,但是云图数值基本相近
等效塑性应变:隐式计算塑性变形相对均匀,变形相对较小
虽然隐式得到的结果相对均匀准确,但是计算成本相比较高。
米塞斯应力:显式更加均匀,无应力集中产生,隐式计算结果顶点处产生应力集中
等效塑性变形:显式计算得到的结果相比隐式更加均匀
免责声明:本文系网络转载或改编,未找到原创作者,版权归原作者所有。如涉及版权,请联系删