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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 帮忙把公式转化为FORTRAN子程序
71/1返回列表
查看: 1623  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

hqulhh

新虫 (初入文坛)

[求助] 帮忙把公式转化为FORTRAN子程序

利用ABAQUS模拟一长方体试件在烧结过程中的变形(即收缩率)，我想用以下本构关系来体现变形，哪位出点力气，帮我把这个公式转化成FORTRAN语言子程序，在模拟过程中应该注意什么，如若指导成功，定重谢。注：烧结温度0-1200℃，10℃/min.


[ Last edited by 御剑江湖 on 2012-7-27 at 11:46 ]
回复此楼

» 猜你喜欢

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

linrn

至尊木虫 (著名写手)
感谢参与，应助指数 +1
hqulhh: 金币+1, ★有帮助, 哈哈。 2012-07-26 21:43:36
xiegangmai: 金币-1, 应助指数-1, 非应助请勿选择“应助回帖”。 2012-07-26 22:35:40
咋重谢？以身相许？

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
2楼2012-07-26 18:24:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chembetsey

木虫 (小有名气)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
hqulhh: 金币+2, ★有帮助 2012-07-28 10:56:38
不知道你想做什么，你的第二个方程是一个微分方程，如果除了L之外都是常数的话，你可把它积分出来，写出Fortran的格式是：
log(L/L0) = (Alpha*dT-Sigma/(3*K))*t  或
L = L0 * exp((Alpha*dT-Sigma/(3*K))*t)
当然你也可以把它转化为Delta与时间的关系
Delta = exp((Alpha*dT-Sigma/(3*K))*t) -1
赞一下 回复此楼
3楼2012-07-27 23:03:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hqulhh

新虫 (初入文坛)
引用回帖:
3楼: Originally posted by chembetsey at 2012-07-27 23:03:38
不知道你想做什么，你的第二个方程是一个微分方程，如果除了L之外都是常数的话，你可把它积分出来，写出Fortran的格式是：
log(L/L0) = (Alpha*dT-Sigma/(3*K))*t  或
L = L0 * exp((Alpha*dT-Sigma/(3*K))*t)
当 ...

谢谢您，我是要把它编程子程序，模拟的时候调用这个程序。模拟结果是收缩率，即Delta.
赞一下 回复此楼
4楼2012-07-28 10:55:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chembetsey

木虫 (小有名气)

【答案】应助回帖

★
hqulhh: 金币+1 2012-07-28 15:57:32
写成子函数就可以了：
Real*8 Function Delta(Alpha, dT, Sigma, K, t)
real*8 Alpha, dT, Sigma, K, t
Delta = exp((Alpha*dT-Sigma/(3.D0*K))*t) -1.D0
End
赞一下(1人) 回复此楼
5楼2012-07-28 11:42:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hqulhh

新虫 (初入文坛)
引用回帖:
5楼: Originally posted by chembetsey at 2012-07-28 11:42:26
写成子函数就可以了：
Real*8 Function Delta(Alpha, dT, Sigma, K, t)
real*8 Alpha, dT, Sigma, K, t
Delta = exp((Alpha*dT-Sigma/(3.D0*K))*t) -1.D0
End

好的。谢谢你。
回复此楼
6楼2012-07-28 15:57:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

rabbitpig

银虫 (正式写手)
你导师要跳楼了
回复此楼
7楼2012-08-05 19:44:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hqulhh 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料调剂 +10 18815505510 2026-04-09 11/550 2026-04-09 17:07 by 544594351
[考研] 086004 求调剂 309 +7 Yin DY 2026-04-08 7/350 2026-04-09 13:59 by Delta2012
[考研] 求调剂 +15 熊二想上岸 2026-04-04 15/750 2026-04-08 22:52 by 猪会飞
[考研] 求调剂 +13 柒luck 2026-04-07 13/650 2026-04-08 22:46 by 猪会飞
[考研] 生物学328分求调剂 +9 闪电kkl 2026-04-08 10/500 2026-04-08 21:42 by liuhuiying09
[考研] 材料工程专业日语生求调剂 +9 111623 2026-04-07 9/450 2026-04-07 23:31 by 一只好果子?
[考研] 22408 一志愿双一流人工智能300分 四六级，数据分析国奖 +4 zzfeng123 2026-04-06 6/300 2026-04-07 21:02 by zzfeng123
[考研] 334分控制工程求调剂 +4 姜尚真sadasd 2026-04-03 4/200 2026-04-07 09:26 by 蓝云思雨
[考研] 考研调剂 +7 15615482637 2026-04-04 7/350 2026-04-06 22:56 by chenzhimin
[考研] 复试调剂 +14 呼呼？~+123456 2026-04-05 14/700 2026-04-06 22:50 by chenzhimin
[考研] 考研调剂 +3 Wwwwwww哇 2026-04-06 3/150 2026-04-06 20:55 by lbsjt
[考研] 材料工程310专硕调剂 +14 捞捞我…. 2026-04-04 15/750 2026-04-06 14:18 by lqwchd
[考研] 求调剂 +11 xzghyuj 2026-04-04 11/550 2026-04-06 11:49 by lijunpoly
[考研] 材料专硕322分 +10 哈哈哈吼吼吼哈 2026-04-04 10/500 2026-04-05 21:22 by 学员8dgXkO
[考研] 313求调剂 +5 海日海日 2026-04-04 7/350 2026-04-05 13:58 by imissbao
[考研] 344材料与化工调剂 +9 调剂上岸玘 2026-04-03 9/450 2026-04-04 23:10 by happyddm
[考研] 可跨专业调剂 +3 周的得地 2026-04-04 6/300 2026-04-04 22:21 by barlinike
[考研] 266求调剂 +8 学员97LZgn 2026-04-03 8/400 2026-04-04 09:02 by 20021109
[考研] 求调剂机会 +5 意染ivy 2026-04-03 5/250 2026-04-03 15:13 by qoooooo614
[考研] 289-求调剂 +4 这里是_ 2026-04-03 4/200 2026-04-03 14:23 by 1753564080
信息提示
关闭
请填处理意见
关闭