Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Код программы на Visual Basic

    Министерство образования и науки Российской Федерации Министерство образования республики Таджикистан Российско – Таджикский (славянский) Университет

     

    Факультет Управления и ИТ

    Кафедра информатики и информационных систем

    Лабораторная работа №­4

    По дисциплине: ТС и Са

    На тему: «Определение существенных факторов методом экспертных оценок»

    Выполнил: студент 4– го курса

    Отделения Прикладная

    Информатика группа «Б» Солиев А

    Принял: ЛИ И Р.

     

    Душанбе 2015

     

    Цель работы

    Целью работы является освоение метода экспертных оценок, на основе которого определяются существенные факторы моделей реальных явлений, процессов, объектов и систем на этапе моделирования в системном анализе.

    Теоретическая сведения.

    Моделирование-это процесс создания модели, отображающей свойства реального явления, процесса, объекта или системы.

    Эксперт- это комплексное лицо, имеющие глубокие знания о предмете или объекте исследования и большой опыт практической работы.

    Сущность метода экспертных оценок заключается в проведении специалистом работающими в данной области, интуитивно логического анализа проблемы количественной оценкой суждений и формальной обработкой результатов этого анализа.

    Получаемое в результате обработки обобщенное мнение экспертов используется как решение исследуемой проблемы.

    Решение Задачи № 8

    Код программы на Visual Basic

    Private Sub Command1_Click()

    Dim x(1 To 5, 1 To 6)

    Dim r(1 To 6)

    Dim rot(1 To 6)

    Dim q(1 To 6)

    m = 0

    s = 0

    n = 6

    x(1, 1) = 6: x(1, 2) = 5: x(1, 3) = 2: x(1, 4) = 1: x(1, 5) = 4: x(1, 6) = 3

    x(2, 1) = 5: x(2, 2) = 6: x(2, 3) = 1: x(2, 4) = 2: x(2, 5) = 3: x(2, 6) = 4

    x(3, 1) = 5: x(3, 2) = 6: x(3, 3) = 2: x(3, 4) = 1: x(3, 5) = 3: x(3, 6) = 4

    x(4, 1) = 6: x(4, 2) = 5: x(4, 3) = 2: x(4, 4) = 1: x(4, 5) = 4: x(4, 6) = 3

    x(5, 1) = 3: x(5, 2) = 4: x(5, 3) = 1: x(5, 4) = 2: x(5, 5) = 5: x(5, 6) = 6

    For i = 1 To 6

    For j = 1 To 5

    r(i) = r(i) + x(j, i)

    Next j

    m = m + r(i)

    Print r(i),

    Next i

    Print

    Print m

    m = 1 / n * m

    Print m

    For i = 1 To 6

    rot(i) = r(i) - m

    Print rot(i),

    q(i) = rot(i) ^ 2

    Print q(i),

    s = s + q(i)

    Next i

    Print

    Print s

    w = 12 * s / (m ^ 2 * (n ^ 3 - n))

    Print w

    p = r(2) - r(2) * 0.1

    Print p

    End Sub

     

    Выполнение программы:

     

    И в результате получаем:

    Так как факторы X3, X4, X5, X6 имеют , то они существенные, а факторы X1 и X2 – несущественные.

    <== предыдущая лекция | следующая лекция ==>
    Задание №2. «Синтез структуры по заданной безотказности при ограничении массы конструкции. | Часть 3. «Главным направлением внутренней политики правителей Эпохи дворцовых переворотов становится расширение прав и привилегий __».




    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.