comment testprogramma R 764, Newtoniteratie, MLP 020462 / 1794;
begin	real u, v;
	real procedure V (u); value u; real u;
	begin	real z;
		procedure newton;
		begin	real b, c;  b:= c:= .0008404;
			b:= z * b - .021009; c:= z * c + b;
			b:= z * b + .23951 ; c:= z * c + b;
			b:= z * b - .23111 ; c:= z * c + b;
			b:= z * b + 1.2219 ; c:= z * c + b;
			b:= z * b - u; z:= z - b / c
		end;
		z:= u / 1.2219; FIXT (2, 12 , z); newton; FIXT (2, 12, z); newton; FIXT (2, 12, z);
		newton; FIXT (2, 12, z); newton; FIXT (2, 12, z); V:= z
	end V;
	for u:= 1.2101314, .943909, .581882445 do begin NLCR; FIXT (3, 8, u); v:= V (u) end
end