Your contributions are impressive, Mariusz! You must be an expert in dynamics and well informed about the rotational motion of all sorts of objects! This brings me to a demonstration I am hopelessly trying to get right. About the rolling of a marble inside a bowl. Attached is a demonstration I made some time ago. I know it dies not look right and the rotations of the marble are not consistent with experience. Maybe you can have look at it or get me on the right track. Or maybe yo know a publication that has the correct equations of motion?

Attachments:

Thank you, Mariusz, keep the good posts coming!

Hello,

I am new to Mathematica and was going through a few simulations and animations, and trying a few things like Rotations and Transformations.

I had one doubt, is there any way to rotate the bowl along a certain axis while the marble is moving inside it at the same time?

Will a Rotate function like below used inside Initialization work?

Rot[\[Alpha]_] := {{Cos[\[Alpha]], -Sin[\[Alpha]]}, {Sin[\[Alpha]], 
     Cos[\[Alpha]]}}
   Rot1 = bowl
   Animate[
    Graphics[GeometricTransformation[Rot1, Rot[\[Alpha]]], 
     Axes -> True], {\[Alpha], 0, 2 \[Pi]}]

Thanks