| 查看: 2140 | 回复: 10 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
现有源程序，怎么用VC6.0编译加载到fluent中，希望大神帮我运行一下，本人不胜感激！
|
|||
|
#include"udf.h" #include"sg.h" #define e1 8.854E-12 #define pi 3.1415926 #define phi 0 #define electron 1.602E-19 #define qp 2000 DEFINE_ADJUST(adjust_fcn,d) { Thread *t; cell_t c; if(! Date_Valid_P()) return; thread_loop_c(t,d) { if(FLUID_THREAD_P(t)) { begin_c_loop_all(c,t) { C_UDMI(c,t,0)=NV_MAG(C_UDSI_G(c,t,0)); C_UDMI(c,t,1)=-C_UDSI_G(c,t,0)[0]; C_UDMI(c,t,2)=-C_UDSI_G(c,t,0)[1]; } end_c_loop_all(c,t) } } } DEFINE_DPM_BODY_FORCE(particle_body_force,tp,i) { real bforce=0.0; real xc[ND_ND]; Particle *p; cell_t c; Thread *t; c=P_CELL(tp); t=P_CELL_THREAD(tp); C_CENTROID(xc,c,t); if(i==0) bforce=-C_UDSI_G(c,t,0)[0]*qp*electron+qp*electron*qp*electron/(16.0*pi*(0.089-xc[0])*(0.088-xc[0])); else if(i==1) bforce=-C_UDSI_G(c,t,0)[1]*qp*electron+qp*electron*qp*electron/(16.0*pi*(0.089-xc[0])*(0.088-xc[0])); return (bforce/P_MASS(tp)); } |
回复此楼» 猜你喜欢
中青基了要发朋友圈吗？
已经有7人回复
-
有多少人是今天查系统知道结果的？
已经有19人回复
-
29号明天会评吗
已经有4人回复
-
国社科又开始会评了，不知道这次命运如何
已经有10人回复
-
梦想
已经有4人回复
-
基金不中，共勉
已经有12人回复
-
能否申诉？
已经有7人回复
-
面上意见出来了
已经有19人回复
-
为什么到现在没收到通知？
已经有5人回复
-
有没有仍没收到信息的
已经有8人回复
11楼2013-10-08 11:49:49
死天
专家顾问 (著名写手)
-
专家经验: +60 - 应助: 399 (硕士)
- 金币: 3648.9
- 红花: 89
- 帖子: 1336
- 在线: 443.8小时
- 虫号: 2643057
- 注册: 2013-09-09
- 专业: 流体力学
- 管辖: 仿真模拟
2楼2013-09-17 13:20:50
for_the_king 
新虫 (小有名气)
- 应助: 91 (初中生)
- 金币: -169.1
- 红花: 3
- 帖子: 156
- 在线: 4.5小时
- 虫号: 2638376
- 注册: 2013-09-05
- 性别: MM
- 专业: 流体力学
3楼2013-09-17 14:49:31
|
我将程序的"文本文件“和case&data文件放在一个文件夹中，complied udfs时出现下列错误 Reading "C:\Users\acer\Desktop\dc\default_id4344.dat"... Done. 系统找不到指定的文件。 (system "copy D:\Fluent6.3\fluent\Fluent.Inc\fluent6.3.26\src\makefile_nt.udf libudf\ntx86\2d\makefile"  已复制 1 个文件。 (chdir "libudf" ()(chdir "ntx86\2d" ()Done. 真心不知道怎么弄了 |
4楼2013-09-17 16:33:44
30