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

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

8边形时
pi/4=2* { sin s/2 }*{ cos s/2 }
因为有公式cos s=2 *cos s/2-1
所以cos s/2= (sqrt  {(1+ cos s) /2} )
sin s/2= (sqrt  {(1- cos s) /2} )
将上面的变化为
pi/4=2* {(sqrt (- 1 (* cos s/2  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)
(*  (*  4
        (/ 45
           n))     
    (* (anglevalue  n)
       (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)

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值