К разделам сайта: Домой Примеры Теория индексов Банки Физика
Приложение1.
Таблица 1. Итоги деятельности банков Ростовской области на 01.07.04 (тыс. руб.)
Наименование банка |
Факторы |
Капитал Активы Кредиты Депозиты Вклады Прибыль населения. |
|
1. Волгодонский гкб 2. Дон-Тексбанк 3. Донактивбанк 4. Донбанк 5. Донинвест 6. Донкомбанк 7. Донской народный банк 8. Донхлеббанк 9. Земельный КБ 10. Капиталбанк 11. ИБРР-банк 12. Кредит Экспресс 13. МеТраКомБанк 14. Морозовсккомагробанк 15. Рост. универсальный банк 16. РостПромстройбанк 17. Сельмашбанк 18. Стелла-Банк 19. Таганрогбанк 20. Центр-инвест 21. Южный регион 22. Южный региональный банк 23. Южный Торговый Банк |
8340 34387 12520 8290 7290 634 35274 371956 188500 212764 198064 913 105662 361615 186120 38365 28365 2473 55125 575395 208985 186629 166129 7036 237856 1157488 683559 328989 256491 3111 64042 295694 199017 90843 72223 6829 90780 918725 611069 713230 638906 13839 103735 1069543 709324 612284 511942 7772 9015 44781 31043 19684 14127 531 26415 84744 52053 35907 35907 76 14179 55849 30345 20656 17379 677 161368 162928 11849 1 1 154 282247 2797672 1391678 953061 401210 46256 15959 73201 27820 161 161 444 26888 106725 71500 58841 33941 455 200677 2023374 982897 864028 703540 13387 35001 507772 49375 26060 19860 3653 84558 571842 441313 215939 163146 4570 51661 159348 107172 15401 15401 2825 685032 7460423 4691216 3703203 2414785 74988 109262 564500 235970 263036 235625 3471 156950 545699 304918 69051 16551 1425 330653 1638118 987970 724174 495952 30475 |
Таблица 2. Итоги деятельности банков Ростовской области на 01.07.04 (тыс. руб.)
Наименование банка |
Факторы |
Капитал Кредиты Др.активы Вклады Др.депозиты Прибыль населения. |
|
1. Волгодонский гкб 2. Дон-Тексбанк 3. Донактивбанк 4. Донбанк 5. Донинвест 6. Донкомбанк 7. Донской народный банк 8. Донхлеббанк 9. Земельный КБ 10. Капиталбанк 11. ИБРР-банк 12. Кредит Экспресс 13. МеТраКомБанк 14. Морозовсккомагробанк 15. Рост. универсальный банк 16. РостПромстройбанк 17. Сельмашбанк 18. Стелла-Банк 19. Таганрогбанк 20. Центр-инвест 21. Южный регион 22. Южный региональный банк 23. Южный Торговый Банк |
8340 12520 21867 7290 1000 634 35274 188500 183456 198064 14700 913 105662 186120 175495 28365 10000 2473 55125 208985 366410 166129 20500 7036 237856 683559 473929 256491 72498 3111 64042 199017 96677 72223 18620 6829 90780 611069 307656 638906 74324 13839 103735 709324 360219 511942 100342 7772 9015 31043 13738 14127 5557 531 26415 52053 32691 35907 0 76 14179 30345 25504 17379 3277 677 161368 11849 151079 1 0 154 282247 1391678 1405994 401210 551851 46256 15959 27820 45381 161 0 444 26888 71500 35225 33941 24900 455 200677 982897 1040477 703540 160488 13387 35001 49375 458397 19860 6200 3653 84558 441313 130529 163146 52793 4570 51661 107172 52176 15401 0 2825 685032 4691216 2769207 2414785 1288418 74988 109262 235970 328530 235625 27411 3471 156950 304918 240781 16551 52500 1425 330653 987970 650148 495952 228222 30475 |
Таблица 3. Итоги деятельности банков Ростовской области на 01.01.06 (тыс. руб.)
Наименование банка |
Факторы |
Капитал Активы Кредиты Депозиты Вклады Прибыль населения. |
|
1. Волгодонский гкб 2. Дон-Тексбанк 3. Донактивбанк 4. Донбанк 5. Донинвест 6. Донкомбанк 7. Донской народный банк 8. Донхлеббанк 9. Земельный КБ 10. Капиталбанк 11. ИБРР-банк 12. Кредит Экспресс 13. МеТраКомБанк 14. Морозовсккомагробанк 15. Рост. универсальный банк 16. РостПромстройбанк 17. Сельмашбанк 18. Стелла-Банк 19. Таганрогбанк 20. Центр-инвест 21. Южный регион 22. Южный региональный банк 23. Южный Торговый Банк |
8518 49487 19525 14390 11805 1020 39335 447765 238800 259751 259751 1415 112292 664556 339220 74474 74474 9341 72752 778843 398294 371862 333962 15246 273245 1605285 941288 509082 439605 11007 119017 620322 447899 273061 242600 4278 176800 1718558 1152565 1203771 1151970 32143 131948 1574381 924995 957744 878202 15698 9135 46066 16779 12388 12110 301 46143 116076 58796 44853 44853 460 72407 671532 208041 153622 128062 13572 166332 274873 127513 15016 16 7037 295910 2661883 1158421 707935 461632 50170 18289 30975 25362 715 715 1678 27364 207581 144655 145727 104227 506 203712 2095222 1386759 813085 730767 13023 68240 402578 187810 63944 33244 7320 92641 727337 519827 263795 237436 9055 51079 180970 91168 38032 38032 2199 2010119 15751433 10451969 7975957 4627355 501122 124737 654619 392203 312082 312082 15874 162990 561060 288606 179592 34792 7470 347733 1698105 1225831 663324 440731 50807 |
Таблица 4. Итоги деятельности банков Ростовской области на 01.01.06 (тыс. руб.)
Наименование банка |
Факторы |
Капитал Кредиты Др. активы Вклады Др. депозиты Прибыль населения. |
|
1. Волгодонский ГКБ 2. Дон-Тексбанк 3. Донактивбанк 4. Донбанк 5. Донинвест 6. Донкомбанк 7. Донской народный банк 8. Донхлеббанк 9. Земельный КБ 10. Капиталбанк 11. ИБРР-банк 12. Кредит Экспресс 13. МеТраКомБанк 14. Морозовсккомагробанк 15. Рост. универсальный банк 16. РостПромстройбанк 17. Сельмашбанк 18. Стелла-Банк 19. Таганрогбанк 20. Центр-инвест 21. Южный регион 22. Южный региональный банк 23. Южный Торговый Банк |
8518 19525 29962 11805 2585 1020 39335 238800 208965 259751 0 1415 112292 339220 325336 74474 0 9341 72752 398294 380549 333962 37900 15246 273245 941288 663997 439605 69477 11007 119017 447899 172423 242600 30461 4278 176800 1152565 565993 1151970 51801 32143 131948 924995 649386 878202 79542 15698 9135 16779 29287 12110 278 301 46143 58796 57280 44853 0 460 72407 208041 463491 128062 25560 13572 166332 127513 147360 16 15000 7037 295910 1158421 1503462 461632 246303 50170 18289 25362 5613 715 0 1678 27364 144655 62926 104227 41500 506 203712 1386759 708463 730767 82318 13023 68240 187810 214768 33244 30700 7320 92641 519827 207510 237436 26359 9055 51079 91168 89802 38032 0 2199 2010119 10451969 5299464 4627355 3348602 501122 124737 392203 262416 312082 0 15874 162990 288606 272454 34792 144800 7470 347733 1225831 472274 440731 222593 50807 |
Приложение 2.
Анализ рангов.
A1=[
8340 34387 12520 8290 7290 634
35274 371956 188500 212764 198064 913
105662 361615 186120 38365 28365 2473
55125 575395 208985 186629 166129 7036
237856 1157488 683559 328989 256491 3111
64042 295694 199017 90843 72223 6829
90780 918725 611069 713230 638906 13839
103735 1069543 709324 612284 511942 7772
9015 44781 31043 19684 14127 531
26415 84744 52053 35907 35907 76
14179 55849 30345 20656 17379 677
161368 162928 11849 1 1 154
282247 2797672 1391678 953061 401210 46256
15959 73201 27820 161 161 444
26888 106725 71500 58841 33941 455
200677 2023374 982897 864028 703540 13387
35001 507772 49375 26060 19860 3653
84558 571842 441313 215939 163146 4570
51661 159348 107172 15401 15401 2825
685032 7460423 4691216 3703203 2414785 74988
109262 564500 235970 263036 235625 3471
156950 545699 304918 69051 16551 1425
330653 1638118 987970 724174 495952 30475
];
A2=[
8518 49487 19525 14390 11805 1020
39335 447765 238800 259751 259751 1415
112292 664556 339220 74474 74474 9341
72752 778843 398294 371862 333962 15246
273245 1605285 941288 509082 439605 11007
119017 620322 447899 273061 242600 4278
176800 1718558 1152565 1203771 1151970 32143
131948 1574381 924995 957744 878202 15698
9135 46066 16779 12388 12110 301
46143 116076 58796 44853 44853 460
72407 671532 208041 153622 128062 13572
166332 274873 127513 15016 16 7037
295910 2661883 1158421 707935 461632 50170
18289 30975 25362 715 715 1678
27364 207581 144655 145727 104227 506
203712 2095222 1386759 813085 730767 13023
68240 402578 187810 63944 33244 7320
92641 727337 519827 263795 237436 9055
51079 180970 91168 38032 38032 2199
2010119 15751433 10451969 7975957 4627355 501122
124737 654619 392203 312082 312082 15874
162990 561060 288606 179592 34792 7470
347733 1698105 1225831 663324 440731 50807
];
B(:,:,1)=A1;
B(:,:,2)=A2;
j=1:size(B,2);r=1:size(B,3); p(j,r)=1/size(B,2);p=p';
>> p
p =
0.16667 0.16667 0.16667 0.16667 0.16667 0.16667
0.16667 0.16667 0.16667 0.16667 0.16667 0.16667
>> for r=1:2
q(:,r)=B(:,:,r)*p(r,:)'/sum(B(:,:,r)*p(r,:)');
p(r,:)=q(:,r)'*B(:,:,r)/sum(q(:,r)'*B(:,:,r));
end
>> p
k = 1
p =
0.040361 0.39892 0.24201 0.18949 0.12499 0.0042304
0.048853 0.38263 0.25141 0.19087 0.11462 0.01161
>> q
q =
0.0013606 0.0012274
0.019182 0.01461
0.013758 0.014933
0.022834 0.023095
0.050788 0.044288
0.013873 0.020004
0.056863 0.063696
0.057397 0.052531
0.0022692 0.001134
0.0044762 0.0036464
0.0026481 0.014615
0.006403 0.0069227
0.1118 0.062526
0.0022418 0.00091087
0.0056804 0.0073829
0.09116 0.061432
0.012218 0.0089423
0.028205 0.021679
0.0066983 0.0047045
0.36232 0.48416
0.026881 0.021228
0.020841 0.014466
0.080106 0.051869
k=2
>> for r=1:2
q(:,r)=B(:,:,r)*p(r,:)'/sum(B(:,:,r)*p(r,:)');
p(r,:)=q(:,r)'*B(:,:,r)/sum(q(:,r)'*B(:,:,r));
end
>>
>> p
p =
0.040391 0.39965 0.24204 0.1892 0.12447 0.0042456
0.048893 0.38292 0.25143 0.19071 0.11443 0.011613
>> q
q =
0.0013757 0.0012682
0.018313 0.013975
0.014368 0.016445
0.023796 0.022847
0.051401 0.04523
0.013707 0.019477
0.051536 0.058919
0.055012 0.050287
0.002196 0.0011642
0.0041309 0.0033594
0.0025507 0.015955
0.0052285 0.0066291
0.11917 0.06762
0.0025751 0.00086533
0.0053678 0.007013
0.091729 0.06255
0.015702 0.0098644
0.028096 0.021955
0.0067799 0.0047516
0.36154 0.48325
0.02573 0.020145
0.022002 0.014909
0.077698 0.05152
k=3
>> for r=1:2
q(:,r)=B(:,:,r)*p(r,:)'/sum(B(:,:,r)*p(r,:)');
p(r,:)=q(:,r)'*B(:,:,r)/sum(q(:,r)'*B(:,:,r));
end
>> p
p =
0.040392 0.39966 0.24204 0.1892 0.12447 0.0042456
0.048893 0.38292 0.25143 0.19071 0.11443 0.011613
>> q
k=4
>> for r=1:2
q(:,r)=B(:,:,r)*p(r,:)'/sum(B(:,:,r)*p(r,:)');
p(r,:)=q(:,r)'*B(:,:,r)/sum(q(:,r)'*B(:,:,r));
end
>> p
p =
0.040392 0.39966 0.24204 0.1892 0.12447 0.0042456
0.048893 0.38292 0.25143 0.19071 0.11443 0.011613
>> q
k=5
>> for r=1:2
q(:,r)=B(:,:,r)*p(r,:)'/sum(B(:,:,r)*p(r,:)');
p(r,:)=q(:,r)'*B(:,:,r)/sum(q(:,r)'*B(:,:,r));
end
>> p
p =
0.040392 0.39966 0.24204 0.1892 0.12447 0.0042456
0.048893 0.38292 0.25143 0.19071 0.11443 0.011613
>> q
q =
0.0013761 0.0012683
0.018308 0.013973
0.014375 0.016448
0.023799 0.022846
0.051409 0.045233
0.013708 0.019477
0.05151 0.058908
0.054998 0.050281
0.0021959 0.0011644
0.0041304 0.0033594
0.0025508 0.015957
0.0052336 0.0066312
0.1192 0.067629
0.0025771 0.00086555
0.0053672 0.0070121
0.091726 0.06255
0.015716 0.0098665
0.028096 0.021955
0.0067826 0.0047522
0.36151 0.48324
0.025728 0.020144
0.022013 0.014911
0.077696 0.051522
Таблица 4. Оценка факторов в пространстве l2.
Факторы
|
Системы |
|||||
A1 |
A2 |
|||||
Оценка |
Вероят- ность
|
Ранг |
Оценка |
Вероят- ность |
Ранг |
|
1. Капитал 2. Кредиты 3. Др. активы 4. Вклады населения 5. Др. депозиты 6. Прибыль |
0.12497 0.74766 0.48724 0.38454 0.19984 0.013118 |
0.015619 0.559 0.23741
0.14787 0.039934 0.00017208 |
5 1 2
3 4 6 |
0.15316 0.78759 0.41157
0.3583 0.23905 0.036385 |
0.023459 0.6203 0.16939 0.12838 0.057147 0.0013239 |
5 1 2
3 4 6 |
p2 + p3 = 0.79641 p2 + p3 = 0.78969
Таблица 5. Оценка объектов системы в пространстве l2.
Объекты (банки)
|
Системы |
|||
A1 |
A2 |
|||
Оценка |
Ранг |
Оценка |
Ранг |
|
1. Волгодонский гкб 2. Дон-Тексбанк 3. Донактивбанк 4. Донбанк 5. Донинвест 6. Донкомбанк 7. Донской народный банк 8. Донхлеббанк 9. Земельный КБ 10. Капиталбанк 11. ИБРР-банк 12. Кредит Экспресс 13. МеТраКомБанк 14. Морозовсккомагробанк 15. Рост. универсальный банк 16. РостПромстройбанк 17. Сельмашбанк 18. Стелла-Банк 19. Таганрогбанк 20. Центр-инвест 21. Южный регион 22. Южный региональный банк 23. Южный Торговый Банк |
0.0033249 0.044235 0.034734 0.057504 0.12422 0.033122 0.12446 0.13289 0.0053058 0.0099799 0.0061633 0.012646 0.288 0.0062268 0.012968 0.22163 0.037972 0.067885 0.016388 0.87349 0.062164 0.053188 0.18773 |
23 12 14 10 7 15 6 5 22 19 21 18 2 20 17 3 13 8 16 1 9 11 4 |
0.0025083 0.027635 0.03253 0.045182 0.089458 0.038519 0.1165 0.099441 0.0023028 0.006644 0.031559 0.013114 0.13375 0.0017118 0.013868 0.12371 0.019513 0.043421 0.0093985 0.95571 0.039839 0.02949 0.1019 |
21 15 12 8 7 11 4 6 22 20 13 18 2 23 17 3 16 9 19 1 10 14 5 |
Таблица 5. Оценка объектов системы в пространстве l2.
Объекты (банки)
|
Системы |
|||
A1 |
A2 |
|||
Оценка |
Ранг |
Оценка |
Ранг |
|
1. Волгодонский гкб 2. Дон-Тексбанк 3. Донактивбанк 4. Донбанк 5. Донинвест 6. Донкомбанк 7. Донской народный банк 8. Донхлеббанк 9. Земельный КБ 10. Капиталбанк 11. ИБРР-банк 12. Кредит Экспресс 13. МеТраКомБанк 14. Морозовсккомагробанк 15. Рост. универсальный банк 16. РостПромстройбанк 17. Сельмашбанк 18. Стелла-Банк 19. Таганрогбанк 20. Центр-инвест 21. Южный регион 22. Южный региональный банк 23. Южный Торговый Банк |
0.0034237 0.044642 0.035676 0.058283 0.12587 0.033497 0.12501 0.13312 0.0053455 0.010235 0.0062919 0.0146 0.28819 0.0063972 0.013089 0.22328 0.038913 0.067916 0.01678 0.87186 0.063481 0.054306 0.18968 |
23 12 14 10 7 15 6 5 22 19 21 18 2 20 17 3 13 8 16 1 9 11 4 |
0.0024567 0.027049 0.032271 0.044261 0.089214 0.038868 0.11553 0.097855 0.0022528 0.0067426 0.030307 0.013799 0.13064 0.0018411 0.013864 0.12298 0.019298 0.043535 0.0094427 0.95646 0.039744 0.029841 0.10335 |
21 15 12 8 7 11 4 6 22 20 13 18 2 23 17 3 16 9 19 1 10 14 5
|
Приложение 3.
АНАЛИЗ МАССИВА НА MATLAB
Рассмотрим массив
8340 12520 21867 7290 1000 634
35274 188500 183456 198064 14700 913
105662 186120 175495 28365 10000 2473
55125 208985 366410 166129 20500 7036
237856 683559 473929 256491 72498 3111
64042 199017 96677 72223 18620 6829
90780 611069 307656 638906 74324 13839
103735 709324 360219 511942 100342 7772
9015 31043 13738 14127 5557 531
26415 52053 32691 35907 0 76
14179 30345 25504 17379 3277 677
161368 11849 151079 1 0 154
282247 1391678 1405994 401210 551851 46256
15959 27820 45381 161 0 444
26888 71500 35225 33941 24900 455
200677 982897 1040477 703540 160488 13387
35001 49375 458397 19860 6200 3653
84558 441313 130529 163146 52793 4570
51661 107172 52176 15401 0 2825
685032 4691216 2769207 2414785 1288418 74988
109262 235970 328530 235625 27411 3471
156950 304918 240781 16551 52500 1425
330653 987970 650148 495952 228222 30475
];
1. Оценим его строки и столбцы в пространстве последовательностей, суммируемых с квадратом. Для оценки столбцов составляет квадратную матрицу A'*A, для оценки строк – матрицу A*A' , и находим их собственные значения и собственные векторы
[E,F]=eig(A'*A);
[G,H]=eig(A*A');
2. Вычисляем норму матрицы. Для этого находим наибольшее собственное значение (а они для данных матриц равны) и вычисляем из него квадратный корень
3. h = sqrt(H(size(A,1),size(A,1)));
4. Находим отвечающие наибольшему собственному значению собственные векторы. Эти векторы будут иметь неотрицательные либо неположительные значения. Берём их неотрицательные значения.
u = abs(G(:,size(A,1)));
v = abs(E(:,size(A,2)));
5. Находим оценки строк q и столбцов p в абсолютном выражении
p = h*v;
Например, нормированный вектор относительных оценок строк матрицы в пространстве l2 имеет вид
uL2=G(:,size(G,1));
Вычисления показывают, что оценки рядов различаются на порядки. Поэтому, для того, чтобы при дальнейшем анализе состояния объектов сделать соизмеримыми оценки факторов, разделим все строки матрицы на абсолютную оценку факторов (столбцов).
X(i,:)=A(i,:)./p';
end
Xu(i,:)=X(i,:)/sqrt(X(i,:)*X(i,:)');
end
Нормируем все строки полученной матрицы в пространстве l2 для построения матрицы корреляций строк в этом пространстве
Вектор
uL2 = u
даёт оценки строк матрицы A в пространстве l2. Найдём оценки строк данной матрицы в пространстве l1.
NuL1=[Num uL1];
Ниже представлена матрица относительных оценок и соответствующих ранговых оценок в пространстве l1
SNuL1=sortrows([sortrows(NuL1,2) (size(Num,1)+1)-Num],1);
А здесь представлена аналогичная матрица оценок в пространстве l2
SNuL2=sortrows([sortrows(NuL2,2) (size(Num,1)+1)-Num],1);
Ниже формируется матрица сравнения оценок в пространстве l1 и l2. (Третья строка).
SNuL2_1=SNuL2;
SNuL2_1(:,1)=[];
SNu=[SNuL1 SNuL2_1];
Приведём матрицу A с нумерацией строк.
Num=1:size(Xu,1); Num=Num'; [Num Xu];
[Num A];
и найдём корреляционную матрицу строк
Все направляющие векторов-строк попадают в положительный шаровой сектор единичного шара с центром в некоторой точке a. Концы этих векторов лежат на граничной сфере S единичного радиуса r. Предположим, что вектор z является направляющим вектором оси шарового конуса. Представим его в барицентрических координатах базисных векторов
z = xja j.
Конец данного вектора также лежит на сфере S.
В основу определения оценки расхождения любых двух векторов, выходящих из центра сферы и проходящих через шаровой конус, можно положить множество различных критериев. Например, оценить длиной наименьшей дуги большей окружности сферы, проходящей через данные точки и лежащей между этими точками, оценить хордой, стягивающей концы этой дуги, сделать оценку по площади параллелограмма, натянутого на направляющие данных векторов и т.п.
Пусть dij – длина хорды, стягивающей две точки xi, xj Î S, а aij – длина дуги в радианах. По теореме косинусов
dij2 = D(xi) + D(xj) - 2s(xi)s(xj) cos aij.
Поскольку
D(xk) = s 2(xk) = 1, k = i, j,
то имеем
cos aij = 1 – ½ dij2.
Но, левая часть последнего равенства суть коэффициент ковариации данных векторов, коэффициент сходства. Отсюда заключаем, что чем меньше хорда, тем больше сходство состояний, т.е. сходство и различие – антиномии, связанные некоторым тождеством. Для получения тождества найдём оценку бивектора, построенного на данных векторах
s(bij) = ||bij|| = |xi Ù xj| = s(xi)s(xj) sin aij = sin aij.
Из основного тригонометрического тождества, вводя соответственно меры сходства и различия объектов сферы
m(xi, xj) = cos aij, n(xi, xj) = sin aij,
пр��ходим к метрическому тождеству
m 2(xi, xj) + n 2(xi, xj) = 1
на объектах сферы, а умножая данное тождество на произведение дисперсий
D(x, y) = D(x)D(y),
где x, y произвольные элементы метрического пространства R, приходим к основному метрическому тождеству (которое представим тождеством Пифагора)
s 2(x, y) = m 2(x, y) + n 2(x, y),
в котором внутреннее (скалярное) произведение векторов
m (x, y) = y*x
характеризует меру их сходства, а внешнее произведение
n 2 (x, y) = |x Ù y| 2 = b*b = D(b)
меру их расхождения.
Рассмотрим n-мерное аффинное пространство E. Произвольно выберем в нём некоторую точку a и в окрестности Ea этой точки зафиксируем точки x, xo, y, yo. Пусть в этой окрестности из точки xo существует непрерывный путь в точку x, а из точки yo – в точку y. Тогда можно соответствующие переходы записать в виде
x = xo + x, y = yo + y,
где величины x и y будут элементами некоторого другого присоединённого к Ea пространства R. В пространстве Ea всегда можно ввести топологию, которая обращает присоединённое пространство в векторное пространство. Эта топология индуцируется любой евклидовой метрикой
r(xo, x) = s(x) ³ 0,
где s(x) понимается как статистическая характеристика среднеквадратического отклонения состояния x от состояния xo, а выражение
D(x) = s 2(x)
представляет дисперсию этого отклонения, которая вводится как внутреннее в R произведение
D(x) = x*x,
определяемое на R´R с помощью положительно определённой симметрической билинейной формы и которую символически будем записывать в виде
m(x, y) = y*x.
Таким образом, в основном метрическом тождестве реализуется единство таких диалектических антиномий как сходство и различие, качество и количество, форма и содержание и т.п.
Рассмотрим пространство B бивекторов. Учитывая свойства
xÙx = 0, yÙx = - xÙy
можно определить его размерность
dim B = n(n/2 - 1)
и, если элементами векторного пространства присоединённого к евклидову пространству Ea являются векторы, которые геометрически можно интерпретировать как направленные отрезки прямой, то геометрической интерпретацией элемента пространства B будут ориентированные площади параллелограммов, натянутых на бинарные соответствия (x, y) векторов пространства R. Такое пространство называется симплектическим.
Как и в евклидовом пространстве в симплектическом пространстве мера прождается функцией
D(b) = b*b = (± s(b)) 2,
где s(b) – площадь соответствующего параллелограмма, а знак определяется ориентацией этой площади. Эта мера задаётся выбором евклидовой структуры в окрестности Ea Î E фиксированной точки a Î E на аффинном пространстве E, которое при надлежащем выборе точек a превращается в риманово многообразие. Действительно, при выборе функции m(x, y) имеем
D(b) = D(y) D(x) - m 2(x, y) = D(xÙy) = y*Kx
и можно ввести метрику m(a, b) в пространстве B´B на бивекторах a, b с помощью расширения основного метрического тождества
D(b)D(a) = m 2(a, b) + D(aÙb),
или, в общем случае,
D(aÙb) = b*Ka,
где ядро представления является оператором со следующими конструктивными особенностями
K = K(a, b) = M(b, a) – M(a, b) = M* - M.
Здесь M – некоммутативный билинейный оператор,
M(a, b) = ab*, M* = ba* = M(b, a),
который в квантовой физике [1,2] определяется как произведение символов и несёт селективные свойства. Очевидно, если b = la, оператор M становится самосопряжённым и обращает оператор K в нуль, и наоборот, если K равен нулю, то M* = M.
Поскольку состояния объектов системы (банков) лежат в некотором конусе, а их качества характеризуются единичными векторами, исходящими из вершины этого конуса, то оценку качества можно сделать по положению соответствующего направляющего вектора относительно оси конуса.
Разложим направляющий вектор оси конуса по базисным векторам векторного пространства присоединённого к пространству состояния объектов системы. В барицентрических координатах aj, j Î N, это разложение имеет вид
z = xja j.
Тогда отклонение качества базисного вектора xi от среднего качества системы z можно оценить функцией качественного сходства
m(z, xi) = xi*z = rija j = ri ,
где для коэффициента вариации базисных векторов введено обозначение
rij = m(xj, xi).
Учитывая ограничение
D(z) = a*Ra = 1,
где R = ((rij)) – матрица коэффициентов ковариации, приходим к следующей задаче квадратического программирования
max{ri = m(z, xi): D(z) =1, z ³ 0}.
Предположим, что r = max (ri: i Î N) решение данной задачи. Тогда подстановка
a = ry
сводит предыдущую задачу максимизации к задаче минимизации
min{F = y*Ry: Ry ≤ 1, y ≥ 0},
после решения которой находим
r = 1/(F)1/2, a = ry, z = X*a,
где введено обозначение для матрицы нормированных данных
X = (x1;x2; …, xm)T.
Для решения задачи квадратического программирования воспользуемся функцией MATLAB quadprog .
При постановке задачи
min{F = f *y + ½ y*Hy: Ay £ b, Aegy = beg, lb £ y £ ub}
решение получаем, если воспользуемся программой
[y, F] =quadprog(H, f, A, b, Aeg, beg, lb, ub).
В нашем случае
H =2R, f = 0, A = - R, b = - 1, Aeg = 0, lb = 0
и
[y, F] = quadprog(2*R, [], - R, - b, [], [], lb)
Находим векторы b и lb, матрицу ковариации R = Cu = X*X' и записываем программу
b(j)=1;
lb(j)=0;
end, b=b';lb=lb';
[y,Fval]=quadprog(2*Cu,[],-Cu,-b,[],[],lb);
Находим вектор y c нумерацией координат
[Num y];
максимальное расхождение базисных векторов от оси шарового сектора и вектор барицентрических координат
a=r*y;
z=Xu'*a
Находим вектор ковариации осевого вектора с векторами базиса и нормируем его
au=s/sqrt(s'*s);
[Num au];
Распечатываем вектор ковариации с нумерацией компонент
[Num s];
Видим, что объекты под номерами 7, 12 и 17 наиболее удалены от среднего по системе. Напротив, объекты 1, 5,11, 14, 16, 21 составляют высоко коррелируемую со среднесистемным свойством подгруппу.
[Num Cu(:,17)]
Закодируем именные характеристики объектов
t1='Волгодонский ГКБ';
t2='Дон-Тексбанк';
t3=' Донактивбанк';
t4=' Донбанк';
t5='Донинвест';
t6='Донкомбанк';
t7='Донской народный банк';
t8='Донхлеббанк';
t9='Земельный КБ';
t10='Капиталбанк ';
t11='ИБРР-банк';
t12='Кредит Экспресс';
t13='МеТраКомБанк ';
t14='Морозовсккомагробанк';
t15='Рост. универсальный банк ';
t16='РостПромстройбанк';
t17='Сельмашбанк ';
t18='Стелла-Банк ';
t19='Таганрогбанк';
t20='Центр-инвест';
t21='Южный регион';
t22='Южный региональный банк';
t23='Южный Торговый Банк';
По близости ковариации составляем первую группу
t12,t3,t22,t17,t7
t12 =
Кредит Экспресс
t3 =
Донактивбанк
t22 =
Южный региональный банк
t17 =
Сельмашбанк
t7 =
Донской народный банк
и строим их графики
k=1:6;
plot(k,Xu(12,k),'K',k,Xu(3,k),'R',k,Xu(22,k),'B',k,Xu(17,k),'Y',k,Xu(7,k),'G')
grid on
legend('12','3','22','17','7')
AppendicesarrayRis1
По ковариации составляем вторую группу объектов и строим их графики
k=1:6;
plot(k,Xu(20,k),'K',k,Xu(8,k),'R',k,Xu(13,k),'B',k,Xu(16,k),'Y',k,Xu(18,k),'G',k,Xu(23,k),'M')
grid on
legend('20','8','13','16','18','23')
AppendicesarrayRis2
Отмечаем интересный факт: в системе есть объекты, деятельность которых антисимметрична
plot(k,Xu(8,k),'R',k,Xu(13,k),'M')
grid on
legend('8','13')
AppendicesarrayRis3
Ковариация равна по абсолютной величине, но противоположна по знаку.
Построим разреженную кавариационную матрицу и проведём её визуализацию
for j=1:size(Xu,1)
if Cu(i,j)>0.92
Su(i,j)=1;
else
Su(i,j)=0;
end
end
end
Warning: SYMMMD is obsolete and will be removed in a future version. Use SYMAMD instead.
> In symmmd at 16
p =
Columns 1 through 15
17 15 13 4 7 2 8 16 20 18 10 12 14 22 6
Columns 16 through 23
19 1 3 5 11 21 23 9
1 17
2 15
3 13
4 4
5 7
6 2
7 8
8 16
9 20
10 18
11 10
12 12
13 14
14 22
15 6
16 19
17 1
18 3
19 5
20 11
21 21
22 23
23 9
AppendicesarrayRis4
17
qG2=[p(6) p(7) p(8) p(9) p(10)] qG2 =
2 8 16 20 18
qG3=[p(15) p(16) p(17) p(18) p(19) p(20) p(21) p(22) p(23)]
6 19 1 3 5 11 21 23 9
for j=1:size(Xu,1)
if Cu(i,j)>0.94
Su94(i,j)=1;
else
Su94(i,j)=0;
end
end
end
R94=Su94(p94,p94); spy(R94)
Warning: SYMMMD is obsolete and will be removed in a future version. Use SYMAMD instead.
> In symmmd at 16
AppendicesarrayRis5
Cu1=[Cu(:,p(2)) Cu(:,p(3)) Cu(:,p(4)) Cu(:,p(5)) Cu(:,p(11)) Cu(:,p(12)) Cu(:,p(13)) Cu(:,p(14))]
0.8161 0.8588 0.9157 0.7589 0.8340 0.7809 0.9274 0.8585
0.7739 0.6885 0.8657 0.9056 0.8048 0.4888 0.6689 0.6427
0.8825 0.7140 0.7595 0.6002 0.9344 0.9344 0.9723 0.9826
0.7313 0.8897 1.0000 0.8612 0.7169 0.5325 0.8130 0.6908
0.9476 0.7484 0.8064 0.7283 0.9663 0.8508 0.9225 0.9599
0.8110 0.8825 0.8592 0.8204 0.7734 0.6660 0.8107 0.7871
0.7376 0.7851 0.8612 1.0000 0.6980 0.3686 0.5561 0.5405
0.8443 0.8121 0.8726 0.9682 0.7871 0.4690 0.6550 0.6702
0.9477 0.8766 0.8523 0.8600 0.8825 0.7238 0.8308 0.8738
0.8947 0.5943 0.7169 0.6980 1.0000 0.8862 0.8678 0.9199
0.9168 0.8234 0.8725 0.8052 0.9325 0.8280 0.9154 0.9171
0.7795 0.4739 0.5325 0.3686 0.8862 1.0000 0.8841 0.9328
0.7950 1.0000 0.8897 0.7851 0.5943 0.4739 0.7294 0.6958
0.8051 0.7294 0.8130 0.5561 0.8678 0.8841 1.0000 0.9439
1.0000 0.7950 0.7313 0.7376 0.8947 0.7795 0.8051 0.9173
0.8478 0.8680 0.9565 0.9067 0.8039 0.5591 0.7894 0.7472
0.5107 0.7269 0.8695 0.5124 0.5196 0.4835 0.7964 0.6000
0.9315 0.8415 0.8262 0.8743 0.8703 0.6536 0.7837 0.8384
0.8304 0.7479 0.7563 0.6567 0.8727 0.8595 0.9076 0.9097
0.8746 0.9387 0.8818 0.9082 0.7060 0.4621 0.6815 0.7026
0.8914 0.7843 0.9126 0.8436 0.9289 0.7591 0.8823 0.8593
0.9173 0.6958 0.6908 0.5405 0.9199 0.9328 0.9439 1.0000
0.8898 0.9317 0.8921 0.8612 0.8032 0.6719 0.8191 0.8201
1.0000 0.7950 0.7313 0.7376 0.8947 0.7795 0.8051 0.9173
0.7950 1.0000 0.8897 0.7851 0.5943 0.4739 0.7294 0.6958
0.7313 0.8897 1.0000 0.8612 0.7169 0.5325 0.8130 0.6908
0.7376 0.7851 0.8612 1.0000 0.6980 0.3686 0.5561 0.5405
0.8947 0.5943 0.7169 0.6980 1.0000 0.8862 0.8678 0.9199
0.7795 0.4739 0.5325 0.3686 0.8862 1.0000 0.8841 0.9328
0.8051 0.7294 0.8130 0.5561 0.8678 0.8841 1.0000 0.9439
0.9173 0.6958 0.6908 0.5405 0.9199 0.9328 0.9439 1.0000
for j=1:size(Cu1,1)
if Cu1(i,j)>0.90
Su190(i,j)=1;
else
Su190(i,j)=0;
end
end
end
p190=symmmd(Su190) ;
R190=Su190(p190,p190); spy(R190)
Warning: SYMMMD is obsolete and will be removed in a future version. Use SYMAMD instead.
> In symmmd at 16
AppendicesarrayRis6
for j=1:size(Cu1,1)
if Cu1(i,j)>0.80
Su180(i,j)=1;
else
Su180(i,j)=0;
end
end
end
p180=symmmd(Su180)
R180=Su180(p180,p180); spy(R180)
Warning: SYMMMD is obsolete and will be removed in a future version. Use SYMAMD instead.
> In symmmd at 16
p180 =
2 4 3 1 6 5 8 7
AppendicesarrayRis7
p180G1=[p180(1) p180(2) p180(3)]
2 4 3
p180G2=[p180(4) p180(5) p180(6) p180(7) p180(8)]
p180G2=[p(2) p(12) p(11) p(14) p(13)]
qG1 = [17];
qG2 = [2 8 16 20 18 ];
qG3 = [6 19 1 3 5 11 21 23 9];
r=0.80;
qG4 = [4 7 13];
qG5 = [10 12 14 15 22];
sort([qG1';qG2';qG3';qG4';qG5']);
[Num Cu(:,4) Cu(:,7) Cu(:,13)]
1.0000 0.9157 0.7589 0.8588
2.0000 0.8657 0.9056 0.6885
3.0000 0.7595 0.6002 0.7140
4.0000 1.0000 0.8612 0.8897
5.0000 0.8064 0.7283 0.7484
6.0000 0.8592 0.8204 0.8825
7.0000 0.8612 1.0000 0.7851
8.0000 0.8726 0.9682 0.8121
9.0000 0.8523 0.8600 0.8766
10.0000 0.7169 0.6980 0.5943
11.0000 0.8725 0.8052 0.8234
12.0000 0.5325 0.3686 0.4739
13.0000 0.8897 0.7851 1.0000
14.0000 0.8130 0.5561 0.7294
15.0000 0.7313 0.7376 0.7950
16.0000 0.9565 0.9067 0.8680
17.0000 0.8695 0.5124 0.7269
18.0000 0.8262 0.8743 0.8415
19.0000 0.7563 0.6567 0.7479
20.0000 0.8818 0.9082 0.9387
21.0000 0.9126 0.8436 0.7843
22.0000 0.6908 0.5405 0.6958
23.0000 0.8921 0.8612 0.9317
0.3735 0.4275 0.3872 0.4279 0.4393 0.3895
0.3908 0.4467 0.3481 0.6268 0.2364 0.2789
(Xu(20,:)./Xu(8,:))/sum(Xu(20,:)./Xu(8,:))
0.1373 0.1375 0.1598 0.0980 0.2669 0.2005
0.9524
(Xu(20,:)./Xu(8,:))/sum(Xu(20,:)./Xu(8,:))
(Xu(20,:)./Xu(17,:))/sum(Xu(20,:)./Xu(17,:))
(Xu(20,:)./Xu(12,:))/sum(Xu(20,:)./Xu(12,:))
(Xu(20,:)./Xu(12,:))/sum(Xu(20,:)./Xu(12,:))
0 0 0 0 NaN 0
0.3735 0.4275 0.3872 0.4279 0.4393 0.3895
0.9722 0.0119 0.2335 0.0000 0 0.0088
161368 11849 151079 1 0 154
t1='Волгодонский ГКБ';
t2='Дон-Тексбанк';
t3='Донактивбанк';
t4='Донбанк';
t5='Донинвест';
t6='Донкомбанк';
t7='Донской народный банк';
t8='Донхлеббанк';
t9='Земельный КБ';
t10='Капиталбанк ';
t11='ИБРР-банк';
t12='Кредит Экспресс';
t13='МеТраКомБанк ';
t14='Морозовсккомагробанк';
t15='Рост. универсальный банк ';
t16='РостПромстройбанк';
t17='Сельмашбанк ';
t18='Стелла-Банк ';
t19='Таганрогбанк';
t20='Центр-инвест';
t21='Южный регион';
t22='Южный региональный банк';
t23='Южный Торговый Банк';
r=0.94;
qG1 = [17];
qG2 = [2 8 16 20 18 ];
qG3 = [6 19 1 3 5 11 21 23 9];
r=0.80;
qG4 = [4 7 13];
qG5 = [10 12 14 15 22];
S=char(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18,t19,t20,t21,t22,t23)
Волгодонский ГКБ
Дон-Тексбанк
Донактивбанк
Донбанк
Донинвест
Донкомбанк
Донской народный банк
Донхлеббанк
Земельный КБ
Капиталбанк
ИБРР-банк
Кредит Экспресс
МеТраКомБанк
Морозовсккомагробанк
Рост. универсальный банк
РостПромстройбанк
Сельмашбанк
Стелла-Банк
Таганрогбанк
Центр-инвест
Южный регион
Южный региональный банк
Южный Торговый Банк
qG1 = [17];
qG2 = [2 8 16 20 18 ];
qG3 = [6 19 1 3 5 11 21 23 9];
r=0.80;
qG4 = [4 7 13];
qG5 = [10 12 14 15 22];
S1=char(t17)
S1 =
Сельмашбанк
>> S2=char(t2,t8,t16,t20,t18)
S2 =
Дон-Тексбанк
Донхлеббанк
РостПромстройбанк
Центр-инвест
Стелла-Банк
>> S3=char(t6,t19,t1,t3,t5,t11,t21,t23,t9)
S3 =
Донкомбанк
Таганрогбанк
Волгодонский ГКБ
Донактивбанк
Донинвест
ИБРР-банк
Южный регион
Южный Торговый Банк
Земельный КБ
>> S4=char(t4,t7,t13)
S4 =
Донбанк
Донской народный банк
МеТраКомБанк
>> S5=char(t10,t12,t14,t15,t22)
S5 =
Капиталбанк
Кредит Экспресс
Морозовсккомагробанк
Рост. универсальный банк
Южный региональный банк
>>
T1=char(t1,t9,t10,t11,t12,t14,t15,t19)
T1 =
Волгодонский ГКБ
Земельный КБ
Капиталбанк
ИБРР-банк
Кредит Экспресс
Морозовсккомагробанк
Рост. универсальный банк
Таганрогбанк
>> T2=char(t2,t3,t4,t6,t17,t18,t21,t22)
T2 =
Дон-Тексбанк
Донактивбанк
Донбанк
Донкомбанк
Сельмашбанк
Стелла-Банк
Южный регион
Южный региональный банк
>> T3=char(t5,t7,t8,t13,t16,t23)
T3 =
Донинвест
Донской народный банк
Донхлеббанк
МеТраКомБанк
РостПромстройбанк
Южный Торговый Банк
>> T4=char(t20)
T4 =
Центр-инвест
>>
Расслоение по качеству действия:
S2=char(t2,t8,t16,t20,t18)
S3=char(t6,t19,t1,t3,t5,t11,t21,t23,t9)
S4=char(t4,t7,t13)
S5=char(t10,t12,t14,t15,t22)
Сельмашбанк
S2 =
Дон-Тексбанк
Донхлеббанк
РостПромстройбанк
Центр-инвест
Стелла-Банк
S3 =
Донкомбанк
Таганрогбанк
Волгодонский ГКБ
Донактивбанк
Донинвест
ИБРР-банк
Южный регион
Южный Торговый Банк
Земельный КБ
S4 =
Донбанк
Донской народный банк
МеТраКомБанк
S5 =
Капиталбанк
Кредит Экспресс
Морозовсккомагробанк
Рост. универсальный банк
Южный региональный банк
Расслоение по количественным признакам:
T1=char(t1,t9,t10,t11,t12,t14,t15,t19)
T2=char(t2,t3,t4,t6,t17,t18,t21,t22)
T3=char(t5,t7,t8,t13,t16,t23)
T4=char(t20)
Волгодонский ГКБ
Земельный КБ
Капиталбанк
ИБРР-банк
Кредит Экспресс
Морозовсккомагробанк
Рост. универсальный банк
Таганрогбанк
T2 =
Дон-Тексбанк
Донактивбанк
Донбанк
Донкомбанк
Сельмашбанк
Стелла-Банк
Южный регион
Южный региональный банк
T3 =
Донинвест
Донской народный банк
Донхлеббанк
МеТраКомБанк
РостПромстройбанк
Южный Торговый Банк
T4 =
Центр-инвест
Качественный анализ
k=1:size(Xu,2)
k =
1 2 3 4 5 6
Группа гармоничного обслуживания
Gr_1={t20,t15}
t20,t15
t20 =
Центр-инвест qG=4
t15 =
Рост. универсальный банк qG=1
plot(k,Xu(20,k),'k',k,Xu(15,k),'b')
grid on
legend('Центр-инвест','Рост. универсальный банк')
title('Группа гармоничного обслуживания')
AppendicesarrayRis8
Группа по обслуживанию кредитов и вкладов.
Gr_2 = [t2;t7;t8;t9;t10;t18;t19]
t2,t7,t8,t9,t10,t18,t19
t2 =
Дон-Тексбанк qG=2
t7 =
Донской народный банк qG=3
t8 =
Донхлеббанк qG=3
t9 =
Земельный КБ qG=1
t10 =
Капиталбанк qG=1
t18 =
Стелла-Банк qG=2
t19 =
Таганрогбанк qG=1
plot(k,Xu(2,k),'k',k,Xu(7,k),'m',k,Xu(8,k),'c',k,Xu(9,k),'r',k,Xu(10,k),'b',k,Xu(18,k),'y')
grid on
title('Группа по обслуживанию кредитов и вкладов')
legend('Дон-Текс.','Донской НБ','Донхлеб.','Земельный КБ','Капиталбанк','Стелла-Банк','Таганрогбанк')
Warning: Ignoring extra legend entries.
> In legend at 292
AppendicesarrayRis9
plot(k,Xu(2,k),'k',k,Xu(7,k),'m',k,Xu(8,k),'c')
grid on
legend('t2','t7','t8')
AppendicesarrayRis10
plot(k,Xu(3,k),'k',k,Xu(9,k),'r',k,Xu(10,k),'b',k,Xu(18,k),'y')
grid on
legend('t3','t9','t10','t18','t19')
Warning: Ignoring extra legend entries.
> In legend at 292
AppendicesarrayRis11
Группа обслуживания активов
Gr_3={t1,t3,t4,t12,t14,t16,t17}
t1,t3,t4,t12,t14,t16,t17
t1 =
Волгодонский ГКБ qG=1
t3 =
Донактивбанк qG=2
t4 =
Донбанк qG=2
t12 =
Кредит Экспресс qG=1
t14 =
Морозовсккомагробанк qG=1
t16 =
РостПромстройбанк qG=3
t17 =
Сельмашбанк qG=2
plot(k,Xu(1,k),'k',k,Xu(3,k),'g',k,Xu(4,k),'m',k,Xu(12,k),'c',k,Xu(14,k),'y',k,Xu(16,k),'r',k,Xu(17,k),'b')
grid on
title('Группа обслуживания активов')
legend('Волгодонский','Донактивбанк','Донбанк','Кр.Экспресс','Морозовск КАБ','РостПромстройбанк ','Сельмашбанк')
AppendicesarrayRis12
Группа обслуживания активов и вкладов
Gr_4={t5,t6,t11,t21,t23}
t5,t6,t11,t21,t23
t5 =
Донинвест qG=3
t6 =
Донкомбанк qG=2
t11 =
ИБРР-банк qG=1
t21 =
Южный регион qG=2
t23 =
Южный Торговый Банк qG=3
plot(k,Xu(5,k),'k',k,Xu(6,k),'m',k,Xu(11,k),'c',k,Xu(21,k),'r',k,Xu(23,k))
grid on
title('Группа обслуживания активов и вкладов')
legend('Донинвест','Донкомбанк','ИБРР-банк','Южный регион','Юж.Торг.Банк')
AppendicesarrayRis13
Группа обслуживания активов и депозитов юрлиц
Gr_5= {t13,t22}
t13,t22
t13 =
МеТраКомБанк qG=3
t22 =
Южный региональный банк qG=2
plot(k,Xu(13,k),'k',k,Xu(22,k),'c')
grid on
title('Группа обслуживания активов и депозитов юрлиц')
legend('МеТраКомБанк','Южный региональный банк')
AppendicesarrayRis14
qG1 = [17];
qG2 = [2 8 16 20 18 ];
qG3 = [6 19 1 3 5 11 21 23 9];
r=0.80;
qG4 = [4 7 13];
qG5 = [10 12 14 15 22];
Gr_1={t20,t15}
Gr_2 = [t2;t7;t8;t9;t10;t18;t19]
Gr_3={t1,t3,t4,t12,t14,t16,t17}
Gr_4={t5,t6,t11,t21,t23}
Gr_5= {t13,t22}
Анализ второго массива
8518 19525 29962 11805 2585 1020 39335 238800 208965 259751 0 1415 112292 339220 325336 74474 0 9341 72752 398294 380549 333962 37900 15246 273245 941288 663997 439605 69477 11007 119017 447899 172423 242600 30461 4278 176800 1152565 565993 1151970 51801 32143 131948 924995 649386 878202 79542 15698 9135 16779 29287 12110 278 301 46143 58796 57280 44853 0 460 72407 208041 463491 128062 25560 13572 166332 127513 147360 16 15000 7037 295910 1158421 1503462 461632 246303 50170 18289 25362 5613 715 0 1678 27364 144655 62926 104227 41500 506 203712 1386759 708463 730767 82318 13023 68240 187810 214768 33244 30700 7320 92641 519827 207510 237436 26359 9055 51079 91168 89802 38032 0 2199 2010119 10451969 5299464 4627355 3348602 501122 124737 392203 262416 312082 0 15874 162990 288606 272454 34792 144800 7470 |
347733 1225831 472274 440731 222593 50807
];
1.0e+006 *
0.8786
5.2562
3.4254
2.7034
1.4049
0.0922
X2(i,:)=A2(i,:)./p';
end
for i=1:size(A,1)
Xu2(i,:)=X2(i,:)/sqrt(X2(i,:)*X2(i,:)');
end
b(j)=1;
lb(j)=0;
end, b=b';lb=lb';
[y2,Fval2]=quadprog(2*Cu2,[],-Cu2,-b,[],[],lb);
Warning: Large-scale method does not currently solve this problem formulation,
using medium-scale method instead.
> In quadprog at 264
Exiting: the search direction is close to zero; the problem
is ill-posed. The gradient of the objective function may be
zero or the problem may be badly conditioned.
a2=r2*y2;
z2=Xu2'*a2
0.6428
0.3253
0.2940
0.4376
0.0806
0.4434
0.6839 0.1829 0.5414 0.3330 0.0810 0.2972
0.6428 0.3253 0.2940 0.4376 0.0806 0.4434
1.0000
19.5667
0.6839 0.6428 0.4677 0.4131
0.1829 0.3253 0.0334 0.1058
0.5414 0.2940 0.2931 0.0864
0.3330 0.4376 0.1109 0.1915
0.0810 0.0806 0.0066 0.0065
0.2972 0.4434 0.0883 0.1966
0.9423
p1=z'.^2
p1 =
0.4677 0.0334 0.2931 0.1109 0.0066 0.0883
p2=z2'.^2
p2 =
0.4131 0.1058 0.0864 0.1915 0.0065 0.1966
Сравнение средних массивов A1 и A2.
1.0000
au2=s2/sqrt(s2'*s2);
[Num au au2]
1.0000 0.2260 0.2156
2.0000 0.2001 0.1935
3.0000 0.2166 0.2152
4.0000 0.2177 0.2117
5.0000 0.2204 0.2231
6.0000 0.2061 0.2235
7.0000 0.1861 0.2108
8.0000 0.1982 0.2087
9.0000 0.2153 0.2111
10.0000 0.2112 0.2027
11.0000 0.2274 0.1972
12.0000 0.1861 0.1938
13.0000 0.1920 0.2042
14.0000 0.2181 0.1935
15.0000 0.2030 0.1935
16.0000 0.2177 0.2164
17.0000 0.1861 0.2091
18.0000 0.2053 0.2255
19.0000 0.2073 0.2168
20.0000 0.1956 0.1935
21.0000 0.2301 0.2235
22.0000 0.2061 0.1960
23.0000 0.2143 0.2106
0.9978
plot(n, au,'c',Num,au2,'k')
grid on
title('Графики среднего А1 и А2')
legend('A1','A2')
AppendicesarrayRis15
1.0000 0.9668 0.9357
2.0000 0.8563 0.8400
3.0000 0.9268 0.9339
4.0000 0.9315 0.9189
5.0000 0.9431 0.9683
6.0000 0.8819 0.9703
7.0000 0.7961 0.9151
8.0000 0.8482 0.9058
9.0000 0.9211 0.9164
10.0000 0.9037 0.8800
11.0000 0.9729 0.8558
12.0000 0.7961 0.8414
13.0000 0.8214 0.8865
14.0000 0.9330 0.8400
15.0000 0.8688 0.8400
16.0000 0.9313 0.9392
17.0000 0.7961 0.9074
18.0000 0.8785 0.9787
19.0000 0.8869 0.9413
20.0000 0.8371 0.8400
21.0000 0.9844 0.9702
22.0000 0.8818 0.8509
23.0000 0.9170 0.9139
t1 =
Волгодонский ГКБ
t18 =
Стелла-Банк
t21 =
Южный регион
k = 1:size(Xu,2);
plot(k,Xu2(1,k),'k',k,Xu2(18,k),'c',k,Xu2(21,k),'m')
grid on
title('Наиболее близкие к центру симметрии системы A2')
legend('Волгодонский ГКБ','Стелла-Банк','Южный регион')
AppendicesarrayRis16
Сравнение сферического разброса:
0.7961
ans =
0.8400
Процент сужения конуса
ans =
5.5064
Отклонение оси в градусной мере
acos((s'*s2)/sqrt((s'*s)*(s2'*s2)))*180/pi
3.7667
grid on
title('Графики среднего А1 и А2')
legend('A1','A2')
AppendicesarrayRis17
corr=s'*s2/sqrt((s'*s)*(s2'*s2))
0.9978
0.0657(радиан)
(max) A1 ® (7, 12, 17), A2 ® (2, 14, 15, 20)
(min) A1 ® (1, 11, 21), A2 ® (5, 6, 18, 21)
Сравнительные графики в эталоне A1.
plot(k,Xu(1,k),'k',k,Xu2(1,k),'c')
grid on
title('Волгодонский ГКБ')
legend('A1','A2')
AppendicesarrayRis18
k = 1:size(Xu,2);
Дон-Тексбанк
plot(k,Xu(2,k),'k',k,Xu2(2,k),'c')
grid on
title('Дон-Тексбанк')
legend('A1','A2')
AppendicesarrayRis19
plot(k,Xu(3,k),'k',k,Xu2(3,k),'c')
grid on
title('Донактивбанк')
legend('A1','A2')
AppendicesarrayRis20
plot(k,Xu(4,k),'k',k,Xu2(4,k),'c')
grid on
title('Донбанк')
legend('A1','A2')
AppendicesarrayRis21
plot(k,Xu(5,k),'k',k,Xu2(5,k),'c')
grid on
title('Донинвест')
legend('A1','A2')
AppendicesarrayRis22
plot(k,Xu(6,k),'k',k,Xu2(6,k),'c')
grid on
title('Донкомбанк')
legend('A1','A2')
AppendicesarrayRis23
plot(k,Xu(7,k),'k',k,Xu2(7,k),'c')
grid on
title('Донской народный банк')
legend('A1','A2')
AppendicesarrayRis24
plot(k,Xu(8,k),'k',k,Xu2(8,k),'c')
grid on
title('Донхлеббанк')
legend('A1','A2')
AppendicesarrayRis25
plot(k,Xu(9,k),'k',k,Xu2(9,k),'c')
grid on
title('Земельный КБ')
legend('A1','A2')
AppendicesarrayRis26
plot(k,Xu(10,k),'k',k,Xu2(10,k),'c')
grid on
title('Капиталбанк')
legend('A1','A2')
AppendicesarrayRis27
plot(k,Xu(11,k),'k',k,Xu2(11,k),'c')
grid on
title('ИБРР-банк')
legend('A1','A2')
AppendicesarrayRis28
plot(k,Xu(12,k),'k',k,Xu2(12,k),'c')
grid on
title('Кредит Экспресс')
legend('A1','A2')
AppendicesarrayRis29
plot(k,Xu(13,k),'k',k,Xu2(13,k),'c')
grid on
title('МеТраКомБанк')
legend('A1','A2')
AppendicesarrayRis30
plot(k,Xu(14,k),'k',k,Xu2(14,k),'c')
grid on
title('Морозовсккомагробанк')
legend('A1','A2')
AppendicesarrayRis31
plot(k,Xu(15,k),'k',k,Xu2(15,k),'c')
grid on
title('Рост. универсальный банк')
legend('A1','A2')
AppendicesarrayRis32
plot(k,Xu(16,k),'k',k,Xu2(16,k),'c')
grid on
title('РостПромстройбанк')
legend('A1','A2')
AppendicesarrayRis33
plot(k,Xu(17,k),'k',k,Xu2(17,k),'c')
grid on
title('Сельмашбанк')
legend('A1','A2')
AppendicesarrayRis34
plot(k,Xu(18,k),'k',k,Xu2(18,k),'c')
grid on
title('Стелла-Банк')
legend('A1','A2')
AppendicesarrayRis35
plot(k,Xu(19,k),'k',k,Xu2(19,k),'c')
grid on
title('Таганрогбанк')
legend('A1','A2')
AppendicesarrayRis36
plot(k,Xu(20,k),'k',k,Xu2(20,k),'c')
grid on
title('Центр-инвест')
legend('A1','A2')
AppendicesarrayRis37
plot(k,Xu(21,k),'k',k,Xu2(21,k),'c')
grid on
title('Южный регион')
legend('A1','A2')
AppendicesarrayRis38
plot(k,Xu(22,k),'k',k,Xu2(22,k),'c')
grid on
title('Южный региональный банк')
legend('A1','A2')
AppendicesarrayRis39
plot(k,Xu(23,k),'k',k,Xu2(23,k),'c')
grid on
title('Южный Торговый Банк')
legend('A1','A2')
AppendicesarrayRis40
Некоторый дополнительный анализ
[G2,H2]=eig(A2*A2');
h2= sqrt(H(size(A2,1),size(A2,1)));
u2 = abs(G2(:,size(A2,1)));
v2= abs(E2(:,size(A2,2)));
q2= h2*u2;
p2 = h2*v2;
0.1250 0.7477 0.4872 0.3845 0.1998 0.0131
0.1532 0.7876 0.4116 0.3583 0.2391 0.0364
0.5449
0.1044
5.9799(град.)
1.0000 0.0034 0.0025
2.0000 0.0446 0.0270
3.0000 0.0357 0.0323
4.0000 0.0583 0.0443
5.0000 0.1259 0.0892
6.0000 0.0335 0.0389
7.0000 0.1250 0.1155
8.0000 0.1331 0.0979
9.0000 0.0053 0.0023
10.0000 0.0102 0.0067
11.0000 0.0063 0.0303
12.0000 0.0146 0.0138
13.0000 0.2882 0.1306
14.0000 0.0064 0.0018
15.0000 0.0131 0.0139
16.0000 0.2233 0.1230
17.0000 0.0389 0.0193
18.0000 0.0679 0.0435
19.0000 0.0168 0.0094
20.0000 0.8719 0.9565
21.0000 0.0635 0.0397
22.0000 0.0543 0.0298
23.0000 0.1897 0.1034
0.5449
0.5635
13.5331
7.0302e+006
h2 =
7.0302e+006
||A1||=||A2||= 7.0302e+006
1.0000 0.0034 0.0025
2.0000 0.0446 0.0270
3.0000 0.0357 0.0323
4.0000 0.0583 0.0443
5.0000 0.1259 0.0892
6.0000 0.0335 0.0389
7.0000 0.1250 0.1155
8.0000 0.1331 0.0979
9.0000 0.0053 0.0023
10.0000 0.0102 0.0067
11.0000 0.0063 0.0303
12.0000 0.0146 0.0138
13.0000 0.2882 0.1306
14.0000 0.0064 0.0018
15.0000 0.0131 0.0139
16.0000 0.2233 0.1230
17.0000 0.0389 0.0193
18.0000 0.0679 0.0435
19.0000 0.0168 0.0094
21.0000 0.0635 0.0397
22.0000 0.0543 0.0298
23.0000 0.1897 0.1034 ]
;
b = max(H(:,2));
c = min(H(:,3));
d = max(H(:,3));
p1=a;
p2=0.01;
p3=0.01;
p4=0.15;
p5=b;
q1=c;
q2=0.001;
q3=0.0029;
q4=0.01;
q5=d;
G=H;
P=H;
G1=[0 0 0];
G2=[0 0 0];
G3=[0 0 0];
G4=[0 0 0];
P1=[0 0 0];
P2=[0 0 0];
P3=[0 0 0];
P4=[0 0 0];
for m = 1:size(G,1)
if G(m,2) >= p1 & G(m,2) < p2
G1 = [G1; G(m, :)];
elseif G(m,2)>= p2 & G(m,2) <p3
G2 = [G2; G(m, :)];
elseif G(m,2) >= p3 & G(m,2) <= p4
G3 = [G3; G(m, :)];
elseif G(m,2) >= p4 & G(m,2) <= p5
G4 = [G4; G(m, :)];
end
end
G1(1,:)=[];
G2(1,:)=[];
G3(1,:)=[];
G4(1,:)=[];
for m = 1:size(P,1)
if P(m,3) >= q1 & P(m,3) < q2
P1 = [P1; P(m, :)];
elseif P(m,3)>= q2 & P(m,3) <q3
P2 = [P2; P(m, :)];
elseif P(m,3) >= q3 & P(m,3) <= q4
P3 = [P3; P(m, :)];
elseif P(m,3) >= q4 & P(m,3) <= q5
P4 = [P4; P(m, :)];
end
end
P1(1,:)=[];
P2(1,:)=[];
P3(1,:)=[];
P4(1,:)=[];
1.0000 0.0034 0.0025
9.0000 0.0053 0.0023
11.0000 0.0063 0.0303
14.0000 0.0064 0.0018
G2 =
Empty matrix: 0-by-3
G3 =
2.0000 0.0446 0.0270
3.0000 0.0357 0.0323
4.0000 0.0583 0.0443
5.0000 0.1259 0.0892
6.0000 0.0335 0.0389
7.0000 0.1250 0.1155
8.0000 0.1331 0.0979
10.0000 0.0102 0.0067
12.0000 0.0146 0.0138
15.0000 0.0131 0.0139
17.0000 0.0389 0.0193
18.0000 0.0679 0.0435
19.0000 0.0168 0.0094
21.0000 0.0635 0.0397
22.0000 0.0543 0.0298
G4 =
13.0000 0.2882 0.1306
16.0000 0.2233 0.1230
23.0000 0.1897 0.1034
1.0000 0.0034 0.0025
9.0000 0.0053 0.0023
14.0000 0.0064 0.0018
P2 =
2.0000 0.0446 0.0270
3.0000 0.0357 0.0323
4.0000 0.0583 0.0443
6.0000 0.0335 0.0389
10.0000 0.0102 0.0067
11.0000 0.0063 0.0303
12.0000 0.0146 0.0138
15.0000 0.0131 0.0139
17.0000 0.0389 0.0193
18.0000 0.0679 0.0435
19.0000 0.0168 0.0094
21.0000 0.0635 0.0397
22.0000 0.0543 0.0298
P3 =
Empty matrix: 0-by-3
P4 =
5.0000 0.1259 0.0892
7.0000 0.1250 0.1155
8.0000 0.1331 0.0979
13.0000 0.2882 0.1306
16.0000 0.2233 0.1230
23.0000 0.1897 0.1034
0.0034
p2 =
0.0100
p3 =
0.0100
p4 =
0.1500
0.0018
q2 =
1.0000e-003
q3 =
0.0029
q4 =
0.0100
0.6839
0.1829
0.5414
0.3330
0.0810
0.2972
z2 =
0.6428
0.3253
0.2940
0.4376
0.0806
0.4434
0.9668 0.9357
0.8563 0.8400
0.9268 0.9339
0.9315 0.9189
0.9431 0.9683
0.8819 0.9703
0.7961 0.9151
0.8482 0.9058
0.9211 0.9164
0.9037 0.8800
0.9729 0.8558
0.7961 0.8414
0.8214 0.8865
0.9330 0.8400
0.8688 0.8400
0.9313 0.9392
0.7961 0.9074
0.8785 0.9787
0.8869 0.9413
0.8371 0.8400
0.9844 0.9702
0.8818 0.8509
0.9170 0.9139
>> [s s2]
ans =
0.9668 0.9357
0.8563 0.8400
0.9268 0.9339
0.9315 0.9189
0.9431 0.9683
0.8819 0.9703
0.7961 0.9151
0.8482 0.9058
0.9211 0.9164
0.9037 0.8800
0.9729 0.8558
0.7961 0.8414
0.8214 0.8865
0.9330 0.8400
0.8688 0.8400
0.9313 0.9392
0.7961 0.9074
0.8785 0.9787
0.8869 0.9413
0.8371 0.8400
0.9844 0.9702
0.8818 0.8509
0.9170 0.9139
>> format bank
>> [s s2]
ans =
0.97 0.94
0.86 0.84
0.93 0.93
0.93 0.92
0.94 0.97
0.88 0.97
0.80 0.92
0.85 0.91
0.92 0.92
0.90 0.88
0.97 0.86
0.80 0.84
0.82 0.89
0.93 0.84
0.87 0.84
0.93 0.94
0.80 0.91
0.88 0.98
0.89 0.94
0.84 0.84
0.98 0.97
0.88 0.85
0.92 0.91
>>
[Num s s2]
1.00 0.97 0.94 2
2.00 0.86 0.84 4
3.00 0.93 0.93 2
4.00 0.93 0.92 2
5.00 0.94 0.97 1
6.00 0.88 0.97 1
7.00 0.80 0.92 2
8.00 0.85 0.91 3
9.00 0.92 0.92 2
10.00 0.90 0.88 4
11.00 0.97 0.86 4
12.00 0.80 0.84 4
13.00 0.82 0.89 3
14.00 0.93 0.84 4
15.00 0.87 0.84 4
16.00 0.93 0.94 2
17.00 0.80 0.91 3
18.00 0.88 0.98 1
19.00 0.89 0.94 2
20.00 0.84 0.84 4
21.00 0.98 0.97 1
22.00 0.88 0.85 4
23.00 0.92 0.91 3
format bank
[Num s s2]
A2:
[.84, .88) {2,10,11,12,14,15,20,22} .86 .43
[.88,.92) {8,13,17,23} .90 .45
[.92,.97) {1,3,4,7,9,16,19} .94 .47
[.97,1.00] {5,6,18,21} .98 .49
.86
.90
.94
.98]
pw=1-w.^2
0.86
0.90
0.94
0.98
pw =
0.26
0.19
0.12
0.04
0.71 0.96 0.77 0.94 0.99 0.63
0.88 0.88 0.78 0.47 1.00 0.99
0.60 0.90 0.78 0.98 1.00 0.75
0.90 0.92 0.82 0.78 0.99 0.60
0.54 0.85 0.82 0.87 0.99 0.93
0.53 0.81 0.93 0.79 0.99 0.94
0.90 0.89 0.94 0.57 1.00 0.71
0.90 0.86 0.84 0.54 0.99 0.87
0.51 0.95 0.67 0.91 1.00 0.95
0.20 0.96 0.92 0.92 1.00 0.99
0.87 0.97 0.64 0.96 0.99 0.57
0.19 0.99 0.96 1.00 1.00 0.87
0.84 0.93 0.73 0.96 0.96 0.58
0.45 0.97 1.00 1.00 1.00 0.58
0.78 0.83 0.92 0.67 0.80 0.99
0.80 0.73 0.84 0.72 0.99 0.92
0.67 0.93 0.78 0.99 0.97 0.65
0.74 0.77 0.91 0.82 0.99 0.77
0.34 0.94 0.87 0.96 1.00 0.89
0.89 0.92 0.95 0.94 0.89 0.41
0.73 0.93 0.92 0.82 1.00 0.60
0.44 0.95 0.90 1.00 0.83 0.89
0.73 0.91 0.97 0.95 0.96 0.48
mG1=[5 6 18 21];
for i=1:size(mG1,2)
for j=1:size(mG1,2)
pCu2G1(i,j)=pCu2(mG1(i),mG1(j));
end
end
pCu2G1
5 0.00 0.04 0.10 0.20
6 0.04 0.00 0.09 0.21
18 0.10 0.09 0 0.07
21 0.20 0.21 0.07 0.00
for i=1:size(mG2,2)
for j=1:size(mG2,2)
pCu2G2(i,j)=pCu2(mG2(i),mG2(j));
end
end
pCu2G2
0 0.06 0.11 0.28 0.19 0.28 0.17
0.06 0 0.23 0.38 0.13 0.27 0.08
0.11 0.23 0 0.08 0.35 0.19 0.38
0.28 0.38 0.08 -0.00 0.44 0.16 0.46
0.19 0.13 0.35 0.44 -0.00 0.23 0.08
0.28 0.27 0.19 0.16 0.23 -0.00 0.30
0.17 0.08 0.38 0.46 0.08 0.30 -0.00
for i=1:size(mG3,2)
for j=1:size(mG3,2)
pCu2G3(i,j)=pCu2(mG3(i),mG3(j));
end
end
pCu2G3
0.00 0.32 0.43 0.40
0.32 -0.00 0.05 0.13
0.43 0.05 -0.00 0.12
0.40 0.13 0.12 0
for i=1:size(mG4,2)
for j=1:size(mG4,2)
pCu2G4(i,j)=pCu2(mG4(i),mG4(j));
end
end
pCu2G4
0.00 0.48 0.52 0.77 0.82 0.26 0.67 0.69
0.48 0 0.58 0.16 0.41 0.45 0.71 0.28
0.52 0.58 0.00 0.49 0.42 0.62 0.22 0.42
0.77 0.16 0.49 0.00 0.13 0.67 0.56 0.18
0.82 0.41 0.42 0.13 0 0.76 0.36 0.32
0.26 0.45 0.62 0.67 0.76 0.00 0.54 0.40
0.67 0.71 0.22 0.56 0.36 0.54 0 0.39
0.69 0.28 0.42 0.18 0.32 0.40 0.39 0.00
[Num 1-Cu2(:,5).^2]
1.00 0.18
2.00 0.27
3.00 0.12
4.00 0.27
5.00 0.00
6.00 0.04
7.00 0.31
8.00 0.23
9.00 0.07
10.00 0.15
11.00 0.32
12.00 0.29
13.00 0.27
14.00 0.41
15.00 0.24
16.00 0.09
17.00 0.20
18.00 0.10
19.00 0.08
20.00 0.44
21.00 0.20
22.00 0.22
23.00 0.31