errornormalize.m

来自「intlab 工具用于快速计算 各各层的倒数等等」· M 代码 · 共 26 行

function Err = errornormalize(Err)
%ERRORNORMALIZE  Normalization of error term
%
%For internal use only

%
%  Err = errornormalize(Err)
%
%with Err = Err.mant * beta^Err.exp and Err.mant normalized to
%approximately 1.
%

% written  12/30/98     S.M. Rump
%

global INTLAB_LONG_BETA

  % adapt error mantissa and exponent such that Err.mant around 1
  index = ( Err.mant~=0 );
  if any(index)
    q = floor( log( Err.mant(index) ) / log( INTLAB_LONG_BETA ) );
    Err.mant(index) = Err.mant(index) ./ INTLAB_LONG_BETA.^q;
    Err.exp(index) = Err.exp(index) + q;
  end
  Err.exp(~index) = 0;