24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1274  |  回复: 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的回帖

猪的主人

新虫 (初入文坛)

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

猪的主人

新虫 (初入文坛)

大神在哪里,求助求助 !帖子不要沉
2楼2016-04-19 17:27:41
已阅   回复此楼   关注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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 273求调剂 +8 李芷新1 2026-03-31 8/400 2026-03-31 22:15 by 天倌赐福
[考研] 一志愿北化085600材料专硕275|有文章专利|求调剂 +16 Micky11223 2026-03-25 17/850 2026-03-31 22:04 by 544594351
[考研] 309分085801求调剂 +4 学员Gtwj7W 2026-03-31 4/200 2026-03-31 20:26 by 啊李999
[考研] 299求调剂 +8 嗯嗯嗯嗯2 2026-03-27 8/400 2026-03-31 18:23 by lizhi8172
[考研] 求调剂 生物学 377分 +6 zzll03 2026-03-31 6/300 2026-03-31 17:33 by 唐沐儿
[考研] 362求调剂 +9 西南交材料专硕3 2026-03-31 9/450 2026-03-31 16:25 by w虫虫123
[考研] 本科211安全工程,初试290分,求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 085404 22408 315分 +5 zhuangyan123 2026-03-31 6/300 2026-03-31 13:48 by limeifeng
[考研] 286求调剂 +5 丢掉懒惰 2026-03-27 8/400 2026-03-31 11:27 by Delta2012
[考研] 083000学硕274求调剂 +12 Li李鱼 2026-03-26 12/600 2026-03-31 10:01 by cal0306
[考研] 085601一志愿中山大学深圳材料工程330求调剂 +5 pipiver 2026-03-30 5/250 2026-03-31 07:37 by JourneyLucky
[考研] 一志愿郑大材料工程290求调剂 +12 Youth_ 2026-03-30 12/600 2026-03-31 03:34 by 蒙奇奇521
[考研] 085600 286分 材料求调剂 +11 麻辣鱿鱼 2026-03-27 12/600 2026-03-30 19:33 by Wang200018
[考研] 322求调剂 +10 宋明欣 2026-03-27 10/500 2026-03-30 18:47 by 544594351
[考研] 0703本科郑州大学求调剂 +7 nhj_ 2026-03-25 7/350 2026-03-30 12:44 by fangnagu
[考研] 318一志愿吉林大学生物与医药 求调剂 +5 笃行致远. 2026-03-28 5/250 2026-03-30 06:56 by ilovexiaobin
[考研] 总分293求调剂 +8 加一一九 2026-03-25 11/550 2026-03-29 19:53 by 无际的草原
[考研] 329求调剂 +10 钮恩雪 2026-03-25 10/500 2026-03-29 13:32 by peike
[考研] 339求调剂,想调回江苏 +6 烤麦芽 2026-03-27 8/400 2026-03-28 10:40 by 烤麦芽
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
信息提示
请填处理意见