Clebsch Gordan Coefficient Solver GUI: GUI_UPDATERADIOS.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.

GUI_UPDATERADIOS.m

NUMRADIOS = 4;
set(hObject, 'Value', 1);

currtag = get(hObject, 'Tag');
iCurr = str2num(currtag(end));
for iRadio = 1:NUMRADIOS
    if iRadio ~= iCurr
        tagname = sprintf('radio%d', iRadio);
        set(getfield(handles, tagname), 'Value', 0);
    end
end

Highlights from Clebsch Gordan Coefficient Solver GUI

Highlights from
Clebsch Gordan Coefficient Solver GUI