function y = dfWien(x)
% This function is the 1st derivative of 
% the transcendental function used in 
% Wien's Displacement Law
%
% Author: Ben Loftin
% License: GPL

y = 1 - 5*exp(-x);