((Subscript[E, 0])=(Subscript[a, w])(e^(i Ψ))+(Subscript[a, r])(e^(i (Subscript[Φ, r])))=(Subscript[a, 0]^′)(e^(i Ψ'));
(Subscript[a, 0]^′)=(Sqrt[(Subscript[a, w]^2)+(Subscript[a, r]^2)+2 (Subscript[a, w])(Subscript[a, r])cos(Ψ-Φ)]);
Ψ'=(tan^(-1))(((Subscript[a, w])sin Ψ+(Subscript[a, r])sin Φ)/((Subscript[a, w])cos Ψ+(Subscript[a, r])cos Φ))Equations   17)