圆内接正多边形算pi的值面积

圆内接正多边形算pi的值面积
对于半径为1的圆，有如下公式成立
pi=4*{I (0,1) (sqrt (1 - x^2) dx }
这样就给我们新的计算方法：
(defun pow (num count)
(if (or (> count 1) (eq  count 1))
      (* num
         (pow num
              (- count 1) ) )
      1))

(defun integ  (label count)
(if  (> label  count)
  0
  (+ (integ  (1+ label )
             count)
     (*  (/  1.0 count)
         (sqrt  (-  1 
                    (pow (* label
                            (/  1.0 count))
                          2)))))))

(defun  test  (count)
(if  (>  count  1)
    (progn
            (print (* 4 (integ 0 count)))
            (print 'compare )
            (print  pi)
            (test  (/  count  10)))
    (print 'over)))

(test  2000)