File Coverage

blib/lib/Math/Symbolic/Custom/ErrorPropagation.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	37	37	100.0

package Math::Symbolic::Custom::ErrorPropagation;

use 5.006;
use strict;
use warnings;
use Carp qw/croak carp cluck confess/;

use Math::Symbolic::Custom::Base;
BEGIN { *import = \&Math::Symbolic::Custom::Base::aggregate_import }

use Math::Symbolic::ExportConstants qw/:all/;
our $VERSION = '0.11';

our $Aggregate_Export = [qw/apply_error_propagation/];

sub apply_error_propagation {
    my ( $f, @elements ) = @_;

    return Math::Symbolic::Constant->zero() if not @elements;

    my $formula;
    foreach my $element (@elements) {
        $formula +=
          Math::Symbolic::Variable->new("sigma_$element")**2 *
          Math::Symbolic::Operator->new( 'partial_derivative', $f,
            Math::Symbolic::Variable->new($element) )**2;
    }
    $formula = sqrt($formula);
    return $formula;
}

1;
__END__