((Subscript[I, c])(T)={((Subscript[I, c 0])(((Subscript[T, c])-T)/((Subscript[T, c])-(Subscript[T, o])))if  T<(Subscript[T, c]),for   T≥(Subscript[T, 0])0if   T≥(Subscript[T, c]))(9))