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

t=t(~isnan(c)); c=c(~isnan(c));
if isempty(t), c_mean=NaN; n_good=0; return, end

ts0=(t_min0*60-45:t_min0*60+45)';   % равномернаЯ шкала времени в сек
[kc,kw]=ismember_digit(round(t*60),ts0,8);
if sum(kc)~=sum(kw), 
    [hh,mm,ss,str]=deg_dms(t_min0/60);disp(str)
    error('!!! Проблемы с метками времени !!!')
end
c_mean=sum(c(kc).*W(kw))/sum(W(kw));
n_good=sum(kw);
