%  Test file for GradientDescent.m
%
%  ($RCSfile: GradientDescentTest.m,v $ $Revision: 1.1.1.1 $)

format compact; format short e
M=[1 0; 0 10]
[Results, Count]=GradientDescent([0.6;0],M);
disp([Results(1,[2,3]), Count, Results(Count+1,[2,3])])
[Results, Count]=GradientDescent([0.6;0.01],M);
disp([Results(1,[2,3]), Count, Results(Count+1,[2,3])])
[Results, Count]=GradientDescent([0.6;0.2],M);
disp([Results(1,[2,3]), Count, Results(Count+1,[2,3])])


M=[1 0; 0 20]
[Results, Count]=GradientDescent([0.6;0],M);
disp([Results(1,[2,3]), Count, Results(Count+1,[2,3])])
[Results, Count]=GradientDescent([0.6;0.01],M);
disp([Results(1,[2,3]), Count, Results(Count+1,[2,3])])
[Results, Count]=GradientDescent([0.6;0.2],M);
disp([Results(1,[2,3]), Count, Results(Count+1,[2,3])])
