Group Abstract Group Abstract

Message Boards Message Boards

Name of this surface?

Posted 10 years ago
Attachments:
POSTED BY: Bryan Lettner
3 Replies

I do not know the answer. But possibly having the implicit form might help for looking it up.

  tpolys = TrigExpand[{Sin[u]*Sin[v]*Sin[v + u], Cos[u]*Cos[v]*Cos[v + u], Cos[u]*Sin[v]*Sin[v + u]}];
    tp2 = tpolys /. {Cos[u] -> cu, Cos[v] -> cv, Sin[u] -> su, Sin[v] -> sv};
    gb = GroebnerBasis[
       Join[{x, y, z} - tp2, {cu^2 + su^2 - 1, cv^2 + sv^2 - 1}], {x, y, z}, {cu, cv, su, sv}];
    implicit = First[gb]

    (* Out[154]= x^2 y + x^2 z - z^2 + y z^2 + z^3 *)
POSTED BY: Daniel Lichtblau

Wolfram Language has data on surfaces. You could dig through those.

SurfaceData["SampleEntities"]

enter image description here

SurfaceData["Properties"]

enter image description here

enter image description here

POSTED BY: Vitaliy Kaurov
Posted 10 years ago

Thank you Vitaliy. Unfortunately I'm using Mathematica 9 and it doesn't have this feature. I will do some more digging around and post here if I find it.

POSTED BY: Bryan Lettner
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard