24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1270  |  回复: 6

猪的主人

新虫 (初入文坛)

[求助] udf致命错误 已有1人参与

我仿真的模型是表层土壤浅埋换热管,研究非饱和土壤中热湿耦合 迁移,现阶段只考虑液态水的迁移。模型有混合mixture模型,porous模型,利用udf编写方程,程序如下:
#include"udf.h"
#include<math.h>

DEFINE_UDS_UNSTEADY(myunsteady,c,t,i,apu,su)

{
        real physical_dt,vol,phi_old;
        physical_dt=RP_Get_Real("physical_time_step";
        vol=C_VOLUME(c,t);
         *apu=-vol/physical_dt;
         phi_old=C_STORAGE_R(c,t,SV_UDSI_M1(i));
         *su=vol*phi_old/physical_dt;
}

DEFINE_SOURCE(source_moving,cell,sec_th,dS,eqn)

{
        real A[ND_ND];
        real source;
        real temp0,temp1,temp2;
        real vol;
        real vof;
        real a0[ND_ND],a1[ND_ND],a2[ND_ND];
        real diff;
        real xv[ND_ND],yv[ND_ND],zv[ND_ND];
       
        Domain*d;
        Thread*mix_th;
        face_t f;
        d=Get_Domain(2);
        mix_th=THREAD_SUPER_THREAD(sec_th);           //指针指向混合项的第二项即液态水
        temp0=C_T_G(cell,mix_th)[0];
        temp1=C_T_G(cell,mix_th)[1];
        temp2=C_T_G(cell,mix_th)[2];
        vol=C_VOLUME(cell,mix_th);                                         //控制体体积;
        vof=C_UDSI(cell,mix_th,0);                                        //控制体 内含湿量;
        diff=-2.3495*pow(10,-5)*pow(vof,6)+2.0370*pow(10,-5)*pow(vof,5)-6.6946*pow(10,-6)*pow(vof,4)+1.0438*pow(10,-6)*pow(vof,3)-7.8699*pow(10,-8)*pow(vof,2)+2.7350*pow(10,-9)*vof+5.4039*pow(10,-12);         //等温扩散系数
        xv[0]=1;xv[1]=0;xv[2]=0;
        yv[0]=0;yv[1]=1;yv[2]=0;
        zv[0]=0;zv[1]=0;zv[2]=1;

        begin_f_loop(f,mix_th)                                        //历遍混合相的 所有面;
        {
        F_AREA(A,f,mix_th);
        a0[ND_ND]+=temp0*NV_DOT(A,xv);                //x方向的温度梯度与控制体x方向 投影面积的乘积;
        a1[ND_ND]+=temp1*NV_DOT(A,yv);
        a2[ND_ND]+=temp2*NV_DOT(A,zv);
        }
        end_f_loop(f,mix_th)

        source=diff*(a0[0]+a1[1]+a2[2])/vol;
        dS[eqn]=0;
        return source;
}


DEFINE_DIFFUSIVITY(MyDiff,c,t,i)

{
        real vof;
        real con_zl;
        real con_nd;
        real MyDiff;

        vof=C_UDSI(c,t,0);
        con_zl=0.075636667-0.000114214*C_T(c,t)-0.000000279*C_T(c,t)*C_T(c,t);
        con_nd=0.00041212*exp(-C_T(c,t)/12.37666)+0.00119916*exp(-C_T(c,t)/41.70239)+0.00018058;
        MyDiff=9.15003*pow(vof,3.613655)*con_zl*0.0014953452/(con_nd*0.073240827);

        return MyDiff;
}
在进行计算的时候显示致命错误,求大神指点@wuming524
回复此楼

» 猜你喜欢

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

猪的主人

新虫 (初入文坛)

大神在哪里,求助求助 !帖子不要沉
2楼2016-04-19 17:27:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

猪的主人

新虫 (初入文坛)

亲爱的,有人会吗?
3楼2016-04-20 10:30:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

277174552

新虫 (初入文坛)

4楼2016-04-25 22:40:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

guaicucu

新虫 (初入文坛)

大神,你做的是三维的吗?单管的还是管群的?热湿迁移的udf编程实在是不会呀,求助
5楼2017-03-12 10:02:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhufeiyu_1

新虫 (小有名气)

【答案】应助回帖

我目前也在写热湿耦合传递的UDF编程,你的能量方程UDF和这个写一块了么?还是单独写出来了?问题解决了没
6楼2019-01-10 13:54:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhufeiyu_1

新虫 (小有名气)

你的非稳态项里带密度了么?
7楼2019-01-10 14:07:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 猪的主人 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 285求调剂 +6 AZMK 2026-03-30 11/550 2026-03-31 17:33 by AZMK
[考研] 307分求调剂 +6 (o~o) 2026-03-31 6/300 2026-03-31 17:22 by 唐沐儿
[考研] 330分求调剂 +6 qzenlc 2026-03-29 6/300 2026-03-31 16:44 by Wang200018
[考研] 材料调剂 5+5 想要一壶桃花水 2026-03-25 11/550 2026-03-31 13:34 by Huaxue_Wang
[考研] 一志愿浙江大学工科动力工程370,数一121,专业课135,现在能去哪里 +3 080700调剂 2026-03-30 4/200 2026-03-31 12:00 by KLMY666
[考研] 求调剂 +4 图鉴212 2026-03-30 4/200 2026-03-31 10:20 by cal0306
[考研] 085600材料与化工329分求调剂 +5 这是有太阳哇 2026-03-25 5/250 2026-03-31 09:59 by luoyongfeng
[考研] 293分求调剂,外语为俄语 +5 加一一九 2026-03-31 5/250 2026-03-31 09:39 by zhshch
[考研] 323分 食品与营养调剂 +3 嘿ooo 2026-03-31 3/150 2026-03-31 09:38 by longlotian
[考研] 哈尔滨工业大学材料与化工专硕378求调剂 +3 塔比乌斯 2026-03-30 3/150 2026-03-30 22:55 by 无际的草原
[考研] 289求调剂 +16 新时代材料 2026-03-27 16/800 2026-03-30 19:04 by Wang200018
[考研] 一志愿中南大学化学0703总分337求调剂 +6 niko- 2026-03-27 6/300 2026-03-30 10:25 by herarysara
[考研] 求调剂 +10 张zz111 2026-03-27 11/550 2026-03-30 09:17 by 无际的草原
[考研] 286求调剂 +12 PolarBear11 2026-03-26 12/600 2026-03-28 12:14 by zllcz
[考研] 331环境科学与工程求调剂 +3 熠然好运气 2026-03-27 3/150 2026-03-28 04:11 by fmesaito
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-26 4/200 2026-03-27 08:04 by chemisry
[考研] 07化学303求调剂 +5 睿08 2026-03-25 5/250 2026-03-25 22:46 by 418490947
[考研] 347求调剂 +4 L when 2026-03-25 4/200 2026-03-25 13:37 by cocolv
信息提示
请填处理意见