Uwe=[1.1012 1.8270 2.2101 2.1918 1.7432 1.0110 0.5738 1.0322 1.5370 1.8151 1.7836 1.4869 1.0727 0.9404 1.1115 1.4143 1.5884 1.5685 1.3825 1.1513 1.0684 1.1795 1.3549 1.4607];
fi =[51 29 9.5 -10 -28 -38 -0.5 27 19 5.5 -8 -19.5 -20 -2 13 11 2.5 -6 -12 -10.5 -2 6 5.5 0.5];
Eg =[2.3463 2.4583 2.5333 2.5302 2.4511 2.3607 2.3348  2.3773 2.4423 2.4867 2.4815 2.4363 2.3870 2.3728  2.3966  2.4343 2.4587 2.4554 2.4294 2.4024 2.3944 2.4075 2.4291 2.4430];
 for i=1:24
   Zwe=(Uwe(i)*exp(j*fi(i)*pi/180))/(Eg(i)-Uwe(i)*exp(j*fi(i)*pi/180));
   abs_zwe=abs(Zwe)

 end