[WSC20] Digital Contact Tracing Simulations

Staff Picks
, , ,
1

spread.png
spread.png1870×277 54.6 KB

Open in Wolfram Cloud ↗
6 Likes
2

Dear Mrs Megha Narayanan,

Thank you for your excellent work. I downloaded your code, but I get an error message every time I verify it. Can you help me out here?

Error:
$RecursionLimit: Recursion depth of 1024 exceeded during evaluation of Flatten[mList]

If[RandomReal[{0, recoveryTime}] < mProb, 
    iCounter = KeyDrop[iCounter, #]; mList = Append[mList, #], 
    Nothing] & /@ Keys[iCounter];
mList = Flatten[mList];

Thanks and best regards,… Jos

3

Amazing work you did there! Very well presented.

4

news-congrads-kkluyshnik-02-04-19.jpg – you have earned Featured Contributor Badge 2015-11-02_10-07-11.png
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!

5

Dear Mr. Klaps,
This part of the code will run as part of the step[] function, but not on its own as it requires variables that exist only in the function. If you run the full step[] function (found under the subheading “Full definition of step[]” it should execute as intended.
Best,
Megha