function [ alpha_out ] = Apdot_blk_var1( alpha, x, y, nb_alg ) [ xT, ... xB ] = FLA_Part_2x1( x, ... 0, 'FLA_TOP' ); [ yT, ... yB ] = FLA_Part_2x1( y, ... 0, 'FLA_TOP' ); while ( size( xT, 1 ) < size( x, 1 ) ) b = min( size( xB, 1 ), nb_alg ); [ x0, ... x1, ... x2 ] = FLA_Repart_2x1_to_3x1( xT, ... xB, ... b, 'FLA_BOTTOM' ); [ y0, ... y1, ... y2 ] = FLA_Repart_2x1_to_3x1( yT, ... yB, ... b, 'FLA_BOTTOM' ); %------------------------------------------------------------% alpha = Apdot_unb_var1( alpha, x1, y1 ); %------------------------------------------------------------% [ xT, ... xB ] = FLA_Cont_with_3x1_to_2x1( x0, ... x1, ... x2, ... 'FLA_TOP' ); [ yT, ... yB ] = FLA_Cont_with_3x1_to_2x1( y0, ... y1, ... y2, ... 'FLA_TOP' ); end alpha_out = alpha; return
