- 积分
- 13
- 注册时间
- 2004-4-3
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2007-5-21 18:17:08
|
显示全部楼层
来自 江苏南京
我是这么实现分层浇筑模拟的。注意: Age = TIME(2) -CastT -DTIME/2.0
这是真正的龄期。这个问题前面讨论了很多。
SUBROUTINE HETVAL(CMNAME,TEMP,TIME,DTIME,STATEV,FLUX,
1 PREDEF,DPRED)
……
C mat10201 材料名称,包含浇筑区、层、材料号。 注意材料命名规则
ZoneNoStr= CMNAME(4:4)
LayNoStr = CMNAME(5:6)
MatNoStr = CMNAME(7:8)
c 字符型转化为数值
READ (ZoneNoStr*) ZoneNo !取区号
READ (LayNoStr*) LayNo !取层号
READ (MatNoStr*) MatNo !取材料号
c 调用子程序GetCastTime,根据浇筑区、浇筑层和材料编号确定浇筑时间,用于确定龄期
CastT = GetCastTime(ZoneNo,LayNo,MatNo)
Age = TIME(2) -CastT -DTIME/2.0
……
FLUX(1) = C(i)*DEN(i)*TH0(i)*b(i)/(AGE+b(i))/(AGE+b(i)) !双曲线型
……
[ 本帖最后由 Wang_Jian 于 2007-5-21 19:36 编辑 ] |
|