Message Boards Message Boards

0
|
6237 Views
|
7 Replies
|
1 Total Likes
View groups...
Share
Share this post:

Descritize or say mesh the conic section?

Yaw Antoa Onyina
Posted 4 years ago

Rotating a non-vertical line such as the line y = -x about a vertical line such as the y axis at their point of intersection, a double napped right circular hollow cone is obtained. One of seven curves namely circle, ellipse, parabola, hyperbola, point, line and intersecting lines will be formed when a plane intersects the double napped right circular cone depending on the value of d ranging from d=-15 through to d=5 only existing to translate the plane so it may pass or not pass through the vertex and the value of a ranging from a=0 through to a=145 only existing to rotate the plane after it has been translated

How can I descritize or say mesh the conic section which results as the intersection?

Attachments:
mesh or say desc...nb
POSTED BY: Yaw Antoa Onyina
7 Replies
Sort By:
Roger Wells
Roger Wells
Posted 4 years ago

Yes, having some trouble re posting and editing. Just having fun really with you graphic. Here is my update.
POSTED BY: Roger Wells
Roger Wells
Roger Wells
Posted 4 years ago

POSTED BY: Roger Wells

Thank you very much Roger but I want something like the blue curves in the pictures attached below

Attachment

Attachment

Attachment

Attachment

Attachments:
ellipse.png
hyperbola.png
intersecting lines.png
parabola.png
POSTED BY: Yaw Antoa Onyina
Hans Milton
Hans Milton
Posted 4 years ago

See this Wolfram Demonstration
POSTED BY: Hans Milton

Thank you very much Hans Milton for linking me to that nice demonstration, but I want to tinker with to see if Mathematica can be manipulated so as to find and or solve for the intersection of a RevolutionPlot3D and Graphics3D Polygon.
POSTED BY: Yaw Antoa Onyina

Considering yours in the notebook which is `

Manipulate[
 Show[RevolutionPlot3D[-x, {x, -10, 10}, RevolutionAxis -> "Z", 
   Boxed -> False, Axes -> False, Mesh -> None], 
  Graphics3D[{{Opacity[1], 
     White, {Rotate[
       Translate[
        Polygon[{{10, 10, 5}, {-10, 10, 5}, {-10, -10, 5}, {10, -10, 
           5}}], {0, 0, d}], a Degree, {0, 1, 0}]}}}, Boxed -> False],
   ImageSize -> 270], {{d, 0, "Translation"}, -15, 5, 
  Appearance -> "Labeled"}, {{a, 0, "Rotation"}, 0, 145, 
  Appearance -> "Labeled"}]

I tried using DiscretizeGraphics, DiscretizeRegion and RegionIntersection as follows

Manipulate[
 Show[RevolutionPlot3D[-x, {x, -10, 10}, RevolutionAxis -> "Z", 
   Boxed -> False, Axes -> False, Mesh -> None], 
  Graphics3D[{{Opacity[1], 
     White, {Rotate[
       Translate[
        Polygon[{{10, 10, 5}, {-10, 10, 5}, {-10, -10, 5}, {10, -10, 
           5}}], {0, 0, d}], a Degree, {0, 1, 0}]}}}, Boxed -> False],
   DiscretizeRegion@
   RegionIntersection[
    DiscretizeGraphics[
     RevolutionPlot3D[-x, {x, -10, 10}, RevolutionAxis -> "Z", 
      Boxed -> False, Axes -> False, Mesh -> None]], 
    DiscretizeGraphics[
     Graphics3D[{{Opacity[1], 
        White, {Rotate[
          Translate[
           Polygon[{{10, 10, 5}, {-10, 10, 5}, {-10, -10, 
              5}, {10, -10, 5}}], {0, 0, d}], a Degree, {0, 1, 0}]}}},
       Boxed -> False]]], 
  ImageSize -> 270], {{d, 0, "Translation"}, -15, 5, 
  Appearance -> "Labeled"}, {{a, 0, "Rotation"}, 0, 145, 
  Appearance -> "Labeled"}]

but it fails.
POSTED BY: Kwame Acheampong

Thank you for the effort.
POSTED BY: Yaw Antoa Onyina
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract