Gradient descent: Difference between revisions
Content added Content deleted
m (→{{header|Perl 6}}: more mindless golfing) |
m (→{{header|Perl 6}}: even more) |
||
Line 214:
for @fi.kv -> $i, $j { @x[$i] -= $b * $j } # Calculate next value.
# Calculate next gradient and next value
@fi = gradG(@x, $h /= 2, my $g1 = g(@x));
$b = $alpha / sqrt($delG = sum(map {$_²}, @fi) ); # Calculate next norm.
$g1 > $g0 ?? ( $alpha /= 2 ) !! ( $g0 = $g1 ) # Adjust parameter.
| |||