source:
trunk/minix/commands/m4/Sqroot.m4@
15
| Last change on this file since 15 was 9, checked in by , 15 years ago | |
|---|---|
| File size: 238 bytes | |
| Rev | Line | |
|---|---|---|
| [9] | 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.
