找回密码
 注册
Simdroid-非首页
查看: 1002|回复: 10

[心得交流] 用vusdfld子程序实现材料属性随纵坐标变化

[复制链接]
发表于 2012-5-14 19:56:35 | 显示全部楼层 |阅读模式 来自 北京
本帖最后由 taozi136161055 于 2013-5-18 21:02 编辑

最近做个实例,需要实现材料随着纵坐标变化,于是考虑子程序vusdfld,学了一段时间的Fortran,着手编了一个小程序,经验证可以运行,代码如下。

*******************************************
c
c User subroutine VUSDFLD for user-defined fields
c
      subroutine vusdfld(
c Read only -
     *   nblock, nstatev, nfieldv, nprops, ndir, nshr,
     *   jElemUid, kIntPt, kLayer, kSecPt,
     *   stepTime, totalTime, dt, cmname,
     *   coordMp, direct, T, charLength, props,
     *   stateOld,
c Write only -
     *   stateNew, field )
c
      include 'vaba_param.inc'
c
      dimension props(nprops),
     *          jElemUid(nblock), coordMp(nblock, *),
     *          direct(nblock, 3, 3), T(nblock,3,3),
     *          charLength(nblock),
     *          stateOld(nblock, nstatev),
     *          stateNew(nblock, nstatev),
     *          field(nblock, nfieldv)
      character*80 cmname
      parameter( nrData=6 )
c
      character*3 cData(maxblk*6)
      dimension jData(maxblk*nrData)
      dimension eqps(maxblk*6),stress(maxblk*6)
c
      if(stepTime.eq.0) then
      do k = 1, nblock
      y = coordMp(k,2)
      field(k,1) = 0 - y
c
      end do
      end if
c
      return
      end

************************************分割线

希望对初学vusdfld的大家有所帮助。

关于abaqus、vusdfld与usdfld的问题可以多多交流,共同提高!!
发表于 2014-2-23 22:08:31 | 显示全部楼层 来自 山东济南
Simdroid开发平台
楼主  这个子程序怎么调用  和USDFLD一样吗,在property中选中‘user defined field’??
回复 1 不支持 0

使用道具 举报

发表于 2012-10-10 14:37:08 | 显示全部楼层 来自 山东济南
好贴  正需要  顶起
回复 不支持

使用道具 举报

发表于 2013-4-26 19:38:56 | 显示全部楼层 来自 天津
好帖子,希望顶起来,作者写的更详细些
回复 不支持

使用道具 举报

发表于 2014-1-21 19:09:27 | 显示全部楼层 来自 山东济南
有没有inp文件啊!急需啊!
回复 不支持

使用道具 举报

发表于 2014-6-26 23:04:29 | 显示全部楼层 来自 江西南昌
props(pprops)是user matiaral中的那些吗
回复 不支持

使用道具 举报

发表于 2015-7-8 17:06:53 | 显示全部楼层 来自 湖南长沙
楼主还在吗,如果在usdfld里面怎么用呢
回复 不支持

使用道具 举报

发表于 2018-5-4 21:39:19 | 显示全部楼层 来自 大连理工大学
coordmp提出的是物质点的坐标值么?为什么我提取出来的全是零啊
回复 不支持

使用道具 举报

发表于 2021-9-15 10:04:56 | 显示全部楼层 来自 湖北武汉
感谢楼主分享的资料,对我很有用。我在想是不是初始时刻判定的时候可以改为 if stepTime.le.dt,相当于第一个增量步的时候,开始赋予材料属性。因为之前用 stepTime.eq.0,发现并没有赋值成功。
回复 不支持

使用道具 举报

发表于 2022-1-4 12:15:11 | 显示全部楼层 来自 浙江杭州
本帖最后由 jacklee_94 于 2022-1-4 13:07 编辑
18354223911 发表于 2021-9-15 10:04
感谢楼主分享的资料,对我很有用。我在想是不是初始时刻判定的时候可以改为 if stepTime.le.dt,相当于第一 ...

"steptime.le.dt"这个语句赋值成功
回复 不支持

使用道具 举报

发表于 2022-2-10 00:20:09 | 显示全部楼层 来自 天津
西兰花佛系读博 发表于 2018-5-4 21:39
coordmp提出的是物质点的坐标值么?为什么我提取出来的全是零啊

同问,这个coordmp提取出来的是积分点(单元中心点)的坐标,还是节点的坐标?
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-29 15:15 , Processed in 0.039539 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表