als2004m.m

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

end

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

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

iclos=get(hObject,'Value')-1; 

if iclos == 1;
    set(handles.text_1clos,'enable','on');
    set(handles.edit_1clos,'enable','on');
    set(handles.text_1closcond,'enable','on');
    set(handles.popup_1closcond,'enable','on','value',1);
    set(handles.text_1spclos,'enable','on');
    set(handles.edit_1spclos,'enable','on');
    set(handles.check_1clos,'enable','on','value',0);
    set(handles.check_2clos,'enable','off','value',0);
    set(handles.text_2clos,'enable','off');
    set(handles.edit_2clos,'enable','off','string',' ');
    set(handles.text_2closcond,'enable','off');
    set(handles.popup_2closcond,'enable','off','value',1);
    set(handles.text_2spclos,'enable','off');
    set(handles.edit_2spclos,'enable','off','string',' ');
    set(handles.check_vclos,'enable','on','value',0);
    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',' ');
    
elseif  iclos==2
    warndlg('Warning: there should not be common species to the two closures','WARNING!!');
    set(handles.text_1clos,'enable','on');
    set(handles.edit_1clos,'enable','on');
    set(handles.text_1closcond,'enable','on');
    set(handles.popup_1closcond,'enable','on','value',1);
    set(handles.text_1spclos,'enable','on');
    set(handles.edit_1spclos,'enable','on');
    set(handles.check_1clos,'enable','on','value',0);
    set(handles.check_2clos,'enable','on','value',0);
    set(handles.text_2clos,'enable','on');
    set(handles.edit_2clos,'enable','on');
    set(handles.text_2closcond,'enable','on');
    set(handles.popup_2closcond,'enable','on','value',1);
    set(handles.text_2spclos,'enable','on');
    set(handles.edit_2spclos,'enable','on');
    set(handles.check_vclos,'enable','on','value',0);
    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',' ');
else
    set(handles.text_1clos,'enable','off');
    set(handles.edit_1clos,'enable','off','string',' ');
    set(handles.text_1closcond,'enable','off');
    set(handles.popup_1closcond,'enable','off','value',1);
    set(handles.text_1spclos,'enable','off');
    set(handles.edit_1spclos,'enable','off','string',' ');
    set(handles.check_1clos,'enable','off','value',0);
    set(handles.check_2clos,'enable','off','value',0);
    set(handles.text_2clos,'enable','off');
    set(handles.edit_2clos,'enable','off','string',' ');
    set(handles.text_2closcond,'enable','off');
    set(handles.popup_2closcond,'enable','off','value',1);
    set(handles.text_2spclos,'enable','off');
    set(handles.edit_2spclos,'enable','off','string',' ');
    set(handles.check_vclos,'enable','off','value',0);
    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',' ');
end

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


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

tclos1= str2num(get(hObject,'String'));

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

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

tclos2= str2num(get(hObject,'String'));

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


% --- Executes during object creation, after setting all properties.
function popup_1closcond_CreateFcn(hObject, eventdata, handles)
% hObject    handle to popup_1closcond (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_1closcond.
function popup_1closcond_Callback(hObject, eventdata, handles)
% hObject    handle to popup_1closcond (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_1closcond contents as cell array
%        contents{get(hObject,'Value')} returns selected item from popup_1closcond

iclos1=get(hObject,'Value')-1; 
assignin('base','iclos1',iclos1);
evalin('base','als_opt.closure.iclos1=iclos1;');
evalin('base','clear iclos1');

% --- Executes during object creation, after setting all properties.
function popup_2closcond_CreateFcn(hObject, eventdata, handles)
% hObject    handle to popup_2closcond (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_2closcond.
function popup_2closcond_Callback(hObject, eventdata, handles)
% hObject    handle to popup_2closcond (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_2closcond contents as cell array
%        contents{get(hObject,'Value')} returns selected item from popup_2closcond

iclos2=get(hObject,'Value')-1; 
assignin('base','iclos2',iclos2);
evalin('base','als_opt.closure.iclos2=iclos2;');
evalin('base','clear iclos2');

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

sclos1= str2num(get(hObject,'String'));

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



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

check1clos=get(hObject,'Value');

if check1clos==0
    nsign=evalin('base','min(size(als_opt.iniesta))');
    ceros=zeros(1,nsign);
    set(handles.text_1spclos,'enable','on');
    set(handles.edit_1spclos,'enable','on','string',' ');
    assignin('base','sclos1',ceros);
    evalin('base','als_opt.closure.sclos1=sclos1;');
    evalin('base','clear sclos1');
    
elseif check1clos==1
    nsign=evalin('base','min(size(als_opt.iniesta))');
    unos=ones(1,nsign);    
    set(handles.text_1spclos,'enable','on');
    set(handles.edit_1spclos,'enable','inactive','string',num2str(unos));
    assignin('base','sclos1',unos);
    evalin('base','als_opt.closure.sclos1=sclos1;');
    evalin('base','clear sclos1');
end





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

sclos2= str2num(get(hObject,'String'));

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


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

check2clos=get(hObject,'Value');

if check2clos==0
    nsign=evalin('base','min(size(als_opt.iniesta))');
    ceros=zeros(1,nsign);
    set(handles.text_2spclos,'enable','on');
    set(handles.edit_2spclos,'enable','on','string',' ');
    assignin('base','sclos2',ceros);
    evalin('base','als_opt.closure.sclos2=sclos2;');
    evalin('base','clear sclos2');
    
elseif check2clos==1
    nsign=evalin('base','min(size(als_opt.iniesta))');
    unos=ones(1,nsign);    
    set(handles.text_2spclos,'enable','on');
    set(handles.edit_2spclos,'enable','inactive','string',num2str(unos));
    assignin('base','sclos2',unos);
    evalin('base','als_opt.closure.sclos2=sclos2;');
    evalin('base','clear sclos2');
end


% vclos **************************

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

vclos=get(hObject,'Value');

if vclos==1;
    iclos=evalin('base','als_opt.closure.iclos');
    if iclos==1
        set(handles.text_vclos1,'enable','on');
        set(handles.edit_vclos1,'enable','on','string',' ');
        set(handles.text_vclos2,'enable','off');
        set(handles.edit_vclos2,'enable','off','string',' ');