(Subscript[f, R])(R,a,p)={((Subscript[f, A]),if   {0≤R≤(Subscript[r, 1])}p,if   {(Subscript[r, 1])<R≤1}   and   {(((1-(Subscript[f, A])))^(N·(1-R)))≤(Subscript[p, thr])}p·(Subscript[c, 4]),if   {(Subscript[r, 1])<R≤1}   and   {(((1-(Subscript[f, A])))^(N·(1-R)))>(Subscript[p, thr])})