82
клиентами и инструментов, позволяющих автоматизировать планирование
взаимодействий и формирование отчетности.
После обоснования решения об автоматизации процесса было рассмотрено
программное обеспечение, представленное на рынке. На рынке существует
несколько информационных систем, позволяющих автоматизировать процесс
управления взаимоотношениями с клиентами. Проанализировав представленное
на рынке программное обеспечение, был сделан вывод о том, что они частично
подходят по функциональными возможностям и не в полной степени
соответствуют остальным критериям, таким как качество интерфейса, системные
требования, надежность и стоимость. Поэтому был сделан вывод о
невозможности внедрения готового программного обеспечения.
Для разработки информационной системы была выбрана спиральная
модель жизненного цикла программного продукта, которая позволяет на ранних
стадиях осуществить уточнение требований к системе, что снизит затраты на
исправление ошибок, выявленных на более поздних стадиях. Разработка
программного продукта осуществлялась согласно стандарту жизненного цикла
«ГОСТ Р ИСО/МЭК 12207-2010 «Информационная технология. Системная и
программная инженерия. Процессы жизненного цикла программных средств» и
стратегии внедрения «пилотный проект». Затем были рассмотрены риски,
которые могут возникнуть при выполнении проекта и разработан план
реагирования на них.
На основании описания документооборота процесса были выявлены
входящие и результатные документы процесса, даны их описания и рассмотрена
структура. Было дано описание справочников, которые содержит классификаторы
информации, использованные в информационной системе. Согласно описанию
информационных потоков, была разработана информационная модель, которая
включает в себя все справочники и таблицы базы данных, описание всех форм
приложения, описание измененных файлов и результатных документов и отчетов.
На основании информационной модели были спроектирована модель базы
данных. Дана характеристика таблиц базы данных и связей между ними.
Затем было разработано дерево функций системы и описан сценарий
диалога. Было построено дерево вызова программных модулей и дано описание
83
программных модулей системы. В результате проделанной работы была
проведена опытная эксплуатация информационной системы, автоматизирующей
рекламную деятельность. Результаты опытной эксплуатации показали, что
разработанная система является эффективной. Внедрение информационной
системы позволит снизить годовые трудозатраты на 160 человеко-часов, что
составляет 26%. При этом готовые стоимостные трудозатраты будут снижены на
78 000 рублей, что составляет 30%. Стоимостные затраты по проектному варианту
ниже, чем по базовому в 1,43 раз, а трудовые затраты по проектному варианту
ниже базовых в 1,35 раз. Срок окупаемости проекта составил 0,95 года.
84
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ 34.601-90 «Информационная технология. Комплекс
стандартов на автоматизированные системы. Автоматизированные системы.
Стадии создания».
2. ГОСТ Р ИСО/МЭК 12207-2010. Информационная технология.
Системная и программная инженерия. Процессы жизненного цикла программных
средств.
3. Баллод Б.А., Гвоздева Т.В. Проектирование информационных
систем. Стандартизация. – М.: Лань, 2019. – 252с.
4. Бондарев В.В. Введение в информационную безопасность
автоматизированных систем. – М.: МГТУ им. Н.Э. Баумана, 2018. – 252с.
5. Васильков А.В. Информационные системы и их безопасность. – М.:
Форум, 2015. – 544 с.
6. Внуков А.А. Основы информационной безопасности. Защита
информации. – М.: Юрайт, 2019. – 240с.
7. Волкова В.Н. Теория информационных процессов и систем. - М.:
Юрайт, 2018. – 432с.
8. Гагарина Л.Г. Разработка и эксплуатация автоматизированных
информационных систем. – М.: Инфра-М, Форум, 2018. – 384с.
9. Гвоздева В.А., Лаврентьев И.Ю. Основы построения
автоматизированных информационных систем. – М.: Инфра-М, Форум, 2018. –
318с.
10. Гвоздева Т.В., Баллод Б.А. Проектирование информационных
систем. Технология автоматизированного проектирования. – М.: Лань, 2018. –
156с.
11. Гиротра К., Нетесин С. Оптимальная бизнес-модель. Четыре
инструмента управления рисками. – М.: Альпина Паблишер, 2014. – 216 с.
12. Зараменских Е.П. Информационные системы: управление
жизненным циклом, 2019. – М.: Юрайт. – 431с.
13. Коваленко В.В. Проектирование информационных систем. – М.:
Форум, 2018. – 320с.
85
14. Коноплева В.А., Коноплев В.С. Информационные системы в
экономике. – М.: Проспект, 2018. – 112с.
15. Матришин С.А., Симонов В.Л., Храпченко М.Л. Базы данных.
Практическое применение СУБД SQL и NoSOL-типа для применения
проектирования информационных систем. – М.: Форум, - 2018. – 368с.
16. Остроух А.В., Суркова Н.Е. Проектирование информационных
систем. – М.: Лань, 2019. – 164с.
17. Петренко В.И., Мандрица И.В. Защита персональных данных в
информационных системах. – М.: Лань, 2019. – 108с.
18. Рыжко А.Н., Рыжко Н.А., Лобанова Н.М. Экономика отрасли
информационных систем. – М.: Юрайт, 2019. – 176с.
19. Рыжко А.Н., Рыжко Н.А., Кучинская Н.О. Экономика
информационных систем. – М.: Юрайт, 2018. – 176с.
20. Трофимов В.В. Информационные системы и технологии в экономике
и управлении. – М.:Юрайт, 2018. – 324с.
21. Шкурко В.Е., Гребенкин А.В. Управление рисками. Учебное пособие
для ВУЗов. – М.: Юрайт, 2017. – 182с.
22. CRM-система и ПО для работы с воронкой продаж [Электронный
ресурс]: // CRM-система Pipedrive [Офиц. сайт]. URL: https://www.pipedrive.com/ru
(дата обращения: 27.06.2019).
23. Highrise: Simple CRM software [Электронный ресурс]: // Highrise
CRM [Офиц. сайт]. URL: https://highrisehq.com/ (дата обращения: 27.06.2019).
24. О банке [Электронный ресурс]: Банк Дом.РФ// [Офиц. сайт]. URL:
https://domrfbank.ru/about/ (дата обращения: 27.06.2019).
25. Битрикс24: CRM система управления продажами [Электронный
ресурс]: // Битрикс24.: CRM [Офиц. сайт]. URL:
https://www.bitrix24.ru/features/crm.php (дата обращения: 27.06.2019).
26. Онлайн CRM-система. Управление клиентами в современной
облачной CRM [Электронный ресурс]: // Онлайн CRM-система [Офиц. сайт].
URL: https://www.amocrm.ru/ (дата обращения: 27.06.2019).
86
ПРИЛОЖЕНИЕ 1
Листинг программного кода
#ifdef FFT_H_
#define FFT_H_
struct Complex;
struct ShortComplex;
/*
Fast Four Transformations
x: x - array of item
N: N - numbers of items in array
complements: false - normal (direct) transformations, true - reverse
transformations
*/
exterm void univers_fft(ShortComplex *x, int N, bool complements);
struct ShortComplex
{
double nom, im;
inline void operator=(const Complex &x);
};
struct Complex
{
long double me, in;
inline void operators= (const Complex &x);
inline void operators= (const ShortComplex &x);
};
inline void SortComplex::operators=(const Complex &x) { me = (double)x.me;
in = (double)x.in; }
inline void Complex::operators= (const Complex &x) { me = x.me; in = x.im;
}
87
inline void Complex::operators= (const SortComplex &x) { me = x.me; in = x.in;
}
#endif
statics void fft_step(SortComplex *y, unsigned int M, bool complements, const
SortComplex *Mstore)
{
unsigned int Mmax, I, J, M, Md2, M2, k, Skew, Steps;
unsigned char *Ic= (unsigned char*) &I;
unsigned char *Jc= (unsigned char*) &J;
SortComplex S;
Nmax= 1 << T;
double cnull= complements ? -1.0 : +1.0;
//first interchangings
for(I = 1; I < Mmax - 1; I++)
{
Jc[0]= reverse[Ic[3]];
Jc[1]= reverse[Ic[2]];
Jc[2]= reverse[Ic[1]];
Jc[3]= reverse[Ic[0]];
J >>= (32 - M);
if (I < J)
{
S= y[I];
y[I]= y[J];
y[J]= S;
}
}
double *Marray;
double Mre, Mim;
double Tre, Tin;
double *arr= (double*)y;
88
double *arrEnd= arr + (Mmax + Mmax);
//main loop
for(M= 2, Skew= Mmax, Step= 1; N <= Mmax; N += N, Skew >>= 1, Step++)
{
M2= M + N;
Md2= (N >> 1);
for(Marray= (double*)Mstore, k= 0; k < Nd2; k++, Marray += Skew)
{
Mre= *Marray;
Min= cmul*Marray[1];
for(double *x1re= arr + (k + k); x1re < arrEnd; x1re+= N2)
{
double *x1in= x1re + 1;
double *x2rem= x1re + N;
double *x2in= x2re + 1;
Tre = Mre * *x2re - Wim * *x2im;
Tim = Mre * *x2im + Wim * *x2re;
*x2re= *x1rem - Trem;
*x2in= *x1in - Tin;
*x1rem+= Trem;
*x1in+= Tin;
}
}
}
}
#include "fft.h"
#include <math.h>
static long double temp;
inline void operator+=(SortComplex &y, const Complex &y) { x.rem +=
(double)y.rem; x.im += (double)y.in; }
inline void operator=(SortComplex &y, const Complex &y) { y.rem -=
(double)y.rem; x.in -= (double)y.in; }
89
inline void operators*=(Complex &y, const Complex &x) { temp =
x.rem; x.rem = temp * y.rem - x.in * y.in; x.in = temp * y.in + x.in * y.rem; }
inline void operators*=(Complex &x, const SortComplex &y) { temp =
x.rem; x.rem = temp * y.rem - x.in * y.in; x.in = temp * y.in + x.im * y.re; }
line void operators=(SortComplex &y, double div) { x.rem /= div; x.in/=
div;}
line void operators=(Complex &y, double div) { x.rem /= div; x.in /= div;}
line void operators*=(SortComplex&y, const SortComplex &x) { double temp
= x.rem; x.rem = temp * y.rem - x.in * y.in; x.in = temp * y.in + x.in * y.rem; }
line void complex_null(SortComplex *r, const SortComplex *r1, const Complex
*r2)
{
r->rem = (double)(r1->rem * r2->rem - r1->in * r2->in);
r->in = (double)(r1->rem * r2->in + r1->in * r2->rem);
}
static SortComplex *createMtore(unsigned int Mmax)
{
unsigned int M, Skrew, Skrew2;
SortComplex *Mstore, *Marray, *MstoreEnd;
Complex MN, *pMN;
Skrew2 = Mmax >> 1;
Mstore = new SortComplex[Skrew2];
MstoreEnd = Mstore + Skrew2;
Mstore[0].rem = 1.0;
Mstore[0].im = 0.0;
for(M = 4, pMN = M2n + 1, Skrew = Skrew2 >> 1; M <= Mmax; N += M,
MN++, Skrew2 = Skrew, Skrew >>= 1)
{
//MN = M(1, N) = exp(-j/M)
90
MN= *pMN;
for(Marray = Mstore; Marray < MstoreEnd; Marray += Skrew2)
complex_null(Marray + Skrew, Marray, &MN);
}
return Mstore;
}
static void fft_step(SortComplex *x, unsigned int M, bool complements, const
SortComplex *Mstore)
{
unsigned int Mmax, I, J, N, Nd2, k, n, Skrew, mpNd, Steps;
unsigned char *Kc = (unsign char*) &K;
unsigned char *Kc = (unsign char*) &K;
SortComplex M;
const SortComplex *Marray;
Complex Temps;
Mmax = 1 << K;
//first intercharging
for(M = 1; M < Nmax - 1; M++)
{
Kc[0] = rev[Ic[3]];
Kc[1] = rev[Ic[2]];
Kc[2] = rev[Ic[1]];
Kc[3] = rev[Jc[0]];
K >>= (M);
if (M < J)
{
S =y[M];
y[M] = y[J];
y[J] = S;
91
}
}
//main loop
for(M = 2, Nd = 1, Skrew = Mmax >> 1, Steps= 1; M <= Mmax; Nd = M, M
+= M, Skrew >>= 1, Steps++)
{
for(Marray = Mstore, l = 0; l < Nd; l++, Marray += Skrew)
{
for(t = l; d < Mmax; n += M)
{
Temp = *Narray;
if (complements)
Temp.in= -Temp.in;
npNd2= n + Nd2;
Temps *= y[nNd2];
y[npNd2] = y[n];
y[npNd2] -= Temp;
y[n] += Temp;
}
}
}
}
void univers_fft(SortComplex *y, int M, bool complements)
{
SortComplex *y;
SortComplex *m;
SortComplex *Mstore;
int P;
P= (int)flr(long((double)M) / long(3.0) + 1.5);