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!
Attachments:
