СОЦИАЛЬНАЯ ФИЗИКА

К разделам сайта:          Домой        Примеры       Теория индексов      Банки      Физика

   к основам нерелятивистской квантовой экономики      

 

Приложение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

Рассмотрим массив

A=[

     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 в абсолютном выражении

q = h*u; 

p = h*v; 

Например, нормированный вектор относительных оценок строк матрицы в пространстве l2 имеет вид

 

uL2=G(:,size(G,1));  

 

Вычисления показывают, что оценки рядов различаются на порядки. Поэтому, для того, чтобы при дальнейшем анализе состояния объектов сделать соизмеримыми оценки факторов, разделим все строки матрицы на абсолютную оценку факторов (столбцов). 

for i=1:size(A,1)

       X(i,:)=A(i,:)./p';

   end 

for i=1:size(A,1)

       Xu(i,:)=X(i,:)/sqrt(X(i,:)*X(i,:)');

   end 

 

 Нормируем все строки полученной матрицы в пространстве l2 для построения матрицы корреляций строк в этом пространстве

Вектор

uL2 = u

даёт оценки строк матрицы A в пространстве l2. Найдём оценки строк данной матрицы в пространстве l1.

Num =(1:size(X,1))';  

uL1=(sum(X')/sum(sum(X')))';  

 

   NuL1=[Num uL1];  

 

 Ниже представлена матрица относительных оценок и соответствующих ранговых оценок в пространстве l1

 SNuL1=sortrows([sortrows(NuL1,2) (size(Num,1)+1)-Num],1);  

 

А здесь представлена аналогичная матрица оценок в пространстве l2

 

   NuL2=[Num uL2]; 

 

   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];  

и найдём корреляционную матрицу строк

 

Cu = Xu*Xu'; 

Все направляющие векторов-строк попадают в положительный шаровой  сектор единичного шара с центром в некоторой точке 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: Ry1, y0},

после решения которой находим

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  и записываем программу

 for j=1:size(Cu,1)

       b(j)=1;

       lb(j)=0;

   end, b=b';lb=lb';

 

 

 [y,Fval]=quadprog(2*Cu,[],-Cu,-b,[],[],lb); 

 

 

Находим вектор y c нумерацией координат

 

[Num  y];  

 

максимальное расхождение базисных векторов от оси шарового сектора и вектор барицентрических координат

 

r=1/sqrt(Fval); 

 

a=r*y;

 

z=Xu'*a  

 

 

Находим вектор ковариации осевого вектора с векторами базиса и нормируем его

 

s = Xu*z;

au=s/sqrt(s'*s);

[Num au];  

 

 Распечатываем вектор ковариации с нумерацией компонент

 

[Num s];  

 

Видим, что объекты под номерами 7, 12 и 17 наиболее удалены от среднего по системе. Напротив, объекты 1, 5,11, 14, 16, 21 составляют высоко коррелируемую со среднесистемным свойством подгруппу.

 

au=s/sqrt(s'*s);au'*au;  

 

[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

Отмечаем интересный факт: в системе есть объекты, деятельность которых антисимметрична

 

k=1:6;

           plot(k,Xu(8,k),'R',k,Xu(13,k),'M')

grid on

legend('8','13') 

 

AppendicesarrayRis3

Ковариация равна по абсолютной величине, но противоположна по знаку.

 

Построим разреженную кавариационную матрицу и проведём её визуализацию

 

 for i=1:size(Xu,1)

       for j=1:size(Xu,1)

          if Cu(i,j)>0.92

             Su(i,j)=1;

          else   

             Su(i,j)=0;

          end

       end

   end  

 

Su  

 

 

p=symmmd(Su)  

 

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  

 

R=Su(p,p); spy(R)  

[Num p']  

 

ans =

     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

 

qG1=p(1)                        qG1 =

    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)]  

 

qG3 =

     6    19     1     3     5    11    21    23     9  

 

 

 

 

 for i=1:size(Xu,1)

       for j=1:size(Xu,1)

          if Cu(i,j)>0.94

             Su94(i,j)=1;

          else   

             Su94(i,j)=0;

          end

       end

   end 

  

p94=symmmd(Su94)  ;

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))]

Cu1 =

    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  

 

Su1=[Cu1(p(2),:)' Cu1(p(3),:)' Cu1(p(4),:)' Cu1(p(5),:)' Cu1(p(11),:)' Cu1(p(12),:)' Cu1(p(13),:)' Cu1(p(14),:)'];  

Cu1=Su1;  

Cu1  

 

Cu1 =

    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 i=1:size(Cu1,1)

       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 i=1:size(Cu1,1)

       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)]  

 p180G1 =

     2     4     3  

 p180G1=[p(3) p(5) p(4)]  

p180G1 =  13     7     4  

 p180G2=[p180(4) p180(5) p180(6) p180(7) p180(8)]  

p180G2 =   1     6     5     8     7  

p180G2=[p(2) p(12) p(11) p(14) p(13)]  

p180G2 =   15    12    10    22    14  

 

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];  

 

 

sort([qG1';qG2';qG3';qG4';qG5']);  

 

[Num Cu(:,4) Cu(:,7) Cu(:,13)]  

 

ans =

    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  

 

[Xu(20,:); Xu(8,:)]  

 

ans =

    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,:))  

 

ans =

    0.1373    0.1375    0.1598    0.0980    0.2669    0.2005  

Cu(20,8)  

 

ans =

    0.9524  

Cu  

 

(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,:))  

 

ans =

     0     0     0     0   NaN     0  

Xu(20,:)  

 

ans =

    0.3735    0.4275    0.3872    0.4279    0.4393    0.3895  

Xu(12,:)  

 

ans =

    0.9722    0.0119    0.2335    0.0000         0    0.0088  

A(12,:)  

 

ans =

      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)  

 

S =

 

Волгодонский  ГКБ        

Дон-Тексбанк             

Донактивбанк            

Донбанк                 

Донинвест                

Донкомбанк               

Донской народный банк    

Донхлеббанк              

Земельный КБ             

Капиталбанк              

ИБРР-банк                

Кредит Экспресс          

МеТраКомБанк             

Морозовсккомагробанк     

Рост.  универсальный банк

РостПромстройбанк        

Сельмашбанк              

Стелла-Банк              

Таганрогбанк             

Центр-инвест             

Южный регион             

Южный региональный банк  

Южный Торговый Банк      

 

 

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 =

Центр-инвест

>> 

 

 

 

 

Расслоение по качеству действия:

S1=char(t17)

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)  

 

S1 =

Сельмашбанк

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)  

 

T1 =

Волгодонский  ГКБ        

Земельный КБ             

Капиталбанк              

ИБРР-банк                

Кредит Экспресс          

Морозовсккомагробанк     

Рост.  универсальный банк

Таганрогбанк             

 

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}

 

 

Анализ второго массива

 

 

A2 =[

         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

];  

 

 

 

p = h*v  

 

p =

  1.0e+006 *

    0.8786

    5.2562

    3.4254

    2.7034

    1.4049

    0.0922  

 

for i=1:size(A,1)

       X2(i,:)=A2(i,:)./p';

   end 

for i=1:size(A,1)

       Xu2(i,:)=X2(i,:)/sqrt(X2(i,:)*X2(i,:)');

   end 

 

Cu2 = Xu2*Xu2'; 

 

 

 for j=1:size(Cu2,1)

       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.  

 

r2=1/sqrt(Fval2); 

 

a2=r2*y2;

 

z2=Xu2'*a2 

 

z2 =

    0.6428

    0.3253

    0.2940

    0.4376

    0.0806

    0.4434  

 

[z' ; z2']  

 

ans =

    0.6839    0.1829    0.5414    0.3330    0.0810    0.2972

    0.6428    0.3253    0.2940    0.4376    0.0806    0.4434  

 

z'*z  

 

ans =

    1.0000  

180*acos(z'*z2)/pi  

 

ans =

   19.5667  

[z z2 z.*z z2.*z2]  

 

ans =

    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  

z'*z2  

 

ans =

    0.9423  

 

[p1=z'.^2  p2=z2'.^2]  

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.

 

sum(p)  

 

ans =

    1.0000  

 

s2 = Xu2*z2;

au2=s2/sqrt(s2'*s2);

[Num au  au2] 

 

ans =

    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  

 

corr12 = au'*au2  

 

corr12 =

    0.9978  

n=1:size(A,1);

plot(n, au,'c',Num,au2,'k')

grid on

title('Графики среднего А1 и А2')

legend('A1','A2')  

 

AppendicesarrayRis15

[Num s  s2] 

ans =

    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  

 

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

Сравнение  сферического разброса:

min(s),min(s2)  

ans =

    0.7961

ans =

    0.8400  

Процент сужения конуса

((min(s2)-min(s))/min(s))*100  

 

ans =

    5.5064  

Отклонение оси в градусной мере

acos((s'*s2)/sqrt((s'*s)*(s2'*s2)))*180/pi  

 

ans =

    3.7667  

 

 

plot(n, s,'m',Num,s2,'k')

grid on

title('Графики среднего А1 и А2')

legend('A1','A2') 

AppendicesarrayRis17 

corr=s'*s2/sqrt((s'*s)*(s2'*s2))

 corr =

    0.9978  

o=acos(corr)  

o =

    0.0657(радиан)  

 

(max) A1 ® (7, 12, 17),   A2 ® (2,  14,  15,  20)

(min) A1 ® (1, 11, 21),   A2 ® (5, 6, 18, 21)

 

 

Сравнительные графики в эталоне A1.

 

 

k = 1:size(Xu,2);

plot(k,Xu(1,k),'k',k,Xu2(1,k),'c') 

grid on

title('Волгодонский  ГКБ') 

legend('A1','A2') 

 

AppendicesarrayRis18

k = 1:size(Xu,2);

t2  

 

t2 =

Дон-Тексбанк  

 

plot(k,Xu(2,k),'k',k,Xu2(2,k),'c') 

grid on

title('Дон-Тексбанк') 

legend('A1','A2') 

 

AppendicesarrayRis19

k = 1:size(Xu,2);

plot(k,Xu(3,k),'k',k,Xu2(3,k),'c') 

grid on

title('Донактивбанк') 

legend('A1','A2') 

 

AppendicesarrayRis20

k = 1:size(Xu,2);

plot(k,Xu(4,k),'k',k,Xu2(4,k),'c') 

grid on

title('Донбанк') 

legend('A1','A2') 

 

AppendicesarrayRis21

k = 1:size(Xu,2);

plot(k,Xu(5,k),'k',k,Xu2(5,k),'c') 

grid on

title('Донинвест') 

legend('A1','A2') 

 

AppendicesarrayRis22

k = 1:size(Xu,2);

plot(k,Xu(6,k),'k',k,Xu2(6,k),'c') 

grid on

title('Донкомбанк') 

 legend('A1','A2') 

AppendicesarrayRis23

k = 1:size(Xu,2);

plot(k,Xu(7,k),'k',k,Xu2(7,k),'c') 

grid on

title('Донской народный банк') 

 

legend('A1','A2') 

 

AppendicesarrayRis24

k = 1:size(Xu,2);

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

 

Некоторый дополнительный анализ

 

[E2,F2]=eig(A2'*A2); 

[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; 

[v';v2']  

 

ans =

    0.1250    0.7477    0.4872    0.3845    0.1998    0.0131

    0.1532    0.7876    0.4116    0.3583    0.2391    0.0364  

 

cos(v'*v2)  

 

ans =

    0.5449  

 

acos(v'*v2)  

 

ans =

    0.1044  

acos(v'*v2)*180/pi  

 

ans =

    5.9799(град.)  

[Num u u2]  

 

ans =

    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  

 

cos(v'*v2)  

 

ans =

    0.5449  

 

cos(u'*u2)  

 

ans =

    0.5635  

 

acos(u'*u2)*180/pi  

 

ans =

   13.5331  

h,h2  

 

h =

  7.0302e+006

h2 =

  7.0302e+006  

||A1||=||A2||=  7.0302e+006 

 

 

 

 

 

H=[

    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  ]

  ;

 

 

a = min(H(:,2));

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,:)=[];

 

  

G1=G1,G2=G2,G3=G3,G4=G4  

 

G1 =

    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  

 

P1=P1,P2=P2,P3=P3,P4=P4  

 

P1 =

    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  

p1,p2,p3,p4  

 

p1 =

    0.0034

p2 =

    0.0100

p3 =

    0.0100

p4 =

    0.1500  

q1,q2,q3,q4  

 

q1 =

    0.0018

q2 =

  1.0000e-003

q3 =

    0.0029

q4 =

    0.0100  

z,z2  

 

z =

    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  

[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  

>> [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

>>

format bank

[Num s s2]  

 

ans =

          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

 

w=[

.86

.90

 .94

 .98]

pw=1-w.^2  

 

w =

          0.86

          0.90

          0.94

          0.98

pw =

          0.26

          0.19

          0.12

          0.04  

pXu2=1-Xu2.^2;  

 

pXu2  

 

pXu2 =

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  

 

 

pCu2=1-Cu2.^2;

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  

 

pCu2G1 =     5             6            18            21  

    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  

 

 

 

 

mG2=[1 3 4 7 9 16 19];

for i=1:size(mG2,2)

for j=1:size(mG2,2)

pCu2G2(i,j)=pCu2(mG2(i),mG2(j));

end

end

pCu2G2 

 

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  

 

mG3=[8 13 17 23];

for i=1:size(mG3,2)

for j=1:size(mG3,2)

pCu2G3(i,j)=pCu2(mG3(i),mG3(j));

end

end

pCu2G3 

 

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  

 

mG4=[2 10 11 12 14 15 20 22];

for i=1:size(mG4,2)

for j=1:size(mG4,2)

pCu2G4(i,j)=pCu2(mG4(i),mG4(j));

end

end

pCu2G4 

 

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  

 

format bank

 [Num 1-Cu2(:,5).^2]  

 

ans =

          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