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

function netGraph(nM)
    qN = size(nM, 1)
    nz = count(x -> x > 0, nM)
    s = zeros(Int, nz)
    t = zeros(Int, nz)
    bW = zeros(Float64, nz)
    u = 1
    
    for p in 1:qN
        for q in 1:qN
            if nM[p, q] > 0
                s[u] = p
                t[u] = q
                bW[u] = nM[p, q]
                u += 1
            end
        end
    end
    
    return s, t, bW
end