([Formula   3] (Subscript[r, p])=(((Subscript[N, ti]^2)cos (Subscript[θ, i])-(Sqrt[(Subscript[N, ti]^2)-(sin^2)(Subscript[θ, i])]))/((Subscript[N, ti]^2)cos (Subscript[θ, i])+(Sqrt[(Subscript[N, ti]^2)-(sin^2)(Subscript[θ, i])]))),(Subscript[N, ti])=(Subscript[N, t])/(Subscript[N, i])(7))