1# 2# Copyright (c) 1989 The Regents of the University of California. 3# All rights reserved. 4# 5# This code is derived from software contributed to Berkeley by 6# Ozan Yigit. 7# 8# Redistribution and use in source and binary forms are permitted 9# provided that the above copyright notice and this paragraph are 10# duplicated in all such forms and that any documentation, 11# advertising materials, and other materials related to such 12# distribution and use acknowledge that the software was developed 13# by the University of California, Berkeley. The name of the 14# University may not be used to endorse or promote products derived 15# from this software without specific prior written permission. 16# THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR 17# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED 18# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. 19# 20# @(#)sqroot.m4 5.1 (Berkeley) 08/28/89 21# 22 23define(square_root, 24 `ifelse(eval($1<0),1,negative-square-root, 25 `square_root_aux($1, 1, eval(($1+1)/2))')') 26define(square_root_aux, 27 `ifelse($3, $2, $3, 28 $3, eval($1/$2), $3, 29 `square_root_aux($1, $3, eval(($3+($1/$3))/2))')') 30