24小时热门版块排行榜    

查看: 655  |  回复: 0

记得旧时好

新虫 (初入文坛)

[求助] Fluent UDF 求助

目的:将计算的每一个迭代步的流量导出,并利用欧拉插值得到压力值,并赋回给Fluent作为边界条件,进行下一个迭代步的计算,一直到计算收敛,该时间步结束。
问题:仅仅在第一个时间步的时候发现压力利用欧拉迭代产生了变化,在之后的计算中压力始终等于我赋的初值。求大牛解答这是为什么。


代码如下:
DEFINE_PROFILE(DFA_outlet,thread,position)
{
        real NV_VEC(A),NV_VEC(FaceVel);
        double Q;
        face_t f;
        int i;
        real t=RP_Get_Real("flow-time";
        real tt;    // define the time in one cycle
        real w=0.8; // period of a cycle
        real p1[100]; // define the pressure after R1
        double R1,R2,C; // define electric modulus
        int TTS; // total time steps
        int h,TS; // time interval and time step

        R1=9.717571*pow(10,8),R2=3.849843*pow(10,9),C=3.712461*pow(10,-10);    // set the values of electric modulus
        TTS=100; // total time steps

        begin_f_loop(f,thread)
        {
                NV_D(FaceVel,=,F_U(f,thread),F_V(f,thread),F_W(f,thread));
                F_AREA(A,f,thread);
                Q=NV_DOT(FaceVel,A);

                //compute the pressure using the explicit Euler method

                h=w/TTS;
                tt=t-floor(t/w)*w;
                TS=floor(tt/h);
                p1[0]=12102.65-Q*R1;
                if(TS=0)
                        F_PROFILE(f,thread,position)=p1[0]+Q*R1;
                else
                        for(i=1;i<=TS;i++)
                                {
                                        p1[TS]=p1[TS-1]+h*(Q-(p1[TS-1]-1333.22)/R2)/C;
                                }
                        F_PROFILE(f,thread,position)=p1[TS]+Q*R1;
        }
        end_f_loop(f,thread)
}

@月只蓝 @beefly 发自小木虫Android客户端
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 记得旧时好 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 X5bHxOULxFqb 2026-10-30 14/700 2026-11-01 11:33 by Equinoxhua
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 1uaZt2kAZj2S 2026-10-31 5/250 2026-11-01 11:18 by Equinoxhua
[基金申请] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 hKe7U1kad5Sg 2026-10-31 6/300 2026-11-01 11:09 by BCdvBAEpt3zm
[论文投稿] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 xvJS1BYDxvBS 2026-10-31 6/300 2026-11-01 10:53 by BCdvBAEpt3zm
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 xvJS1BYDxvBS 2026-10-31 9/450 2026-11-01 10:53 by BCdvBAEpt3zm
[博后之家] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 1uaZt2kAZj2S 2026-10-31 7/350 2026-11-01 10:48 by BCdvBAEpt3zm
[基金申请] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 14/700 2026-11-01 10:43 by BCdvBAEpt3zm
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 1uaZt2kAZj2S 2026-10-30 16/800 2026-11-01 10:27 by BCdvBAEpt3zm
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 1uaZt2kAZj2S 2026-10-30 16/800 2026-11-01 07:01 by YXM1FDCSE8Bn
[基金申请] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 X5bHxOULxFqb 2026-10-30 21/1050 2026-11-01 06:46 by YXM1FDCSE8Bn
[基金申请] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 xvJS1BYDxvBS 2026-10-31 8/400 2026-11-01 05:48 by YXM1FDCSE8Bn
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 6/300 2026-11-01 05:41 by YXM1FDCSE8Bn
[基金申请] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 3/150 2026-11-01 04:04 by YXM1FDCSE8Bn
[找工作] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 1uaZt2kAZj2S 2026-10-31 6/300 2026-11-01 03:56 by YXM1FDCSE8Bn
[考博] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 5/250 2026-11-01 02:25 by YXM1FDCSE8Bn
[考研] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 12/600 2026-11-01 02:19 by YXM1FDCSE8Bn
[考博] 2027博士申请-临床检验诊断学、病原生物学、微生物方向 50+3 yyh@ 2026-10-28 4/200 2026-10-31 12:47 by 可淡不可忘
[硕博家园] 越来越担心硕士毕业后没有竞争力了 +8 zuesli 2026-10-27 14/700 2026-10-30 22:44 by 好运连连公主
[硕博家园] 申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请 +3 小小阿光 2026-10-27 3/150 2026-10-29 23:56 by 起风了的快乐
[文学芳草园] 闲聊 +3 myrtle 2026-10-25 6/300 2026-10-29 15:28 by myrtle
信息提示
请填处理意见