15 lines
289 B
Text
15 lines
289 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 (a=1, b=kill, xlow=128, xupp=320) = ddx(nx) + ddy(ny) + ddz(nz)
|
|
|
|
avg { c, fsd, divn }
|