home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / cbrt2.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  256 b   |  12 lines
  1. #!/usr/local/bin/clip
  2. #ùºò√ì¬(Newton û@) cube root
  3. #\!- <val>
  4. :ptype
  5. if @0 == 0; return 0; endif
  6. if @0 > 0; @p = 1; else; @p = 0; @0 = [-]@0; endif
  7. @s = @0 > 1 ? @0 1
  8. do
  9.     @S = @s; @s = (@0 / (@s * @s) + 2 * @s) / 3
  10. until @s < @S
  11. @p ? @S ([-]@S)
  12.