Hello
My Goal is to animate a function together with graphical objects.
So far, I couldn't find any analogical examples on the web or the documentation.

Here is what I have:

Animate[Plot3D[{(?1)(x^2+y^2)n+n,nSin[y],Graphics3D[Arrow[{{5,5,5},{0,0,0}}]]},{x,?5,5},{y,?5,5},PlotRange?{?4,8},PlotPoints?50,Mesh?>All],{n,0,5,0.02}]         

The Programm seems to ignore my Graphics3D[ ] command. I would expect an error message if i wrote some nonsence, but it did not occur. It should display shown functions in an animation, together with an animated arrow in one window. Instead, I get to see both functions only. Also interresting: if i put the animation expressions in different order, mathematica will display the arrow and the functions in sepparate Windows:

Animate[{Graphics3D[Arrow[{{n,5,5},{0,0,0}}]],Plot3D[Sin[y]n,{x,0,5},{y,0,5}]},{n,0,5,0.02}]

I am sitting on this for weeks now, the Wolfram community is my last resort. Please help.

Marc