Message Boards Message Boards

0
|
3738 Views
|
3 Replies
|
1 Total Likes
View groups...
Share
Share this post:

Eliptic Cylinder Help Project

Vladimir Dutan
Posted 6 years ago

Hello, I have a project in which i must make a eliptic cylinder and make it move in different directions by using the followin formula: (x^2/a^2)+(y^2/b^2)=1. I made a Cylinder by using Graphics3D[Cylinder[]] and that's where everything stops. I never worked in Mathematica and the professor just told us to do it on a computer. I understand that this is the best alternative to do the project. Thank you
POSTED BY: Vladimir Dutan
3 Replies
Sort By:
Vladimir Dutan
Vladimir Dutan
Posted 6 years ago

And how do i make it to move in any direction?
POSTED BY: Vladimir Dutan
Rohit Namjoshi
Rohit Namjoshi
Posted 6 years ago

Not sure exactly what you mean by "make it move". Take a look at the documentation for Manipulate and ListAnimate. e.g.

zRotations = 
  Table[Graphics3D[
    Rotate[Scale[Cylinder[{{0, 0, 0}, {0, 0, 4}}, 1], {a, b, 1}], t, {0, 0, 1}], 
    Boxed -> False, ViewPoint -> {Pi, Pi/2, 2}], {t, 0, 2 Pi, Pi/12}];

Export["cylinder.gif", ListAnimate[zRotations]]

enter image description here
POSTED BY: Rohit Namjoshi
Rohit Namjoshi
Rohit Namjoshi
Posted 6 years ago

Vladimir,

One way to do it is to Scale the cylinder.

a = 2; b = 3;
Graphics3D[Scale[Cylinder[{{0, 0, 0}, {0, 0, 4}}, 1], {a, b, 1}]]

enter image description here
POSTED BY: Rohit Namjoshi
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