24小时热门版块排行榜    

查看: 3331  |  回复: 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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 人生 +8 暮色恋伊人 2024-05-22 8/400 2024-05-23 00:09 by lda2370320
[教师之家] 经常觉得挺累的 +5 zylfront 2024-05-22 10/500 2024-05-22 22:19 by luwangba
[教师之家] 有没有在职教师同时做博后的? +6 克雷斯 2024-05-20 7/350 2024-05-22 22:00 by xli1984
[论文投稿] 期刊投稿进度 +6 jianhuang9 2024-05-21 8/400 2024-05-22 18:29 by sakuraai
[基金申请] 国自然的面上项目,5个审稿人,5个B能上会吗? 4+10 lancet0903 2024-05-20 32/1600 2024-05-22 15:45 by 潇湘之迷
[基金申请] 又有两个中科院三、四区计算机领域SCI/SSCI期刊爆出问题了! +4 瞬息宇宙 2024-05-19 6/300 2024-05-22 12:37 by yp_nupt
[基金申请] 国社科申请书上传有误,学校已提交到省里,省里还未审核,还能退回修改嘛? 100+3 远山晴岚 2024-05-19 7/350 2024-05-22 12:26 by holypower
[论文投稿] 投稿journal of energy chemistry +3 小可爱嘿呀 2024-05-21 3/150 2024-05-22 11:11 by xs74101122
[复合材料] 关于导电胶 +3 wgx2000 2024-05-17 6/300 2024-05-22 09:42 by wgx2000
[硕博家园] 耐高温垫片求购 +8 Sexyflea 2024-05-16 11/550 2024-05-22 08:12 by tan151646
[基金申请] 河北省基金 +12 3101251516 2024-05-16 19/950 2024-05-21 21:20 by zhang5657
[考博] 本科出身不好是不是会被直接刷呀 +5 未来富婆蛙 2024-05-20 5/250 2024-05-21 15:52 by chemdl
[博后之家] 山东大学(青岛)“天然药物生物智造”课题组 招聘“博士后”(年薪20.4-55.6万元) +3 第二种态度 2024-05-18 6/300 2024-05-21 15:37 by 安小樱
[论文投稿] 论文一审意见回来后发现实验程序编错了论证分析部分可能要大改 5+4 hshhenb 2024-05-20 5/250 2024-05-21 11:03 by bnullh
[论文投稿] SENSORS AND ACTUATORS B-CHEMICAL 15+4 荣小撇 2024-05-20 4/200 2024-05-21 10:07 by ca0yan9
[硕博家园] 又见奇葩学生,可咋办 +25 appleapple2 2024-05-17 30/1500 2024-05-21 09:13 by qyws
[考博] 考博跨专业可以跨多远 +5 竹外。。。 2024-05-18 6/300 2024-05-19 21:51 by 摩天思瑞
[论文投稿] 投稿成功后又想撤回 +5 otani 2024-05-16 5/250 2024-05-17 16:02 by topedit
[硕博家园] 五氯化铌怎么溶解啊 +3 南南枝枝 2024-05-17 5/250 2024-05-17 11:37 by ad_fish
[基金申请] 粗大,科研之友提示有一篇10多年前的文章被阅读 +9 babu2015 2024-05-16 11/550 2024-05-16 14:53 by TsolmonZ
信息提示
请填处理意见