Moving a parametric object in mathematica

[andlook]

Hi

I have define a 3D object with ParametricPlot3D, something similar to a sphere called "obj." I then want to use a matrix, I define as "move," to translate the object around, I have been trying:

obj = ParametricPlot3D...
move = AffineTransform[{{1, 1, 2}, {0,1 , 1}, {0, 0, 1}}]

Graphics3D[GeometricTransformation[obj[], move], Axes -> True]

But this just returns an error message
"GeometricTransformation is not a Graphics3D primitive or directive." Is it possible to move an object that has been defined parametrically like this? Is there any other command that will allow me to move this object around?

Thanks

 

[Dale]

The result of ParametricPlot3D is a Graphics3D object, not a Graphics3D primitive. However, it should have a length of 2 and the first element should be a list of the corresponding Graphics3D primitive and the second element should be a list of the options. So you can use something like:

Graphics3D[GeometricTransformation[obj[[1]], move]]
or even
Graphics3D[GeometricTransformation[obj[[1]], move], obj[[2]]]

 

[oswaler]

for your question. Yes, it is possible to move a parametric object in Mathematica using GeometricTransformation. However, the syntax you have used is incorrect. The correct syntax would be:

obj = ParametricPlot3D[...];
move = AffineTransform[{{1, 1, 2}, {0, 1, 1}, {0, 0, 1}}];

Graphics3D[GeometricTransformation[obj[[1]], move], Axes -> True]

The key difference is that you need to access the actual graphics object within the ParametricPlot3D using [[1]]. Additionally, the affine transformation matrix should be applied to the graphics object, not the ParametricPlot3D function itself.

I hope this helps and you are able to successfully move your parametric object. If you continue to have trouble, I suggest consulting the Mathematica documentation or seeking help from the Mathematica community forums. Good luck with your project!