| 查看: 3811 | 回复: 22 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
jesseliuxl金虫 (小有名气)
|
[求助]
100个金币：udf改成并行的，求高人
|
||
|
本例是通过出口的浓度与进口关联，串行没问题，并行就一直没搞通，求高人 [ Last edited by xiegangmai on 2012-4-11 at 22:36 ] |
回复此楼» 猜你喜欢
欢迎发来filecode的Mz6后的代码验证其规律
已经有42人回复
-
filecode
已经有9人回复
-
请教兼职经验
已经有3人回复
-
职称评审，求友友推荐见刊最快的期刊
已经有5人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有13人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有11人回复
-
读博的好处
已经有4人回复
-
filecode
已经有17人回复
-
FileCode能看出啥？
已经有32人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有15人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于一个高级酸和高级醇的酯化反应，各种求助，有金币伺候！
已经有17人回复
- 调剂功能纳米研究院怎么样，望高人指点。。。
已经有24人回复
- 没金币求助，菌体在液体培养基中聚集成团絮状
已经有21人回复
- 求助：怎样由邻硝基甲苯合成2-硝基-4-溴苯甲酸 采纳答案赠金币
已经有3人回复
- 【求教】有哪位高人做过长链伯胺与环氧基团的固化反应？
已经有23人回复
- 请教各位牛人：合成水性聚氨酯失败原因（内附配方）
已经有9人回复
- 请高人指点，如果CSC系统外语选不达标可否
已经有14人回复
- 电脑悲催了 在线等请求高人支招！！多谢多谢！
已经有22人回复
- 公司域用户，无管理员权限，USB接口禁用、注册表禁用如何解禁？如解决再送100金币！
已经有7人回复
- 求高人指点用matlab求解非线性方程组，解决了追加100金币；
已经有11人回复
- y470电池模式改成最佳保养。一重启就恢复成最长续航了！！！
已经有4人回复
- 【求助】单机多核UDF怎么并行计算
已经有15人回复
- 【求助】50金币求帮写一个并行的UDF
已经有4人回复
- 【求助】物料属性可以用UDF修改吗
已经有8人回复
- 【求助】100金币求助高人一个程序解方程
已经有15人回复
★
臭水沟: 金币+1, 谢谢交流~~ 2012-04-02 15:41:40
臭水沟: 金币+1, 谢谢交流~~ 2012-04-02 15:41:40
|
#include "udf.h" #include "mem.h" #define q 998 #define out 960 #define film_out 28 #define INT_YI 0.03 real AVG_YI=0.0; DEFINE_ADJUST(outlet_avg_yi, d) {#if RP_NODE real sum_yi_A=0.0; int j=0; face_t f; Thread *thread_out=Lookup_Thread(d,5); begin_f_loop(f,thread_out) { sum_yi_A+=F_YI(f,thread_out,0); j++; } end_f_loop(f,thread_out) sum_yi_A = PRF_GRSUM1(sum_yi_A); j = PRF_GRSUM1(j); AVG_YI=sum_yi_A/j; Message0("%f\n",sum_yi_A); Message0("%f\n",AVG_YI); Message0("%d\n",j); #endif } DEFINE_PROFILE(inlet,thread_in,index) {#if RP_NODE real inlet_yi=0.0; face_t inlet_face; real time=RP_Get_Real("flow-time" ) ; begin_f_loop(inlet_face,thread_in) { if(time<9) { inlet_yi=INT_YI; F_PROFILE(inlet_face,thread_in,index)=inlet_yi; } else { inlet_yi=AVG_YI+0.2*out/q; F_PROFILE(inlet_face,thread_in,index)=inlet_yi; } } end_f_loop(inlet_face,thread_in) Message0("%f\n",inlet_yi); #endif } |
6楼2012-04-01 22:55:14
zxbok1979
木虫 (小有名气)
- 应助: 7 (幼儿园)
- 金币: 1858.1
- 散金: 25
- 红花: 2
- 沙发: 3
- 帖子: 172
- 在线: 56.7小时
- 虫号: 1489252
- 注册: 2011-11-13
- 性别: GG
- 专业: 流体力学
2楼2012-04-01 12:02:58
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
jesseliuxl: 金币+10, ★有帮助, 能编译通过，但是编译后出现错误啦 2012-04-01 18:41:20
臭水沟: 金币+2, 谢谢交流~~ 2012-04-02 15:41:20
感谢参与，应助指数 +1
jesseliuxl: 金币+10, ★有帮助, 能编译通过，但是编译后出现错误啦 2012-04-01 18:41:20
臭水沟: 金币+2, 谢谢交流~~ 2012-04-02 15:41:20
|
#include "udf.h" #include "mem.h" #define q 998 #define out 960 #define film-out 28 #define INT_YI 0.03 real AVG_YI=0.0; DEFINE_ADJUST(outlet_avg_yi, d) {#if RP_NODE real sum_yi_A=0.0; int j=0; face_t f; Thread *thread_out=Lookup_Thread(d,5); begin_f_loop(f,thread_out) { sum_yi_A+=F_YI(f,thread_out,0); j++; } end_f_loop(f,thread_out) sum_yi_A = PRF_GRSUM1(sum_yi_A); j = PRF_GRSUM1(j); AVG_YI=sum_yi_A/j; Message0("%f\n",sum_yi_A); Message0("%f\n",AVG_YI); Message0("%d\n",j); #endif } DEFINE_PROFILE(inlet,thread_in,index) {#if RP_NODE real inlet_yi=0.0; face_t inlet_face; real time=RP_Get_Real("flow-time" ) ; begin_f_loop(inlet_face,thread_in) { if(time<9) { inlet_yi=INT_YI; F_PROFILE(inlet_face,thread_in,index)=inlet_yi; } else { inlet_yi=AVG_YI+0.2*out/q; F_PROFILE(inlet_face,thread_in,index)=inlet_yi; } } end_f_loop(inlet_face,thread_in) Message0("%f\n",inlet_yi); #endif } |
3楼2012-04-01 16:20:13
jesseliuxl
金虫 (小有名气)
- 应助: 5 (幼儿园)
- 金币: 3820.5
- 散金: 301
- 红花: 1
- 帖子: 192
- 在线: 105.7小时
- 虫号: 1174887
- 注册: 2010-12-22
- 性别: GG
- 专业: 化学反应工程
4楼2012-04-01 18:44:08
