24小时热门版块排行榜    

查看: 1594  |  回复: 6
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

hqulhh

新虫 (初入文坛)

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

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


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

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注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的回帖
查看全部 7 个回答

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的回帖

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
5楼2012-07-28 11:42:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 299求调剂 +4 shxchem 2026-03-20 6/300 2026-03-21 11:54 by 无际的草原
[考研] 306求调剂 +4 chuanzhu川烛 2026-03-18 4/200 2026-03-21 08:25 by laoshidan
[考研] 304求调剂 +6 曼殊2266 2026-03-18 6/300 2026-03-21 00:32 by JourneyLucky
[考研] 一志愿西南交大,求调剂 +5 材化逐梦人 2026-03-18 5/250 2026-03-21 00:26 by JourneyLucky
[考研] 材料专硕英一数二306 +7 z1z2z3879 2026-03-18 7/350 2026-03-20 23:48 by JourneyLucky
[考研] 材料学硕297已过四六级求调剂推荐 +11 adaie 2026-03-19 11/550 2026-03-20 21:30 by laoshidan
[考研] 一志愿西南交通 专硕 材料355 本科双非 求调剂 +5 西南交通专材355 2026-03-19 5/250 2026-03-20 21:10 by JourneyLucky
[考研] 353求调剂 +3 拉钩不许变 2026-03-20 3/150 2026-03-20 19:56 by JourneyLucky
[基金申请] 学校已经提交到NSFC,还能修改吗? 40+4 babangida 2026-03-19 8/400 2026-03-20 15:58 by babero
[考研] 0856调剂,是学校就去 +8 sllhht 2026-03-19 9/450 2026-03-20 14:25 by 无懈可击111
[考研] 0703化学调剂 +10 妮妮ninicgb 2026-03-15 14/700 2026-03-19 22:59 by 学员8dgXkO
[考研] 286求调剂 +6 lemonzzn 2026-03-16 10/500 2026-03-19 14:31 by lemonzzn
[考研] 材料,纺织,生物(0856、0710),化学招生啦 +3 Eember. 2026-03-17 9/450 2026-03-18 10:28 by Eember.
[考研] 326求调剂 +5 上岸的小葡 2026-03-15 6/300 2026-03-17 17:26 by ruiyingmiao
[考研] 考研化学学硕调剂,一志愿985 +4 张vvvv 2026-03-15 6/300 2026-03-17 17:15 by ruiyingmiao
[考研] 材料工程专硕274一志愿211求调剂 +6 薛云鹏 2026-03-15 6/300 2026-03-17 11:05 by 学员h26Tkc
[考研] 275求调剂 +4 太阳花天天开心 2026-03-16 4/200 2026-03-17 10:53 by 功夫疯狂
[考研] 一志愿,福州大学材料专硕339分求调剂 +3 木子momo青争 2026-03-15 3/150 2026-03-17 07:52 by laoshidan
[考研] 26考研一志愿中国石油大学(华东)305分求调剂 +3 嘉年新程 2026-03-15 3/150 2026-03-15 13:58 by 哈哈哈哈嘿嘿嘿
[考研] 本科南京大学一志愿川大药学327 +3 麦田耕者 2026-03-14 3/150 2026-03-14 20:04 by 外星文明
信息提示
请填处理意见