Eliptic Cylinder Help Project

Questions
1

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

2

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}]]

10819plot.png
10819plot.png296×418 21.5 KB

3

And how do i make it to move in any direction?

4

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]]

cylinder.gif