clear;
clc;
n=33;
m=32;
Isb=33;
pr=0.00001;
a=1;
k=1;
B1=[1 33 0.0922+0.0470i 0.000;
2 1 0.4930+0.2511i 0.000;
3 2 0.3660+0.1864i 0.000;
4 3 0.3811+0.1941i 0.000;
5 4 0.8190+0.7070i 0.000;
6 5 0.1872+0.6188i 0.000;
7 6 0.7114+0.2351i 0.000;
8 7 1.0300+0.7400i 0.000;
9 8 1.0440+0.7400i 0.000;
10 9 0.1966+0.0650i 0.000;
11 10 0.3744+0.1238i 0.000;
12 11 1.4680+1.1550i 0.000;
13 12 0.5416+0.7129i 0.000;
14 13 0.5910+0.5260i 0.000;
15 14 0.7463+0.5450i 0.000;
16 15 1.2890+1.7210i 0.000;
17 16 0.7320+0.5740i 0.000;
18 1 0.1640+0.1565i 0.000;
19 18 1.5042+1.3554i 0.000;
20 19 0.4095+0.4784i 0.000;
21 20 0.7089+0.9373i 0.000;
22 2 0.4512+0.3083i 0.000;
23 22 0.8980+0.7091i 0.000;