(Δ(Subscript[S, cal])=((i-Int)/(Subscript[A, ref]))-(Subscript[S, cal]),(Equation   9))