Mathematica Asked by brndt on December 10, 2020
I am plotting a surface using ParametricPlot3D. Is there a way that only the region with negative Gaussian curvature is plotted?
There is a ResourceFunction
that can compute Gaussian curvature which allows you to incorporate the comment by Ulrich Neumann
Clear[surf, curv]
surf[u_, v_] = ResourceFunction["Cyclide"][.3, 1.5, {u, v}];
curv[u_, v_] =
ResourceFunction["GaussianCurvature"][#, {u, v}] &@surf[u, v];
ParametricPlot3D[
surf[u, v], {u, -[Pi], [Pi]}, {v, -2 [Pi], 2 [Pi]},
RegionFunction -> Function[{u, v}, curv[u, v] < 0]]
Correct answer by Natas on December 10, 2020
Get help from others!
Recent Answers
Recent Questions
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP