((Subscript[A, corr])=((i-Int)/((Subscript[S, cal])+ΔS))=((i-Int)/((Subscript[S, cal])(1+ΔS/(Subscript[S, cal])))).(Equation   16))