流形学习算法matlab编写

function varargout = mani(varargin) % mani: MANIfold learning demonstration GUI % by Todd Wittman, Department of Mathematics, University of Minnesota % E-mail wittman@math.umn.edu with comments & questions. % MANI Website: http://www.math.umn.edu/~wittman/mani/index.html % Last Modified by GUIDE v2.5 10-Apr-2005 13:28:36 % % Methods obtained from various authors. % MDS -- Michael Lee % ISOMAP -- J. Tenenbaum, de Silva, & Langford % LLE -- Sam Roweis & Lawrence Saul % Hessian LLE -- D. Donoho & C. Grimes % Laplacian -- M. Belkin & P. Niyogi % Diffusion Map -- R. Coifman & S. Lafon % LTSA -- Zhenyue Zhang & Hongyuan Zha % Begin initialization code - DO NOT EDIT gui_Singleton = 1; gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @mani_OpeningFcn, ... 'gui_OutputFcn', @mani_OutputFcn, ... 'gui_LayoutFcn', @mani_LayoutFcn, ... 'gui_Callback', []); if nargin & isstr(varargin{1}) gui_State.gui_Callback = str2func(varargin{1}); end if nargout [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:}); else gui_mainfcn(gui_State, varargin{:}); end % End initialization code - DO NOT EDIT % --- Executes just before mani is made visible. function mani_OpeningFcn(hObject, eventdata, handles, varargin) handles.output = hObject; guidata(hObject, handles); axes(handles.maniAXES); axis off; axes(handles.embedAXES); axis off; handles.X = 0; handles.ColorVector = 0; handles.Y = 0; handles.isExample = 0; handles.K = 12; handles.d = 2; handles.sigma = 1.45; handles.runTime = 0; handles.alpha = 0; guidata(hObject, handles); warning off; % --- Outputs from this function are returned to the command line. function varargout = mani_OutputFcn(hObject, eventdata, handles) varargout{1} = handles.output; function MatrixEdit_CreateFcn(hObject, eventdata, handles) % 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 MatrixEdit_Callback(hObject, eventdata, handles) % Hints: get(hObject,'String') returns contents of MatrixEdit as text % str2double(get(hObject,'String')) returns contents of MatrixEdit as a double function FileEdit_CreateFcn(hObject, eventdata, handles) % 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 FileEdit_Callback(hObject, eventdata, handles) % Hints: get(hObject,'String') returns contents of FileEdit as text % str2double(get(hObject,'String')) returns contents of FileEdit as a double % --- Executes on button press in LoadMatrix. function LoadMatrix_Callback(hObject, eventdata, handles) handles.X = evalin ('base', get(handles.MatrixEdit,'String')); handles.isExample = 0; guidata(hObject, handles); PlotManifold(hObject,eventdata,handles,0); updateString{1} = ['Matrix ',get(handles.MatrixEdit,'String'),' loaded.']; set(handles.UpdatesText,'String',updateString); guidata(hObject, handles); % --- Executes on button press in LoadFile. function LoadFile_Callback(hObject, eventdata, handles) Xtemp = dlmread(get(handles.FileEdit,'String'),' '); [m,n] = size(Xtemp); % Check if last column is all zeros. Reading error. if max(abs(Xtemp(:,n))) == 0 Xtemp = Xtemp(1:m,1:n-1); end; handles.X = Xtemp; handles.isExample = 0; guidata(hObject, handles); PlotManifold(hObject,eventdata,handles,0); updateString{1} = ['File ',get(handles.FileEdit,'String'),' loaded.']; set(handles.UpdatesText,'String',updateString); guidata(hObject, handles); % --- Executes during object creation, after setting all properties. function ExampleMenu_CreateFcn(hObject, eventdata, handles) % 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 % --- Executes on selection change in ExampleMenu. function ExampleMenu_Callback(hObject, eventdata, handles) % Hints: contents = get(hObject,'String') returns ExampleMenu contents as cell array % contents{get(hObject,'Value')} returns selected item from ExampleMenu exampleValue = get(handles.ExampleMenu,'Value'); switch exampleValue case 1 % Swiss Roll set(handles.text19,'String','Z Scaling ='); set(handles.ParamEdit,'String','1.0'); case 2 % Swiss Hole set(handles.text19,'String','Z Scaling ='); set(handles.ParamEdit,'String','1.0'); case 3 % Corner Planes set(handles.text19,'String','Lift Angle ='); set(handles.ParamEdit,'String','45.0'); case 4 % Punctured Sphere set(handles.text19,'String','Z Scaling ='); set(handles.ParamEdit,'String','1.0'); case 5 % Twin Peaks set(handles.text19,'String','Z Scaling ='); set(handles.ParamEdit,'String','1.0'); case 6 % 3D Clusters set(handles.text19,'String','# Clusters ='); set(handles.ParamEdit,'String','3'); case 7 % Toroidal Helix set(handles.text19,'String','Sample Rate ='); set(handles.ParamEdit,'String','1.0'); case 8 % Gaussian set(handles.text19,'String','Sigma ='); set(handles.ParamEdit,'String','1.0'); case 9 % Occluded Disks set(handles.text19,'String','Occluder r ='); set(handles.ParamEdit,'String','1.0'); end; guidata(hObject,handles); % --- Executes during object creation, after setting all properties. function DimEdit_CreateFcn(hObject, eventdata, handles) % 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 DimEdit_Callback(hObject, eventdata, handles) % Hints: get(hObject,'String') returns contents of DimEdit as text % str2double(get(hObject,'String')) returns contents of DimEdit as a double % --- Executes during object creation, after setting all properties. function KEdit_CreateFcn(hObject, eventdata, handles) % 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 KEdit_Callback(hObject, eventdata, handles) % Hints: get(hObject,'String') returns contents of KEdit as text % str2double(get(hObject,'String')) returns contents of KEdit as a double % --- Executes during object creation, after setting all properties. function REdit_CreateFcn(hObject, eventdata, handles) % 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 % --- Executes during object creation, after setting all properties. function SigmaEdit_CreateFcn(hObject, eventdata, handles) % 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 SigmaEdit_Callback(hObject, eventdata, handles) % Hints: get(hObject,'String') returns contents of SigmaEdit as text % str2double(get(hObject,'String')) returns contents of SigmaEdit as a double % --- Executes on button p