als2004multi.m

多元曲线解析-交替最小二乘法,MCR-ALS

if evalin('base','als_opt.multi.ccons')==1
    if ialg == 0
        if ncneg == dim;
            cneg = ones(matc,dim);
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        elseif  ncneg == -1
            cneg=zeros(matc,dim);
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        elseif  ncneg == 0
            cneg = zeros(matc,dim);
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        else
            cneg=[];
            set(handles.text_spcnn,'enable','on');
            set(handles.edit_spcnn,'enable','on');
        end
    else
        if ncneg==0;
            cneg = zeros(matc,dim);
        elseif ncneg==1;
            cneg = ones(matc,dim);
        end
    end
elseif evalin('base','als_opt.multi.ccons')==0
    if ialg == 0
        if ncneg == dim;
            evalin('base','als_opt.noneg.cneg = ones(matc,dim)');
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        elseif  ncneg == -1
            evalin('base','als_opt.noneg.cneg =zeros(matc,dim)');
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        elseif  ncneg == 0
            evalin('base','als_opt.noneg.cneg  = zeros(matc,dim)');
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        else
            evalin('base','als_opt.noneg.cneg =[]');
            set(handles.text_spcnn,'enable','on');
            set(handles.edit_spcnn,'enable','on');
        end
    else
        if ncneg==0;
            form_cneg = zeros(1,dim);
            cneg(curr_cmat,:)=form_cneg;
        elseif ncneg==1;
            form_cneg= ones(1,dim);
            cneg(curr_cmat,:)=form_cneg;
        end
    end
end

assignin('base','cneg',cneg);
evalin('base','als_opt.noneg.cneg=cneg;');
evalin('base','clear cneg ncneg dim matc curr_mat curr_smat');

% --- Executes during object creation, after setting all properties.
function popup_nsnn_CreateFcn(hObject, eventdata, handles)
% hObject    handle to popup_nsnn (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc
    set(hObject,'BackgroundColor','white');
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end

dim=evalin('base','min(size(als_opt.iniesta))');
j=2;
llistanns(1)={'select...'};
for i=0:1:dim,
    llistnns=[i];
    llistanns(j)={llistnns};
    j=j+1;
end;
set(hObject,'string',llistanns)



% --- Executes on selection change in popup_nsnn.
function popup_nsnn_Callback(hObject, eventdata, handles)
% hObject    handle to popup_nsnn (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns popup_nsnn contents as cell array
%        contents{get(hObject,'Value')} returns selected item from popup_nsnn

nspneg=get(hObject,'Value')-2;

assignin('base','nspneg',nspneg);
evalin('base','als_opt.noneg.nspneg=nspneg;');

dim=evalin('base','min(size(als_opt.iniesta))');
matr=evalin('base','als_opt.multi.matr');
ialgs=evalin('base','als_opt.noneg.ialgs');
curr_cmat=evalin('base','als_opt.multi.curr_cmat');
curr_smat=evalin('base','als_opt.multi.curr_smat');
spneg=evalin('base','als_opt.noneg.spneg');

if evalin('base','als_opt.multi.scons')==1
    if ialgs == 0
        if nspneg == dim
            spneg = ones(dim,matr);
            set(handles.text_spsnn,'enable','off');
            set(handles.edit_spsnn,'enable','off','string','');
        elseif  nspneg == 0
            spneg = zeros(dim,matr);
            set(handles.text_spsnn,'enable','off');
            set(handles.edit_spsnn,'enable','off','string','');
        elseif  nspneg == -1
            spneg=[];
            set(handles.text_spsnn,'enable','off');
            set(handles.edit_spsnn,'enable','off','string','');
        else
            spneg=[];
            set(handles.text_spsnn,'enable','on');
            set(handles.edit_spsnn,'enable','on');
        end
    else
        if nspneg==0
            spneg = zeros(dim,matr);
        elseif nspneg==1
            spneg = ones(dim,matr);
        end
    end
elseif evalin('base','als_opt.multi.scons')==0
    if ialgs == 0
        if nspneg == dim;
            evalin('base','als_opt.noneg.spneg = ones(dim,matr)');
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        elseif  nspneg == -1
            evalin('base','als_opt.noneg.spneg =zeros(dim,matr)');
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        elseif  nspneg == 0
            evalin('base','als_opt.noneg.spneg  = zeros(dim,matr)');
            set(handles.text_spcnn,'enable','off');
            set(handles.edit_spcnn,'enable','off','string','');
        else
            evalin('base','als_opt.noneg.spneg =[]');
            set(handles.text_spcnn,'enable','on');
            set(handles.edit_spcnn,'enable','on');
        end
    else
        if nspneg==0;
            form_spneg = zeros(dim,1);
            spneg(:,curr_smat)=form_spneg;
        elseif nspneg==1;
            form_spneg= ones(dim,1);
            spneg(:,curr_smat)=form_spneg;
        end

    end


end

assignin('base','spneg',spneg);
evalin('base','als_opt.noneg.spneg=spneg;');
evalin('base','clear spneg matr nspneg');

% --- Executes during object creation, after setting all properties.
function edit_spcnn_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_spcnn (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc
    set(hObject,'BackgroundColor','white');
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end

function edit_spcnn_Callback(hObject, eventdata, handles)
% hObject    handle to edit_spcnn (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_spcnn as text
%        str2double(get(hObject,'String')) returns contents of edit_spcnn as a double

cnegr=str2num(get(hObject,'String'));
cneg = ones(evalin('base','als_opt.nexp'),1)*cnegr;
assignin('base','cneg',cneg);
evalin('base','als_opt.noneg.cneg=cneg;');
evalin('base','clear cneg');

% --- Executes during object creation, after setting all properties.
function edit_spsnn_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_spsnn (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc
    set(hObject,'BackgroundColor','white');
else
    set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
end

function edit_spsnn_Callback(hObject, eventdata, handles)
% hObject    handle to edit_spsnn (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_spsnn as text
%        str2double(get(hObject,'String')) returns contents of edit_spsnn as a double


spnegr= str2num(get(hObject,'String'));
spneg = spnegr'*ones(1,evalin('base','als_opt.nexp'));

assignin('base','spneg',spneg);
evalin('base','als_opt.noneg.spneg=spneg;');
evalin('base','clear spneg');


% *************************************************************************
% unimodal
% *************************************************************************


% --- Executes on button press in check_uni.
function check_uni_Callback(hObject, eventdata, handles)
% hObject    handle to check_uni (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of check_uni


unimodal=get(hObject,'Value');

if unimodal==1;
    set(handles.radio_Cuni,'enable','on');
    set(handles.radio_Suni,'enable','on');
    set(handles.radio_CSuni,'enable','on');
else
    set(handles.radio_Cuni,'enable','off','value',0);
    set(handles.radio_Suni,'enable','off','value',0);
    set(handles.radio_CSuni,'enable','off','value',0);

    set(handles.text_iuni,'enable','off');
    set(handles.popup_iuni,'enable','off','value',1);
    set(handles.text_tolunic,'enable','off');
    set(handles.edit_tolunic,'enable','off','string',' ');
    set(handles.text_tolunis,'enable','off');
    set(handles.edit_tolunis,'enable','off','string',' ');

    set(handles.text_ncuni,'enable','off');
    set(handles.popup_ncuni,'enable','off','value',1);
    set(handles.text_nsuni,'enable','off');
    set(handles.popup_nsuni,'enable','off','value',1);

    set(handles.text_spunic,'enable','off');
    set(handles.edit_spunic,'enable','off','string',' ');

    set(handles.text_spunis,'enable','off');
    set(handles.edit_spunis,'enable','off','string',' ');

    evalin('base','als_opt=rmfield(als_opt,''unimod'');');

end;

assignin('base','unimodal',unimodal);
evalin('base','als_opt.unimod.unimodal=unimodal;');
evalin('base','clear unimodal');


% --- Executes on button press in radio_Cuni.
function radio_Cuni_Callback(hObject, eventdata, handles)
% hObject    handle to radio_Cuni (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radio_Cuni

imod=1;
set(handles.radio_Cuni,'enable','on');
set(handles.radio_Suni,'enable','off');
set(handles.radio_CSuni,'enable','off');
set(handles.text_iuni,'enable','on');
set(handles.popup_iuni,'enable','on');
set(handles.text_tolunic,'enable','on');
set(handles.edit_tolunic,'enable','on');
set(handles.text_ncuni,'enable','on');
set(handles.popup_ncuni,'enable','on');

evalin('base','als_opt.unimod.spmod=[];');

assignin('base','imod',imod);
evalin('base','als_opt.unimod.imod=imod;');
evalin('base','clear imod');

% --- Executes on button press in radio_Suni.
function radio_Suni_Callback(hObject, eventdata, handles)
% hObject    handle to radio_Suni (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radio_Suni

imod=2;
set(handles.radio_Cuni,'enable','off');
set(handles.radio_Suni,'enable','on');
set(handles.radio_CSuni,'enable','off');
set(handles.text_iuni,'enable','on');
set(handles.popup_iuni,'enable','on');
set(handles.text_tolunis,'enable','on');
set(handles.edit_tolunis,'enable','on');
set(handles.text_nsuni,'enable','on');
set(handles.popup_nsuni,'enable','on');

evalin('base','als_opt.unimod.spsmod=[];');

assignin('base','imod',imod);
evalin('base','als_opt.unimod.imod=imod;');
evalin('base','clear imod');


% --- Executes on button press in radio_CSuni.
function radio_CSuni_Callback(hObject, eventdata, handles)
% hObject    handle to radio_CSuni (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radio_CSuni

imod=3;
set(handles.radio_Cuni,'enable','off');
set(handles.radio_Suni,'enable','off');
set(handles.radio_CSuni,'enable','on');

set(handles.text_iuni,'enable','on');
set(handles.popup_iuni,'enable','on');

set(handles.text_ncuni,'enable','on');
set(handles.popup_ncuni,'enable','on');
set(handles.text_nsuni,'enable','on');
set(handles.popup_nsuni,'enable','on');
set(handles.text_tolunic,'enable','on');
set(handles.edit_tolunic,'enable','on');

set(handles.text_spunic,'enable','off');
set(handles.edit_spunic,'enable','off');
set(handles.text_spunis,'enable','off');
set(handles.edit_spunis,'enable','off');
set(handles.text_tolunis,'enable','on');
set(handles.edit_tolunis,'enable','on');

evalin('base','als_opt.unimod.spmod=[];');