//Example 5.1
f_k=45;//Friction (N)
m=62;//Mass of skier (kg)
g=9.80;//Acceleration due to gravity (m/s^2)
theta=25;//Inclination of slope (deg)
N=m*g*cosd(theta);//Normal force perpendicular to slope (N)
mu_k=f_k/N;//Coefficient of kinetic friction
printf('Coefficient of kinetic friction = %0.3f',mu_k)
//Openstax - College Physics
//Download for free at http://cnx.org/content/col11406/latest