indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	EM_LINEAR_INTERPOLATOR

inherit
	EM_INTERPOLATOR

feature
	interpolate(a, b: DOUBLE; x: DOUBLE): DOUBLE is
			-- interplate linearly between a and be at position x
		do
			Result := a + x * (b - a)
		end


end