Оптимизация СМО

function optiwrite(OFQM, nFlows)

XLSX.openxlsx("OptiFlows.xlsx", mode="w") do xf
    sheet_name1 = string("Поток ", nl[1, 1], "⟶", nl[2, 1])
    XLSX.rename!(xf[1], sheet_name1)
    data1 = OFQM[:, :, 1]
    for i in 1:size(data1, 1)
        for j in 1:size(data1, 2)
            xf[1][i, j] = data1[i, j]
        end
    end
    
    for n in 2:nFlows
        sheet_name = string("Поток ", nl[1, n], "⟶", nl[2, n])
        sheet = XLSX.addsheet!(xf, sheet_name)
        
        data = OFQM[:, :, n]
        for i in 1:size(data, 1)
            for j in 1:size(data, 2)
                sheet[i, j] = data[i, j]
            end
        end
    end
end

end