Question: What is this procedure trying to accomplish?

> G := proc (N)

local s, n;

s := 0.;

n := 0;

while n < N do

n := n+1;

s := s+1/n

end do;

[s, n] end proc;


    Comput  G(1.0),G(2.0), .....G(7.0)   try to figure out what
    the procdure G is doing

Please Wait...