ReLU関数の導関数 - 活性化関数の導関数

ReLU関数導関数をPerlで書いてみます。

ReLU関数の導関数をPerlで書いてみます。ReLU関数の導関数は、逆誤伝播法に利用します。

use strict;
use warnings;

sub relu_derivative {
  my ($x) = @_;
  
  my $relu_derivative = 1 * ($x > 0.0);
  
  return $relu_derivative;
}

my $value1 = 0.7;
my $relu_derivative1 = relu_derivative($value1);

print "$relu_derivative1\n";

my $value2 = -0.4;
my $relu_derivative2 = relu_derivative($value2);

print "$relu_derivative2\n";

関連情報