24小时热门版块排行榜    

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

chixiufang

新虫 (小有名气)

[交流] 毕业好难 已有11人参与

做仿真做不出,抑郁怎么办?

发自小木虫Android客户端
回复此楼

» 本帖已获得的红花(最新10朵)

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

日月星空

铁虫 (初入文坛)


小木虫: 金币+0.5, 给个红包,谢谢回帖
送红花一朵
做一个密相输运床煤气化的模拟,尝试用dpm模型耦合欧拉双流体模型来做,准备用udf定义颗粒我表面反应,对气固非均相反应进行描述。可是每当载入此udf,fluent就提示 the f1 process could not be started。不知道到底是哪里出了问题。麻烦大神们帮我看一下我的udf,麻烦指出是哪里出了错误,十分感谢!

#include "udf.h"
#include "dpm.h"

#define o2 1
#define h2o 3
#define co2 2
#define h2 5
#define co 4
#define ch4 6
#define tmax 2500

define_pr_rate(particle_surface_rate, c, t, r, mw, pp, p, sf, dif_i, cat_i, rr)
{
        double t_1 = max(450, c_t(c, t));/* 连续相温度 */
        double t_2 = max(450, p_t(p));
        double t = min(3000, t_1);
        double t_s = min(3000, t_2);

        double k_e_q, p_e;
       

        double k_f, k_a, k_r, diff;
    double pt = max(0.1, (op_pres+c_p(c,t))/101325);
        double rd;
        double d_p = p_diam(p);
        double ash_ar = 10.68;
        double ash;
        double conv;
        double ep_a, f_ep_a;
        ash = p_init_mass(p)*0.1068;
        /* 灰的空隙率,void fraction of ash layer */

                ep_a = 0.9199;/*0.25 + 0.75*(1-ash_ar/100.)*/
                f_ep_a = pow(ep_a, 2.5);
                conv = (p_mass(p)/ash)-1+(1.e-8);
                conv = max(0,conv);
        rd = pow(conv,(1./3.));
       
        if(!strcmp(r->name, "reaction-10") /* c+0.9o2=0.2co+0.8co2 */
        {
                if(sf[0]>0&&c_yi(c,t,1)>0)
        {
                diff = 0.584 * (4.26/t) * pow((t/1800.), 1.75) / pt;
        diff = max(diff, 1.e-10);
        k_f = diff / (d_p * 100 );
    k_r = 8710. * exp( -149400./(t * 8.314 )) * rd * rd;
                 if(rd >= 1.)
                 {
                         *rr = 1./(1./k_f + 1./k_r);
                 }
                 else
                 {
                        k_a = rd * k_f * f_ep_a / (1.0-rd) ;
                         *rr = ( 1.0/(1.0/k_f + 1.0/k_r + 1.0/k_a));
                 }
                }
                else
                {
                        *rr = 0.;
                }

                 *rr = -10 * (*rr * sf[0] * pp[1] * 3.14 * d_p * d_p / 101325.);
        }
        else if(!strcmp(r->name, "reaction-7") /* c+h2o=co+h2 */                                                                                                                                         
        {
                if(sf[0]>0&&c_yi(c,t,3)>0)
                {
                k_e_q = exp(17.644-30260/(1.8*t));
                p_e = pp[3] - ((pp[5]-pp[4])/k_e_q);
                p_e = max(p_e, 0);
                diff =0.001 * pow((t/2000.), 0.75) / pt;
                diff = max(diff, 1.e-10);
                 k_f = diff / (d_p * 100.);
                 k_r = 247. * exp( -175100./(8.314 * t)) * rd * rd;
                 if(rd >= 1.)
                 {
                         *rr = 1./(1./k_f + 1./k_r);
                 }
                 else
                 {
                        k_a = rd * k_f * f_ep_a / (1.-rd);
                         *rr = (( 1. / (1./k_f + 1./k_r + 1./k_a))+(1.e-8));
                 }
                }
                else
                {
                        *rr = 0.;
                }
                 *rr = -10 * (*rr * pp[3] * 3.14 * d_p * d_p * sf[0] / 101325.);  
        }
        else if(!strcmp(r->name, "reaction-8") /* c+co2=2co */
        {
        if(sf[0]>0.&&c_yi(c,t,2)>0.)
        {
        diff = (7.45e-4) * pow((t/2000.), 0.75) / pt;
        diff = max(diff, 1.e-10);
                 k_f = diff / (d_p * 100.);
                k_r = 247. * exp( -175100./(8.314 * t)) * rd * rd;
                 if(rd >= 1.)
                 {
                         *rr = 1./(1./k_f + 1./k_r);
                 }
                 else
                 {
                 k_a = rd * k_f * f_ep_a / (1.-rd) ;
                         *rr = ( 1. / (1./k_f + 1./k_r + 1./k_a))+(1.e-8);
                 }
        }
        else
        {
                *rr = 0.;
        }
                 *rr = - 10 * (*rr * pp[2] * 3.14 * d_p * d_p * sf[0] / 101325.);
        }
        else if(!strcmp(r->name, "reaction-9") /* c+h2=ch4 */
        {
                if(sf[0]>0.&&c_yi(c,t,5)>0.)
                {
                k_e_q = (5.041e-6) * exp(18400./(1.8 * t));
                p_e = (pp[5]/101325) - sqrt(pp[6] / k_e_q/101325);
                p_e = max(p_e, 0);
        diff = (1.33e-3) * pow((t/2000.), 0.75) / pt;
        diff = max(diff, 1.e-10);
                 k_f = diff / (d_p * 100.);
                 k_r = 0.12 * exp( -149000./(8.314 * t )) * rd * rd;
                 if(rd >= 1.)
                 {
                         *rr = 1./(1./k_f + 1./k_r);
                 }
                 else
                 {
                         k_a = rd * k_f * f_ep_a / (1.-rd) ;
                         *rr = ( 1. / (1./k_f + 1./k_r + 1./k_a));
                 }
                }
                else
                {
                        *rr = 0.;
                }
                *rr = -10 * (*rr * p_e * 3.14 * d_p * d_p * sf[0]);
                 
                 
        }
}
13楼2019-04-12 10:45:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 15 个回答

自为胜利而来

至尊木虫 (著名写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
仿真不一定要做出来,画图都不会吗?

发自小木虫Android客户端
道系青年
2楼2019-01-05 18:45:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chixiufang

新虫 (小有名气)

引用回帖:
2楼: Originally posted by 自为胜利而来 at 2019-01-05 18:45:08
仿真不一定要做出来,画图都不会吗?

找不到结果

发自小木虫Android客户端
3楼2019-01-05 19:01:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shgao20

专家顾问 (职业作家)

把具体问题发上来,相信会有人帮助你的。
4楼2019-01-06 08:10:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 290求调剂 +4 @将就将就看 2026-03-10 8/400 2026-03-14 14:23 by 千千运气
[考研] 268求调剂 +3 一定有学上- 2026-03-14 4/200 2026-03-14 13:52 by 千千运气
[考研] 0703化学求调剂,总分309分,一志愿华南师范 +4 花与叶@ 2026-03-08 4/200 2026-03-14 04:40 by JourneyLucky
[考研] 求调剂! +4 朔朔话 2026-03-09 4/200 2026-03-14 01:38 by JourneyLucky
[考研] 307求调剂 +7 超级伊昂大王 2026-03-10 7/350 2026-03-14 00:49 by JourneyLucky
[考研] 材料工程,326分,求调剂 +6 KRSLSR 2026-03-10 6/300 2026-03-13 23:47 by JourneyLucky
[考研] 材料专硕288分求调剂 一志愿211 +4 在家想你 2026-03-11 4/200 2026-03-13 22:49 by JourneyLucky
[考研] 一志愿中科院,化学方向,295求调剂 +4 一氧二氮 2026-03-11 4/200 2026-03-13 22:35 by JourneyLucky
[考研] 26调剂/材料/英一数二/总分289/已过A区线 +6 步川酷紫123 2026-03-13 6/300 2026-03-13 21:59 by 星空星月
[考研] 化学调剂0703 +4 啊我我的 2026-03-11 4/200 2026-03-13 18:35 by ms629
[硕博家园] 深圳大学硕士招生(2026秋,传感器方向,仅录取第一志愿) +4 xujiaoszu 2026-03-11 7/350 2026-03-13 17:28 by xujiaoszu
[考研] 求调剂 +3 程雨杭 2026-03-12 3/150 2026-03-13 15:06 by JourneyLucky
[考研] 材料301分求调剂 +5 Liyouyumairs 2026-03-12 5/250 2026-03-13 14:42 by JourneyLucky
[考研] 070303一志愿西北大学学硕310找调剂 +3 d如愿上岸 2026-03-13 3/150 2026-03-13 10:43 by houyaoxu
[考研] 工科0856专硕化学工程269能调剂吗 +10 我想读研11 2026-03-10 10/500 2026-03-13 10:14 by Yuyi.
[考研] 085600 材料与化工 295 求调剂 +10 dream…… 2026-03-10 12/600 2026-03-12 13:46 by dream……
[考研] 279求调剂 +3 莫xiao 2026-03-10 4/200 2026-03-11 08:06 by 斩魂滴兔子!
[考研] 求调剂材料专硕293 +6 段_(:з」∠)_ 2026-03-10 6/300 2026-03-10 18:22 by ms629
[考研] 0817学硕华东区求调剂 +3 30660438 2026-03-08 3/150 2026-03-10 16:55 by Pegasus0429
[考研] 293一志愿华东理工 0817化学工程与技术 调剂 +5 fjj0912 2026-03-07 5/250 2026-03-09 09:13 by 30660438
信息提示
请填处理意见