Lindstedt-Poincaré Method and Mathematica Applied to the Motion of a Solid with a Fixed Point