% define values of variable:r,x,P,Q,U
r=[1.05 2.82 1.36 1.19 1.79 1.52 1.31 1.85 1.18 0.46 0.82] 
x=[0.42 1.17 0.57 0.83 1.23 1.04 0.89 1.26 0.49 0.21 0.34]
P=[0 10 8.96 56 12.01 14 35.28 10 35.28 8.96 14]
cosfi=0.7
Q=P*tan(acos(cosfi))
U0=10
global U=[10 10 10 10 10 10 10 10 10 10 10]
dPkt=[0 0 0 0 0 0 0 0 0 0 0]
dQkt=[0 0 0 0 0 0 0 0 0 0 0]
Pkt=[0 0 0 0 0 0 0 0 0 0 0]
Qkt=[0 0 0 0 0 0 0 0 0 0 0]