//Example 15.8
m=1;//Mass of ice (kg)
L_f=334*10^3;//Latent heat of fusion (J/kg)
Q=m*L_f;//Heat required to melt the given mass of ice (J)
T=0;//Melting temperature of ice (C)
T=T+273;//Melting temperature of ice (K)
delta_S=Q/T;//Change in entropy (J/K)
printf('Increase in entropy = %0.2e J/K',delta_S)
//Openstax - College Physics
//Download for free at http://cnx.org/content/col11406/latest