24小时热门版块排行榜    

查看: 329  |  回复: 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 的主题更新
信息提示
请填处理意见