Tag Info

Hot answers tagged

4

Just add a fixed PlotRange like this : pics = Table[ Graphics3D[{{Opacity[0.1], EdgeForm[None], Cone[{{0, 0, 0}, {0, 0, -2}}, 1]}, {Yellow, Sphere[{0, 0, -2}, 0.1]}, {Dashed, Arrow[{{0, 0, -2}, {0, 0, 0}}]}, GeometricTransformation[{Red, Arrowheads[0.03], Arrow[Tube[{{0, 0, -2}, {0, 1, 0}}, 0.005]]}(*{Black,Arrow[{{0, ...



Only top voted, non community-wiki answers of a minimum length are eligible