rFeed1_PAV = pav(:,6);

rFeed = cell(size(rFeed1_PAV,1),1);
    for i = 1:size(rFeed1_PAV);
        if str2double(rFeed1_PAV{i,1}) >= p & str2double(rFeed1_PAV{i,1}) <= q
            dif1 = rFeed1_PAV{i,1} - p;
            dif2 = q - rFeed1_PAV{i,1};
            if dif1 < dif2
                rFeed {i,1} = str2double((300/3.7) * dif1);
            else
                rFeed {i,1} = str2double((300/3.7) * dif2);
            end
            if isempty(rFeed)
                return
            end
        end
    end
    assignin('base', 'rFeed ', rFeed);