The attached Mathematica notebook is self explanatory. Please, evaluated it and read it.
Also; refer also to a previous notebook attachment located at:
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.