Moving heat Source
 

Can anyone help me in writing a UDF to incorporate a moving heat source. The heat source is Gaussian in nature and when it is stationery, the following UDF works fine. Can anyone tell me how I can move this heat source along the x direction.

Stationery Heat Source UDF:

#include "udf.h"

#define rb 0.00235

#define f1 0.5

#define Q 1900

DEFINE_PROFILE(gauss_heat_flux,t,i)

{

real x[ND_ND];

real y,y1;

face_t f;

begin_f_loop(f,t)

{

F_CENTROID(x,f,t);

y = x[1];

y1=x[0];

F_PROFILE(f,t,i) = (Q/rb*rb)*exp(-(f1*(y*y+y1*y1))/rb*rb);

}

end_f_loop(f,t)

}

?
 

Hello,
do u still need help with that?
guess not but thought i'd ask.

2D gaussian beam
 

hi,
in the above program can u please explain the function of "i" in line DEFINE_PROFILE(gauss_heat_flux,t,i)
and how would you write the same program for moving heat source in 2D?