查看: 2019  |  回复: 4
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

hellowqy

铁虫 (小有名气)

[求助] 求助:我编写的UDF在一个时间步内被调用两次

给位前辈 小弟我编写的UDF在一个时间步内被调用两次,导致输出的数据重复了一次(如图),恳请大家帮忙,献上200金币,万分感谢!!
# include "udf.h"
# include "mem.h"
# include "dynamesh_tools.h"
# include "math.h"

DEFINE_CG_MOTION(ts,dt,vel,omega,time,dtime)
{

        FILE *fp = fopen("fluid_forces_and_moments.txt","a";

        Domain *d = Get_Domain(3);

        Thread *tf1 = Lookup_Thread(d, 3);

        Thread *t;
        cell_t c;
        face_t f;

        real CG[3];
        real FORCE[3];
        real MOMENT[3];

    real cx,cy;
    real wcx=0.0;
    real wcy=0.0;
    real va_liq=0.0;
    real z[ND_ND];

        if (!Data_Valid_P ())
   
       return;

        omega[0]=0.0;
        omega[1]=0.0;
       
        vel[0]=1*time;
        vel[1]=0.0;

thread_loop_c(t,d)  /*loops over all cell threads in domain*/
{
    begin_c_loop(c, t)     /*loops over cells in  a  cell  thread  */
  {     
      if(0<C_VOF(c,t)&&C_VOF(c,t)<=1.0)   
      {
        va_liq = va_liq + C_VOLUME(c,t);   
        C_CENTROID(z,c,t);   
        wcx = wcx + z[0]*C_VOLUME(c,t);
        wcy = wcy + z[1]*C_VOLUME(c,t);     
      }   
    }
    end_c_loop(c, t)
  }
    cx=wcx/va_liq;
    cy=wcy/va_liq;

        CG[0]=cx;
        CG[1]=cy;

   Compute_Force_And_Moment(d, tf1, CG, FORCE, MOMENT,FALSE);

fprintf(fp,"%g,%g,%g,%g,%g\n",time,FORCE[0],FORCE[1],MOMENT[2],CG[0]);

fclose(fp);

  }

求助:我编写的UDF在一个时间步内被调用两次
00000000000.png
回复此楼
常宽
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

hellowqy

铁虫 (小有名气)

引用回帖:
2楼: Originally posted by 朝歌夜弦 at 2015-11-12 12:28:51
楼主能不能告诉我一下那个水对油箱壁面力的udf程序呀,我编了好久也没成功,菜鸟级别的对你的问题也解答不了,跪求楼主了

这不就是麽?
常宽
4楼2015-11-17 10:57:48
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

朝歌夜弦

新虫 (初入文坛)

楼主能不能告诉我一下那个水对油箱壁面力的udf程序呀,我编了好久也没成功,菜鸟级别的对你的问题也解答不了,跪求楼主了
2楼2015-11-12 12:28:51
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

朝歌夜弦

新虫 (初入文坛)

楼主能不能告诉我一下那个水对油箱壁面力的udf程序呀,我编了好久也没成功,菜鸟级别的对你的问题也解答不了,跪求楼主了
3楼2015-11-12 12:30:27
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

kokal

银虫 (正式写手)

请问楼主问题解决了吗,我也是遇到了类似的问题
5楼2016-01-08 17:15:01
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 极限拉扯,如何抉择 +6 Isak0320 2026-10-12 8/400 2026-10-12 20:09 by caixiaoye1
[基金申请] 入职后第一次管课题组的专利缴费,对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[有机交流] OpenAI又攻克数学难题了,离AI做有机合成还有多远? +4 wangyl_123 2026-10-10 8/400 2026-10-12 18:09 by wangyl_123
[教师之家] 课题组会帮你通过考核么? +3 好运来~9527 2026-10-10 6/300 2026-10-12 14:55 by 简单化xn
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[基金申请] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬,路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些? +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
请填处理意见