//Example 7.3//
k=398;//J/s.m.K // thermal conductivity
T=0;//degree Celsius //temperature gradient
T1=50;//degree Celsius //temperature gradient
x=10*10^-3;//m //metre
A=-k*((T-T1)/x)
mprintf("A = %e J/m^2.s",A)