圆内接正多边形算pi的值(周长）

圆内接正多边形算pi的值
先从内接正方形开始，然后扩展到八边形，16边形。。。
通过找出规律，从而计算
4边形时
pi/2=2*1* { 1/(sqrt  2) }
在这里cos s=1/(sqrt 2) ，为45度

8边形时
pi/2=2*1* { sin s/2 }
因为有公式cos s=2 *cos s/2-1
所以cos s/2= (sqrt  {(1+ cos s) /2} )
将上面的变化为
pi/(2*n)=2*1* {(sqrt (- 1 (* cos s/2  cos s/2)))}

这样就形成了递归关系，写程序可以验证如下：
(defun pow (num count)
(if (or (> count 1) (eq  count 1))
      (* num
         (pow num
              (- count 1) ) )
      1))

(defun  anglevalue  (n)
(if  (eq n  45 )
      (/  1  (sqrt 2))
      (sqrt  (/  (+  1
                     (anglevalue (*  2
                               n)))
                  2))))

(defun  pivalue ( n)
(*  (*  2
          (/ 45
              n))     
    (* 2
       (sqrt (- 1
             (* (anglevalue  n)
                (anglevalue  n)))))))

(defun  test  (count)
(if  (>  count  0.00001)
    (progn
            (print (pivalue count))
            (print 'compare )
            (print  pi)
            (test  (/  count  2)))
    (print 'over)))

(test  45)