| 查看: 754 | 回复: 6 | |||
[求助]
udf怎样编一个1-100的循环 求教,谢谢
|
| 想在udf怎样编一个1-100的循环 ，l来模拟焊接热源的脉冲，求大侠前辈指教，谢谢了 |
回复此楼» 收录本帖的淘帖专辑推荐
 电弧 |
» 猜你喜欢
拟解决的关键科学问题还要不要写
已经有8人回复
-
求助一下有机合成大神
已经有3人回复
-
最失望的一年
已经有13人回复
-
存款400万可以在学校里躺平吗
已经有30人回复
-
求推荐英文EI期刊
已经有5人回复
-
请教限项目规定
已经有4人回复
-
国自然申请面上模板最新2026版出了吗？
已经有20人回复
-
26申博
已经有3人回复
-
基金委咋了？2026年的指南还没有出来？
已经有10人回复
-
基金申报
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 二维轴对称模型中的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