| 查看: 1381 | 回复: 8 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
求助关于热流密度子程序
|
||
|
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS, 1 JLTYP,TEMP,PRESS,SNAME) C INCLUDE 'ABA_PARAM.INC' C DIMENSION FLUX(2), TIME(2), COORDS(3) CHARACTER*80 SNAME x=COORDS(1) y=COORDS(2) z=COORDS(3) t=TIME(1) c q功率 v车速 R半径 t0刹车时间 R=460.0 r1=315.0 r2=180.0 PI=3.1415 r=(x**2+y**2)**0.5 if (0<=t<=36.9) then v=291.5525-202.6642*exp(0.0036484*t) q=5700000000*v*(0.0036484*v-1.0637) else v=100.9948-1.11914*t q=5700000000*1.1191*v endif if (r>=r2 .and. r<=r1 ) then heat=0.8*q/PI/(r1**2-r2**2)/2 shape=r/R flux(1)=heat*shape else flux(1)=0 endif RETURN END 这是一个关于热流密度的子程序，我想要让它在180＜r＜320的半径上输出热流密度flux，热流密度与时间还有圆环上各位置的半径相关，但是输出的结果好像有问题，半径相关的：shape=r/R 这句话好像没有起到作用，求各位大神的帮忙！！！  |
回复此楼» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有13人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
申请科研项目纯靠实力能成功吗？
已经有11人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
8楼2016-03-06 16:29:31
2楼2016-01-09 09:44:23
bennett_14
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 7204.8
- 红花: 4
- 沙发: 1
- 帖子: 932
- 在线: 421.5小时
- 虫号: 1073877
- 注册: 2010-08-13
- 性别: GG
- 专业: 计算机科学
6楼2016-01-09 17:40:20
7楼2016-01-18 10:34:27
10