function [c_mean,gaps]=one_minute_mean_75(t_min0,t,c,W);
% Вычисление средневзвешенного минутного значения
%
% Вызов:    [c_mean,[gaps]]=one_minute_mean(t_min0,t,c,W)
%
% t_min0 - минута, длЯ которой ведутсЯ вычислениЯ
%      t - моменты измерениЯ (в минутах)
%      c - измеренные значениЯ
%      W - веса длЯ усреднениЯ
%
% c_mean - средневзвешенное значение (=NaN, если пропущено
%          больше 75% данных)
%   gaps - количество пропусков

t=t(~(isnan(c)|isinf(c))); c=c(~(isnan(c)|isinf(c)));
gaps=length(W)-length(c);
if gaps==0,     % без пропусков данных
    c_mean=sum(c.*W);
elseif gaps<fix(length(W)*.75), % пропущено менее 75% данных
    if length(W)==91,
       k=round(t*60-(t_min0*60-45))+1;    % индексы длЯ весов
    elseif length(W)==19,
       k=(round(t*60-(t_min0*60-45)))/5+1;    % индексы длЯ весов
    end
    c_mean=sum(c.*W(k))/sum(W(k));
else
    c_mean=NaN;
end
