home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / pi3.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  259 b   |  10 lines
  1. #!/usr/local/bin/clip
  2. #ë~Äⁿùª(æèë┴æèŵò╜ï╧) pi
  3. :float \16
  4. @a = 1; @b = 1 / sqrt 2.0; @s = 1; @t = 4
  5. for @i = 0; @i < 3; @i++
  6.     @l = @a; @a = (@a + @b) / 2; @b = sqrt (@l * @b)
  7.     @s -= @t * (@a - @l) * (@a - @l); @t *= 2
  8. next
  9. (@a + @b) * (@a + @b) / @s
  10.