function [ ] = envelope_cut( up )
%UNTITLED3 输入参数为信号包络矢量
% 此处显示详细说明
data=up';
figure(1);
plot(data);
data1(1:120000)=up(1:120000);
figure(2);
plot(data1);
k=1;
d=(0:99);
for i=(0:1199)
d=data1(((100*i)+1):((100*(i+1))));
if k>0
if mean2(d)>0.08
j=i*100;
hold on;
plot([j j],[0 1.5],'-');
k=k*(-1);
end
else
if mean2(d)<0.03
p=(i+1)*100;
hold on;
plot([p p],[0 1.5],'-');
k=k*(-1);
end
end
end
end