source:
trunk/minix/commands/m4/Sqroot.m4@
10
| Last change on this file since 10 was 9, checked in by , 14 years ago | |
|---|---|
| File size: 238 bytes | |
| Line | |
|---|---|
| 1 | define(square_root, |
| 2 | `ifelse(eval($1<0),1,negative-square-root, |
| 3 | `square_root_aux($1, 1, eval(($1+1)/2))')') |
| 4 | define(square_root_aux, |
| 5 | `ifelse($3, $2, $3, |
| 6 | $3, eval($1/$2), $3, |
| 7 | `square_root_aux($1, $3, eval(($3+($1/$3))/2))')') |
Note:
See TracBrowser
for help on using the repository browser.
