Home > tt2 > core > my_chop2.m

my_chop2

PURPOSE ^

Truncation by absolution precision in Frobenius norm

SYNOPSIS ^

function [r] = my_chop2(sv,eps)

DESCRIPTION ^

Truncation by absolution precision in Frobenius norm
   [R]=MY_CHOP2(SV,EPS) truncation by absolute precision in the Frobenius 
   norm. Finds minimal possible R such that \sqrt(sum(SV(R:n)^2)) < EPS


 TT-Toolbox 2.2, 2009-2012

This is TT Toolbox, written by Ivan Oseledets et al.
Institute of Numerical Mathematics, Moscow, Russia
webpage: http://spring.inm.ras.ru/osel

For all questions, bugs and suggestions please mail
ivan.oseledets@gmail.com
---------------------------
Vectorize this supercode

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function [r] = my_chop2(sv,eps)
0002 %Truncation by absolution precision in Frobenius norm
0003 %   [R]=MY_CHOP2(SV,EPS) truncation by absolute precision in the Frobenius
0004 %   norm. Finds minimal possible R such that \sqrt(sum(SV(R:n)^2)) < EPS
0005 %
0006 %
0007 % TT-Toolbox 2.2, 2009-2012
0008 %
0009 %This is TT Toolbox, written by Ivan Oseledets et al.
0010 %Institute of Numerical Mathematics, Moscow, Russia
0011 %webpage: http://spring.inm.ras.ru/osel
0012 %
0013 %For all questions, bugs and suggestions please mail
0014 %ivan.oseledets@gmail.com
0015 %---------------------------
0016 %Vectorize this supercode
0017 sv0=cumsum(sv(end:-1:1).^2);
0018 ff=find(sv0<eps.^2);
0019 if (isempty(ff) )
0020    r=numel(sv);
0021 else
0022    r=numel(sv)-ff(end);
0023 end
0024 return
0025 end

Generated on Wed 08-Feb-2012 18:20:24 by m2html © 2005