24小时热门版块排行榜    

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

hqulhh

新虫 (初入文坛)

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

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


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

» 猜你喜欢

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

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

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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 本科西工大 0856 324求调剂 +10 wysyjs25 2026-04-09 11/550 2026-04-10 08:37 by 5268321
[考研] 308求调剂 +21 倘若起风了呢 2026-04-05 21/1050 2026-04-10 08:13 by Sammy2
[考研] 一志愿双非085400电子信息344 求调剂,对材料和化学方向也感兴趣 +7 无情的小羊 2026-04-09 8/400 2026-04-09 21:22 by wwwbobobo
[考研] 296求调剂 +6 汪!?! 2026-04-09 6/300 2026-04-09 20:49 by lbsjt
[考研] 297求调剂 +22 ljy20040718! 2026-04-03 24/1200 2026-04-09 20:48 by yanenwang
[考研] 求调剂材料科学与工程一志愿985初试365分 +5 材化李可 2026-04-08 5/250 2026-04-09 17:00 by Lilly_Li
[考研] 262求调剂 +10 天下第一文 2026-04-04 13/650 2026-04-09 15:16 by 探123
[硕博家园] 新一代电子信息294求调剂 不挑学校 +5 Ytyt11 2026-04-09 6/300 2026-04-09 14:40 by Ytyt11
[考研] 26考研调剂0710 0860 +10 补补不补 2026-04-03 15/750 2026-04-09 11:13 by ditto77778
[考研] 一志愿985初试354分生物调剂 +3 031001 2026-04-06 3/150 2026-04-09 00:30 by Evan_Liu
[考研] 二次调剂求老师收留 +3 笑笑袁 2026-04-08 3/150 2026-04-08 23:50 by 醉在风里
[考博] 材料方向考博,求推荐 +3 言语aaa 2026-04-05 4/200 2026-04-08 22:22 by nxgogo
[考研] 专硕0854初试考材科基,求调剂 +7 3220548044 2026-04-06 10/500 2026-04-08 21:59 by hypershenger
[考研] 298求调剂 +4 manman511 2026-04-05 4/200 2026-04-08 16:50 by tjzhao
[考研] 生物调剂 +5 橙子橙子橙子啊 2026-04-05 9/450 2026-04-07 15:31 by 上岸快快
[考研] 材料专硕283求调剂 +17 试试看呗 2026-04-04 18/900 2026-04-06 09:24 by 286640313
[考研] 315求调剂 +5 &123456789 2026-04-05 5/250 2026-04-05 19:55 by nepu_uu
[考研] 290求调剂 +7 luoziheng 2026-04-04 7/350 2026-04-04 23:17 by lqwchd
[考研] 11408,335分,本科211,求调剂,可转专业 +5 鳄梨大鳄鱼 2026-04-03 5/250 2026-04-04 22:49 by chongya
[考研] 283分求调剂 +7 小聂爱学习 2026-04-03 7/350 2026-04-04 21:51 by hemengdong
信息提示
请填处理意见