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

Matlab自编myfigure函数，快速输出figure图形曲线数据
L X
我们知道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代码。

function myfigure
%L X, 2014.01
f=gcf;
h=findobj(f,'Label','数据输出');
if isempty(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);
end
function Save_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);
if a==0
h=helpdlg('保存成功');
pause(0.5)
close(h)
end
end
function Opexcel(~,~)
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)
end
function OpWP(~,~)
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)
function Read_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);
function X_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([siz1 siz2])
end
function Y_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});
ylim([siz1 siz2])
end。