Multidimensional Newton-Raphson method: Difference between revisions
Content added Content deleted
(added Perl 6) |
|||
Line 565: | Line 565: | ||
@jacobian = jacobian $funcs, @guesses, ε; |
@jacobian = jacobian $funcs, @guesses, ε; |
||
@delta = solve_matrix @jacobian, @delta; |
@delta = solve_matrix @jacobian, @delta; |
||
loop (my $j = 0, $error_value = 0; $j < |
loop (my $j = 0, $error_value = 0; $j < +$funcs; $j++) { |
||
$error_value += @delta[$j].abs ; |
$error_value += @delta[$j].abs ; |
||
@guesses[$j] += @delta[$j]; |
@guesses[$j] += @delta[$j]; |