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
