(if   \[LeftBracketingBar](Subscript[R, n])-(Subscript[R, n+1])\[RightBracketingBar]≤Th  {(0,(Subscript[R, n+1])1,None)[Equation   1]n=1,2,3,4,… )