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

[子程序] UTRACLOAD随时间空间变化的切向载荷的子程序问题

[复制链接]
发表于 2016-5-2 20:32:11 | 显示全部楼层 |阅读模式 来自 辽宁鞍山
悬赏55仿真币未解决
本帖最后由 yangjiajiaji 于 2016-5-3 16:30 编辑

对于移动的DLOAD垂向载荷的施加正常且效果良好,然而按照同样的方法对移动的UTRACLOAD水平载荷进行施加时,载荷却没按照子程序的要求施加在特定区域区域,且没有随着时间而发生移动,还请高手指教一二,不胜感激!所使用的UTRACLOAD子程序如下:(附件中为相应的inp文件)
!**************************纵向载荷子程序***************************
      SUBROUTINE UTRACLOAD(ALPHA,T_USRE,KSTEP,KINC,TIME,NOEL,COORDS,
     /                     DIRCOS,JLTYP,SNAME)
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION T_USER(3),TIME(2),COORDS(3),DIRCOS(3)
      CHARACTER*80 SNAME
      PARAMETER(PY=1027.3d0,V=200.0d0,ZERO=0.0d0,
     /          L0=34.0d0,L1=10.0d0,L2=14.0d0)
C
      SPEED=V*10000.0d0/36.0d0   
      DISTANCE=SPEED*TIME(2)
      XMAX=L1/2
      XMIN=XMAX-L1
      ZMAX=L0+DISTANCE
      ZMIN=ZMAX-L2
      IF(COORDS(3)<=ZMAX.AND.COORDS(3)>=ZMIN
     /   .AND.COORDS(1)<=XMAX.AND.COORDS(1)>=XMIN) THEN
          ALPHA=0.3*PY
          T_USER(1)=0.0
          T_USER(2)=0.0
          T_USER(3)=-1.0
      ELSE
          ALPHA=ZERO
          T_USER(1)=0.0
          T_USER(2)=0.0
          T_USER(3)=-1.0
      ENDIF
      RETURN
      END


附件: 您需要 登录 才可以下载或查看,没有账号?注册
 楼主| 发表于 2016-5-3 08:51:32 | 显示全部楼层 来自 辽宁鞍山
Simdroid开发平台
首先,该子程序中的加载空间的移动应该是正确的,这在DLOAD中已经验证过(基于ABAQUS/Standard),但是结果显示切向力没加上,随后我将此子程序中的ELSE部分去掉切向力加上了,但不是程序中规定的加载区域,而是最初选择的整个表面。按理说应该可行的,不知是何原因导致的,还请大神指教!
回复

使用道具 举报

 楼主| 发表于 2016-5-3 16:18:34 | 显示全部楼层 来自 辽宁鞍山
问题已解决,子程序中的头文件SUBROUTINE UTRACLOAD(ALPHA,T_USRE,KSTEP,KINC,TIME,NOEL,COORDS,
     /                     DIRCOS,JLTYP,SNAME)中的T_USRE应改成T_USER,原先拷贝的UTRACLOAD子程序有点问题

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
回复

使用道具 举报

 楼主| 发表于 2016-5-3 16:27:59 | 显示全部楼层 来自 辽宁鞍山
下面是相应的图片

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
回复

使用道具 举报

发表于 2016-9-8 21:32:04 | 显示全部楼层 来自 山东济南
正在学习这方面的内容,受教了
回复

使用道具 举报

发表于 2017-6-28 19:39:40 | 显示全部楼层 来自 中国
我的还是有点问题
回复

使用道具 举报

发表于 2017-11-6 11:47:21 | 显示全部楼层 来自 山东青岛
大神们,能加个QQ吗,我想跟你们请教一下
回复

使用道具 举报

发表于 2017-11-6 11:52:43 | 显示全部楼层 来自 山东青岛
本帖最后由 sczygf 于 2017-11-21 10:13 编辑
zw8837212 发表于 2017-6-28 19:39
我的还是有点问题

能否加您个QQ,一起学习
回复

使用道具 举报

发表于 2019-3-27 19:40:24 | 显示全部楼层 来自 湖北武汉
大神,能加个qq指导下吗
回复

使用道具 举报

发表于 2019-6-28 11:36:30 | 显示全部楼层 来自 中国
    SUBROUTINE UTRACLOAD(ALPHA,T_USER,KSTEP,KINC,TIME,NOEL,COORDS,
     1                     DIRCOS,JLTYP,SNAME)
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION T_USER(3),TIME(2),COORDS(3),DIRCOS(3)
      CHARACTER*80 SNAME
      PARAMETER(P=0.2d6,VEL=30,ZINI=0.4,L1=0.3,L2=0.4)
C
      DISTANCE=VEL*TIME(2)
      XMAX=L1/2
      XMIN=XMAX-L1
      ZMAX=ZINI+DISTANCE
      ZMIN=ZMAX-L2
      IF(COORDS(3).IT.ZMAX.AND.COORDS(3).GE.ZMIN
     1   .AND.COORDS(1).IT.XMAX.AND.COORDS(1).GE.XMIN) THEN
          ALPHA=P
          T_USER(1)=0.0
          T_USER(2)=0.0
          T_USER(3)=-1.0
      ELSE
          ALPHA=0
          T_USER(1)=0.0
          T_USER(2)=0.0
          T_USER(3)=-1.0
      ENDIF
      RETURN
      END
这个子程序有什么问题吗
回复

使用道具 举报

发表于 2019-12-19 03:32:47 | 显示全部楼层 来自 中国
yangjiajiaji 发表于 2016-5-3 16:18
问题已解决,子程序中的头文件SUBROUTINE UTRACLOAD(ALPHA,T_USRE,KSTEP,KINC,TIME,NOEL,COORDS,
     /    ...

你还少了一个东西 NPT
回复

使用道具 举报

发表于 2020-5-24 13:09:46 | 显示全部楼层 来自 重庆
ly12138 发表于 2019-12-19 03:32
你还少了一个东西 NPT

我使用他的那个程序,T_user和NPT都改了 还是不行
回复

使用道具 举报

发表于 2021-8-25 20:43:24 | 显示全部楼层 来自 中国
来向大神们学习一下,赞赞赞赞
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 23:32 , Processed in 0.037680 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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