Differences between revisions 13 and 14

Deletions are marked like this. Additions are marked like this.
Line 1: Line 1:
{{{#!frame align=float:left,width=10%,background=yellow {{{
#!frame align=float:left,width=10%,background=yellow
Line 6: Line 7:

{{{#!frame align=clear:right,width=90%,background=clear,color=clear 		{{{
#!frame align=float:right,width=90%,color=clear,thick=0px

Try it!

Learn more 

function [ alpha_out ] = Apdot_unb_var1( alpha, x, y )

  [ 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 ) )

    [ x0, ...
      chi1, ...
      x2 ] = FLA_Repart_2x1_to_3x1( xT, ...
                                    xB, ...
                                    1, 'FLA_BOTTOM' );

    [ y0, ...
      psi1, ...
      y2 ] = FLA_Repart_2x1_to_3x1( yT, ...
                                    yB, ...
                                    1, 'FLA_BOTTOM' );

    %------------------------------------------------------------%

    alpha = chi1 * psi1 + alpha;

    %------------------------------------------------------------%

    [ xT, ...
      xB ] = FLA_Cont_with_3x1_to_2x1( x0, ...
                                       chi1, ...
                                       x2, ...
                                       'FLA_TOP' );

    [ yT, ...
      yB ] = FLA_Cont_with_3x1_to_2x1( y0, ...
                                       psi1, ...
                                       y2, ...
                                       'FLA_TOP' );

  end

  alpha_out = alpha;


return

LinearAlgebraWiki: Apdot/FLAME@lab/UnbVar1/Text (last edited 2008-08-07 19:54:49 by MarthaGanser)