Message Boards

19290 Views

5 Replies

22 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Staff Picks Biological Sciences Data Science Medical Sciences Dynamic Interactivity Geometry Graphics and Visualization Wolfram Language Modeling Statistics and Probability Geographic Information System

Epidemic simulation with a polygon container

Posted 5 years ago

MODERATOR NOTE: coronavirus resources & updates: https://wolfr.am/coronavirus

POSTED BY: Francisco Rodríguez

5 Replies

Sort By:

Posted 5 years ago

Very nice simulation, very interesting to play around with. I think in your function createPosition one line should be changed to DeleteDuplicates[ Join[positions, Select[Round@RandomPoint[region, n - Length[positions]], memberq]]]; in stead of DeleteDuplicates[ Join[positions, Select[Round@RandomPoint[region, 200 - Length[positions]], memberq]]];

Very nice simulation, very interesting to play around with.

I think in your function createPosition one line should be changed to

DeleteDuplicates[
           Join[positions, 
            Select[Round@RandomPoint[region, n - Length[positions]], 
             memberq]]];

in stead of

DeleteDuplicates[
           Join[positions, 
            Select[Round@RandomPoint[region, 200 - Length[positions]], 
             memberq]]];

POSTED BY: Martijn Froeling

Posted 5 years ago

Very nice simulation, very interesting to play around with. I think in your function createPosition one line should be changed to DeleteDuplicates[ Join[positions, Select[Round@RandomPoint[region, n - Length[positions]], memberq]]]; in stead of DeleteDuplicates[ Join[positions, Select[Round@RandomPoint[region, 200 - Length[positions]], memberq]]];

Very nice simulation, very interesting to play around with.

I think in your function createPosition one line should be changed to

DeleteDuplicates[
           Join[positions, 
            Select[Round@RandomPoint[region, n - Length[positions]], 
             memberq]]];

in stead of

DeleteDuplicates[
           Join[positions, 
            Select[Round@RandomPoint[region, 200 - Length[positions]], 
             memberq]]];

POSTED BY: Martijn Froeling

Posted 5 years ago

Thanks for reporting it, I will fix it!

POSTED BY: Francisco Rodríguez

Posted 5 years ago

-- you have earned *Featured Contributor Badge* Your exceptional post has been selected for our editorial column *Staff Picks* http://wolfr.am/StaffPicks and Your Profile is now distinguished by a *Featured Contributor Badge* and is displayed on the Featured Contributor Board. Thank you, keep it coming, and consider contributing to the The Notebook Archive!