3 added 417 characters in body edited Jul 13 '15 at 17:23 David G. Stork 26.2k22 gold badges2323 silver badges5959 bronze badges a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]] b = Graphics3D[ Arrow /@ Table[{{2 Cos[θ], Sin[θ], 0}, 2 {2 Cos[θ], Sin[θ], 0}}, {θ, 0, 2 π, π/10}]] Show[a, b]  It is unclear whether you'd prefer this: a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]]; b = Graphics3D[ Table[Arrow[{{3.05 Cos[\[Theta]], Sin[\[Theta]], 0}, {3.05 Cos[\[Theta] + \[Pi]/10], Sin[\[Theta] + \[Pi]/10], 0}}], {\[Theta], 0, 2 \[Pi], \[Pi]/10}]]; Show[a, b]  a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]] b = Graphics3D[ Arrow /@ Table[{{2 Cos[θ], Sin[θ], 0}, 2 {2 Cos[θ], Sin[θ], 0}}, {θ, 0, 2 π, π/10}]] Show[a, b]  a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]] b = Graphics3D[ Arrow /@ Table[{{2 Cos[θ], Sin[θ], 0}, 2 {2 Cos[θ], Sin[θ], 0}}, {θ, 0, 2 π, π/10}]] Show[a, b]  It is unclear whether you'd prefer this: a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]]; b = Graphics3D[ Table[Arrow[{{3.05 Cos[\[Theta]], Sin[\[Theta]], 0}, {3.05 Cos[\[Theta] + \[Pi]/10], Sin[\[Theta] + \[Pi]/10], 0}}], {\[Theta], 0, 2 \[Pi], \[Pi]/10}]]; Show[a, b]  2 deleted 35 characters in body edited Jul 13 '15 at 17:17 Dr. belisarius 108k1111 gold badges173173 silver badges390390 bronze badges a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]] b = Graphics3D[ Arrow /@ Table[{{2 Cos[\[Theta]]Cos[θ], Sin[\[Theta]]Sin[θ], 0}, 2 {2 Cos[\[Theta]]Cos[θ], Sin[\[Theta]]Sin[θ], 0}}, {\[Theta],  0,   {θ, 0, 2 \[Pi]π, \[Pi]π/10}]] Show[a, b]  a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]] b = Graphics3D[ Arrow /@ Table[{{2 Cos[\[Theta]], Sin[\[Theta]], 0}, 2 {2 Cos[\[Theta]], Sin[\[Theta]], 0}}, {\[Theta], 0,   2 \[Pi], \[Pi]/10}]] Show[a, b]  a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]] b = Graphics3D[ Arrow /@ Table[{{2 Cos[θ], Sin[θ], 0}, 2 {2 Cos[θ], Sin[θ], 0}},   {θ, 0, 2 π, π/10}]] Show[a, b]  1 answered Jul 13 '15 at 16:38 David G. Stork 26.2k22 gold badges2323 silver badges5959 bronze badges a = Graphics3D[Ellipsoid[{0, 0, 0}, {3, 1, 2}]] b = Graphics3D[ Arrow /@ Table[{{2 Cos[\[Theta]], Sin[\[Theta]], 0}, 2 {2 Cos[\[Theta]], Sin[\[Theta]], 0}}, {\[Theta], 0, 2 \[Pi], \[Pi]/10}]] Show[a, b]