15 lines
285 B
Text
15 lines
285 B
Text
[u, v, w, y]
|
|
|
|
# field_name (arg_name=arg (, pair)* ) = expression
|
|
|
|
c = 1.0 - y
|
|
|
|
fsd () = sqrt (sqr(ddx(c)) + sqr(ddy(c)) + sqr(ddz(c)))
|
|
|
|
nx = - ddx(c) / fsd
|
|
ny = - ddy(c) / fsd
|
|
nz = - ddz(c) / fsd
|
|
|
|
divn (export=true, xs=176, xe=400) = ddx(nx) + ddy(ny) + ddz(nz)
|
|
|
|
avg { c, fsd, divn }
|