应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜     石溪大学接受考研调剂申请>

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » ANSYS & ABAQUS » abaqus DLOAD子程序求助
【调剂】北京石油化工学院2024年16个专业接受调剂
91/1返回列表
查看: 2079  |  回复: 8
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
【悬赏金币】回答本帖问题，作者c_henl_ei将赠送您 5 个金币

c_henl_ei

木虫 (正式写手)

[求助] abaqus DLOAD子程序求助已有2人参与

小弟最近在学习DLOAD子程序，编译了一段，但是结果计算出来却不是想象的那样载荷在随时间移动，求教各位大侠！！！
各位大侠，这是我用DLOAD做出来的结果，但是和想的不太一样，子程序如下
  SUBROUTINE DLOAD(F,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,LAYER,
     1                 JLTYP,SNAME)
C
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION COORDS(3),TIME(2)
      CHARACTER*80 SNAME
      PARAMETER (PLOAD=50)
C     
      IF (((COORDS(1)-2*TIME(2))**2.0d0+COORDS(2)**2.0d0)**0.5d0.le.
     1     6.1d0) THEN
        F=PLOAD
      ELSE
        F=0
      ENDIF
      RETURN
      END

abaqus DLOAD子程序求助
QQ图片20140916171404.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2014-09-16 17:14:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小左儿

银虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
1.针对你的坐标系，自己查查热源控制方程有没有问题
2.速度单位和你模型单位是否一样
赞一下(1人) 回复此楼
微信公众号：CAE技术分享
2楼2014-09-16 20:46:44
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

c_henl_ei

木虫 (正式写手)
引用回帖:
2楼: Originally posted by 小左儿 at 2014-09-16 20:46:44
1.针对你的坐标系，自己查查热源控制方程有没有问题
2.速度单位和你模型单位是否一样

大侠，我按照您说的看了模型，下面图上有坐标系，然后载荷移动是沿x轴正方向。这个是做的DLOAD程序，加载非均布力，我没有找到随时间移动的例子。模型是40x60mm，载荷中心点移动速度是2mm/s，载荷半径是6mm。求大侠指教，方便的话可以加下QQ吗？1060964937，万分感谢！！！
abaqus DLOAD子程序求助-1
QQ图片20140916213718.jpg
赞一下 回复此楼
3楼2014-09-16 21:42:28
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小左儿

银虫 (正式写手)
引用回帖:
3楼: Originally posted by c_henl_ei at 2014-09-16 21:42:28
大侠，我按照您说的看了模型，下面图上有坐标系，然后载荷移动是沿x轴正方向。这个是做的DLOAD程序，加载非均布力，我没有找到随时间移动的例子。模型是40x60mm，载荷中心点移动速度是2mm/s，载荷半径是6mm。求大侠 ...

移动热源
SUBROUTINE DFLUX (FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
    1                                  TEMP,PRESS,SNAME)
C
      INCLUDE 'ABA_PARAM.INC'
      parameter(one=1.d0)
      DIMENSION COORDS(3),FLUX(2),TIME(2)
      CHARACTER*80 SNAME
        q=633*2.27*0.75
        v=0.00227
        d=v*TIME(2)
        x=COORDS(1)
        y=COORDS(2)
        z=COORDS(3)
        x0=0
        y0=0
        z0=0
        a=0.0019
        b=0.0032
        c=0.0028
        PI=3.1415
        heat=6*sqrt(3.0)*q/(a*b*c*PI*sqrt(PI))
        shape=exp(-3*(x-x0)**2/b**2-3*(y-y0)**2/c**2-3*(z-z0-d)**2/a**2)
C     JLTYP＝1，表示为体热源
        JLTYP=1
        if (JSTEP. eq. one) then
C     FLUX(1)=heat*shape-1100000
       FLUX(1)=heat*shape
       endif
       RETURN
       END


移动热源不明白的可以去仿真论坛，搜索关键字“焊接热源”
赞一下(2人) 回复此楼
微信公众号：CAE技术分享
4楼2014-09-17 19:31:44
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Liusumei16

新虫 (初入文坛)
亲，你可以加我好友Q1152609427吗，想请教您一些问题。谢谢。
赞一下 回复此楼
5楼2015-04-18 19:32:29
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

c_henl_ei

木虫 (正式写手)
引用回帖:
5楼: Originally posted by Liusumei16 at 2015-04-18 19:32:29
亲，你可以加我好友Q1152609427吗，想请教您一些问题。谢谢。

1060964937
回复此楼
6楼2015-07-22 22:04:00
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

89431160
顶一下
7楼2015-07-22 23:25:54
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

火枪手tc

新虫 (初入文坛)
不觉明厉
回复此楼
8楼2016-03-14 10:08:04
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Papur

新虫 (初入文坛)

【答案】应助回帖

LZ，这问题用子程序解决了吗
赞一下 回复此楼
9楼2017-01-15 19:11:51
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 c_henl_ei 的主题更新
91/1返回列表
不应助 确定回帖应助 (注意：应助才可能被奖励，但不允许灌水，必须填写15个字符以上)
普通表情 龙 兔 虎 猫 论文翻译-EnPapers美助理教授团队-SCI英文润色
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 颜宁:基础研究应顶天立地,立地即从需求端作为问题的出发点,立项背景就是面向真实需求 +3 zju2000 2024-04-18 3/150 2024-04-20 00:48 by cococat951
[考研] 298求调剂 +9 孙大大@ 2024-04-17 9/450 2024-04-19 21:50 by 刘国宁
[基金申请] 估计今年青基又没戏 +9 忆念7 2024-04-18 9/450 2024-04-19 17:01 by 顺其zi然
[基金申请] 基金和生小孩 +33 Ausy 2024-04-15 35/1750 2024-04-19 16:21 by feng6531
[高分子] 聚酰胺650与环氧树脂e44固化 +3 yindingxin 2024-04-15 3/150 2024-04-19 13:55 by weilingdun
[论文投稿] 求助 100+3 guhangyu 2024-04-15 3/150 2024-04-19 08:48 by bobvan
[有机交流] 兄弟们帮我看看这两个结构怎么合成 +5 xl2088131 2024-04-17 5/250 2024-04-19 08:09 by 西瓜霜华
[考研] 本科211 277分求调剂 +3 0854通信工程 2024-04-18 4/200 2024-04-18 09:11 by 花花平头哥
[论文投稿] MDPI初审7天，是不是被拒 20+6 applegirl5762 2024-04-15 8/400 2024-04-17 08:49 by bobvan
[考研] 浙江海洋大学 船舶与海运学院 交通运输专硕 （交通信息工程及控制）接收调节 +4 joee 2024-04-15 8/400 2024-04-16 20:47 by TommyZiAng
[考博] 25年申博求助，射频方向 +4 SherlockAH 2024-04-15 10/500 2024-04-16 18:06 by ljysudaee
[考研] 求调剂 +4 鹿萌月yy 2024-04-15 5/250 2024-04-16 16:16 by chenweiwade
[有机交流] 关于DMF +6 农药害害 2024-04-13 6/300 2024-04-16 15:57 by hwqMSE
[考研] 329求调剂 +6 Kaylawander 2024-04-13 7/350 2024-04-16 12:00 by 风来花开1
[考研] 329求调剂 +18 王郁洁哈哈哈 2024-04-14 26/1300 2024-04-15 19:10 by mumin1990
[考研] 347求调剂 +4 安谷先生 2024-04-15 4/200 2024-04-15 18:27 by huao连
[考研] 322求调剂 +6 本己上岸 2024-04-15 7/350 2024-04-15 14:19 by mthwyj
[考研] 323求调剂 +15 啊Q精神～ 2024-04-13 17/850 2024-04-14 12:44 by qjhawk
[考研] 338求调剂 +3 18280338551 2024-04-14 5/250 2024-04-14 10:03 by tcni
[考研] 086000生医没考数学304分，一志愿西农求调剂 +3 王有田有学上 2024-04-13 5/250 2024-04-13 16:18 by coco1981
信息提示
关闭
请填处理意见
关闭