achromat_setup; load achromat; show_contour3; v = [0 3]'; p(1,:)=v'; for k=2:6 [A fz] = calculate_derivatives(@achromat2,v); g = A'*fz/norm(A'*A); v = v -g; p(k,:)=v'; end hold on; plot(p(:,1),p(:,2),'ko-','LineWidth',1.5); hold off;
Maintained by John Loomis, last updated 6 Feb 2003