41 lines
669 B
Text
41 lines
669 B
Text
# weigthed average of terms t1~t8
|
|
|
|
[u, v, w, y]
|
|
|
|
c = 1.0 - y
|
|
wrate = rxn_rate(c)
|
|
fsd = sqrt (sqr(ddx(c)) + sqr(ddy(c)) + sqr(ddz(c)))
|
|
|
|
sd = ((d2dx(c) + d2dy(c) + d2dz(c)) * $rod + wrate) / fsd
|
|
|
|
nx = - ddx(c) / fsd
|
|
ny = - ddy(c) / fsd
|
|
nz = - ddz(c) / fsd
|
|
|
|
vn = u * nx + v * ny + w * nz
|
|
|
|
divn = ddx(nx) + ddy(ny) + ddz(nz)
|
|
|
|
absk = abs(divn)
|
|
|
|
lapc = d2dx(c) + d2dy(c) + d2dz(c)
|
|
|
|
t1 = (vn + sd) * nx
|
|
|
|
t2 = t1' * nx'
|
|
|
|
t3 = t1' * divn'
|
|
|
|
t4 = t1' * absk'
|
|
|
|
t5 = sqr(t1')
|
|
|
|
t6 = sqr(nx')
|
|
|
|
t7 = sqr(divn')
|
|
|
|
t8 = sqr(absk')
|
|
|
|
avg { c, u, v, w, fsd, lapc, ddx_c, ddy_c, ddz_c, d2dx_c, d2dy_c, d2dz_c }
|
|
|
|
avg fsd { u, v, w, nx, ny, nz, t1, t2, t3, t4, t5, t6, t7, t8, absk, divn, sd }
|