Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- rd = RegionDistance @ ParametricRegion[{x, x^2}, {{x, 0, 1}, {y, 0, 1}}];
- ContourPlot[Evaluate@rd[{x, y}], {x, 0, 1}, {y, 0, 1},
- Contours -> 10, Exclusions -> None,
- Epilog -> {Plot[x^2, {x, 0, 1}, PlotStyle -> Directive[Thick, Red]][[1]]}]
Add Comment
Please, Sign In to add comment