Currently I'm trying to simulate heating of some rigid body by Gaussian laser beam. To do that I define the MATC function in my .sif file to calculate volumetric heating source as follows:
Code: Select all
$ function HeatSource(x) { \
h = 1.12e-6; \
p = 1.0e-3; \
r = 0.48; \
w = 500e-9; \
d = 5870; \
i_0 = p / (3.14 * w^2); \
i = i_0 * exp(-(x(0)*x(0) + x(1)*x(1)) / w*w); \
a = 8.15e+7; \
v_s = i * (1 - r) * a * exp(-a * (h - x(2))); \
m_s = v_s / d; \
_HeatSource = m_s; \
}
Code: Select all
Body Force 1
Name = "Laser"
Heat Source = Variable Coordinate
Real MATC "HeatSource(tx)"
End
I will really appreciate any help.
Yuri