Clebsch Gordan Coefficient Solver GUI: findinitindex( j1, j2, M ) - File Exchange

No BSD License

Highlights from
Clebsch Gordan Coefficient Solver GUI

GUI(varargin)
buildconvtbl_c( Jmax ) BUILDCONVTBL_C generates J from Jmax and M from J
buildconvtbl_r( j1, j2 ) BUILDCONVTBL_R contains j1, j2 to M conversion info
calcallcgcoef( j1, j2 ) CALCCGCOEF : calculate clebisch-gordon coefficients
cgcoeff_stage2( J, init_rhs_i...
coef_jminus( j, m ) JMINUS coefficient of jminus
coef_jplus( j, m ) JMINUS coefficient of jminus
disprecord( alhs, arhs, coeff... DISPRECORD outputs the inner product notation and coefficients
findinitindex( j1, j2, M ) FINDINITINDEX find a rhs indices which is non-zero
findrecord( M, r ) FINDINDEX: find indices which matches the row
locateindex( M, m) ISELEMENTUNIQUE checks if matrix is unique defined by tuple of 4 elements
op_jminus( parent_i, parent_c... OP_JMINUS for a given parent, create children based on opjminus.
op_jplus( parent_i, parent_c ) OP_JPLUS for a given parent, create children based on opjminus.
record2str( alhs, arhs, coeff... RECORD2STR Summary of this function goes here
searchbycol( M, col ) SEARCHBYCOL find a row in a matrix. Matrix must be two dimension
searchbyrow( M, row ) SEARCHROW find a row in a matrix. Matrix must be two dimension
solveinitcoef( init_i ) SOLVEINITCOEF initial indices and coefficients
CH3Q6c.m
GUI_MAIN.m
GUI_UPDATERADIOS.m
TEST_SSCANF.m
View all files

from Clebsch Gordan Coefficient Solver GUI by james jun
Easy to use Clebsch-Gordan coefficient solver for adding two angular momentums.

findinitindex( j1, j2, M )

function [ MI ] = findinitindex( j1, j2, M )
%FINDINITINDEX find a rhs indices which is non-zero

MI = [];
for m1 = j1:-1:-j1
    for m2 = j2:-1:-j2
        if (m1 + m2 == M)
            MI = [MI; [j1 m1 j2 m2]];
            break;
        end
    end
end

Highlights from Clebsch Gordan Coefficient Solver GUI

Highlights from
Clebsch Gordan Coefficient Solver GUI