function [ alpha_out ] = Apdot_unb_var2( alpha, x, y ) [ xT, ... xB ] = FLA_Part_2x1( x, ... 0, 'FLA_BOTTOM' ); [ yT, ... yB ] = FLA_Part_2x1( y, ... 0, 'FLA_BOTTOM' ); while ( size( xB, 1 ) < size( x, 1 ) ) [ x0, ... chi1, ... x2 ] = FLA_Repart_2x1_to_3x1( xT, ... xB, ... 1, 'FLA_TOP' ); [ y0, ... psi1, ... y2 ] = FLA_Repart_2x1_to_3x1( yT, ... yB, ... 1, 'FLA_TOP' ); %------------------------------------------------------------% alpha = chi1 * psi1 + alpha %------------------------------------------------------------% [ xT, ... xB ] = FLA_Cont_with_3x1_to_2x1( x0, ... chi1, ... x2, ... 'FLA_BOTTOM' ); [ yT, ... yB ] = FLA_Cont_with_3x1_to_2x1( y0, ... psi1, ... y2, ... 'FLA_BOTTOM' ); end alpha_out = alpha; return
