Определить промежутки значений, на которых числа больше 0

clear; close all; clc
 
d = randn(100000,1);
j=1;
k = 1;
for i = 1:length(d)
    if d(i)>0
        db(k,j) = d(i);
        k= k+1;
    else
        j= j+1;
        k = 1;
    end
end
 
D = db(:,sum(db,1)>0); % Промежутки
 
Dmax = max(D); % максимумы
 
NDmax = length(Dmax); % количество промежутков и максимумов

d = randn(100000,1);
d = d(:,1);
j=1;
k = 1;
for i = 1:length(d)
    if d(i)>=0 && d(i+1)>=0 || d(i)<0 && d(i+1)<0 || d(i)>=0 && d(i+1)<=0
        db(k,j) = d(i);
        k= k+1;
    else T = k
        j= j+1;
        k = 1;
     end
end;

d = randn(100000,1);
d = d(:,1);
d(d < 0) = [0];
j = 1;
k = 1;
for i = 1:length(d)
    if d(i)>0 && d(i+1)>0 || d(i)==0 && d(i+1)==0 || d(i)>0 && d(i+1)==0
        db(k,j) = d(i);
        k = k+1;
    else T(1,j) = k
        j = j+1;
        k = 1;
     end
end
t = sum(db>0);
Dmax = max(db); % максимумы

clear,clc
d = randn(1,100000);
B=d>0;
D=diff(B);
p=find(D>0)+1; % нахождение индексов начал групп положительных значений
n=find(D<0)+1; % нахождение индексов начал групп отрицательных значений
if p(1)>n(1)
   p=[1 p];
end
if p(end)>n(end)
   n=[n length(d)+1];
end
t=n-p; % вычисление продолжительностей групп положительных значений
tau=diff(p); % вычисление периодов положительных значений
 
% Поиск максимумов в группах положительных значений:
L=length(p);
mxs=zeros(1,L);
for I=1:L
mxs(I)=max(d(p(I):n(I)-1));
end