+-
comment testprogramma R 764, substitutiemethode, MLP 290362 / 1791;
begin	integer i; real u, z;
	u:= 1; z:= 0; for i:= 1 step 1 until 10 do
	begin	z:= .88183988* u + .189140 * z ** 2 - .1960144 * z ** 3 + .0171937 * z ** 4 - .00068778 * z ** 5;
		NLCR; FLOT (12, z)
	end
end