(Subscript[I, t])=(Subscript[I, par])+2(Subscript[I, per])P=(((Subscript[I, par])-(Subscript[I, per]))/((Subscript[I, par])+(Subscript[I, per])))