function [xmin, xmax] = sliding_minmax_eval(xin, L)

x = [1E12*ones(L,1)' xin']';
for k=1:(lge(x)-L)
    for ll=1:L
        xmin(k) = min(x(1+k:L+k));
    end
end
x = [-1E12*ones(L,1)' xin']';
for k=1:(lge(x)-L)
    for ll=1:L
        xmax(k) = max(x(1+k:L+k));
    end
end