Free vibration solution for uniform beams of nonsymmetrical cross section using Mathematica