| 查看: 798 | 回复: 6 | |||
[求助]
udf怎样编一个1-100的循环 求教,谢谢
|
| 想在udf怎样编一个1-100的循环 ，l来模拟焊接热源的脉冲，求大侠前辈指教，谢谢了 |
回复此楼» 收录本帖的淘帖专辑推荐
 电弧 |
» 猜你喜欢
材料求调剂
已经有5人回复
-
354求调剂
已经有9人回复
-
化学工程321分求调剂
已经有22人回复
-
考研调剂
已经有3人回复
-
326求调剂
已经有8人回复
-
333求调剂
已经有7人回复
-
一志愿东华大学控制学硕320求调剂
已经有3人回复
-
考研化学学硕调剂，一志愿985
已经有7人回复
-
0703化学调剂
已经有15人回复
-
0703化学调剂 ，六级已过，有科研经历
已经有14人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 二维轴对称模型中的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
40