Group Abstract Group Abstract

Message Boards Message Boards

0
|
6.1K Views
|
4 Replies
|
1 Total Like
View groups...
Share
Share this post:

Why am I seeing a Cone instead of a bicone?

Posted 5 years ago
Attachments:
POSTED BY: Janos Lobb
4 Replies

The two cones are identical. Did you mean vertex2 -> {0, 0, -1}?

POSTED BY: Gianluca Gorni
Posted 5 years ago
POSTED BY: Janos Lobb
Posted 5 years ago

Thanks. Ten minutes after I sent, the tantus fell off. ;-)

POSTED BY: Janos Lobb
Posted 5 years ago

The variables x1,y1,z1,x2,y2,z2 are never addressed.

ommit x1,y1,z1,x2,y2,z2:

r = 1;
cone1 = Cone[{orig, vertex1}, r];
cone2 = Cone[{orig, vertex2}, r];
bicone = {cone1, cone2};
Graphics3D[bicone, PlotRange -> All] /. {orig -> {0, 0, 0}, 
  vertex1 -> {0, 0, 1}, vertex2 -> {0, 0, -1}}

or address x1,y1,z1,x2,y2,z2 directly:

r = 1;
orig = {x1, y1, z1};
vertex1 = {x2, y2, z2};
vertex2 = {x2, y2, -z2};
cone1 = Cone[{orig, vertex1}, r];
cone2 = Cone[{orig, vertex2}, r];
bicone = {cone1, cone2};
Graphics3D[bicone, PlotRange -> All] /. {x1 -> 0, y1 -> 0, z1 -> 0, 
  x2 -> 0, y2 -> 0, z2 -> 1}
POSTED BY: Oliver Seipel
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard