Генератор СМО

function flowGraph(nM)
    qN = size(nM, 1)
    nfl = count(x -> x > 0, nM)
    nl = zeros(Int, 2 * nfl)
    flG = Matrix{Int}(undef, 2, nfl)
    flG[1, :] = 1:2:(2*nfl-1)
    flG[2, :] = 2:2:(2*nfl)
    flI = zeros(nfl)
    c = 1
    
    for a in 1:qN
        for b in 1:qN
            if nM[a, b] > 0
                nl[2*c - 1] = a
                nl[2*c] = b
                flI[c] = nM[a, b]
                c += 1
            end
        end
    end
    return nfl, nl, flG, flI  
end