als2004m.m

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

        set(handles.text_1clos,'enable','off');
        set(handles.edit_1clos,'enable','off','string',' ');
        set(handles.text_2clos,'enable','off');
        set(handles.edit_2clos,'enable','off','string',' '); 
        set(handles.text_1closcond,'enable','off');
        set(handles.popup_1closcond,'enable','off','value',1);
        set(handles.text_2closcond,'enable','off');
        set(handles.popup_2closcond,'enable','off','value',1);
        set(handles.check_1clos,'enable','on','value',0);
        set(handles.check_2clos,'enable','off','value',0);
        set(handles.text_1spclos,'enable','on');
        set(handles.edit_1spclos,'enable','on','value',1);
        set(handles.text_2spclos,'enable','off');
        set(handles.edit_2spclos,'enable','off','value',1);
        
        iclos1=1; % ha de ser igual
        assignin('base','iclos1',iclos1);
        evalin('base','als_opt.closure.iclos1=iclos1;');
        evalin('base','clear iclos1');
        
        vc=1; % ha de ser igual
        assignin('base','vc',vc);
        evalin('base','als_opt.closure.vc=vc;');
        evalin('base','clear vc');
        
    elseif iclos==2
        set(handles.text_vclos1,'enable','on');
        set(handles.edit_vclos1,'enable','on','string',' ');
        set(handles.text_vclos2,'enable','on');
        set(handles.edit_vclos2,'enable','on','string',' ');
        set(handles.text_1clos,'enable','off');
        set(handles.edit_1clos,'enable','off','string',' ');
        set(handles.text_2clos,'enable','off');
        set(handles.edit_2clos,'enable','off','string',' '); 
        set(handles.text_1closcond,'enable','off');
        set(handles.popup_1closcond,'enable','off','value',1);
        set(handles.text_2closcond,'enable','off');
        set(handles.popup_2closcond,'enable','off','value',1);
        set(handles.check_1clos,'enable','on','value',0);
        set(handles.check_2clos,'enable','on','value',0);
        set(handles.text_1spclos,'enable','on');
        set(handles.edit_1spclos,'enable','on','value',1);
        set(handles.text_2spclos,'enable','on');
        set(handles.edit_2spclos,'enable','on','value',1);
        
        iclos1=1; % equal 
        assignin('base','iclos1',iclos1);
        evalin('base','als_opt.closure.iclos1=iclos1;');
        evalin('base','clear iclos1');
        
        iclos2=1; % equal
        assignin('base','iclos2',iclos2);
        evalin('base','als_opt.closure.iclos2=iclos2;');
        evalin('base','clear iclos2');
        
        vc=1; % equal
        assignin('base','vc',vc);
        evalin('base','als_opt.closure.vc=vc;');
        evalin('base','clear vc');
        
    end
    
else
    set(handles.text_vclos1,'enable','off');
    set(handles.edit_vclos1,'enable','off','string',' ');
    set(handles.text_vclos2,'enable','off');
    set(handles.edit_vclos2,'enable','off','string',' ');
    set(handles.text_nclos,'enable','on');
    set(handles.popup_nclos,'enable','on','value',1);
    set(handles.text_1clos,'enable','off');
    set(handles.edit_1clos,'enable','off','string',' ');
    set(handles.text_2clos,'enable','off');
    set(handles.edit_2clos,'enable','off','string',' '); 
    set(handles.text_1closcond,'enable','off');
    set(handles.popup_1closcond,'enable','off','value',1);
    set(handles.text_2closcond,'enable','off');
    set(handles.popup_2closcond,'enable','off','value',1);
    set(handles.check_1clos,'enable','off','value',0);
    set(handles.check_2clos,'enable','off','value',0);
    set(handles.text_1spclos,'enable','off');
    set(handles.edit_1spclos,'enable','off','string',' ');
    set(handles.text_2spclos,'enable','off');
    set(handles.edit_2spclos,'enable','off','string',' ');
    
         vc=0; % equal 
        assignin('base','vc',vc);
        evalin('base','als_opt.closure.vc=vc;');
        evalin('base','clear vc');
end;


% --- Executes during object creation, after setting all properties.
function edit_vclos1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_vclos1 (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_vclos1_Callback(hObject, eventdata, handles)
% hObject    handle to edit_vclos1 (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_vclos1 as text
%        str2double(get(hObject,'String')) returns contents of edit_vclos1 as a double


vclos1=get(hObject,'String');

vclos1=evalin('base',vclos1);
assignin('base','vclos1',vclos1);
evalin('base','als_opt.closure.vclos1=vclos1;');
evalin('base','clear vclos1');



% --- Executes during object creation, after setting all properties.
function edit_vclos2_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_vclos2 (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_vclos2_Callback(hObject, eventdata, handles)
% hObject    handle to edit_vclos2 (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_vclos2 as text
%        str2double(get(hObject,'String')) returns contents of edit_vclos2 as a double


vclos2=get(hObject,'String');

vclos2=evalin('base',vclos2);
assignin('base','vclos2',vclos2);
evalin('base','als_opt.closure.vclos2=vclos2;');
evalin('base','clear vclos2');


% *************************************************************************
% csel i ssel 
% *************************************************************************


% --- Executes on button press in check_csel.
function check_csel_Callback(hObject, eventdata, handles)
% hObject    handle to check_csel (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_csel

cselcon=get(hObject,'Value');

if cselcon==1;
    set(handles.text_selcsel,'enable','on');
    set(handles.edit_selcsel,'enable','on','string',' ');
    set(handles.text_cconsel,'enable','on');
    set(handles.popup_csel,'enable','on','value',1);
else
    set(handles.text_selcsel,'enable','off');
    set(handles.edit_selcsel,'enable','off','string',' ');
    set(handles.text_cconsel,'enable','off');
    set(handles.popup_csel,'enable','off','value',1);
    
    evalin('base','als_opt=rmfield(als_opt,''cselc'');');
    
end;
assignin('base','cselcon',cselcon);
evalin('base','als_opt.cselc.cselcon=cselcon;');
evalin('base','clear cselcon');

% --- Executes during object creation, after setting all properties.
function popup_csel_CreateFcn(hObject, eventdata, handles)
% hObject    handle to popup_csel (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

llista(1)={'select...'};
llista(2)={'equal than'};
llista(3)={'lower or equal than'};
set(hObject,'string',llista)


% --- Executes on selection change in popup_csel.
function popup_csel_Callback(hObject, eventdata, handles)
% hObject    handle to popup_csel (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_csel contents as cell array
%        contents{get(hObject,'Value')} returns selected item from popup_csel

type_csel=get(hObject,'Value')-2; 
assignin('base','type_csel',type_csel);
evalin('base','als_opt.cselc.type_csel=type_csel;');
evalin('base','clear type_csel');


% --- Executes during object creation, after setting all properties.
function edit_selcsel_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_selcsel (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_selcsel_Callback(hObject, eventdata, handles)
% hObject    handle to edit_selcsel (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_selcsel as text
%        str2double(get(hObject,'String')) returns contents of edit_selcsel as a double

selcsel_char=get(hObject,'String');

selcsel=evalin('base',selcsel_char);
iisel=find(finite(selcsel));

assignin('base','selcsel',selcsel);
assignin('base','iisel',iisel);

evalin('base','als_opt.cselc.iisel=iisel;');
evalin('base','als_opt.cselc.csel=selcsel;');
evalin('base','clear selcsel iisel');


% --- Executes on button press in check_ssel.
function check_ssel_Callback(hObject, eventdata, handles)
% hObject    handle to check_ssel (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_ssel

sselcon=get(hObject,'Value');

if sselcon==1;
    set(handles.text_selssel,'enable','on');
    set(handles.edit_selssel,'enable','on','string',' ');
    set(handles.text_sconsel,'enable','on');
    set(handles.popup_ssel,'enable','on','value',1);
else
    set(handles.text_selssel,'enable','off');
    set(handles.edit_selssel,'enable','off','string',' ');
    set(handles.text_sconsel,'enable','off');
    set(handles.popup_ssel,'enable','off','value',1);
    
    evalin('base','als_opt=rmfield(als_opt,''sselc'');');
    
end;
assignin('base','sselcon',sselcon);
evalin('base','als_opt.sselc.sselcon=sselcon;');
evalin('base','clear sselcon');


% --- Executes during object creation, after setting all properties.
function popup_ssel_CreateFcn(hObject, eventdata, handles)
% hObject    handle to popup_ssel (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

llista(1)={'select...'};
llista(2)={'equal than'};
llista(3)={'lower or equal than'};
set(hObject,'string',llista)

% --- Executes on selection change in popup_ssel.
function popup_ssel_Callback(hObject, eventdata, handles)
% hObject    handle to popup_ssel (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_ssel contents as cell array
%        contents{get(hObject,'Value')} returns selected item from popup_ssel

type_ssel=get(hObject,'Value')-2; 
assignin('base','type_ssel',type_ssel);
evalin('base','als_opt.sselc.type_ssel=type_ssel;');
evalin('base','clear type_ssel iisel');

% --- Executes during object creation, after setting all properties.
function edit_selssel_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_selssel (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_selssel_Callback(hObject, eventdata, handles)
% hObject    handle to edit_selssel (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_selssel as text
%        str2double(get(hObject,'String')) returns contents of edit_selssel as a double


selssel_char=get(hObject,'String');

selssel=evalin('base',selssel_char);
jjsel=find(finite(selssel));

assignin('base','selssel',selssel);
assignin('base','jjsel',jjsel);

evalin('base','als_op