Диссертация (1137155), страница 21

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 21)

Листинг процедуры недоминируемой сортировки поалгоритму NSGA-II' Недоминируемая сортировка популяции из массива Pop()' Процедура присваивает ранги агентам популяции в зависимости от того,' в какой фронт они попали. Ранги хранятся в Pop(i,0)' Через Fit() передаются значения целевых функций агентов популяции,' Mf - количество целевых функцийSub NDS(Pop() As Integer, Fit() As Double, Mf As Integer)Dim i As IntegerDim j As IntegerDim dom_less As IntegerDim dom_equal As IntegerDim dom_more As IntegerDim front As Integer' количество особей, доминирующих i-юDim nDom(1 To nP) As Integer' особи, которые доминируются i-й особьюDim pDom(1 To nP, 1 To nP) As Integer' количество особей, которые доминируются i-й особьюDim npDom(1 To nP) As IntegerDim f(1 To nP, 1 To nP) As Integer ' массив фронтовDim nF(1 To nP) As Integer' количество особей в i-м фронтеDim q(1 To nP) As Integer' временный массив для построения фронтаDim nQ As Integer' текущий размер временного массиваDim nk As Integer' обнуляем размеры фронтовFor j = 1 To nPnF(j) = 0Next jfront = 1' оцениваем доминирование всех пар особей и строим первый фронтFor i = 1 To nP' количество особей, доминирующих i-юnDom(i) = 0' очищаем массив особей, которые доминируются i-й особьюFor j = 1 To nPpDom(i, j) = 0NextnpDom(i) = 0 ' обнуляем число особей, доминируемых i-й особью162' подсчет количества доминируемых и доминирующих функцийFor j = 1 To nPdom_less = 0dom_equal = 0dom_more = 0For nk = 1 To Mf ' цикл по количеству целевых функцийIf Fit(i, nk) < Fit(j, nk) Thendom_less = dom_less + 1ElseIf Fit(i, nk) = Fit(j, nk) Thendom_equal = dom_equal + 1Elsedom_more = dom_more + 1End IfNext' если оказалось, что j-я особь доминирует i-юIf dom_less = 0 And dom_equal <> Mf Then' увеличиваем счетчик особей, доминирующих i-юnDom(i) = nDom(i) + 1' если оказалось, что i-я особь доминирует j-юElseIf dom_more = 0 And dom_equal <> Mf ThennpDom(i) = npDom(i) + 1' добавляем j-ю особь в список особей, доминируемых i-й особьюpDom(i, npDom(i)) = jEnd IfDoEventsNext' если i-я особь не доминируется другимиIf nDom(i) = 0 ThenPop(i, 0) = 1 ' присваиваем i-й особи ранг 1nF(front) = nF(front) + 1' добавляем i-ю особь в список особей 1-го фронтаf(front, nF(front)) = iEnd IfNext' строим последующие фронты, пока очередной фронт не будет пустымDo While nF(front) <> 0nQ = 0' для каждой особи в текущем фронтеFor i = 1 To nF(front)163' если есть особи, доминируемые текущей особью текущего фронтаIf npDom(f(front, i)) <> 0 Then' для каждой доминирующей особиFor j = 1 To npDom(f(front, i))' уменьшаем счетчик доминирующих ее особейnDom(pDom(f(front, i), j)) = nDom(pDom(f(front, i), j)) - 1' если больше не осталось доминирующих особейIf nDom(pDom(f(front, i), j)) = 0 Then' повышаем ранг этой особи и добавляем ее' во временный массивPop(pDom(f(front, i), j), 0) = front + 1nQ = nQ + 1q(nQ) = pDom(f(front, i), j)End IfNextEnd IfNextfront = front + 1' размер нового фронта равен размеру временного массиваnF(front) = nQ' переносим содержимое временного массива в новый фронтFor i = 1 To nQf(front, i) = q(i)Next iLoopEnd Sub164Приложение 4.

Основные экранные формы системы построения иоптимизации архитектурной дорожной картыРисунок 30. Экранная форма «Управление наборами практик»165Рисунок 31. Экранная форма "Ввод значений взаимодействия практик"Рисунок 32. Экранная форма "Построение архитектурных дорожных карт"166Приложение 5. Описание бизнес-кейса для тестирования системыпостроения и оптимизации архитектурной дорожной картыОбщие сведения о сфере капитального строительстваОАО «Сургутнефтегаз»ОАО «Сургутнефтегаз» - одно из крупнейших предприятий топливноэнергетического комплекса Российской Федерации.

Сфера деятельностикомпании охватывает разведку, обустройство и разработку нефтяных инефтегазовыхместорождений,добычуиреализациюнефтиигаза,производство и сбыт нефтепродуктов и продуктов нефтехимии.«Сургутнефтегаз» характеризуют высокие темпы ввода новых скважин(по объемам бурения компания на первом месте в России), что, в свою очередьозначает значительные объемы капитального строительства, связанного собустройством месторождений и реконструкцией производственных объектовпредприятия.Капитальное строительство в ОАО «Сургутнефтегаз» выполняется, восновном,специализированными(строительнымитрестами).структурнымиЗаказчикамитакжеподразделениямиявляютсяструктурныеподразделения ОАО «Сургутнефтегаз».

Основные объемы проектированияобъектов капитального строительства выполняет собственный проектныйинститут.Централизованныеуправленческиеиконтрольныефункциисосредоточены в службах аппарата управления, подчиненных заместителюгенерального директору по капитальному строительству.Информационные технологии в капитальном строительствеАвтоматизациябизнес-процессовкапитальногостроительствавОАО «Сургутнефтегаз» ведется уже более 20 лет. До появления корпоративныхрешений внедрение информационных систем носило локальный характер ивыполнялось на уровне отдельных структурных подразделений. Несмотря на167то, что некоторые из решений были позднее централизованы при помощи ERPсистем,вэксплуатацииостаютсялокальныесистемыукрупненногопланирования объемов работ, планирования потребности в материалах, учетапроектно-изыскательских работ, а также ряд других.

Кроме того, широкоиспользуются средства офисной автоматизации для формирования плановкапитального строительства, оперативной и статистической отчетности,календарного планирования работ и оформления ряда первичных документов.Автоматизация бизнес-процессов капитального строительства на базеERP-системы SAP R/3 началась в 2000 году с задач бухгалтерского иуправленческого учета (контроллинга).

На сегодняшний день в SAP R/3автоматизированы бизнес-процессы: Ведение реестра объектов капитального строительства; Учет материалов и оборудования; Учет фактических работ; Учет капитальных вложений и ввода в эксплуатацию основныхсредств; Планирование закупки материалов и оборудования; Учет договоров; Контроль экспертизы проектно-сметной документации.На рис. 33 представлена верхнеуровневая схема текущего состоянияархитектуры предприятия в сфере капитального строительства ОАО «Сургутнефтегаз».168Рисунок 33. Текущее состояние архитектуры предприятияАрхитектура предприятия для капитального строительстваЦелью построения архитектуры предприятия в сфере капитальногостроительства было создание стратегического плана развития информационныхтехнологий,направленногонадостижениецелейирешениезадачсоответствующих служб.Основной целью работы служб по капитальному строительству являетсяобеспечение своевременного ввода в эксплуатацию объектов капитальногостроительства при надлежащем качестве работ на всех этапах.

Для достиженияэтой цели решаются следующие задачи:1. Заблаговременноеобеспечениепроектно-сметнойдокументациейплана капитального строительства.2. Повышение качества проектно-сметной документации.3. Заблаговременное и качественное планирование закупки материалов иоборудования.1694. Повышение эффективности выполнения строительно-монтажных работииспользованияресурсов(людскихиматериально-технических)приобеспечении надлежащего качества работ.5.

Повышение достоверности и актуальности сводной управленческойотчетности за счет: автоматизации бизнес-процессов; интеграции используемых информационных систем; минимизации «ручной» отчетности; обеспечения качества данных.Для построения архитектуры предприятия в сфере капитальногостроительства применялась методология TOGAF. Результаты анализа различийбыли сведены в «Консолидированную матрицу различий, решений изависимостей» (табл.

5).Таблица 5. Консолидированная матрица различий, решений и зависимостей№Архи-п/птектураРазличияПотенциальные решения(варианты решений)1. Исключаемые архитектурные блоки1.1.1.2.1.3.БизнесБизнесБизнесБП формирования планаРазработать новый БП.

АвтоматизироватьКС (Excel)при помощи имеющейся ERP-системыБП планирования кап.Автоматизировать при помощи имеющейсявложений (Excel)ERP-системыСтатистическая отчетностьАвтоматизировать при помощи имеющейсясредствами ExcelERP-системы170№Архи-п/птектура1.4.Бизнес1.5.1.6.БизнесБизнесПотенциальные решенияРазличия(варианты решений)Опер. упр. отчетность дляРазработать новый БП. Внедрить единуюруководства на разныхИС оперативной управленческойуровнях (Excel)отчетностиБП согласования договоровРазработать новый БП. Автоматизировать(неавтоматизированный)при помощи имеющейся СЭД4БП планированияРазработать новый БП. Автоматизироватьобеспечения ПСДпри помощи имеющейся ERP-системы(неавтоматизированный)1.7.БизнесБП согласования заданийРазработать новый БП. Автоматизироватьна проектированиепри помощи имеющейся СЭД(неавтоматизированный)1.8.БизнесБП согласованияРазработать новый БП.

Характеристики

Список файлов диссертации