((Subscript[r, (Subscript[N, 2])])=-(Subscript[k, R])(((Subscript[p, N 2])(((Subscript[p, (Subscript[H, 2])]^3)/(Subscript[p, (Subscript[NH, 3])]))))^α)+(((Subscript[k, R]^′)(((Subscript[p, (Subscript[NH, 3])]^2)/((((Subscript[p, (Subscript[H, 2])])))^3))))^(1-α))[10])