%function soudplay;
n=[
    78 -39.5 -70.7 -17 -16.5 -16.5 ...
    -15.0 -15.0 -14.5 -10.0 -3.5 1 -3.5 ...
    -12 -16 -17 -18 -18 -18 -18 ...
    -18 -18 -18 -18 -16.5 -4 9 ...
    19 6.5 -11.0 -17.0 -17 -18 -23 ...
    -18.3 49 ];
Ts=0.02;
Fs=1/Ts;
m=20;
nm=reshape(n'*ones(1,m),1,m*length(n));
nm=nm/max(nm);
ct=Ts:Ts:Ts*length(nm);
t8000=[Ts:1/8000:ct(length(ct))];
n8000=spline(ct,nm,t8000);
subplot(2,1,2);
plot(t8000,n8000);
box off;
%xlabel('心電信號');
text(0.2,1.7,'心電信號頻率放大播放中...帶耳機收聽');
axis([0 2 -2 2]);
m8000=n8000*3;
sound(m8000,8000);