([Mathematical   Expression   1] Yi=Yi(1)Ci=(Sqrt[(Cbi^2)+(Cri^2)])(2){(if   Cri>0Hi=arctan[(Cri/Cbi)]·(180/π)elseHi=arctan[(Cri/Cbi)]·(180/π)+360)(3))