| 查看: 989 | 回复: 6 | |||
[求助]
udf怎样编一个1-100的循环 求教,谢谢
|
| 想在udf怎样编一个1-100的循环 ，l来模拟焊接热源的脉冲，求大侠前辈指教，谢谢了 |
回复此楼» 收录本帖的淘帖专辑推荐
 电弧 |
» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有13人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
申请科研项目纯靠实力能成功吗？
已经有11人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 二维轴对称模型中的c_face_loop(cell,thread,n)
已经有5人回复
- UDF程序，形参t重定义等ERROR求教
已经有9人回复
2楼2013-03-11 10:18:11
3楼2013-03-11 13:15:28
|
呵呵 试了 不行啊 你看看我得代码 好吗 DEFINE_PROFILE(heat_flux,t,i) { real X[ND_ND]; face_t f; real x,y,time; real A1,A2,B; real dd; real m,Q; real r1,r2; real T; int ii,n; time=RP_Get_Real("flow-time"  ;F_CENTROID(X,f,t); x=X[0]; y=X[1]; A1=0.003; A2=0.005; B=0.004; dd=x-u0*time; m=1; Q=3.9*U*I/(PI*B*(A1+A2)); r1=y*y/B/B+(x-u0*time)*(x-u0*time)/A1/A1; r2=y*y/B/B+(x-u0*time)*(x-u0*time)/A2/A2; n=560; T=0.01431; for(ii=1,ii<=n,ii++) { if(time=ii*T-5/6*T) { begin_f_loop(f,t) { if(r1<=1&&dd>0) { F_PROFILE(f,t,i)=Q*exp(-3*(x-u0*time)*(x-u0*time)/A1/A1-3*y*y/B/B); } else if(r2<=1&&dd<=0) { F_PROFILE(f,t,i)=Q*exp(-3*(x-u0*time)*(x-u0*time)/A2/A2-3*y*y/B/B); } } end_f_loop(f,t) } else if(time=ii*T) { begin_f_loop(f,t) { F_PROFILE(f,t,i)=0; } end_f_loop(f,t) } printf("%d %d\n",ii,F_PROFILE(f,t,i)); } |
4楼2013-03-11 18:00:30
5楼2013-03-11 19:23:17
6楼2013-03-11 19:54:35
7楼2013-03-11 20:28:20
200