МИНИСТЕРСТВО ЦИФРОВОГО РАЗВИТИЯ, СВЯЗИ И МАССОВЫХ КОММУНИКАЦИЙ РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ

УЧРЕЖДЕНИЕ ВЫСШЕГО ОБРАЗОВАНИЯ

«САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ТЕЛЕКОММУНИКАЦИЙ ИМ. ПРОФ. М.А. БОНЧ-БРУЕВИЧА»

(СПбГУТ)

Факультет Информационных систем и технологий

Кафедра Информационных управляющих систем

Направление: 09.03.02 Информационные системы и технологии

Профиль: Дизайн графических и пользовательских интерфейсов информационных систем

ОТЧЕТ

к лабораторной работе № 4:

«Построение автокодировщиков»

по дисциплине «Нейросетевые технологиий»

Выполнил:

Студент группы ИСТ-931

Гетманченко П.А. «_04_»__марта__ 2022 г.

Принял:

преп. каф. ИУС

Капитоненко В.В. «_04_»__марта__ 2022 г.

Санкт-Петербург

2022 г

СОДЕРЖАНИЕ

ЦЕЛИ РАБОТЫ 3

ХОД РАБОТЫ 4

Задание 4

Листенинг 4

ВЫВОД 6

ЦЕЛИ РАБОТЫ

Цели работы:

- построить автокодировщик для заданной обучающей выборки.

ХОД РАБОТЫ

Задание

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

Листенинг

library(RSNNS)

# Подготовка обучающей выборки

data(snnsData)

inputs <- snnsData$letters_auto.pat

# Функция визуализации алфавита

print.alphabet <- function(x){

letter <- matrixToActMapList(x,nrow = 7)

par(mar=c(1,1,1,1))

par(mfrow=c(4,7))

n <- c(1:26)

for (i in n) plotActMap(letter[[i]])

}

print.alphabet(snnsData$letters_auto.pat)

train.data=data.frame(inputs, snnsData$letters_auto.pat)

# Формирование формул для входов и выходов

x.names <- paste0("in", 1:35, collapse = " + ")

y.names <- paste0("in", 1:35, collapse = " + ")

form <- as.formula(paste(x.names, " ~ ", y.names))

# Обучение автокодировщика

set.seed(55)

net <- neuralnet(formula = form, train.data, hidden = 10, threshold = 0,0006)

# Тестирование обученного автокодировщика

test.data=data.frame(snnsData$letters_auto.pat)

y.predict=predict(net,test.data)

print.alphabet(y.predict)

Результат показан на рисунке 1:

Рисунок 1 - результат

ВЫВОД

При выполнении лабораторной работы №4:

- построен автокодировщик для заданной обучающей выборки.