File:Absorbeff.jpg

Absorber efficency Vs operating temperature with effects of selective surfaces.

Generated by mathematica by this code:

Plot[{(20000 - (1/20)*11.3*(t - 293) -     1.86*(5.67*10^-8)*1*(t^4 - 293^4) - .03*2*(t - 293)/.5)/ 20000, (18000 - (1/20)*11.3*(t - 293) -     1.86*(5.67*10^-8)*.4*(t^4 - 293^4) - .03*2*(t - 293)/.5)/ 20000, (18000 - (1/20)*11.3*(t - 293) -     1.86*(5.67*10^-8)*.1*(t^4 - 293^4) - .03*2*(t - 293)/.5)/ 20000}, {t, 293, 800}, AxesLabel -> {"Operating temperature (K)", "Efficiency"}, ImageSize -> Large, PlotStyle -> Thick, PlotRange -> {0, 1}]