| 查看: 934 | 回复: 6 | |||
[求助]
udf怎样编一个1-100的循环 求教,谢谢
|
| 想在udf怎样编一个1-100的循环 ，l来模拟焊接热源的脉冲，求大侠前辈指教，谢谢了 |
回复此楼» 收录本帖的淘帖专辑推荐
 电弧 |
» 猜你喜欢
filecode
已经有14人回复
-
关于Filecode分析方法
已经有4人回复
-
FileCode能看出啥？
已经有20人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有35人回复
-
长年满屏的广告，版主太不责任了。基金也等的急
已经有3人回复
-
不应该看fileCode
已经有4人回复
-
2019年青年基金涵评意见，大家看看几个A，几个B?
已经有5人回复
-
职称评审，求友友推荐见刊最快的期刊
已经有4人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有10人回复
-
综述论文作为代表作会不会影响评审专家的印象分？
已经有13人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 二维轴对称模型中的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
