调和级数常数项的存在实验

(defun  calc (n)

(do   (  (x  1  (1+  x) ) (sum  0) )

       (  (>  x  n)  sum  )

       (psetq sum  (+ sum  (/  1.0 x )) ) ))

 

(- (calc   1000)

   (log  (+ 1 1000)))

 

(- (calc   10000)

   (log  (+ 1 10000)))

 

(- (calc   100000)

   (log  (+ 1 100000)))