Matlab自编myfigure函数-快速输出figure图形曲线数据(原创)

Matlab自编myfigure函数，快速输出figure图形曲线数据LX我们知道Matlab作图功能非常强大，但遗憾的是，Matlab在图形处理方面也有两个很大的不足，其一，Matlab保存的Figure图形,不能像origin图形一样，携带数据并可以在word/ppt/excel里面重新编辑；其二，Matlab没有提供快捷方式使我们能快速地从Figure图形中获取某特定曲线的数据，复制或保存，尽管在一般情况下，我们在WorkSpace中有变量，但是也显得很不方便。对于第一个不足，由于Matlab的固有属性，我们无法解决，第二个不足，我们可以自编函数解决。以下，本人新编了一个Figure函数，此函数可对已建立的Figure图形，添加两项一级菜单“输出数据”和“坐标范围”并在一级菜单下各有几项二级菜单，其功能为，1.对Figure图形中的数据进行输出和保存输出的数据类型可以为xls、txt,或者将数据重新返回到工作空间；2.无须打开figure属性，即可快速对figure图形的坐标范围进行设置。使用方法：将后面蓝色代码全部复制到m文件，并保存为“myfigure”，至于当前路径下。倾情奉献，如果觉得有参考或使用价值，请下载和评分哦~示例：x=linspace(0,2*pi,100);y1=sin(x);y2=cos(x);figure,plot(x,y1,'r.-',x,y2,'b*')xlabel('x'),ylabel('y')myfigure%运行本段代码，将得到图1图1运行myfigure对已建的Figure添加功能菜单，见图中绿色椭圆部分1坐标范围设置，如图2图2通过单击“坐标范围”菜单下的坐标设置对坐标范围快速设置2数据输出（至excel或txt或workspace）,如图3输出的数据格式，为若干列，一条曲线占两列，分别为x,y，多条则为x,y,x,y。图3单击“数据输出”下的输出至excel进行数据输出，3查看数据。注意，若Figure中有多条曲线，且数据长度不一样，则不能一次性输出数据，而是应该，先单击所需曲线，然后，在“数据输出”菜单下单击“查看数据”，得到数据表，如图4，用ctrl+c复制数据至excel中，从而完成输出。图4选择曲线，并单击“数据输出”下的查看数据，可得到数据表格，然后复制至excel以下为myfigure代码。functionmyfigure%LX,2014.01f=gcf;h=findobj(f,'Label','数据输出');ifisempty(h)hm1=uimenu('Parent',f,'Label','数据输出');uimenu(hm1,'Label','查看数据',...'callback',@Read_data);uimenu(hm1,'Label','输出至txt',...'callback',@Save_Strain);uimenu(hm1,'Label','输出至excel',...'callback',@Opexcel);uimenu(hm1,'Label','输出至WP',...'callback',@OpWP);hm2=uimenu('Parent',f,'Label','坐标范围');uimenu(hm2,'Label','X坐标',...'callback',@X_lim);uimenu(hm2,'Label','Y坐标',...'callback',@Y_lim);endfunctionSave_Strain(~,~)h_Line=get(gca,'Children');Xdata=cell2mat(get(h_Line,{'Xdata'}));Ydata=cell2mat(get(h_Line,{'Ydata'}));Ydata=flipud(Ydata);Data=[Xdata;Ydata];L=size(Data,1);formt=repmat('%f',[1,L]);%assignin('base','Data',Data')[filename,pathname]=uiputfile('*.txt');if~isequal(filename,0)fid=fopen([pathname,filename],'w');fprintf(fid,[formt,'\r\n'],Data);a=fclose(fid);ifa==0h=helpdlg('保存成功');pause(0.5)close(h)endendfunctionOpexcel(~,~)h_Line=get(gca,'Children');Xdata=cell2mat(get(h_Line,{'Xdata'}));Ydata=cell2mat(get(h_Line,{'Ydata'}));Ydata=flipud(Ydata);Data=[Xdata;Ydata];[filename,pathname]=uiputfile('*.xls');if~isequal(filename,0)xlswrite([pathname,filename],Data')h=helpdlg('保存成功');pause(0.5)close(h)endfunctionOpWP(~,~)h_Line=get(gca,'Children');Xdata=cell2mat(get(h_Line,{'Xdata'}));Ydata=cell2mat(get(h_Line,{'Ydata'}));Ydata=flipud(Ydata);Data=[Xdata;Ydata];assignin('base','Data',Data')h=helpdlg('已输出至Matlab工作空间！');pause(0.5)close(h)functionRead_data(~,~)Xdata=cell2mat(get(gco,{'Xdata'}));Ydata=cell2mat(get(gco,{'Ydata'}));Xdata=Xdata';Ydata=Ydata';data=[Xdata,Ydata];f=figure('NumberTitle','off','Menubar','none');uitable('Parent',f,'Data',data);functionX_lim(~,~)prompt={'起始值','终止值'};dlg_title='请输入参数';num_lines=1;def={'0','10'};siz=inputdlg(prompt,dlg_title,num_lines,def);if~isempty(siz)siz1=str2double(siz{1});siz2=str2double(siz{2});xlim([siz1siz2])endfunctionY_lim(~,~)prompt={'起始值','终止值'};dlg_title='请输入参数';num_lines=1;def={'0','