//Example 20.6
R_0=0.350;//Cold resistance of tungsten (ohm)
alpha=4.5*10^-3;//Temperature coefficient of resistivity (1/deg C)
delta_T=2850-20;//Temperature change (C)
R=R_0*(1+alpha*delta_T);//Hot resistance (ohm)
printf('Resistance of the filament after temperature change = %0.1f ohm',R)
//Openstax - College Physics
//Download for free at http://cnx.org/content/col11406/latest