Clebsch Gordan Coefficient Solver GUI: findrecord( M, r ) - 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.

findrecord( M, r )

function iIndex = findrecord( M, r )
%FINDINDEX: find indices which matches the row
%input
%   M: matrix, two dimensional
%   r: record to find
%output
%   iIndex

numRecords = size(M);
numRecords = numRecords(1);
iIndex = [];
for i=1:numRecords
    if (all(M(i,:) == r))
        iIndex = [iIndex; i];
    end
end

Highlights from Clebsch Gordan Coefficient Solver GUI

Highlights from
Clebsch Gordan Coefficient Solver GUI