x=wavread('E:\project\kani imp\akk');
l=size(x)
s=1;
t2=1;
%ensegment=0;
for t=[4000:4000:l]
sum=0;
for t1=[s:t]
%sum=sum+(abs(x.^2));
s=sum+abs(x(t1)^2);
en(t2)=s;
end
%en(t2)=sum;
s=s+4000;
t2=t2+1;
%plot(en);
%ensegment=ensegment+1;
end
l1=size(en);
m1 = max(en);
for (i = 1:l1)
if en(i)== m1
break
end
end
sm = i;
%st = (max*4000)- 2000;
%end = st + 4000;
%yx = st:end
%plot(x(yx))
%stem(y,en)
l=size(x)
s=1;
t2=1;
%ensegment=0;
for t=[4000:4000:l]
sum=0;
for t1=[s:t]
%sum=sum+(abs(x.^2));
s=sum+abs(x(t1)^2);
en(t2)=s;
end
%en(t2)=sum;
s=s+4000;
t2=t2+1;
%plot(en);
%ensegment=ensegment+1;
end
l1=size(en);
m1 = max(en);
for (i = 1:l1)
if en(i)== m1
break
end
end
sm = i;
%st = (max*4000)- 2000;
%end = st + 4000;
%yx = st:end
%plot(x(yx))
%stem(y,en)