Hello there, could some tell me what is wrong with my code?

I just started using mathematica, and i believe my code is using much more resources than it should.
What is wrong with it?.

Thanks in advance.

File is attached.

Try change PlotJoined by Joined-> True and you have the graphic without warnings

.
comunidad.bmp (312 KB)