Thanks for helping me, actually I already corrected this error and get the following image,
do you think is well done in Mathematica? Or I could make some modifications to meet the conditions outlined in the web page that I shared.
I attached my new file where I have made some changes, I hope you can see it, even still believe it can be improved. Greetings to all.
Attachments: