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 < @$funcs; $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];