(I(θ)={((Subscript[r, a])(θ+(Subscript[θ, 0])),0≤θ≤(Subscript[θ, a])+(π/2)(((Subscript[r, a])(θ+(Subscript[θ, a])+(π/2)+2(Subscript[θ, 0])-cos(θ-(Subscript[θ, a]))))/(1+sin(θ-(Subscript[θ, a])))),(Subscript[θ, a])+(π/2)<θ≤((3π)/2)-(Subscript[θ, a]))(3)                 (Subscript[θ, a])=(tan^(-1))(((Subscript[r, w])/(Subscript[Δ, h])))(4)                (Subscript[θ, 0])=(Sqrt[((Subscript[r, g]^2)/(Subscript[r, a]))-1])-(cos^(-1))((Subscript[r, a])/(Subscript[r, g]))(5))