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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 帮忙把公式转化为FORTRAN子程序
71/1返回列表
查看: 1627  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 本科211 工科085400 280分求调剂 可跨专业 +8 LZH（等待调剂中 2026-04-10 8/400 2026-04-10 10:39 by xujun0624
[考研] 311求调剂 +6 xyp想读书 2026-04-10 7/350 2026-04-10 10:32 by sophia_93
[考研] 一志愿华中农微生物，288分，三年实验经历 +10 代fish 2026-04-09 10/500 2026-04-10 09:49 by potato妹
[考研] 301求调剂 +6 静静想想 2026-04-05 6/300 2026-04-10 09:15 by Delta2012
[考研] 087100初试311求调剂 +3 任雅琴 2026-04-09 3/150 2026-04-09 22:42 by lbsjt
[考研] 材料工程调剂 +12 小刘同学吖吖 2026-04-06 13/650 2026-04-09 17:07 by luoyongfeng
[考研] 生物学328分求调剂 +9 闪电kkl 2026-04-08 10/500 2026-04-08 21:42 by liuhuiying09
[考研] 270求调剂 +3 031127 2026-04-06 4/200 2026-04-08 21:00 by 逆水乘风
[考研] 301求调剂 +18 121. 2026-04-04 18/900 2026-04-07 17:49 by 蓝云思雨
[论文投稿] Decision: Revise for Editor还会送审吗 100+3 CccccccccFD 2026-04-04 5/250 2026-04-07 10:58 by 北京莱茵润色
[考研] 085100建筑学 寻求跨专业调剂 一志愿南大294分 校级省级国家级奖项若干 踏实肯干 +3 1021075758 2026-04-06 4/200 2026-04-07 09:23 by 蓝云思雨
[考研] 生物学学硕求调剂：351分一志愿南京师范大学生物学专业 +6 …～、王…～ 2026-04-06 7/350 2026-04-06 18:54 by macy2011
[考研] 319求调剂 +3 handrui 2026-04-05 3/150 2026-04-06 09:33 by jp9609
[考研] 085600，320分求调剂 +16 大馋小子 2026-04-04 17/850 2026-04-06 07:58 by MOF_Catal
[考研] 一志愿哈尔滨工业大学085600英一数二337分求调剂 +12 lyz0427 2026-04-03 12/600 2026-04-06 06:37 by houyaoxu
[考研] 308求调剂 +4 maverick^_^ 2026-04-03 4/200 2026-04-05 19:08 by 蓝云思雨
[考研] 考研调剂生寻找导师 +3 顾瞻考研啊 2026-04-05 3/150 2026-04-05 18:18 by 啵啵啵0119
[考研] 272求调剂 +4 电气李 2026-04-05 4/200 2026-04-05 10:41 by lbsjt
[考研] 调剂 +9 19945159693 2026-04-03 10/500 2026-04-04 20:16 by dongzh2009
[考研] 一志愿北交大材料工程总分358 +6 cs0106 2026-04-03 6/300 2026-04-04 11:20 by w_xuqing
信息提示
关闭
请填处理意见
关闭