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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 帮忙把公式转化为FORTRAN子程序
71/1返回列表
查看: 1592  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 08工科 320总分 求调剂 +6 梨花珞晚风 2026-03-17 6/300 2026-03-21 03:40 by JourneyLucky
[考研] 299求调剂 +6 △小透明* 2026-03-17 6/300 2026-03-21 02:42 by JourneyLucky
[考研] 278求调剂 +6 烟火先于春 2026-03-17 6/300 2026-03-21 01:57 by JourneyLucky
[考研] 279分求调剂 一志愿211 +11 chaojifeixia 2026-03-19 12/600 2026-03-21 01:49 by 星空星月
[考研] 一志愿武理材料305分求调剂 +6 想上岸的鲤鱼 2026-03-18 7/350 2026-03-21 01:03 by JourneyLucky
[考研] 材料专业求调剂 +6 hanamiko 2026-03-18 6/300 2026-03-21 00:24 by JourneyLucky
[考研] 考研调剂求学校推荐 +3 伯乐29 2026-03-18 5/250 2026-03-20 22:59 by JourneyLucky
[考研] 一志愿武汉理工材料工程专硕调剂 +9 Doleres 2026-03-19 9/450 2026-03-20 22:36 by JourneyLucky
[考研] 求调剂，一志愿:南京航空航天大学大学 ，080500材料科学与工程学硕，总分289分 +4 @taotao 2026-03-19 4/200 2026-03-20 22:14 by JourneyLucky
[考研] 一志愿华中农业071010，总分320求调剂 +3 困困困困坤坤 2026-03-20 3/150 2026-03-20 20:38 by 学员8dgXkO
[考研] 289求调剂 +6 怀瑾握瑜l 2026-03-20 6/300 2026-03-20 20:30 by 学员8dgXkO
[考研] 0856调剂，是学校就去 +8 sllhht 2026-03-19 9/450 2026-03-20 14:25 by 无懈可击111
[考研] 298-一志愿中国农业大学-求调剂 +9 手机用户 2026-03-17 9/450 2026-03-20 14:24 by 无懈可击111
[考研] 0703化学调剂 +10 妮妮ninicgb 2026-03-15 14/700 2026-03-19 22:59 by 学员8dgXkO
[考研] 材料考研调剂 +3 xwt。 2026-03-19 3/150 2026-03-19 11:22 by w沐阳w
[考研] 0703化学 305求调剂 +4 FY_yy 2026-03-14 4/200 2026-03-19 05:54 by anny19840123
[考研] 293求调剂 +11 zjl的号 2026-03-16 16/800 2026-03-18 08:10 by zhukairuo
[考研] 材料工程专硕274一志愿211求调剂 +6 薛云鹏 2026-03-15 6/300 2026-03-17 11:05 by 学员h26Tkc
[考研] 东南大学364求调剂 +5 JasonYuiui 2026-03-15 5/250 2026-03-16 21:28 by 木瓜膏
[考研] 304求调剂 +5 素年祭语 2026-03-15 5/250 2026-03-16 17:00 by 我的船我的海
信息提示
关闭
请填处理意见
关闭