SHOW:
|
|
- or go back to the newest paste.
| 1 | alias newton {
| |
| 2 | tokenize 126 $1- | |
| 3 | - | var %funct $1 |
| 3 | + | |
| 4 | - | var %deriv $2 |
| 4 | + | |
| 5 | while (%count <= 5) {
| |
| 6 | - | var %funct $replace(%funct,x,$+(*,$chr(40),%guess,$chr(41))) |
| 6 | + | var %funct $calc($replace($1,x,$+(*,$chr(40),%guess,$chr(41)))) |
| 7 | - | var %deriv $replace(%deriv,x,$+(*,$chr(40),%guess,$chr(41))) |
| 7 | + | var %deriv $calc($replace($2,x,$+(*,$chr(40),%guess,$chr(41)))) |
| 8 | - | var %funct $calc(%funct) |
| 8 | + | var %guess $calc(%guess - (%funct / %deriv)) |
| 9 | - | var %deriv $calc(%deriv) |
| 9 | + | echo -a %guess |
| 10 | - | var %answer $calc(%guess - (%funct / %deriv)) |
| 10 | + | |
| 11 | - | echo -a %answer |
| 11 | + | } |
| 12 | } |
