Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Развитие механизма финансового мониторинга в банковской системе. Монография
.pdf
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet3: TTabSheet;
NumberEdit: TEdit;
ChangeEdit: TEdit ;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Teach: TButton;
MonthChart: TChart;
Count: TButton;
Label10: TLabel;
Label9: TLabel;
ComboBox3: TComboBox;
Label17: TLabel;
Series1: TAreaSeries;
Label19: TLabel;
lbl_cur_line: TLabel;
nEdit: TEdit;
Label1: TLabel;
mEdit: TEdit;
Label2: TLabel;
aEdit: TEdit;
Label3: TLabel;
Label20: TLabel;
lbl_shag: TLabel;
Label21: TLabel;
lbl_err: TLabel;
StringGrid2 : TS t ringGrid;
TeachEdit: TE d it ;
StringGrid1 : TS t ringGrid;
lbl_test_line: TLabel;
function func(x: extended): extended;
procedure CorrectWeights;
function Mistake: extended;
procedure NewMassiv;
121
procedure Answer;
procedure FormCreate(S en der: TOb ject);
procedure ArrayInitClick(Sender: TObject);
procedure CountClick(Sender: TOb ject );
procedure TeachClick(Sender: TObject);
private
f: text;
in_count, hiden_count, p, pairs: integer;
vesa: file of Tweights;
Inp: Tinput;
ExitVal, Corr : Tout;
Hidden: Tslice;
w: Tweights1;
v: Tweights2;
number: integer;
a, abegin: extended;
change: extended;
learning_massiv: array [1 .. 2, 1 .. Maxin, 1 .. Maxin] of extended;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{
$R *.dfm}
function TForm1.func(x: extended): extended;
begin
func := 1 / (1 + exp(-x))
end;
procedure TForm1.CorrectWeights;
122
var
I, j, k: integer;
s: extended;
begin
for j := 1 to hiden_count do
for k := 1 to p do
v[j, k] := v[j, k] – a * Hidden[j] * (ExitVal[k] – Corr[k]) * Ex-
itVal[k] * (1 – ExitVal[k]);
for I := 1 to in_count do
for j := 1 to hiden_count do
begin
s := 0;
for k := 1 to p do
s := s + s + v[j, k] * (ExitVal[k] – Corr[k]) * ExitVal[k] *
(1 – ExitVal[k]);
w[I, j] := w[I, j] – a * s * Hidden[j] * (1 – Hidden[j]) * Inp[I];
end;
end;
function TForm1.Mistake: extended;
var
I: integer;
s: extended;
begin
s := 0;
for I := 1 to p do
s := s + (ExitVal[I] – Corr[I]) * (ExitVal[I] – Corr[I]);
Mistake := 0.5 * s
end;
procedure TForm1.NewMassiv;
var
Sender: TObject;
Q: Tweights;
w1: Tweights1;
w2: Tweights2;
I, j: integer;
begin
123
Q.masn := StrToInt(nEdit.text);
Q.masm := StrToInt(mEdit.text);
pairs := StrToInt(TeachEdit.text);
Q.masp := 12;
in_count := Q.masn;
hiden_count := Q.masm;
p := Q.masp;
assignfile(vesa, 'weight.dat');
RandSeed := 0;
// randomize;
for I := 1 to in_count do
for j := 1 to hiden_count do
w1[I, j] := -0.3 + 0.6 * RANDOM;
for I := 1 to hiden_count do
for j := 1 to p do
w2[I, j] := -0.3 + 0.6 * RANDOM;
rewrite(vesa);
Q.mas1 := w1;
Q.mas2 := w2;
Q.koef := StrToFloat(aEdit.text);
write(vesa, Q);
closefile(vesa);
w := w1;
v := w2;
a := Q.koef;
end;
procedure TForm1.Answer;
var
I, j: integer;
s: extended;
begin
for j := 1 to hiden_count do
begin
s := 0;
for I := 1 to in_count do
s := s + Inp[I] * w[I, j];
Hidden[j] := func(s);
124
end;
for I := 1 to p do
begin
s := 0;
for j := 1 to hiden_count do
s := s + Hidden[j] * v[j, I];
ExitVal[I] := func (s );
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Q: Tweights;
I: integer;
begin
assignfile(vesa, 'weight.dat');
reset(vesa);
if eof(vesa) then
// showmessage('Массивы весов не инициализированы')
else
begin
read(vesa, Q);
w := Q.mas1;
v := Q.mas2;
a := Q.koef;
in_count := Q.masn;
hiden_count := Q.masm;
p := Q.masp;
end;
closefile(vesa);
abegin := StrToFloat(aEdit.text);
end;
ocedure TForm1.ArrayInitClick(Sender: TObject);
pr
begin
NewMassiv;
end;
125
procedure TForm1.CountClick(S en d er : TO b ject);
VAR
O: integer;
I, per: integer;
begin
StringGrid2.RowCount := 2;
StringGrid2.ColCount := 13;
for I := 1 to in_count do
Inp[I] := learning_massiv[2, tech_pairs + 1, I];
Answer;
StringGrid2.Cells[0, 1] := '2012';
for per := 1 to p do
begin
StringGrid2.Cells[per, 0] := IntToStr(per);
O := TRUNC(multiply_coef * ExitVal[per]);
MonthChart.Series[0].AddXY(in_count * (tech_pairs + 1) + per, O,
'', 3333333);
StringGrid2.Cells[per, 1] := IntToStr(O);
end;
END;
procedure TForm1.TeachClick(Sender: TObject);
var
pair, I, j, t, y, m, b, mist_c: integer;
k, mist: extended;
test_try, current_try: integer;
Q: Tweights;
begin
number := StrToInt(NumberEdit.text);
change := StrToFloat(ChangeEdit.text);
b := ComboBox3.ItemIndex;
case b of
0:
assignfile(f, '46.txt');
1:
assignfile(f, '53.txt');
126
2:
assignfile(f, '58.txt')
else
begin
showmessage('Файл для записи не определен.');
Exit;
end;
end;
reset(f);
NewMassiv;
StringGrid1.RowCount := pairs + prognoz_pairs + 1;
StringGrid1.ColCount := in_count + 1;
for I := 1 to 12 do
StringGrid1.Cells[I, 0] := IntToStr(I);
for I := 1 to pairs + prognoz_pairs do
for j := 1 to in_count do
begin
read(f, y);
read(f, m);
readln(f, k);
StringGrid1.Cells[0, I] := IntToStr(y);
StringGrid1.Cells[j, I] := FloatToStr(k);
learning_massiv[1, I, j] := k;
learning_massiv[2, I, j] := k / multiply_coef;
if (I > 1) then
begin
learning_massiv[1, I – 1, j + in_count] := k;
learning_massiv[2, I – 1, j + in_count] := k / multiply_coef;
end;
end;
// сразу график
MonthChart.Series[0].Clear;
t := 1;
for I := 1 to pairs + 1 do
for j := 1 to in_count do
begin
MonthChart.Series[0].AddXY(t, learning_massiv[1, I, j]);
127
t := t + 1;
end;
t := 1;
mist_c := 0;
repeat
lbl_shag.Caption := IntToStr(t);
current_try := RANDOM(tech_pairs) + 1;
lbl_cur_line.Caption := IntToStr(current_try);
for I := 1 to maxout do
begin
Corr[I] := learning_massiv[2, current_try, in_count + I];
Inp[I] := learning_massiv[2, current_try, I];
end;
Answer;
CorrectWeights;
mist := Mistake;
if mist < e then
mist_c := mist_c + 1;
lbl_err.Caption := FloatToStr(mist);
Application.ProcessMessages;
t := t + 1;
a := a * change;
until (mist_c >= target_mistake_count) or (t = number + 1);;
closefile(f);
rewrite(vesa);
Q.mas1 := w;
Q.mas2 := v;
Q.koef := a;
Q.masn := in_count;
Q.masm := hiden_count;
Q.masp := 1;
write(vesa, Q);
closefile(vesa);
end;
e
nd.
128
СОДЕРЖАНИЕ
Введение……………………………………………………..
4
1. ТЕОРЕТИЧЕСКИЕ ОСНОВЫ ФОРМИРОВАНИЯ
В БАНКОВСКОЙ СИСТЕМЕ……………………………...
6
1.1. Сущность финансового мониторинга и механизм его
формирования в банковской системе……………………..
6
1.2. Субъекты финансового мониторинга в кредитно-
связь с надзорным органом…………………………………
1.3. Деятельность Банка России в области финансового
мониторинга…………………………………………………
32
2. АНАЛИЗ ТЕНДЕНЦИЙ СТАНОВЛЕНИЯ И РАЗВИТИЯ
В СТАВРОПОЛЬСКОМ КРАЕ…………………………….
50
2.1. Анализ особенностей функционирования субъектов
финансового мониторинга в Ставропольском крае……….
50
2.2. Надзор за совершением кредитными организациями
операций по выдаче наличных денежных средств……….
58
3. СОВЕРШЕНСТВОВАНИЕ ДЕЯТЕЛЬНОСТИ БАНКА
ПУТЕМ, И ФИНАНСИРОВАНИЮ ТЕРРОРИЗМА……..
74
3.1. Прогнозирование объемов снятия наличных денежных
в области финансового мониторинга………………….
74
3.2. Комплекс мер по противодействию «обналичива-
операций в кредитных организациях………………………
90
Заключение………………………………………………….
106
Использованные источники……………………………...
111
Приложения…………………………………………………
127
МЕХАНИЗМА ФИНАНСОВОГО МОНИТОРИНГА
банковской системе: их функциональная роль и взаимо-
СИСТЕМЫ ФИНАНСОВОГО МОНИТОРИНГА
РОССИИ И КРЕДИТНЫХ ОРГАНИЗАЦИЙ В ОБЛАСТИ
ПРОТИВОДЕЙСТВИЯ ЛЕГАЛИЗАЦИИ (ОТМЫВАНИЮ) ДОХОДОВ, ПОЛУЧЕННЫХ ПРЕСТУПНЫМ
средств со счетов клиентов как превентивное направление в
деятельности надзорного органа и кредитных организаций
18
нию» денежных средств и пресечению сомнительных
129
Научное издание
ницына Наталья Николаевна
Ку
Нагорных Ирина Александровна
РАЗВИТИЕ МЕХАНИЗМА
ФИНАНСОВОГО
МОНИТОРИНГА
В БАНКОВСКОЙ СИСТЕМЕ
МОНОГРАФИЯ
Редактор, технический редактор Н. Б. Копнина
Компьютерная верстка И. А. Басараба
___________________________________________________
__
По
дписано в печать 06.05.2015
Формат 60х84 1/16 Усл. п. л. 7,64 Уч.-изд. л. 6,72
Бумага офсетная Заказ 11 Тираж 500 экз.
______________________________________________________
Отпечатано в издательско-полиграфическом комплексе
ФГАОУ ВПО «Северо-Кавказский федеральный университет»
355029 г. Ставрополь, пр-т Кулакова, 2
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]