Translated loosely from NetLogo code developed by Dr. Elizabeth Hunter for a class on individual-based modeling.