24小时热门版块排行榜    

查看: 371  |  回复: 0

SNOWANGELLEI

新虫 (初入文坛)

[求助] 急需大神指点FLUENT中UDF问题!

在UDF中编写如下程序,想输出每次迭代后的COP值,但是总会出现迭代错误,我是新人,求教各位大神!拜托拜托!
#include"udf.h"
#include"stdio.h"


real Q[8760];
int i=-2;
int k=1;

real cop[8760];
FILE *Tem_t;
FILE *fp;


DEFINE_ON_DEMAND(readfile)
{
  int j;
  float t1,t2;
  Tem_t=fopen("load.txt","rb";
  for (j=0;j<8760;j++)
{
  fscanf(Tem_t,"%f",&t1);
  Q[j]=t1;
}

}


DEFINE_PROFILE(Tout1,t, position)
{
   face_t inlet,outlet;
   Thread *thread;
   real temp1,cop;
   int ID=16;
   Domain *domain;
   domain=Get_Domain(1);

   begin_f_loop(inlet,t)
   {      
     thread=Lookup_Thread(domain,ID);

         begin_f_loop(outlet,thread)
                 {
            temp1=F_T(outlet,thread);
                 }
         end_f_loop(outlet,thread)
  cop[k]=5*(-0.9830*(0.94395*pow((temp1-303)/23,2)+0.8683*(temp1-303)/23+1)+1.9709);

if(Q[i/2]>0) /*如果满足条件*/
{
     F_PROFILE(inlet,t,position)=temp1+Q[i/2]*(1+1/cop[k])/4.2/100/2/0.278;
}
else/*否则*/
{
     F_PROFILE(inlet,t,position)=temp1+Q[i/2]*(1-1/cop[k])/4.2/100/2/0.278;
}


     
   }

   end_f_loop(inlet,t)
}

DEFINE_PROFILE(Tout2,t, position)
{
   face_t inlet,outlet;
   Thread *thread;
   real temp1,cop;
   int ID=14;
   Domain *domain;
   domain=Get_Domain(1);

   
   begin_f_loop(inlet,t)
   {      
     thread=Lookup_Thread(domain,ID);

         begin_f_loop(outlet,thread)
                 {
            temp1=F_T(outlet,thread);
                 }
         end_f_loop(outlet,thread)
        cop[k]=5*(-0.9830*(0.94395*pow((temp1-303)/23,2)+0.8683*(temp1-303)/23+1)+1.9709);
  fp=fopen("shuchu2.txt","a";
  
    fprintf(fp,"%g ",cop[k]);

if(Q[i/2]>0) /*如果满足条件*/
{
     F_PROFILE(inlet,t,position)=temp1+Q[i/2]*(1+1/cop[k])/4.2/100/2/0.278;
}
else/*否则*/
{
     F_PROFILE(inlet,t,position)=temp1+Q[i/2]*(1-1/cop[k])/4.2/100/2/0.278;
}
     
   }

   end_f_loop(inlet,t);
k=k+1;
i=i+1;

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

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子,希望有用哦~

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 SNOWANGELLEI 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +4 40ms4Wlo4umh 2026-09-14 4/200 2026-09-17 04:28 by k06BKNblrGRH
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 40ms4Wlo4umh 2026-09-14 4/200 2026-09-17 04:26 by k06BKNblrGRH
[找工作] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 23jxep3nCNZb 2026-09-14 4/200 2026-09-17 04:04 by k06BKNblrGRH
[考研] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +5 23jxep3nCNZb 2026-09-14 5/250 2026-09-17 03:50 by k06BKNblrGRH
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +6 6F5UbRU2I5hL 2026-09-14 6/300 2026-09-17 03:04 by Tql5LQhh5rLK
[博后之家] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +5 s3fFTmArrBt6 2026-09-14 6/300 2026-09-17 02:38 by Tql5LQhh5rLK
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +6 s3fFTmArrBt6 2026-09-13 8/400 2026-09-17 02:04 by Tql5LQhh5rLK
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 LwdutQ8HoqWP 2026-09-13 7/350 2026-09-17 02:02 by Tql5LQhh5rLK
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +7 3n8v2C8RimXI 2026-09-13 8/400 2026-09-17 01:38 by Tql5LQhh5rLK
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 Aj1rhIDL5ixY 2026-09-14 4/200 2026-09-16 22:16 by Tql5LQhh5rLK
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 6F5UbRU2I5hL 2026-09-14 6/300 2026-09-16 17:27 by i3KBRD19ERkG
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 s3fFTmArrBt6 2026-09-13 5/250 2026-09-16 15:48 by i3KBRD19ERkG
[考博] 上海工程技术大学激光智能制造课题组招收博士研究生 +8 两三岁ss 2026-09-14 8/400 2026-09-16 09:46 by 水士口
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 QUjhNVAcOSff 2026-09-13 5/250 2026-09-16 02:14 by DgNGHc3h5tPl
[考研] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 0pYnUiPDfdnk 2026-09-14 3/150 2026-09-15 19:35 by CgyNCDVNhGVg
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 s3fFTmArrBt6 2026-09-14 5/250 2026-09-15 16:59 by CgyNCDVNhGVg
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 3n8v2C8RimXI 2026-09-13 5/250 2026-09-15 14:58 by CgyNCDVNhGVg
[教师之家] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-15 08:26 by C79jjtjAKjEn
[教师之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 6F5UbRU2I5hL 2026-09-14 4/200 2026-09-15 07:50 by C79jjtjAKjEn
[基金申请] 求教各位大神:2026教育部人文社科青年基金项目何时公示呀? +5 云宴山人 2026-09-10 7/350 2026-09-14 12:11 by ecnu2013
信息提示
请填处理意见