The attached Mathematica notebook is self explanatory. Please, evaluated it and read it. Also; refer also to a previous notebook attachment located at: http://community.wolfram.com/groups/-/m/t/1078687?p_p_auth=bt3JqQXB Thank you for your help!
Dear @Gilmar Rodriguez-Pierluissi, this should be a comment on the post you linked, not a new post. Both discussions relate to the same content and idea.
