At the moment I am trying to construct a bifurcation diagram of the function:

X = RandomReal[{0, 1}];

Y = RandomReal[{0, 1}];

S[m_] : Abs[Cos[4*X*Y*\[Pi]*m (1 - m)]/Log[3 - 4*Y*m (1 - m)]];

Table[S[i], {i, 1, 10}]

I've searched the internet for pre-made bifurcation diagrams and found many of the logistic map. However, as the code is quite complicated I am not sure how to edit the code so that it deals with my function instead of the logistic one. Would anyone help me the code to create a bifurcation diagram for the above function?
I have check https://mathematica.stackexchange.com/questions/13277/mathematica-code-for-bifurcation-diagram but it doesn't help me much.

Thanks in advance.