%   XRD，X射线衍射
%   function：在同一个figure中绘制多个txt文件中的数据
%   version:7.11.0.584 (R2010b)
%   wyw
%   20120418

%   因为最近很忙，图形的细节留给楼主自己解决，不好意思
%   文件存放的路径，需要手动修改，注意最后的反斜杠
file_folder = 'E:\MyFile\Matlab\论坛帮助\X射线衍射\';
%   文件名称的列表，如果文件名很有规律的话，请告知，可以简化
file_name = {'a.txt', 'b.txt', 'c.txt'};
number_of_file = length(file_name);
figure(1)
hold on
for ii = 1 : number_of_file
    data = dlmread([file_folder, file_name{ii}]);
    x = data(:, 1);
    y = data(:, 2);
    plot(x, y);
    clear data x y; %考虑到数据大小可能不一致
end
hold off

%   XRD，X射线衍射
%   function：绘制excel中的多对数据
%   version:7.11.0.584 (R2010b)
%   wyw
%   20120418

%   重要说明
%   表格中数据的位置与楼主上传的要一致，否则程序运行错误；
%   1.为了方便提取数据，表格中压力的单位要去掉，只保留数值；
%   2.表格中残缺的数据用0表示，而不是--；
%   祝你顺利

%   文件存放的路径，需要手动修改，注意最后的反斜杠
folder_name = 'E:\MyFile\Matlab\论坛帮助\X射线衍射\';
file_name = 'XRDpn.xls';
number_of_txt = 12; %txt文件的个数，即曲线的条数
%   提取压力数值，用来制作colormap
num = xlsread([folder_name, file_name], 'A1:X1');
pressure = zeros(number_of_txt, 1);
for ii = 1 : 2 : number_of_txt*2 - 1
    pressure((ii+1)/2) = num(ii);
end
%   提取绘图数据，绘制曲线
data = xlsread([folder_name, file_name], 'A4:X746');
%   绘图
figure(1)
hold on
cmap = colormap(jet(36));   %提取其中的36种颜色
for ii = 1 : number_of_txt
    x = data(:, ii*2-1);
    y = data(:, ii*2);
    %   通过关系运算去除表格中的零点
    %   colormap中需提供行数，所以要通过ceil取整，因为最小数是0.05只能够向上取整
    plot(x(x~=0), y(y~=0), 'Color', cmap(ceil(pressure(ii)), :));
    clear x y;  %考虑到数据的维数可能不一致
end
hold off
colorbar;   %显示色彩条
set(gca, 'XLim', [10, 20]); %设置坐标范围

15楼: Originally posted by wangyongyong at 2012-04-19 08:29:31:
我在运行的时候，怎么提示下面的错误信息啊，

??? Subscript indices must either be real positive integers or logicals.

Error in ==> XRD2 at 34
    plot(x(x~=0), y(y~=0), 'Color', cmap(ceil( ...

%   XRD，X射线衍射
%   function：绘制excel中的多对数据
%   version:7.11.0.584 (R2010b)
%   wyw
%   20120419

%   修改：
%   1.将压力值的下限修改为1；

%   重要说明
%   表格中数据的位置与楼主上传的要一致，否则程序运行错误；
%   1.为了方便提取数据，表格中压力的单位要去掉，只保留数值；
%   2.表格中残缺的数据用0表示，而不是--；
%   祝你顺利

%   文件存放的路径，需要手动修改，注意最后的反斜杠
folder_name = 'E:\MyFile\Matlab\论坛帮助\X射线衍射\';
file_name = 'XRDpn.xls';
number_of_txt = 12; %txt文件的个数，即曲线的条数
%   提取压力数值，用来制作colormap
num = xlsread([folder_name, file_name], 'A1:X1');
pressure = zeros(number_of_txt, 1);
for ii = 1 : 2 : number_of_txt*2 - 1
    pressure((ii+1)/2) = num(ii);
end
%   matlab中的下标只能是正整数或逻辑数组
%   通过下面这条语句将小于或等于0的压力值取为1
pressure(pressure<=1) = 1;
%   提取绘图数据，绘制曲线
data = xlsread([folder_name, file_name], 'A4:X746');
%   绘图
figure(1)
hold on
cmap = colormap(jet(36));   %提取其中的36种颜色
for ii = 1 : number_of_txt
    x = data(:, ii*2-1);
    y = data(:, ii*2);
    %   通过关系运算去除表格中的零点
    %   因为压力值的下限已经设置为1，所以可以用round取整
    plot(x(x~=0), y(y~=0), 'Color', cmap(round(pressure(ii)), :));
    clear x y;  %考虑到数据的维数可能不一致
end
hold off
colorbar;   %显示色彩条
set(gca, 'XLim', [10, 20]); %设置坐标范围

18楼: Originally posted by wangyongyong at 2012-04-19 10:26:03:
没有小于0的，我都按照你的路径建立了相应的目录，把你修改后的excel考进去，运行的时候，还是提示上面的错误信息，不清楚是什么原因，你画的图那么好看，我直接就运行不出来。谢谢！

20楼: Originally posted by wangyongyong at 2012-04-19 10:53:02:
我用的就是你改完之后的那个excel，XRDpn.xsl。没做改动的，我先改改看看吧，要不得老麻烦你，不好意思了，有问题再问你。