Consider a semialgebraic set; such as reg
below:
With[{reg =
x^2 + y^2 + z^2 <= 1 && x^2 y^2 z^2 <= 1/1000 && -x - y + z <= 0},
RegionPlot3D[ImplicitRegion[reg, {x, y, z}], PlotPoints -> 200]]
My rather simple problem is: how to compute symbolic surface normal for every point (defined as {x, y, z}
) on its' surface?
My attempts have been based on CylindricalDecomposition
and using Reduce
and Solve
to compute solution for one surface coordinate as a function of two others, applying D
accordingly, and stitching the results together. I find these constructs inelegant and Frankensteinian, and doubt their robustness. Are there nicer ways to do this?
CylindricalDecomposition
) such asreg
. $\endgroup$