MIMIC数据读取和MATLAB显示

     MIMIC数据库里面提供了诸如心电信号（ECG）、光电容积脉搏波信号（Pleth）、动脉血压信号（ABP）和呼吸信号（RESP）等从ICU病房中采集的生理数据。数据下载网站为：PhysioNet(http://physionet.org/)。这是课程作业，我也是自己总结查资料保存一下。
数据下载步骤：
1.通过PhysioBank ATM对MIMIC数据库进行访问（网址：https://physionet.org/cgi-bin/atm/ATM）。在DataBase中选择MIMIC DateBase（mimicdb），如下如图所示：



2.选中后下载相关文件即可：



3.用matlab打开plotATM.m的文件，修改文件名。
% usage: plotATM('RECORDm')
%
% This function reads a pair of files (RECORDm.mat and RECORDm.info) generated
% by 'wfdb2mat' from a PhysioBank record, baseline-corrects and scales the time
% series contained in the .mat file, and plots them.  The baseline-corrected
% and scaled time series are the rows of matrix 'val', and each
% column contains simultaneous samples of each time series.
%
% 'wfdb2mat' is part of the open-source WFDB Software Package available at
%    http://physionet.org/physiotools/wfdb.shtml % If you have installed a working copy of 'wfdb2mat', run a shell command
% such as
%    wfdb2mat -r 100s -f 0 -t 10 >100sm.info
% to create a pair of files ('100sm.mat', '100sm.info') that can be read
% by this function.
%
% The files needed by this function can also be produced by the
% PhysioBank ATM, at
%    http://physionet.org/cgi-bin/ATM %

% plotATM.m           O. Abdala            16 March 2009
%               James Hislop           27 January 2014    version 1.1
function h = plotATM(Name)
if nargin == 0
    Name = '055m';
end
%读取数据
infoName = strcat(Name, '.info');
matName = strcat(Name, '.mat');
Octave = exist('OCTAVE_VERSION');
load(matName);
fid = fopen(infoName, 'rt');
fgetl(fid);
fgetl(fid);
fgetl(fid);
[freqint] = sscanf(fgetl(fid), 'Sampling frequency: %f Hz  Sampling interval: %f sec');
interval = freqint(2);
fgetl(fid);

if(Octave)
    for i = 1:size(val, 1)
       R = strsplit(fgetl(fid), char(9));
       signal{i} = R{2};
       gain(i) = str2num(R{3});
       base(i) = str2num(R{4});
       units{i} = R{5};
    end
else
    for i = 1:size(val, 1)
     [row(i), signal(i), gain(i), base(i), units(i)]=strread(fgetl(fid),'%d%s%f%f%s','delimiter','\t');
    end

fclose(fid);
%数据处理
val(val==-32768) = NaN;

for i = 1:size(val, 1)
    val(i, :) = (val(i, :) - base(i)) / gain(i);
end

x = (1:size(val, 2)) * interval;
plot(x', val');

for i = 1:length(signal)
    labels{i} = strcat(signal{i}, ' (', units{i}, ')');
end
if length(signal) == 1
    legend(labels{1});
else
    legend(labels);
end
xlabel('Time (sec)');
xlim([min(x) max(x)]);  % 设置横坐标
end

% grid on
4.附处理后图片，我选择的是055.