курсач по ФБ (подходит под все варианты) / FB

function[m_min,range_station]=FB(m_inf)%реализация алгоритма его величества Форда-Беллмана
    m_min=zeros(12); %задаём матрицу нулей 12*12
    m_min(2:12,:) = inf;	%со 2-ой строки по 12-ую записываем бесконечности
    %алгоритм Форда-Бэллмана
    for i = 2 : 12 	
        for j = 2 : 12             
            for k = 1 : 12
                if m_inf(k, j)~=0
                    if m_min(j, i-1) > m_min(k, i - 1) + m_inf(j, k) && m_min(j,i) > m_min(k,i-1)+m_inf(j,k)
                        m_min(j, i) = m_min(k, i - 1) + m_inf(j, k);
                    end
                    if m_min(j,i)==inf
                        m_min(j,i)=m_min(j,i-1);
                    end
                end
            end
        end
    end
l = m_min(12,12);%полученную ранее матрицу записываем в матрицу "l"
    range_station = 12; %число станций 
    m = 12; %число вершин графа 
    while(l) %пока "l" не изменится
        for i = 1:12
            if (m_inf(i, m)~=0) && (l - m_inf(i, m) == m_min(i, 12))
                l = l - m_inf(i, m);
                m = i;
                range_station = [m, range_station];%формируем последовательность станций
            end
        end
    end

end