24小时热门版块排行榜    

查看: 2067  |  回复: 0

hustwing

银虫 (正式写手)

[求助] udf读取数据

#include "udf.h"   
#include "math.h"
real U_inf_variable[100];
real x[100];
real time;
int vel;
real cg_omega[2];
#define Nbpts 100
int i;
int counter=0;
FILE *fid;
FILE *fid2;
FILE *fid3;
DEFINE_EXECUTE_ON_LOADING(readfile,libname)
{
        fid=fopen("shuju.txt","r";
for (i=0;i<Nbpts;i++)
{
        fscanf(fid,"%le ",&U_inf_variable);
}
fclose(fid);
fid2=fopen("check_load_shuju.txt","w";
for (i=0;i<Nbpts;i++)
{
        fprintf(fid2,"%le %d\n",&U_inf_variable,counter);
}
fclose(fid2);
}
DEFINE_CG_MOTION(rotation,dt,cg_vel,cg_omega,time,dtime)
{
        if(time<3)
    cg_omega[2]=-0.024532;
    else if(time>3&&time<=10)
        cg_omega[2]=-0.01214;
}

DEFINE_PROFILE(power_3,thread,position)
{
face_t f;
time=CURRENT_TIME;
begin_f_loop(f,thread)
{
   F_PROFILE(f,thread,position)=U_inf_variable[counter];
}
end_f_loop(f,thread)
}
DEFINE_EXECUTE_AT_END(execute)
{
face_t f;
Domain*domain=Get_Domain(1);
Thread *tf1=Lookup_Thread(domain,126);
begin_f_loop(f,tf1)
{
F_CENTROID(x,f,tf1 );
vel= F_V(f,tf1);
fid3=fopen("vel.dat", "a+" ;
fprintf(fid3," %.6f\n",vel);
}
end_f_loop(f,thread)
fclose(fid3);
}
我想实现进口速度边界条件导入,经过一个时间步的迭代计算后,再从这个界面导出速度。。。请问大神我这个UDF为什么不能实现
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hustwing 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 311求调剂 +4 南迦720 2026-02-28 4/200 2026-02-28 16:31 by etapple
[考研] 0856材料求调剂 +8 hyf hyf hyf 2026-02-28 9/450 2026-02-28 16:27 by etapple
[考研] 285求调剂 +3 满头大汗的学生 2026-02-28 3/150 2026-02-28 16:22 by 无际的草原
[考研] 265分求调剂不调专业和学校有行学上就 +4 礼堂丁真258 2026-02-28 6/300 2026-02-28 16:18 by 求调剂zz
[考研] 312求调剂 +4 吃宵夜1 2026-02-28 5/250 2026-02-28 16:11 by gjm133
[考博] 26申博 +3 想申博! 2026-02-26 3/150 2026-02-28 16:07 by nxgogo
[考研] 295求调剂 +4 19171856320 2026-02-28 4/200 2026-02-28 13:39 by ms629
[考研] 290求调剂 +4 材料专硕调剂; 2026-02-28 5/250 2026-02-28 13:32 by houyaoxu
[考研] 0856调剂 +3 刘梦微 2026-02-28 3/150 2026-02-28 13:22 by houyaoxu
[考研] 寻找调剂 +3 LYidhsjabdj 2026-02-28 3/150 2026-02-28 12:59 by miniwendy
[考研] 304求调剂 +5 曼殊2266 2026-02-28 6/300 2026-02-28 12:44 by 迷糊CCPs
[硕博家园] 博士自荐 +6 科研狗111 2026-02-26 9/450 2026-02-28 12:32 by seaskyy
[考研] 272求调剂 +3 田智友 2026-02-28 3/150 2026-02-28 12:31 by 王加浩to
[考研] 280求调剂 +6 Qq206./ 2026-02-21 6/300 2026-02-28 11:20 by 我!要一战成硕
[考博] 博士推荐 +3 花儿笑? 2026-02-21 4/200 2026-02-27 18:30 by 黑!在干嘛
[高分子] 求环氧树脂研发1名 +3 孙xc 2026-02-25 10/500 2026-02-27 13:22 by ichall
[基金申请] 什么是人一生最重要的? +10 瞬息宇宙 2026-02-21 10/500 2026-02-27 08:46 by tfang
[基金申请] 面上可以超过30页吧? +12 阿拉贡aragon 2026-02-22 13/650 2026-02-26 22:09 by Hahaxia
[教师之家] 版面费该交吗 +14 苹果在哪里 2026-02-22 17/850 2026-02-26 11:55 by AGI智创机器人
[硕博家园] 【博士招生】太原理工大学2026化工博士 +4 N1ce_try 2026-02-24 8/400 2026-02-26 08:40 by N1ce_try
信息提示
请填处理意见