(Subscript[(OverTilde[I]), n,y])=-n Δ (Subscript[P, n])(1/(Subscript[t, e]))+(n-1)Δ (Subscript[P, n])((Subscript[t, f])/(Subscript[t, e]))+y Δ (Subscript[P, n])((Subscript[t, r])/(Subscript[t, e]))+Δ (Subscript[P, n])((Subscript[t, 0])/(Subscript[t, e]))+(Subscript[P, n+1])