<snapdata remixID="15054249"><project name="U5 L2 " app="Snap! 11.0.8, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAALdUlEQVR4AexaCUwV6xU+3MciqLj0PfeYUNREca0kpAZjjRi3vIjWaE2jRuuSYG1eTdOW2BBtcXkqdXlpolEbmlaM2zNUjcoiuOWVFFTwCaIIKg+XVrAiIOu95Tsw40WFex8zA3PvHJIzZ+b//3P+c77zzX9n5sfmkD9BoBsRsJHT36tXr6iwsJDy8vK6RR4/fuwUjWedPnz4kHJzc71KkJPRVVAJePLkSSovLyebzUZBQUEUGBioWb+teE4FW2bQ/T9GdSiP/7Kc52toaKDU1FSjc9bV/7Fjx6ioqIiaFxHq2bOnqaV///50esM0yv7DDJcyZMgQzgm5PXnyRFfMnJ0xAV++fEljxoyh+vp6t6SmpqbNuPevFT//2P4FzRsRSLNHBNHciNE0O7QHzZ0yvo1G2/S+FZws7JD4oUOHnGM07Tlu2PHjxzMWdXV1pteN9bX02x8H05IxQS6ll69DzefZs2eG1YAJWFFRoU4GEhw5coSKi4tp5cqV9PTpU1KufX196fTp0zR06FBau3YtNTU10ZIlS+jt27e0atUqKisro8OHD7Mt/Pg4WuN22Clg4XYW22c/VHVrLyusfkoRsZpwo8kPICDiRq6QAwcOEG7m6OhoQnt8fDzt27ePTpw4QQkJCXTlyhWaMGECxcTE0NixYxlz6PHNJF6/fj2FhYVxO/Ty5cspIyNDvYbNuHHj2C/6nf3s3r2bfe/du5fwS4Z+Zb7Y2FiKiIjguezN9XKGNPCX/1QvfYL6qec4cVALAZFHQEAAz4t2vYUJ2KNHDw4QIEIiIyOppKSEtm3bRqWlpaRcZ2Zm0sCBAzmGPXv2UJ8+fSguLo5CQ0PVsZs2baLbt2+zP4V/Pr0+JZ+AntT47UXyHR2lanbUesC8ilRXV7e2mlsBN9w0EMS+YMECfoS4du0ajRgxgvbv388379atW/nGXbZsGd+0uLmRGeygcSMrbbiG+Pv7044dO3DKMmnSJLpz5w59zAaLAgiLhQJzwQBtmO/s2bNUVVXF9Wiy29GlSu3f15JP36Hk028YOWpeqe04cdgdPBfmg6DNCGECDh8+XF21MNn06dNp4sSJBBAApHI9evRoguTn51NtbS09bn5pGDRoEBUUFJCfnx+NHDmS0Ddt2jQO/pOAII7ZUfWSar76nJruX6Hak79RNXe2HjAvigiNO7a12Tilg2fghlUfqwRixwo1a9YsevDgAd26dYvu3btHuGmxkp07d45vzKtXr1JSUhJBww4ahD169ChBK9c7d+4kPF8q11hJ8XyOeZRxip/z58/zfFhhL1++zH6c58N42DneI6Dj9XNy/K+MHK+++wAN/AohPtihzqjvB4N0aGACws/SpUvpxYsXhOe5nJwcXnIxOYJ4/1ppd6U//+JLsm/61qW8/tU3hFXvzZs3BACnTJmCkDxCFi5cyDcbsMBbMDRuIr11WloaP+Jo8fvdsxfU68snbklWbj7nha8iixcvNqwWKgExw6JFi2j27Nk0Y8YM3SQ4OJhcCZ4pMefcuXNp8+bNCMWjBLF7irgLrJLP6tWr3TXp1Lg2BOyUBzESBDQgIATUAJ6YakdACKgdQ/GgAQEhoAbw9DTFG+2jR4/okfHS6TnwNq9nzvAlBAQK3Sz379+nyZMn87c6I96g23tz3v3rZRS0f6pL6fnVVH4jxssi3or1hEsIqCeanfCVlZXFxMPnLhClPZ2ent7uOHw+U+zwLbIjPxiH1RbaVlNBQX4+zfvXvegH64/z+ae/z2ij0R/o68OZKX63bNnC13ochIB6oKjBB8iDVQ8CkmHXIjk5mVecmzdv0qVLlyg7O5saGxt5F+XMmTP8oRtjsYUKO2wOwCYlJYW34vDRGIKVFUTDFiquISDR4MGD2X/zBjxH7qhv2Xnq8bN9VHfuT6Ro7mw9wA5zQZTdsNYuTUoIqAk+7cb9+vVTP/qDZNh9whZaYmIi2Zt3LvDPGSEhIbwrFR4ezvvzGzZsYEL27t2bV0VEsW7dOt5EwDl2orBPjXHY0cI2HtpAWOzUYJcDhFK2Sv0if0GfhE7hXaqAeZtUDV+KYDzIDK3nv2kJARWEu0lPndryfIXCgmDYDcI+PDYFQDwQEKFhlcNuCIqPbTuMraysZALevXuXIPDVt29fOn78OJMaP7XYyrt48SK3YY5Tp07xdirOg0N/BNfUcP0IVf1uOFFTA9X8Oeqd5t6WQ1XzfjJWP9jt2rWrpVGHoxBQBxC1usDqhP+5Q3EhykqD84+JXv0/WbiCvok68oH8a+ZfP2hDHPhJx8+31nyd7buUgM4Ty3lbBPCzO3PmTIJERUWxxvnHpLv616xZQ6NGjWobuMYrIaBGAMVcGwJCQG34ibVGBISAGgEUc20ICAG14SfWGhEQAmoEUMy1ISAE1Iafm9YyrD0EhIDtISPtXYKAELBLYJZJ2kNACNgeMtLeJQgIAbsEZpmkPQSEgO0hI+1dgoAQsEtgtu4krjIXArpCSPoNRUAIaCi84twVAkJAVwhJv6EICAENhVecu0JACOgKIek3FAEhoKHwinNXCHgvAV1lLv2mQEAIaIoyWDcIIaB1a2+KzIWApiiDdYMQAlq39qbIXAhoijJYNwghoPfV3qMyEgJ6VLm8L1ghoPfV1KMyEgJ6VLm8L1ghoPfV1KMyEgJ6VLm8L1ghoPfV1KMy0pWAHpW5BGsKBISApiiDdYMQAlq39qbIXAhoijJYNwghoHVrb4rMhYCmKIN1gxAC6lJ7cdJZBISAnUVO7HRBQAioC4zipLMICAE7i5zY6YKAEFAXGMVJZxEQAnYWObHTBQEhoC4wWteJ1syFgFoRFHtNCAgBNcEnxloREAJqRVDsNSEgBNQEnxhrRUAIqBVBsdeEgBBQE3xirBUBzyWg1szF3hQICAFNUQbrBiEEtG7tTZG5ENAUZbBuEEJA69beFJkLAU1RBusGIQT0vNp7VcRCQK8qp+clIwT0vJp5VcRCQK8qp+clIwT0vJp5VcRCQK8qp+clIwT0vJp5VcTfi4BelbkkYwoEhICmKIN1gxACWrf2pshcCGiKMlg3CCGgdWtvisyFgKYog3WDEAK6VXsZZBQCQkCjkBW/biEgBHQLJhlkFAJCQKOQFb9uISAEdAsmGWQUAkJAo5AVv24hIAR0CybrDjI6cyGg0QiL/w4REAJ2CI90Go2AENBohMV/hwgIATuERzqNRkAIaDTC4r9DBISAHcIjnUYjYF4CGp25+DcFAkJAU5TBukEIAa1be1NkLgQ0RRmsG4QQ0Lq1N0XmQkBTlMG6QbQh4PPnz6mkpMQwgX/rQu125pYaqBIwNTWVqquryW63uy1A6t9fH6TbJ/e5FJvNxv6zsrKoqqoKpiKCADEBDx48SMOGDaP6+vrvJTay05z/JNHM8q9dysA+gew7ODiY0tLSBHpBgBFgAoaFhTE5QECsUHl5eZSUlEQZGRmUk5NDpaWlqr5x4waFh4dTXV0dNTY0kA+7eXfw6fUZkQ+7Jec/h8OhzhESEkINzbbO/XJuTQSYKfjZBfkgKSkphBUxPj6eEhISKCYmhrKzs1UdGxtLTU1NTCB7M6nehy3gp9uJHPb3mwlj4V+RDwZIgyURYAJmZmbyioZVbePGjZSYmMhgXL9+nS5cuEArVqxQdXJyMuXm5vJ4R/PzIg90OtT+bbXT1btTh93BNpgjPz+f/Pz83nXKmWURYALGxcXR69ev+SeysrKSioqKKD09nQoKCpg0hYWFqq6traWysjIeW/r0GflF/NwtKX76X7YpLy+nOXPmWBZwSbwtAkxANM2bN4/8/f0JBHRX3rypogu2CLekuLiY4H/+/Pk0YMAATCkiCLS8BSs4REZGUnR0tGEC/8pcogUBIKCugLgQEQS6GgEhYFcjLvO1QUAI2AYOuehqBP4PAAD//5ZrnS8AAAAGSURBVAMAAAzfFk0M/osAAAAASUVORK5CYII=</thumbnail><scenes select="1"><scene name="U5 L2 "><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="doDeclareVariables"><list><l>elapsed time</l><l>start time</l></list></block><block s="doSetVar"><l>clones ready?</l><block s="reportBoolean"><l><bool>true</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="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="bubble"><l></l></block><block s="doReport"><block s="reportQuotient"><block s="reportCombine"><block s="reportMap"><block s="reifyReporter"><autolambda><custom-block s="simulate disease, population: %n percent infected: %n speed: %n"><block var="size"/><l>10</l><l>2</l></custom-block></autolambda><list></list></block><block s="reportNumbers"><l>1</l><l>10</l></block></block><block s="reifyReporter"><autolambda><block s="reportVariadicSum"><list><l></l><l></l></list></block></autolambda><list></list></block></block><l>10</l></block></block></script></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="reportNot"><block var="infected?"/></block><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></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 NOT infected, but is touching a neighbor who IS infected.</comment></block><block s="doReport"><block s="reportBoolean"><l><bool>false</bool></l></block></block></script></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="206"><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="207"></list></costumes><sounds><list struct="atomic" id="208"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="1"><sprite name="Sprite" idx="1" x="219.1765933690956" y="45.80195289084509" heading="260.89" scale="0.5" volume="100" pan="0" rotation="0" draggable="true" hidden="true" costume="1" color="80,80,80,1" pen="tip" id="213"><costumes><list id="214"><item><ref mediaID="U5 L2 _Sprite_cst_well"></ref></item><item><ref mediaID="U5 L2 _Sprite_cst_sick"></ref></item></list></costumes><sounds><list struct="atomic" id="215"></list></sounds><blocks></blocks><variables><variable name="infected?"><bool>false</bool></variable></variables><scripts><script x="30" y="34.2222222222222"><custom-block s="simulate disease, population: %n percent infected: %n speed: %n"><l>100</l><l>50</l><l>2</l></custom-block></script><comment x="28" y="10" w="335.61904761904765" collapsed="true">There are things to write inside these blocks:</comment><script x="112.66666666666663" y="81.77777777777769"><custom-block s="touching infected person?"></custom-block></script><script x="46.33333333333337" y="134.888888888889"><block s="receiveOnClone"></block><custom-block s="initialize clone"></custom-block><block s="doWaitUntil"><block s="reportVariadicEquals"><list><block var="clones ready?"><comment w="295.3333333333333" collapsed="true">This will be true when all the clones have been created.</comment></block><block s="reportBoolean"><l><bool>true</bool></l></block></list></block></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="doWarp"><script><block s="doIf"><custom-block s="touching infected person?"></custom-block><script><block s="doIf"><block s="reportVariadicEquals"><list><block var="infected?"/><block s="reportBoolean"><l><bool>false</bool></l></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></script><list></list><comment w="220" collapsed="false">If the clone is touching an infected person:&#xD;- If the clone is NOT already infected ... &#xD;     - Add 1 to the number infected&#xD;     - Set this clone&apos;s infected? to true&#xD;     - Switch the clone&apos;s costume to &quot;sick&quot;</comment></block></script></block></script></block></script><script x="402.63834635416674" y="223.34166666666658"><block var="number infected"/></script><script x="522.1113281249999" y="396.17499999999984"><block var="number infected"/></script><script x="408.97493489583337" y="451.05555555555554"><block s="newClone"><l><option>myself</option></l></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="clones ready?" style="normal" x="3" y="206" color="243,118,29" hidden="true"/><watcher var="percent initially infected" style="normal" x="239" y="4.000001999999995" color="243,118,29"/><watcher var="number infected" style="normal" x="288.99999999999955" y="36.000001999999995" color="243,118,29"/><watcher var="population" style="normal" x="5" y="3.8000040000000013" color="243,118,29"/><watcher var="speed" style="normal" x="3" y="325.600006" color="243,118,29"/></sprites></stage><variables><variable name="number infected"><l>100</l></variable><variable name="population"><l>100</l></variable><variable name="percent initially infected"><l>50</l></variable><variable name="speed"><l>2</l></variable><variable name="clones ready?"><bool>true</bool></variable></variables></scene></scenes></project><media name="U5 L2 " 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,iVBORw0KGgoAAAANSUhEUgAAABkAAAAxCAYAAAAvFgI4AAAJX0lEQVR4AZRXW4xdVRn+/rUvZ59z5trLIIVSuYhIrZQWjAga6gWDiSIPbbzE1/Jkok/q07TvPvlggo/GBNMxBkOieAnWlEiASoBSUIxEKPQy05k5t33fa/1+e08p7XA6jmvWv67//33/+tdlnzHYZFJVmf+L+t/7nbbmj2l48Jh64NhmzDdBonL4cQ2OPInpKsENYYFbhy7/6O1Y/sgPFzD14Lz6/4toYxJ6euQptLs7MDcMcOfywB4YxPjqMDdf6SWd+9M83X3XPmytndiIaAMSlR8sIBqUuLHIcHdvFQ+t9r1Hlpbx6GrffOPiyPt6P5Yv5f1stz8bb91/+GRwLaJrkhw8hsBG2B7n+FQ/wedXh5SB7hsM8YneyHyyPzT39hJ8LknxGUlbN396720T8/NqxhGNHQRUPlIgciV2jnLsG8a4h3J7mmFbnmMyyzAdF3L9KPU+NsrMvsRWd8ikbH19N8buz1iS+XmIDdEh6I4kwW1pgpuKHNPqCKIQBcWasKz86ayUnXmJm4z6M7syMGQqWJfGktAjiUIEZYVJylRRoKOWBBCogjZCIopT6ki3KOy0tbadmxVvHX7TpUFTX10cBCqTinWlp5X14JzU90RBL2nhqF2L1rV1BmokU2vyuPehVVCl9qqu1skCSeJUpUJF1yuFU3UO6hQEViawA1UOSlmoyzLPutyfvcWuQ2q69KupryruPA0NtCrCoBoEXjn0jE0BZwmpsGvYcGREURqX98Wmy6LFMIn/U4HbhXVpLAmOAG1tFRNBvtLx83ORyZYN0kSr1Lpi5LSMHVxc+EiGocTnoyA717W9eHL4Rr3QD4XsChK+TfPqH37qbOfiL4azthxs8cokaPtJr+MPL4RYWTV2MSmzM5lNzjA8i8OAY5zrdSUTE7hZP9iz7fDjq1MP//RfLczrZexLDRVevmh5H+bCfNudObwHFrPuF5dic1+c6K6qcm1BVcElpS2HpZYjtvNKnIWz/rZhEd29nEx/oSftA86Y/bdMX7fr+3t7U80jCqxtPAmCOQ9zNrV3DYby8CDxv7matr69POo8spJPfHZYTH281Ok59aa7XrgtknBb23qz07nM7uhXM3tX8ukvX0w6B1fj8FvDLHg0Lr0HklF4y+zq6gTm5w2Pn8oNATpljp1xKnePYrl/MJL74jTYmxTR7WkR7cxdZ3slU5PwZyMv2hp50Vyo3paOw8x0rlPXJ1Xn1rhs7x7lwb3DnASZuS9L9A7rtWf27/iaZw4uwCQObad2Li90V5rrjUUhM069AMYzEF8UgYAiXhue3zEm6EBMCyqhQEIjXmA44Vn4naLyrktzuTmrzI3W2qk94X6C8OK1aFupF1mHrjqJRAA/0KIdSeoHphSuF0ZURGCMT/GaNiAQ4QsUSh61qevzZoEPq2pXrXTVSBgW54xZOg6xBXUNTF2KCDxPq3bo4naEYasFHh3eDgACQEQoSiEpeJ8MdVsadyI3DFtI6bYVqkGcJwqTto0YXEqGdoY9ivoeqjBEErVczKDlHLOX1K6olG2iiNrId2kUahz6LjPGWvqhJKAC7ya1CMuS2QlUFZwgnjhHj0rPmMJAOUWFD+XaX8OwwRkPNvSlNAZWjDii1EZqPV/bqdPLJHAEr4FElOYUpTiSCqWeuFKoUXdZiQgEzA7kAHuXIB2AkoLruQ91vV60HqjB2VBK3d1QqMvcqHANDalCEARIBxfkEm0zva5Q9t+3ZHOD3ERZGCYehMtqXJezpbTvuO6KcDGw3BSBcs9E6Qw9uWRRdz7ocbAeoFCZ6oyLUlCLQsRThRFRIwFXQm00K6kMhDMC01ii7mItrQ3UJYUTa6NaV01B31k7kEIoHkkhdeKIJwU/fatYC5fP8+DRzlBERCG1LhzXQ+H6oOAYGm2SrangchIPPIHWGamcSMVQVGp4kvhWuPYs1GxfWlAUSyVs3gs0vxBoej6U7FxL8gu+Wn6QtBQVV0fE8tgXha2qSsEPGD2pyQ1fZI2pu0TbsyGSd31J3gXSC1nZH7158rgzC4cOcrHbRxN+8nbHG7403RqcmI0GJyaC7CWBPQMj/EKRgnjOKoGhjrFlBhgBqC1E7cW2FG9sCZPnZqPhX2da/b/NeCv/8Pi92b57qWSERF8/jSzvr5zvuv6pWTM6MRuOTky07KsQPU/gTJRwBNSaBI4kTlnU4VJGslDrVn3Yf08G2Ytb/OTZ6Vb24lSQv7Vt8r3hwqFDjiTA8aNSLW+9dXlGB2/OTRbPz022nzOt9uvWtRYVJq8Xobys1mWqRU9dPlBnCziOka5ylQ5c4d4JO/7LszPp89e59NXO2Yvv/eS7DyX0hPvDss4Lh8Qeeeye5Mff2dM7c75azaKZfiUmpaeWosqfk/zNoFVyoSrTJZJkUK1fCZZG8tz6o4tx0v/j6d+u/uixewZHjx7IIIwBwZuVsL4ii57ac5vNhgyRMc1bRF1VLeHKgdp0qXR5z7qK/M5xnFwOjKraYCWyx48eaZivAMQYEmD7g1AvpP+1uqvDzj3m3sNlTl1i1TJsDJXWK+Fxl1o86qOHcWksyTjFmkoJBjB60iygRqWqKHhCwN+BuEb6P0iEoGvqDSHY5cWsqwabd6ipxxRrVmMm1g/RXQYfhCUZO8xUubJk9xp50yT0G6TgIngMavfX8PF+2mAh4zf+fcOr6xq1vufcmasnmp7vN9XYYlMrqeHXrGuStRbLJnSswdNVV9eUTZGsWQsEda4LrZsfcGPjtCkSIjYoovzc1S1lyOp7o2s8dcVfyvXMWNkUSWPJmBCM+vW9aEY2XdDo2rr8SCmawwRWBBfUf46lcljQJB5pqPgb7Pw1SbwAys++E6POGLGeKNteyQVVnofSEzjPiHJODX9ymtDXpDOlDe+6YjwJ/2fkk1WFHuIgkJUgwHLYwlI7xDk/8M5GYXC+1fYWWyEuBoFbCaEDdTaf8afcOvymO5Zk4SBc0UEctfF2p4WTUx1zfKbj/3lyInh6ohs+3Y1af5jseH+a6JpnOm082+riNa/lL52KewWadwxXpbEkYMDf9BH7Gd6KOngmmsRvJrv41eSEf2wyxJNTE96vpybCJ7bM4ImZrveUN+H/XYJi8ffLvyyvQr/UGU/CyeMHpHrl51heHOCfKnhJqvyF1cl3Xu6/03mtzFuv9Bb7J6ez7gu5F5zqn47e+9mh7TGOHh0brv8CAAD//3MILaEAAAAGSURBVAMAhfD4LUCbaXcAAAAASUVORK5CYII=" mediaID="U5 L2 _Sprite_cst_well"/><costume name="sick" center-x="12" center-y="26" image="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABoAAAAyCAYAAABCtcuVAAAGoElEQVR4AexYW29dRxX+1uzZZ+9z8bHjxDW2bMctTqFJBEVp1FIECRIPgFIkRKDiASRe4GfwY6AS4iqgAlJUNUWKaEOUqFFD1DZpE6WN6zi+nBMfn8ueS7/ZJ3Zy6u3Greo+dXu+ua5Z36w1s9fsY4WdPeIBfQMo+3FU/SQqbCdEtLPpgHqQYFB2awxVTGJifD8ea9fweFbCV3ozmGvNYuwcED9IRxhXIdsOgWSthr0jFTyaJTjuFX6kRf2U8s9C44To6MmH50bHXwdK7PvItC0RSRTqGNb7cNAIvuMFP6SmH3jnTrD8Pn35TOTx3TRaOzLxxfIDyQqJSCIYQ2V9BA9T4Ckl+CYcviYO+wWYgMcU8ag4+6RYdyyNeocPzWKU8zS2eaincEStaIzGwEGSPEGCx2jBGCVTgt2I4VFn/4xy5qg29mgb2H97H8ocL0zbEelShBG6a5arDFaMcnYgEIQ/MEd+kKokmwbwZbpxqqzy01ios7CTExUHUmKIllTZLlG1sOwnYQuEQImgAocRJ6h3dX4oBAUPdW3tnQdEEzxlXCj6Mj5XfE+JsE0ZISggFJRgNrZ5KLN1xII7IHDegVWuN7Q/LOYp00fmgHW6udXKkFHME1tSIVEDsN0MLa55hVjjLEP01bJyX3J02ZpVeL/ncatn0KaFOyc6RAt0GS0XYYmKmiTrUfk9BUJrCHbQAllycfV6a3h8sVWdIh8lC9KmRZzEfUe8NIf68lx5PEvKk1YldbpE0TWeZAFc8KYWLwqZjXW7W6s6O7KnHs3EDzUP1ff4KcZEINqUZCUn+jWg+A7UOgeS6USlR9PInVDOnFSwxwCZUoKERIoQhKdPKVyE9sBe1es9njYWv5feWX1GWXd8vRYfbDEOcqwUxANUyH41iTQdwTSUf1r77KQ25mexMSe1Nd+KvJ8hQY1yEcs+kbAGRAKUtc1my+3m8Uqr8WzabvwiNu2fK+NPaOivtsYw+hKgORfq90BUTzBUQnRArPm6WPsN8fYwt2CSAkNEibhHwgZpJAeViEdNOTcROfOIdu5Q5OxTkTPHRMwRiTHxJeTvFtSPARVZVA38pHg/K8BD1FUmIgK5QrkvB5/728L3LAAsgdgDw8S0MCQpjb3lEZTYFnUJkExDC6KUPq8A3A8gYolcPXb4CKVBCIKrUgAVsUh4khTr+SrQ9RCnGAcQIg+Fw0h/YqjtHBtzWHqf6xa6VoKCnC1Udhu7TjTEUxWM2FUibpYPJAG7SsQAKXd8f893lShY9Jm4Lj/owW/E7llEzYZu+0xcR0M2k+Ld42KHXmSlCYsVb7EKgwbvyiZ6vPwydNnOCMPxcOMiLy1zk/eGe7Xj+7JN9qxw5KZ1eNcJljopunxjQzSAY6hoGJ1ctXF0wWoijl4zcXTJadyEoAPwomO2mfxA2zIGNHyMd2wsl2ysL/RKydlOqXZhJUrf+8siumEerxq4G3WsGaWvZsnQmV5S+2enPPS8SSoveaXf5KrCVe6C8H0wm3VB5pUsWF0675LqC7208o92Un95vTp8eR7lxi9BGynMLQMO/x+9q5dXby5W9pxdnpj+a2N05s9ZHP/Hi7/Gz6kW5fouYyUkBt+FUN5FRgNvi8j5LB36+619s3+6Mjn34lvDB9448vZKM7gtyOVEofIEkB149UrzkRdfv1W5fHExXl2+o4zNBpwUBAnvcIXFRuJ6YLTttvzy/FLj9MWFp0/9d/nbp093NkiC4CZRaNyFH1uESw0cB/3dvoGCkfm9gQ42LG0e6cIdAT7sZo6C25gXW7OwCYUzKMpfF+GAsLbzxEVvFeaX6tbOwZ5CSwdFBluFRIMin07rc6JP7Ef1iWd+zImf71HfYVL89vcHi/NtXcdPVwZlMH5i8OVkBBXFeyrok3tjIYq0Q982KCSaADxDUCBhBMtX73kv+VyHh+Wl1iEFKZmD4+zjR7fdlMkFB7NCIoZmxxW2eRetUPsKGZuctk60WH9XgDKVbrQblFvm90HTGd7JyMkpOpgKiS4Aph3hNqP0JSp+hVNfJf5HnOtFyd+8QiPU+V19lva8wvIcZa9Vfe5Srm2QJLQKiX4C2H3Xsew7eC1yeB4Gv0MXvw1wcfIcic6w/huf4TkS/dF6vGxW8c4fFvHxfiyHFdA93avzmL9zHed7DZzOmnghbuJf9fXmRb+E86yfIv7dvYEzlHnzVBONsMAwtwiFFm0IHgZ6/CdFo7aGxco63sc6FuQaOntWsRrqaGFhCFj6AtD6KBIA+AAAAP//Le5SigAAAAZJREFUAwDI7omF0XQEgAAAAABJRU5ErkJggg==" mediaID="U5 L2 _Sprite_cst_sick"/></media></snapdata>