<snapdata remixID="15149989"><project name="U5L2-Simulation" app="Snap! 11.0.8, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAISklEQVR4AeydW2gcVRjH/+fM7uZOmjbRxnqpVo2XilhEBVFri4KCIgqKl4eCinihKqKIL31QvIAvgoqXB4VSUVARqmD1QSgUtE/WWy3RVmOv6TVtaDbZ2Tme2bTJZruTdDO7J2fO/Jfd7JkzO+f7vt/362x3N2yk4oUE5pCABC8koAkMjQB+UQ8MXymgYeA2hlM6qXvfAl5b7+uR2SsFNMvbymh/DwboyuzEvOwhjIyFOppLU5oLxUi2Enjj6wCD+UX4cWA+NvUHRtOkgEZx2xksm9FnPW1CLrw3nKIOaziiLeGYxwSBtx7MoJgfRm97ESsv8ybmTQwooAnKlsfIeAJFfwhS2yCE2WR1SLMBGc1OAhICpuULScjwB2/pJiB0+RtfXYSX723WI7NXCmiWN6NVEKCAFUC4aZYABTTL24ZoVuVAAa1qR/qSoYDp67lVFVNAq9qRvmQoYPp6blXFFNCqdqQvGQqYvp5bVbFRAa2qnMlYQYACWtGG9CZBAdPbeysqp4BWtCG9SVDA9PbeisopoBVtSG8SFNBI7xkkigAFjCLDeSMEKKARzAwSRYACRpHhvBECFNAIZgaJIkABo8hw3ggBCmgEc3qDzFQ5BZyJEPc3lAAFbCheLj4TAQo4EyHubygBCthQvFx8JgKpEHD/MLDniNnvvZsJPPePE0iFgM+uVXjhEzVeMX9aRcBdAU9g3rpHoUUcRk4dwB+75uBbuE/kwbvqBJwX8NvfFPYc78Lg8R58s4VPw9U1mLtZ5wXMegqerlJKhay+zR3qdEb2A+D+d4FN/cWqAHRrqs47M/nEzR5yyKMZeay+NQtezBLwA4V9+0ew/8hI1cDOCyjDb19UPgL4kKWNqhw42SACq94vavJN+GBjK37fqU+HFXGcFzCsN5cVyGXCEW+mCcxrB4QQOK9bIXw6RsVFVmw7ubnuqXase7rTydqqFGXV1H1X56GKCud2FbC4O6VnQKs6krJkrr2oHYXhfsxvE+hsPfVpqOYzYPh27pqvgC3/nWpzytiy3NMkoEJpIh5bs4BF7d3GX8awub/6q5qIOJxOKYEmfdJb89BZWH559XcgahZw9VofSgVY/3MWW3dpG1MKlmWfHoHwPdjblnWgb2F11arPTrP2WOicbMLCLg9H89OcW6dZg7tI4CSBmgW8YcmoPgMCnc0+ejtDG08uxXsSqJ1AzQI+cH2bflXzD3o6gHO7pz6v1x6eR6SdQM0CQn+yoPTLGn2Xdnasvw4EahbQ0+bdff08XLnY7J/1rEOtXMJCAjULGH6c+vxd83HrUv362sKCmFKyCNQsYLLKY7a2E6CAtnfI8fycE3D7gbnoGGPOloBTAvbvB1a9Awwe4/uTsxXC9HHOCBh+JrNt5ygw/Ce27BgzzZHxZknAGQHzPvDdVg+qtQ9f/ZYpfVozSyY8zCABZwTU742joyU8DwIdTXwKNuhQrFDOCNiqPxW875oMCkN/4cnlAkLE4sKDDRFwRsCQV0Z/TKPyA9B34SZvBgjEDeGUgOGnNJmM0Gc/EZcLjzdEwCkBLzkT2PT2CvR28WNCQ/7EDuOUgLFpcAHjBCigceQMWE6AApbT4Ng4AQpoHDkDlhNIroDlVXCcWAIUMLGtcyNxCuhGHxNbBQVMbOvcSJwCutHHxFZBARPbOjcSp4DJ66NTGVNAp9qZvGIoYPJ65lTGFNCpdiavGAqYvJ45lTEFdKqdySuGAiavZ05lXJOATlXOYqwgQAGtaEN6k6CA6e29FZVTQCvakN4kSgIeGwXueFNh79D4NwukFwcrN02gJODx0QBDQ3kcHy2Yjs94KScgR7Rzj3+sEIgmPPOJh2H+7Y8qSnCqUQQkBLCkV0FKWboPv+SnUcG4LglUEpA5CazsK8D3C7hpyRhacpUP4TYJNI6A9LSAfYtaEBzejAt6sgi/4Kdx4bgyCUwloPUbnwj/+Mz4iD9JwByBkoBndACvPHIpzunhl/qYQ89IIYGSgG36/323LFuArlb9iiSc5Y0EThBo9F1JwEYH4fokEEWAAkaR4bwRAhTQCGYGiSJAAaPIcN4IAQpoBDODRBGggFFkOG+EgL0CGimfQeaaAAWc6w6kPD4FdFgANToKHD1SnwqDAMG694Cx+v4hSApYn/bYt4pSKK64GIUbzkc9/nKj2rwRxTVPIvj0w7rWSgFnwKn0v3zs2z3DoyzcPXQYge6uam5GsHsgVoLKL6D42bh4hZ9+AIaPxlqv/GCdYvkmx5UEgpceQ+HGC6AO7KvcZfV2QZ+txJ4BiIN74T+0MlauweFDUN98ptcIIDd8ATWwQ4/rc6WA03EsjCE4pv8PJRQCcwJOl1EN+9TEY+P+iomQWhPp6fX0SkLfl8Z6sw5XvXIdVnF0CX/9p8CGzwFfi3jPdYmqMvOqfsrs7AGyLZBf/hQrd7mgB/KD9UB3L+Tzr0NcsjTWeuUHy/INjicJqAODUC8+isnzyORo8lH2jkRr+3hyQsCbNx9xL8LzoFpaUDobxl2s7HgKWAajfKgODgL6BUhwXh/Q1Abx0Yby3ckZ62fNuiSrBRRNLVCZ+v7SMgWM6E7xrqv1Hh/ev9ugsjlkztZvZ+iZxFyFQOa7P5D9YTugx4h5kdctR/bbX+GtWh1zpamHU8CpPCa3VDAxFhBlT8UT09YPxIJu4Iwzrc6TAka154U3AC8HXHEt5NrvIRYuinok52MQmCJgjHWcOzSz4k6grQNi8YXwrlgGhG9FOFfl3BdEAaN6IPSO8KbveG0cAQoYxVY/5Xovvw/58HNRj+B8HQhQwAiIoqkZ8vZ7IJdeFfEITteDAAWsB0WuMWsC/wMAAP//L0XsiAAAAAZJREFUAwAN7O2eGJeplQAAAABJRU5ErkJggg==</thumbnail><scenes select="1"><scene name="U5L2-Simulation"><notes></notes><hidden></hidden><headers></headers><code></code><blocks><block-definition s="simulate disease, population: %&apos;population input&apos; percent infected: %&apos;percent initially infected input&apos; speed: %&apos;speed input&apos;" type="reporter" category="other"><header></header><code></code><translations></translations><inputs><input type="%n"></input><input type="%n"></input><input type="%n"></input></inputs><script><block s="clear"></block><block s="doDeclareVariables"><list><l>elapsed time</l><l>start time</l></list></block><block s="doSetVar"><l>clones ready?</l><block s="reportBoolean"><l><bool>false</bool></l></block></block><custom-block s="initialize simulation %n %n %n"><block var="population input"/><block var="percent initially infected input"/><block var="speed input"/></custom-block><block s="show"></block><block s="doRepeat"><block var="population input"/><script><block s="createClone"><l><option>myself</option></l></block></script><comment w="136.66666666666666" collapsed="true">Create the clones.</comment></block><block s="hide"></block><block s="doSetVar"><l>start time</l><block s="reportDate"><l><option>time in milliseconds</option></l></block></block><block s="doSetVar"><l>clones ready?</l><block s="reportBoolean"><l><bool>true</bool></l></block></block><block s="doWaitUntil"><block s="reportVariadicEquals"><list><block var="number infected"/><block var="population"/></list></block><comment w="135.33333333333334" collapsed="false">Wait until everyone is&#xD;infected.</comment></block><block s="doSetVar"><l>elapsed time</l><block s="reportQuotient"><block s="reportDifference"><block s="reportDate"><l><option>time in milliseconds</option></l></block><block var="start time"/></block><l>1000</l></block></block><block s="doBroadcast"><l>vanish</l><list></list></block><block s="doReport"><block var="elapsed time"/></block></script></block-definition><block-definition s="average time for disease spread with population size: %&apos;size&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%n"></input></inputs><script><block s="doDeclareVariables"><list><l>a</l></list></block><block s="doRepeat"><l>10</l><script><block s="doChangeVar"><l>a</l><custom-block s="simulate disease, population: %n percent infected: %n speed: %n"><block var="size"/><l>10</l><l>2</l></custom-block></block><block s="goBack"><l>1</l></block></script></block><block s="doReport"><block s="reportQuotient"><block var="a"/><l>10</l></block></block></script><scripts><script x="73" y="188.33333333333303"><block s="doWarp"><script></script></block></script></scripts></block-definition><block-definition s="initialize clone" type="command" category="other"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doIf"><block s="reportVariadicLessThan"><list><block var="number infected"/><block s="reportVariadicProduct"><list><block var="population"/><block s="reportQuotient"><block var="percent initially infected"/><l>100</l></block></list></block></list></block><script><block s="doChangeVar"><l>number infected</l><l>1</l></block><block s="doSetVar"><l>infected?</l><block s="reportBoolean"><l><bool>true</bool></l></block></block><block s="doSwitchToCostume"><l>sick</l></block></script><list></list></block><block s="doGotoObject"><l><option>random position</option></l></block><block s="doFaceTowards"><l><option>random position</option></l></block></script></block-definition><block-definition s="touching infected person?" type="predicate" category="sensing"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doForEach"><l>neighbor</l><block s="reportGet"><l><option>neighbors</option></l></block><script><block s="doIf"><block s="reportVariadicAnd"><list><block s="reportTouchingObject"><block var="neighbor"/></block><block s="reportAskFor"><block var="neighbor"/><block var="infected?"/><list></list></block></list></block><script><block s="doReport"><block s="reportBoolean"><l><bool>true</bool></l></block></block></script><list></list></block></script><comment w="174.66666666666666" collapsed="false">Fill in the blank to check whether&#xD;this clone is touching an infected one.</comment></block><block s="doReport"><block s="reportBoolean"><l><bool>false</bool></l></block></block></script><scripts><script x="240.64160156250006" y="188.8"><block s="reportVariadicEquals"><list><l>2</l><block s="reportAttributeOf"><l><option>costume #</option></l><block var="neighbor"/></block></list></block></script><script x="370.81835937500006" y="218.8"><block s="reportVariadicEquals"><list><l>1</l><block s="getCostumeIdx"></block></list></block></script></scripts></block-definition><block-definition s="initialize simulation %&apos;pop&apos; %&apos;inf&apos; %&apos;sp&apos;" type="command" category="variables"><header></header><code></code><translations></translations><inputs><input type="%n"></input><input type="%n"></input><input type="%n"></input></inputs><script><block s="doSetVar"><l>population</l><block var="pop"/><comment w="216.66666666666666" collapsed="true">Make global so &quot;when I start&quot; can use it.</comment></block><block s="doSetVar"><l>percent initially infected</l><block var="inf"/></block><block s="doSetVar"><l>speed</l><block var="sp"/></block><block s="doSetVar"><l>clones ready?</l><block s="reportBoolean"><l><bool>false</bool></l></block></block><block s="doSetVar"><l>number infected</l><l>0</l></block><block s="doSetVar"><l>infected?</l><block s="reportBoolean"><l><bool>false</bool></l></block></block><block s="doSwitchToCostume"><l>well</l></block><block s="setScale"><l>50</l></block></script></block-definition></blocks><primitives></primitives><stage name="Stage" width="480" height="360" costume="0" color="255,255,255,1" tempo="60" threadsafe="false" penlog="false" volume="100" pan="0" lines="round" ternary="false" hyperops="true" codify="false" inheritance="true" sublistIDs="false" id="203"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAQAElEQVR4AezVC27kNhAEUCP3P3SC/NZeez6SSDWb9YJg1zsjkV2vDdQfH/4jQIAAAQIEbhdQwLeTu5AAAQIECHx8ZBew3wACBAgQIFAkoICL4F1LgAABAtkCCjh3/5ITIECAQKGAAi7EdzUBAgQI5Aoo4NzdZyeXngABAsUCCrh4Aa4nQIAAgUwBBZy5d6mzBaQnQGABAQW8wBKMQIAAAQJ5Ago4b+cSE8gWkJ7AIgIKeJFFGIMAAQIEsgQUcNa+pSVAIFtA+oUEFPBCyzAKAQIECOQIKOCcXUtKgACBbIHF0ivgxRZiHAIECBDIEFDAGXuWkgABAgQWE7i5gBdLbxwCBAgQIFAkoICL4F1LgAABAtkCCvjG/buKAAECBAj8J6CA/5PwNwECBAgQuFFAAd+InX2V9AQIECDwWUABf9bwMwECBAgQuElAAd8E7ZpsAekJECDwu4AC/l3EvwkQIECAwA0CCvgGZFcQyBaQngCBnwQU8E8qPiNAgAABApMFFPBkYMcTIJAtID2BRwIK+JGMzwkQIECAwEQBBTwR19EECBDIFpD+mYACfqbjOwIECBAgMElAAU+CdSwBAgQIZAu8Sq+AXwn5ngABAgQITBBQwBNQHUmAAAECBF4J7F3Ar9L7ngABAgQIFAko4CJ41xIgQIBAtoAC3nf/khEgQIDAwgIKeOHlGI0AAQIE9hVQwPvuNjuZ9AQIEFhcQAEvviDjESBAgMCeAgp4z71KlS0gPQECDQQUcIMlGZEAAQIE9hNQwPvtVCIC2QLSE2gioICbLMqYBAgQILCXgALea5/SECCQLSB9IwEF3GhZRiVAgACBfQQU8D67lIQAAQLZAs3SK+BmCzMuAQIECOwhoID32KMUBAgQINBMYHABN0tvXAIECBAgUCSggIvgXUuAAAEC2QIKeOD+HUWAAAECBN4VUMDvSnmOAAECBAgMFFDAAzGzj5KeAAECBI4IKOAjWp4lQIAAAQKDBBTwIEjHZAtIT4AAgaMCCviomOcJECBAgMAAAQU8ANERBLIFpCdA4IyAAj6j5h0CBAgQIHBRQAFfBPQ6AQLZAtITOCuggM/KeY8AAQIECFwQUMAX8LxKgACBbAHprwgo4Ct63iVAgAABAicFFPBJOK8RIECAQLbA1fQK+Kqg9wkQIECAwAkBBXwCzSsECBAgQOCqQO8Cvpre+wQIECBAoEhAARfBu5YAAQIEsgUUcN/9m5wAAQIEGgso4MbLMzoBAgQI9BVQwH13lz259AQIEGguoICbL9D4BAgQINBTQAH33JupswWkJ0BgAwEFvMESRSBAgACBfgIKuN/OTEwgW0B6ApsIKOBNFikGAQIECPQSUMC99mVaAgSyBaTfSEABb7RMUQgQIECgj4AC7rMrkxIgQCBbYLP0CnizhYpDgAABAj0EFHCPPZmSAAECBDYTOFjAm6UXhwABAgQIFAko4CJ41xIgQIBAtoACPrB/jxIgQIAAgVECCniUpHMIECBAgMABAQV8ACv7UekJECBAYKSAAh6p6SwCBAgQIPCmgAJ+E8pj2QLSEyBAYLSAAh4t6jwCBAgQIPCGgAJ+A8kjBLIFpCdAYIaAAp6h6kwCBAgQIPBCQAG/API1AQLZAtITmCWggGfJOpcAAQIECDwRUMBPcHxFgACBbAHpZwoo4Jm6ziZAgAABAg8EFPADGB8TIECAQLbA7PQKeLaw8wkQIECAwA8CCvgHFB8RIECAAIHZAmsX8Oz0zidAgAABAkUCCrgI3rUECBAgkC2ggNfdv8kIECBAYGMBBbzxckUjQIAAgXUFFPC6u8meTHoCBAhsLqCAN1+weAQIECCwpoACXnMvpsoWkJ4AgQABBRywZBEJECBAYD0BBbzeTkxEIFtAegIhAgo4ZNFiEiBAgMBaAgp4rX2YhgCBbAHpgwQUcNCyRSVAgACBdQQU8Dq7MAkBAgSyBcLSK+CwhYtLgAABAmsIKOA19mAKAgQIEAgT+K2Aw9KLS4AAAQIEigQUcBG8awkQIEAgW0ABf9q/HwkQIECAwF0CCvguafcQIECAAIFPAgr4E0b2j9ITIECAwJ0CCvhObXcRIECAAIF/BRTwvxD+yhaQngABAncLKOC7xd1HgAABAgT+ElDAfyH4n0C2gPQECFQIKOAKdXcSIECAQLyAAo7/FQBAIFtAegJVAgq4St69BAgQIBAtoICj1y88AQLZAtJXCijgSn13EyBAgECsgAKOXb3gBAgQyBaoTq+AqzfgfgIECBCIFFDAkWsXmgABAgSqBWoLuDq9+wkQIECAQJGAAi6Cdy0BAgQIZAso4Lr9u5kAAQIEggUUcPDyRSdAgACBOgEFXGeffbP0BAgQCBdQwOG/AOITIECAQI2AAq5xd2u2gPQECBD4UMB+CQgQIECAQIGAAi5AdyWBaAHhCRD4W0AB/83gDwIECBAgcK+AAr7X220ECGQLSE/gfwEF/D+FHwgQIECAwH0CCvg+azcRIEAgW0D6LwIK+AuHfxAgQIAAgXsEFPA9zm4hQIAAgWyBb+kV8DcSHxAgQIAAgfkCCni+sRsIECBAgMA3gagC/pbeBwQIECBAoEhAARfBu5YAAQIEsgUUcMz+BSVAgACBlQQU8ErbMAsBAgQIxAgo4JhVZweVngABAqsJKODVNmIeAgQIEIgQUMARaxYyW0B6AgRWFFDAK27FTAQIECCwvYAC3n7FAhLIFpCewKoCCnjVzZiLAAECBLYWUMBbr1c4AgSyBaRfWUABr7wdsxEgQIDAtgIKeNvVCkaAAIFsgdXTK+DVN2Q+AgQIENhSQAFvuVahCBAgQGB1gbkFvHp68xEgQIAAgSIBBVwE71oCBAgQyBZQwPP272QCBAgQIPBQQAE/pPEFAQIECBCYJ6CA59lmnyw9AQIECDwVUMBPeXxJgAABAgTmCCjgOa5OzRaQngABAi8FFPBLIg8QIECAAIHxAgp4vKkTCWQLSE+AwFsCCvgtJg8RIECAAIGxAgp4rKfTCBDIFpCewNsCCvhtKg8SIECAAIFxAgp4nKWTCBAgkC0g/SEBBXyIy8MECBAgQGCMgAIe4+gUAgQIEMgWOJxeAR8m8wIBAgQIELguoICvGzqBAAECBAgcFtiqgA+n9wIBAgQIECgSUMBF8K4lQIAAgWwBBbzN/gUhQIAAgU4CCrjTtsxKgAABAtsIKOBtVpkdRHoCBAh0E1DA3TZmXgIECBDYQkABb7FGIbIFpCdAoKOAAu64NTMTIECAQHsBBdx+hQIQyBaQnkBXAQXcdXPmJkCAAIHWAgq49foMT4BAtoD0nQUUcOftmZ0AAQIE2goo4LarMzgBAgSyBbqnV8DdN2h+AgQIEGgpoIBbrs3QBAgQINBd4FoBd09vfgIECBAgUCSggIvgXUuAAAEC2QIK+Pz+vUmAAAECBE4LKODTdF4kQIAAAQLnBRTwebvsN6UnQIAAgUsCCvgSn5cJECBAgMA5AQV8zs1b2QLSEyBA4LKAAr5M6AACBAgQIHBcQAEfN/MGgWwB6QkQGCKggIcwOoQAAQIECBwTUMDHvDxNgEC2gPQEhgko4GGUDiJAgAABAu8LKOD3rTxJgACBbAHphwoo4KGcDiNAgAABAu8JKOD3nDxFgAABAtkCw9Mr4OGkDiRAgAABAq8FFPBrI08QIECAAIHhAq0KeHh6BxIgQIAAgSIBBVwE71oCBAgQyBZQwG32b1ACBAgQ2ElAAe+0TVkIECBAoI2AAm6zquxBpSdAgMBuAgp4t43KQ4AAAQItBBRwizUZMltAegIEdhRQwDtuVSYCBAgQWF5AAS+/IgMSyBaQnsCuAgp4183KRYAAAQJLCyjgpddjOAIEsgWk31lAAe+8XdkIECBAYFkBBbzsagxGgACBbIHd0yvg3TcsHwECBAgsKaCAl1yLoQgQIEBgd4HnBbx7evkIECBAgECRgAIugnctAQIECGQLKODH+/cNAQIECBCYJqCAp9E6mAABAgQIPBZQwI9tsr+RngABAgSmCijgqbwOJ0CAAAECPwso4J9dfJotID0BAgSmCyjg6cQuIECAAAEC3wUU8HcTnxDIFpCeAIFbBBTwLcwuIUCAAAECXwUU8FcP/yJAIFtAegK3CSjg26hdRIAAAQIEfgko4F8WfiJAgEC2gPS3CijgW7ldRoAAAQIE/hFQwP84+JMAAQIEsgVuT6+Abyd3IQECBAgQ+PhQwH4LCBAgQIBAgcBSBVyQ35UECBAgQKBEQAGXsLuUAAECBNIFFPAyvwEGIUCAAIEkAQWctG1ZCRAgQGAZAQW8zCqyB5GeAAECaQIKOG3j8hIgQIDAEgIKeIk1GCJbQHoCBBIFFHDi1mUmQIAAgXIBBVy+AgMQyBaQnkCqgAJO3bzcBAgQIFAqoIBL+V1OgEC2gPTJAgo4efuyEyBAgECZgAIuo3cxAQIEsgXS0yvg9N8A+QkQIECgREABl7C7lAABAgSyBT4+FHD6b4D8BAgQIFAioIBL2F1KgAABAukCyQWcvnv5CRAgQKBQQAEX4ruaAAECBHIFFHDq7uUmQIAAgVIBBVzK73ICBAgQSBVQwKmbz84tPQECBMoFFHD5CgxAgAABAokCCjhx6zJnC0hPgMASAgp4iTUYggABAgTSBBRw2sblJZAtID2BZQQU8DKrMAgBAgQIJAko4KRty0qAQLaA9EsJKOCl1mEYAgQIEEgRUMApm5aTAAEC2QLLpVfAy63EQAQIECCQIKCAE7YsIwECBAgsJ3BrAS+X3kAECBAgQKBIQAEXwbuWAAECBLIFFPBt+3cRAQIECBD4JaCAf1n4iQABAgQI3CaggG+jzr5IegIECBD4KqCAv3r4FwECBAgQuEVAAd/C7JJsAekJECDwXUABfzfxCQECBAgQmC6ggKcTu4BAtoD0BAj8LKCAf3bxKQECBAgQmCqggKfyOpwAgWwB6Qk8FlDAj218Q4AAAQIEpgko4Gm0DiZAgEC2gPTPBRTwcx/fEiBAgACBKQIKeAqrQwkQIEAgW+B1egX82sgTBAgQIEBguIACHk7qQAIECBAg8Fpg5wJ+nd4TBAgQIECgSEABF8G7lgABAgSyBRTwrvuXiwABAgSWFlDAS6/HcAQIECCwq4AC3nWz2bmkJ0CAwPICCnj5FRmQAAECBHYUUMA7blWmbAHpCRBoIaCAW6zJkAQIECCwm4AC3m2j8hDIFpCeQBsBBdxmVQYlQIAAgZ0EFPBO25SFAIFsAelbCSjgVusyLAECBAjsIqCAd9mkHAQIEMgWaJdeAbdbmYEJECBAYAcBBbzDFmUgQIAAgXYCQwu4XXoDEyBAgACBIgEFXATvWgIECBDIFlDAw/bvIAIECBAg8L6AAn7fypMECBAgQGCYgAIeRpl9kPQECBAgcExAAR/z8jQBAgQIEBgioICHMDokW0B6AgQIHBdQwMfNvEGAAAECBC4LKODLhA4gkC0gPQECv+uE6gAAAkNJREFU5wQU8Dk3bxEgQIAAgUsCCvgSn5cJEMgWkJ7AeQEFfN7OmwQIECBA4LSAAj5N50UCBAhkC0h/TUABX/PzNgECBAgQOCWggE+xeYkAAQIEsgWup1fA1w2dQIAAAQIEDgso4MNkXiBAgAABAtcFOhfw9fROIECAAAECRQIKuAjetQQIECCQLaCAu+7f3AQIECDQWkABt16f4QkQIECgq4AC7rq57LmlJ0CAQHsBBdx+hQIQIECAQEcBBdxxa2bOFpCeAIEtBBTwFmsUggABAgS6CSjgbhszL4FsAekJbCOggLdZpSAECBAg0ElAAXfallkJEMgWkH4rAQW81TqFIUCAAIEuAgq4y6bMSYAAgWyB7dIr4O1WKhABAgQIdBBQwB22ZEYCBAgQ2E7gUAFvl14gAgQIECBQJKCAi+BdS4AAAQLZAgr47f17kAABAgQIjBNQwOMsnUSAAAECBN4WUMBvU2U/KD0BAgQIjBVQwGM9nUaAAAECBN4SUMBvMXkoW0B6AgQIjBdQwONNnUiAAAECBF4KKOCXRB4gkC0gPQECcwQU8BxXpxIgQIAAgacCCvgpjy8JEMgWkJ7APAEFPM/WyQQIECBA4KGAAn5I4wsCBAhkC0g/V0ABz/V1OgECBAgQ+FFAAf/I4kMCBAgQyBaYn14Bzzd2AwECBAgQ+CaggL+R+IAAAQIECMwXWLmA56d3AwECBAgQKBJQwEXwriVAgACBbAEFvOr+zUWAAAECWwso4K3XKxwBAgQIrCrwJwAAAP//lVwoVAAAAAZJREFUAwDU5ALRcl29HAAAAABJRU5ErkJggg==</pentrails><costumes><list struct="atomic" id="204"></list></costumes><sounds><list struct="atomic" id="205"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="1"><sprite name="Sprite" idx="1" x="-50.25" y="73.25" heading="152.38" scale="0.5" volume="100" pan="0" rotation="0" draggable="true" hidden="true" costume="1" color="80,80,80,1" pen="tip" id="210"><costumes><list id="211"><item><ref mediaID="U5L2-Simulation_Sprite_cst_well"></ref></item><item><ref mediaID="U5L2-Simulation_Sprite_cst_sick"></ref></item></list></costumes><sounds><list struct="atomic" id="212"></list></sounds><blocks></blocks><variables><variable name="infected?"><bool>false</bool></variable></variables><scripts><script x="30" y="20"><custom-block s="simulate disease, population: %n percent infected: %n speed: %n"><l>100</l><l>1</l><l>1</l></custom-block></script><script x="30" y="53"><block s="receiveOnClone"></block><custom-block s="initialize clone"></custom-block><block s="doWaitUntil"><block var="clones ready?"/></block><block s="doUntil"><block s="reportVariadicEquals"><list><block var="number infected"/><block var="population"/></list></block><script><block s="forward"><block var="speed"/></block><block s="bounceOffEdge"></block><block s="doIf"><block s="reportVariadicAnd"><list><custom-block s="touching infected person?"></custom-block><block s="reportVariadicEquals"><list><l>1</l><block s="reportAttributeOf"><l><option>costume #</option></l><block s="reportGet"><l><option>self</option></l></block></block></list></block></list></block><script><block s="doSwitchToCostume"><l>sick</l></block><block s="doSetVar"><l>infected?</l><block s="reportBoolean"><l><bool>true</bool></l></block></block><block s="doChangeVar"><l>number infected</l><l>1</l></block></script><list></list></block></script></block></script><script x="30" y="361.58333333333326"><block s="receiveGo"></block><block s="doReport"><custom-block s="average time for disease spread with population size: %n"><l>10</l></custom-block></block></script><script x="30" y="439.58333333333326"><block s="receiveMessage"><l>vanish</l><list></list></block><block s="removeClone"></block></script></scripts></sprite><watcher scope="Sprite" var="infected?" style="normal" x="9.999999999999545" y="10.000000000000007" color="243,118,29" hidden="true"/><watcher var="number infected" style="normal" x="9.999999999999545" y="40.000001999999995" color="243,118,29" hidden="true"/><watcher scope="Sprite" s="getCostumeIdx" style="normal" x="10" y="10" color="143,86,227" hidden="true"/></sprites></stage><variables><variable name="number infected"><l>4</l></variable><variable name="population"><l>10</l></variable><variable name="percent initially infected"><l>10</l></variable><variable name="speed"><l>2</l></variable><variable name="clones ready?"><bool>true</bool></variable></variables></scene></scenes></project><media name="U5L2-Simulation" app="Snap! 11.0.8, https://snap.berkeley.edu" version="2"><costume name="well" center-x="12" center-y="26" image="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABkAAAAxCAYAAAAvFgI4AAAJTUlEQVR4AZRXSYxcVxU9973/f/2q6tFDJ07imAyEYGMSxwkiJKCYISgIEbKwxSC2zgoJVsAqxZ4VC6SwREJBboQiIkEYFIwcEWVUEgcHgojIaLvb3V3jn9+7nF/dHmSXm+b1u2+895z77ht+tcEWk6pK5y8afPd32ugc0+jwMbVQla2Yb4FE5ejjGv74ScyWCa6PCtzS9/lHbsPKtT9YxMwDHQ3+F9HmJPS08xSa7euw0A+xd6XvDvVH+MogN1/uJq370jzdd8cBbK+d2IxoExKV7y8i7pe4ochwoLuGB9d69uHlFTyy1jNfPze0X+uN5It5L9sXzI+2Hzz6Ung1oquSHD6G0MfYOcrxyV6Cz60NKH29qz/Ax7tD84newNzTTfDZJMWnJW3c9Kk7b53qdNRMIpo4CKhcWyB2JXYPc9w1GOFuym1phh15juksw+yokF3D1H50mJm7ElfdLtOy/e97MXF/JpJ0OhAXoUXQ65IEt6YJbixyzKoniEIUFGeisgpms1J25yVuNBrM7cnAkF154iaS0COJI4RlhWnKTFGgpY4EEKiCNkIiiip1pF0UbtY518zNqsWERIMJo4cBZ1JxvrRaOQvvpb4nCnpJC0+TWrSunTdQI5k6k4+6E+8NTah5eV4EylGqUqGi65XCq3oP9QoCKxO3re5zUMpCfZZZ5/Ng/mZ3OVTdn0iy7xQ01KqIwqof2nJgjUsB7wipcFBlA56MKErj8564dEW0GCSj/1TgduGyNJEEjwFNbRRTYb7aCvLTsclWDNJEq9T5Yui1HHn4UREgGUQyOhOH2em2646mB2/WC70iZJeQ8G3iE3H0qQ9by78YzLuyv82WadgMkm4rGJyNsLpm3FJSZu9lLnmf4VkahBzjXLctmZjQzwfh/h1HH1+beein/2qgoxewNxoqvHzxuQNYiPIde3PY+5fy9heWR3LvKNE9VeWbgqqCT0pXDkotB2znlXgH74IdgyI+sJLMfr4rzUPemIM3z16z53t3dGfGjyhDNyYhQbhgseBSd0d/IA/1k+Aba0njWyvD1sOr+dRnBsXMx0qdXVA727bRjliiHU1n52dzmb+uV83duZrPfulc0jq8Noq+OcjCR0alvT8ZRjfPr61NodMxhtso14dolTl2j1I5MBzJff0hV5CGdyZFfFtaxLtz39pZycw0gvnYxttjGy9Eare1POZmc53ZlVStW0Zlc98wD+8Z5CTIzL1Zorc725w7uOur1hxehEk8ml7dQl7onjTXG4pC5rzaEMYaSCCKkJsZitgmbNAyJmxBTAMqkUAiIzY0nLAOQauo7DVpLjdllbnBOTezPzpIEF68Bm0rtbHzaKuXWAQIQi2asaRBaErhemFERQTGBBQ7bgMCEb5AkeRxk7oBbxYQOtW2OmmrkSgqThuzfBziCuoamLoUEVirVTPyo2aMQaMBHh3eDgACQEQoSiEpeJ8MdRs6asV+EDWQ0m0nVIN4KwqTNo0YbCRDO8MeRQOLKoqQxA0/YtByjrkNtUsqZZsooi4OfBpHOooCnxnjHP1QElCBd5NahGXJ7AWq41eDeOI9PSqtMYWBcooKV+TaX8OwwRsLFwVSGgMnRjyIQyN1NtBm6vUCCTzBayARpTlFKZ7eCKWeuFSoUXdZiQgEzB7kAHsbkB5AScEu7kNdXy5aD9TgbCil7m4q1GUeq3DhY1KFIAyR9s/KBu14+rJC2T9vyeYmmdEBhGHiQcD5xHV5V0rz9msuCRcDy00RKPdMlM6glrHJuDEuxl2MZ9inMtUZF6WgFoWIVcCIqJGQKwHTeCWVAT9KEM6BJeou1pOgHqhLCicwToS54LSyQ3xPPQ9LUjZEqM0jXFQmXcN6uAKeB0trQxH6QLWxKdfjuS62FRzDWJvm6yq4kMSCh8l5I5UXqWhSqeFJ4lvhm/NQs3N5UVEsl3B5N9T8bKjpmUiy0w3Jzwbq+EHSUlR8HRHHY18UrqoqRf3dYnhBZr7IOqLuMm0/jJC8H0jyPpCezcre8K2Xj3uzeOSwB3YOp4LknZYdvDLb6J+Yj/snpsLsFYF7D0b4hSIFF+Od1uFQX6+NfTACUFeIunNNKd7cFiXPzceDv841en+bs6v/sPze7Ny7XDJCoqdOIct7q2favndy3gxPzEfDE1MN9zrDcobAmSjhCKg1CTxJvLIAk4JxUOfXArh/T4fZi9uC5NnZRvbiTJi/vWP6g8HikSOeJMDxjlQr229ZmdP+WwvTxfML083nTKN5qvKNJYXJ6bRXXlbnM9Wiqz7vq3cFPMe8auUr7fvCv9toB6/Oz6XPX+PT19unz33wk+88mNSOjEnYwOIRcZ1H705+9O393ffOVGt5PNerxKT01FFUfQn+ZtAqOVuV6TJJMqjWrwRLI3nuguHyMOn98dRv13746N39TudQBmEMCH6BhO2NLHpy/60uHTBExjjhW0RdVSVJ2VeXLpc+7zpfkd97jpPLg1FVF67G7njnsTHzBti4mkDCY/AA1Eb031PH12EHvLLjM1aJU8ewMVRar4Q3Umqx1EcXk9JEkkmKNRXvjQKMnowXUKNSVThWC883e5Py/0EiBF1XHxOCXV7MuhoDX50D61Zjrc0Lusvgg7AkY4eZBpeW7F4lb5mEfoMUXASPQe3+Oj7Op00WsvWV1LgUQnNnziNfUgfBJZ3LmltaCZE3zPiebLRYjUPHGjxddXVV2RLJurVAUOe60Lp5kRubpy2REHGMIsrPXd1Shqy+N7rOU1f8pVzPTJQtkYwtGROCUb++E+ORLRc0urpujYvxYQIrggvqP89SOSwYJx5pqASb7PxVSYIQys++F6PeGHFWlG1bkriyFqUVeGtEOaeGPzlNFGjSmlmP35j8YjGZhP8z8tNRRRajMJTVMMRK1MByM8LpILQfxlF4ptG0S40I58LQr0bQ+u3P54IZfxH6YmsiyeJh+KKFUdzEO60GXpppmeNzreDP01Ph01Pt6Ol23PjDdMv+aaptnmk18WyjjTdsI1g+OeoWgFyxmokkYMDfCjAKMrwdt/BMPI3fTLfxq+mp4Nh0hCdnpuyvZ6aiJ7bN4Ym5tn3KTgUvS1gs/X71lyUmpMkkVDx+SKrXfo6VpT7+qYJXpMpfWJt+99Xeu603yrzxWnep99Js1n4ht+HJ3qn4g58d2TlCpzMxXP8FAAD//1k87HEAAAAGSURBVAMAEBP3Ln8wW20AAAAASUVORK5CYII=" mediaID="U5L2-Simulation_Sprite_cst_well"/><costume name="sick" center-x="12" center-y="26" image="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABoAAAAyCAYAAABCtcuVAAAGoUlEQVR4AexYa28cVxl+3jNndmcvXjtOXNeW7bjFCTSJoCiNWoogQeIDoBQJEaj4ABJf+jv4L1AJcRVQASmqmiJFtCFK1KhWREnaRGmTOo4vu/F6d2fOpc+ZjZ1sPW7cqu6njs8z5/ac9znve2bOmbXCzi7xgL4BVPw4an4SVdbLRLSz4YB6GDEYuz2GGiYxMb4fT3TqeDIr4avpDObasxg7D8QPsxH6VbhthyCyVsfekSoOZmWc8Ao/1qJ+Rv7z0DgpOnr6sbnR8beAEts+Nm0rRBGFBob1Phwygu96wY9o6YfeuZPMf8BYPhd5fC+J1o5OfKnyULFCIYoIxlBdH8FjJDyjBN+Cw9fFYb8AE/CYIg6Ks0+LdceTKD1yeBajHKexzUU7hT1qJcZoDByiyFMUeIIejJGZEGxGDI8G22eUM8e0scc6wP47+1Bhf2HaTkiXFEYYrlnOMngxytFBQBD+wDvyB6lGsWkAX2EYpyoqfxoLbRY2cqBiR0IM0ZMa6yWaFub9JKyBECgRVOEw4gSNns4fCkHBRVtbW28Bogk+ZZwo+hyfG75vRFgnRwgShEQJbmObi5ytPRZcAYHzDixyvqH+UZonp4/MAesMc7udISPNE1tSoVATsL0Mbc55hVjjKEP0zbLwQHIM2ZpV+CD1uJ0adOjhzoUO0wNdQdtHWKKhFsVSGr9vQOgNwQZ6IEsurl1vD48vtmtT1COzIG16xEFcd8RLc2gsz1XGs3Jl0qhygyFRDI2nWAAnvGnFi0JmY93p1WvOjuxpRDPxI63DjT1+insiEG0yWciFfgUovgP13sFkuqySY0nkTipnTinY44BMKUGZQooQhKsvKZyE9sBelaZPJs3F7yd3V59T1p1Yr8eH2twH2VcK9AAVbi9MIklGMO3FPat9dkob8/PYmFPamm9H3s9QoE5exLwvJCwBkQAVbbPZSqd1otpuPp90mr+MTecXyviTGvpr7TGMvgpojoX6HRA1yhgqITog1nxDrP2meHuESzBJwhBRIu6LsEIZyUEj4lFXzk1EzjyunTscOftM5MxxEXNUYkx8Gfm7BfUTQGmLmoGfFO9nBXiEtipERCA3KA/cwevBuvA9CwBzIPbAMDEt3JIijb2VEZRYFzUPSKqhBVHCmFcBrgcQMUduHju8hGwQghCqBOCOYVHmk6RYzmeBnoc45dmgCJJDT39gKO0cG2OYe5/bFoZWgoFgOOS7jl0XGuJTFbzYVSEulg8iAbsqxA1S7vr+mu+qUPDocwld/qCHuBG75xEtG4btcwkdHdlMimePix3SyEqL5+mKt1iFQZNnZQspD78MPdYzwrA/nLjIc8u7yVvDudr1fW6LLSvsuWkd3nOCpW6CHt/YsBvAiUXT6PJVG0cXrSbi6E0TR/NO4yYEXYAHHW+byQ/ULfeApo/xro1l3sb6Yloqn+uW6hdXo8r7f15EL4zjUQN3YxhrRumrWXnobJrU/9GtDL1kytVXvdJvc1bhKHeB/ADMZlmQeSULVpcuuHLt5TSp/r1Tbry2Xhu+fBNJ8wXQR5K5ZMCReaRXL6/eXKzuObf86PRfmqMzf8ri+N9e/DV+TrXJ64eMhZC4+S6E/B4yOnhHRC5kydDfbu+b/eOVyblX/j984H9H31lphbAFXi4UCk8B2YE3rrQef+Wt29XLlxbj1eW7ythsIEiBSHiHK8w2EucDo22v7ZdvLTXPXFp49vR/lr9z5kx3QyQQN4VC5R782CJcYuDY6e+1DWTcmd8faGDF0ueRFO4o8NEwsxdcxjzbeguLUDiCVP66CA8ISztPnPRWMr9UtzYOthR6OkgZrBUKDVI+m9oXQp86jupTj/yEA79Yo37ApPjt73cW37cNHT9duSmD+ycGX07uoKJ4TgV7cr8v7CKd0LYNCoUmAM8tKIhwB8tn73ku+dyGh+Wh1qUEJXkH+9nGj+7A7XNy4uCtUIhbs+MMOzyLVjhyhYotDlsn2iy/J0CFwhv1JnnL/D5oOcMzGbk4qYOpUOgiYDoR7nCXnqfh1zn0DeK/xPk0Kv/VKzRDmd/V5+jP68zPk3ut5vOQcm6DIqFWKPRTwO67jmXfxZuRw0sw+C16+E2AK5VfpNBZln/tM7xIoT9Yj9fMKt79/SI+2Y/lMAOGp3f1Fm7dvY4LaRNnshZejlv4Z6PduuSXcIHl08S/ejdwlpy3T7fQDBMMY4tQ6NEG8QiQ8p8UzfoaFqvr+ADrWJBr6O5ZxWooo42FIWDpUaD9cSIA8CEAAAD//6t4MoIAAAAGSURBVAMAixCKhcyi/koAAAAASUVORK5CYII=" mediaID="U5L2-Simulation_Sprite_cst_sick"/></media></snapdata>