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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 关于ansys二次开发UPFs，修改usercreep子程序的问题，求好人帮忙
51/1返回列表
查看: 2638  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

xiaomiao126

金虫 (小有名气)

[求助] 关于ansys二次开发UPFs，修改usercreep子程序的问题，求好人帮忙 已有1人参与

大神求教啊！！！！！本人最近在做关于ansys UPFs的二次开发！想把自己的蠕变方程写入ansys中！网上查资料知道修改 ansys 的usercreep程序可以实现此功能！
ansys 提供的程序可以实现 这个蠕变方程的编译
delcr := c1 * seqv ^ n * creqv ^ m * exp (-b/T) * dtime
c1，n，m，b都是常熟！delcr蠕变增量，creqv蠕变应变
他的程序如下:
#include "impcom.inc"

      DOUBLE PRECISION ZERO
      PARAMETER        (ZERO = 0.0d0)
c
c
      INTEGER          ldstep, isubst, matId , elemId,
     &                 kDInPt, kLayer, kSecPt, nstatv,
     &                 impflg, nprop
      DOUBLE PRECISION dtime , time  , temp  , dtemp , toffst,
     &                 creqv , seqv  , pres
      DOUBLE PRECISION prop(*), dcrda(*), Ustatev(nstatv)
c
c
      DOUBLE PRECISION c1    , c2    , c3    , c4    ,
     &                 con1  , delcr , t


      if (seqv.LE.ZERO.AND.creqv.LE.ZERO) GO TO 990
      t       = temp + toffst
      c1      = prop(1)
      c2      = prop(2)
      c3      = prop(3)
      c4      = prop(4)
      con1    = ZERO
      if(c4.ne.ZERO .and. t.gt.ZERO) con1 = c4/t
      if (creqv .le. TINY) creqv = sqrt(TINY)
      delcr   = ZERO
      IF(c1.gt.ZERO) delcr   = (exp( log(c1) +  c2 * log(seqv) +
     &                         c3 * log(creqv) - con1 )) * dtime
      dcrda(1)= c2 * delcr / seqv

      dcrda(2)= c3 * delcr / creqv
      Ustatev(nstatv) = creqv
990  continue
      return
      end
而我的方程是
delcr = (c1*(seqv**c2)*(((c3+1)**2)* (time**c3)+c4*(time**c5)+c6*(time**c7))*exp(-con1))*dtime
跪求大神看一看这个方程要写入ansys  该怎么修改上述程序！！！
我试了修改了很多次，编译连接成功了，但是ansys分析时候，输入命令求解，但是ansys没有反应，我想肯定是程序输入的有错误现附我修改编写的程序 希望大神可以指教啊！！！前面声明变量都是一样的直接如下：
*** skip when stress and creep strain are all zero
      if (seqv.LE.ZERO.AND.creqv.LE.ZERO) GO TO 990
c *** add temperature off set
      t       = temp + toffst
c *** Primary creep function
c     delcr := (c1*(seqv**c2)*(((c3+1)**2)*(time**c3)+c4*(time**c5)+c6*(time**c7))*exp(-c8/T)) * dtime
      c1      = prop(1)
      c2      = prop(2)
      c3      = prop(3)
      c4      = prop(4)
      c5      = prop(5)
      c6      = prop(6)
      c7      = prop(7)
      c8      = prop(8)
c *** user need to make sure if c4 has nonzero value, temperature should be also nonzero.
      con1    = ZERO
      if(c8.ne.ZERO .and. t.gt.ZERO) con1 = c8/t
      delcr  = Ustatev(1)      !蠕变应变增量
c *** calculate incremental creep strain
      if (creqv .le. TINY) creqv = sqrt(TINY)
      delcr   = ZERO
       IF(c1.gt.ZERO) delcr = (c1*(seqv**c2)*(((c3+1)**2)*
     &                         ((time+dtime)**c3)+c4*((time+dtime)**c5)+
     &                         c6*((time+dtime)**c7))*exp(-con1))*dtime
c *** 蠕变应变增量对等效应力的导数
      dcrda(1) = c2 * delcr / seqv
c *** 蠕变应变增量对等效蠕变应变的导数
     &  dcrda(2) = 0
c *** 保存蠕变应变增量
      Ustatev(1) = delcr
      Ustatev(2) = time
  990  continue
       return
       end
请大神指教啊 好人一生平安
回复此楼

» 猜你喜欢
1楼 2014-06-25 11:19:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

userxukai

禁虫 (初入文坛)
本帖内容被屏蔽
6楼2018-03-14 16:37:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

c2009ss

新虫 (初入文坛)

【答案】应助回帖

将rate on 打开没有？我也正在编
赞一下 回复此楼
2楼2014-11-25 13:12:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

胡海浪

金虫 (小有名气)
请问楼主还存有编写的程序么，我也在编写啊，调用它的命令流该怎么写啊
赞一下 回复此楼
3楼2016-07-08 17:11:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

userxukai

禁虫 (初入文坛)
本帖内容被屏蔽
4楼2018-03-14 16:37:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 333求调剂 +5 87639 2026-03-21 7/350 2026-03-21 19:31 by ColorlessPI
[考研] 0703化学调剂 +4 妮妮ninicgb 2026-03-21 4/200 2026-03-21 18:39 by 学员8dgXkO
[考研] 求助 +5 梦里的无言 2026-03-21 6/300 2026-03-21 17:51 by 学员8dgXkO
[考研] 299求调剂 +5 shxchem 2026-03-20 7/350 2026-03-21 17:09 by ColorlessPI
[考研] 机械专硕299求调剂至材料 +3 kkcoco25 2026-03-16 4/200 2026-03-21 03:52 by JourneyLucky
[考研] 332求调剂 +4 ydfyh 2026-03-17 4/200 2026-03-21 02:20 by JourneyLucky
[考研] 265求调剂 +9 梁梁校校 2026-03-17 9/450 2026-03-21 02:17 by JourneyLucky
[考研] 304求调剂 +6 曼殊2266 2026-03-18 6/300 2026-03-21 00:32 by JourneyLucky
[考研] 304求调剂 +7 司空. 2026-03-18 7/350 2026-03-20 23:08 by JourneyLucky
[考研] 287求调剂 +7 晨昏线与星海 2026-03-19 8/400 2026-03-20 22:19 by JourneyLucky
[考研] 求调剂，一志愿:南京航空航天大学大学 ，080500材料科学与工程学硕，总分289分 +4 @taotao 2026-03-19 4/200 2026-03-20 22:14 by JourneyLucky
[考研] 一志愿苏州大学材料求调剂，总分315（英一） +5 sbdksD 2026-03-19 5/250 2026-03-20 22:10 by luoyongfeng
[考研] 求调剂一志愿南京航空航天大学289分 +3 @taotao 2026-03-19 3/150 2026-03-20 21:34 by JourneyLucky
[考研] 295材料求调剂，一志愿武汉理工085601专硕 +5 Charlieyq 2026-03-19 5/250 2026-03-20 20:35 by JourneyLucky
[考研] 求调剂 +3 @taotao 2026-03-20 3/150 2026-03-20 19:35 by JourneyLucky
[考研] 一志愿福大288有机化学，求调剂 +3 小木虫200408204 2026-03-18 3/150 2026-03-19 13:31 by houyaoxu
[考研] 344求调剂 +6 knight344 2026-03-16 7/350 2026-03-18 20:13 by walc
[考研] 材料工程专硕274一志愿211求调剂 +6 薛云鹏 2026-03-15 6/300 2026-03-17 11:05 by 学员h26Tkc
[考研] 考研调剂 +3 淇ya_~ 2026-03-17 5/250 2026-03-17 09:25 by Winj1e
[考研] 一志愿211 0703方向310分求调剂 +3 努力奋斗112 2026-03-15 3/150 2026-03-16 16:44 by houyaoxu
信息提示
关闭
请填处理意见
关闭