{((Subscript[corr, R,i])=(Subscript[corr, R,i-1]) (Subscript[corr, B,i])=(Subscript[corr, B,i-1])if   \[LeftBracketingBar](Subscript[d, RG])\[RightBracketingBar]=\[LeftBracketingBar](Subscript[d, BG])\[RightBracketingBar]=0)
{((Subscript[corr, R,i])=(Subscript[corr, R,i-1])                                       (Subscript[corr, B,i])=(Subscript[corr, B,i-1])+μ×sign(-(Subscript[d, BG]))if   \[LeftBracketingBar](Subscript[d, BG])\[RightBracketingBar]≥\[LeftBracketingBar](Subscript[d, RG])\[RightBracketingBar])
{((Subscript[corr, r,i])=(Subscript[corr, R,i-1])+μ×sign(-(Subscript[d, RG])) (Subscript[corr, B,i])=(Subscript[corr, B,i-1])                                     if   \[LeftBracketingBar](Subscript[d, BG])\[RightBracketingBar]<\[LeftBracketingBar](Subscript[d, RG])\[RightBracketingBar])
Where   (Subscript[d, RG])=(OverBar[R])-(OverBar[G])   and   (Subscript[d, BG])=(OverBar[B])-(OverBar[G]).