| 查看: 764 | 回复: 6 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
udf怎样编一个1-100的循环 求教,谢谢
|
|||
| 想在udf怎样编一个1-100的循环 ，l来模拟焊接热源的脉冲，求大侠前辈指教，谢谢了 |
回复此楼» 收录本帖的淘帖专辑推荐
 电弧 |
» 猜你喜欢
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向
已经有3人回复
-
救命帖
已经有6人回复
-
存款400万可以在学校里躺平吗
已经有37人回复
-
英文综述是否需要润色及查重
已经有5人回复
-
限项规定
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
-
招博士
已经有3人回复
-
最失望的一年
已经有18人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 二维轴对称模型中的c_face_loop(cell,thread,n)
已经有5人回复
- UDF程序，形参t重定义等ERROR求教
已经有9人回复
|
呵呵 试了 不行啊 你看看我得代码 好吗 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
2楼2013-03-11 10:18:11
3楼2013-03-11 13:15:28
6楼2013-03-11 19:54:35