Airborne COVID-19 transmission restaurant simulation
Model was written in NetLogo 6.1.1
•
Viewed 285 times
•
Downloaded 13 times
•
Run 0 times
Download this modelDo you have questions or comments about this model? Ask them here! (You'll first need to log in.)
WHAT IS IT?
This project's objectives were achieved successfully by creating a simulation that captures how COVID-19 is transmitted from person to person in a restaurant setting. This includes transmission through viral aerosol particles, respiratory droplets, and fomites. The simulation also allows for COVID-19 safety measures such as physically distanced tables and face masks to be implemented. The output data can be analysed to gauge how effective a safety measure was, based on how significantly it reduced probable infections and infection risk. A combination of safety measure can also be tested to create the greatest reduction in infection risk.
HOW IT WORKS
(what rules the agents use to create the overall behavior of the model) customers will enter the restaurant and take a seat, and waiters will served them by periodically approaching their table to simulate a real life restaurant service such as taking orderrs, clearing plates ect. A table of customers will enter the restaurant every 300 ticks and sit at an empty tasble. they will remain in the restaurant for the duratino of booking time. when the service lim,it is exceeded, the customers will stop spawning and will begin to filter out of the restaurant.
all mobile agents have the chance of being infectious, set but the slider in the virus emission controls section. infectious agents will output aerosol particles into the air within the boundaries of the restaurant.
the higher the volume, the greater the number of particles produced.
symptom severity can be altered through the adjustment of coughing and sneezing frequency. a large number of aerosols are produced by these events, expecially sneezing.
sucsepitble agents will inhale the aerosol particles and their infection risk will be increased. the infectious code of covid is unknown but is estimate to be roughly 300 particles. once the agents infectious risk reaches over 300, they are likely to develop an infections
HOW TO USE IT
setup
Following the numbering of the sections, enter the values that you wish to test, starting with setting the general controls, then infection controls, and lastly the ventilation controls (numbered)
Click the setup button at the top left of the screen to setup a restaurant with the values you have entered.
Familiarise yourself with what the agents are using the legend.
To begin the simulation, click the 'Run Simulation' button
runtime
depending on the experiment, you may wish to alter parameters during the simulation. It is possible to alter parameters like view controls, personal protective measures and ventilation controls during the simulation.
if manual-customer-spawn is on, to seat customers at the selected table, click the middle of the table. It may help to click several times.
To infect a customer, waiter, or bartender, it is advisable to slow the simulation down using the slider in the interface heading tab. This will slow the movement of the agents to help you target them. To infected them you must click on them/the patch that they are on.
description of components
General controls:
manual-customer-spawn: On: manually clicking tables to seat customers Off: Automatic seating of customers
noOfWaiters: Set the number of waiters
capacity: Set the occupancy limit of the restaurant
diningTime: Set the length of a booking
length-of-service: Set the length of time the restaurant is open for
twoM-distanced-seating: On: Physically distanced seating configuration Off: Non-physically distanced seating configuration
Infection Controls:
chance-of-being-infected: percentage of infections in the local community/chance customer is infectious.
volume: volume of the restaurant
coughing: coughing on/off
cough-frequency: time between coughs
sneezing: sneezing on/off
sneeze-frequency: time between sneezes
masks: people wear masks/not wearing masks
mask-effectiveness-inhalation: percentage of particles blocked by mask inhaling
mask-effectiveness-emission: percentage of particles blocked by mask exhaling
sanitiser-on-tables: customers use sanitiser on table
handwashing-thoroughness: percentage of contaminants removed from hand
doors-open: front door open/closed
Ventilation controls:
left-windows-open: left windows open/closed
top-windows-open:top windows open/closed
close windows: close all windows
air-refresh-rate: air changes per hour from the AC
AC off: turn AC off
recirculation: AC recirculates the restaurants air
noOfPortableHEPA: number of portable HEPA filters placed in the restaurant
Output:
Aerosol output data:
Aerosol concentration severity: low medium high of how high the concentration levels are
- Viral aerosols per 0.125m3 graph: graph showing an avergae of the number of viral aerosols across all patches in the restaurant, at a given tick.
- average aerosol particles per patch: the current average viural aerosols at each patch
Fomite Output data:
Fomite risk severity: low, medium, high risk of fomites.
average fomite risk graph: graph showing the averahe fomite risk of all agents at a given tick
Average fomite risk: the current average fomite risk value
Hand contamination: the average contamination of agents hands
Infection risk data:
risk severity: low medium high rating of current risk
Average risk of infection graph: show the average risk of infection of all aagents at a given tick
no.of probable infections: the number of probabl infections produced so far into the simulation
% of probable infection: the percentage of people in the restaurant who have been infected
General output data:
Current Seating Area Occupancy: total count of everyone currently in the restaurant
Floor staff: the number watiers and bartenders
total customers served: the total number of customers served so far
total of infectious peoplle through service: the total number of infectious people who have been in the restaurant
infectious currently: the number of currently infectious people in the restaurant
THINGS TO NOTICE
THINGS TO TRY
if you want to, you can click on a table and customers will sit there, or you can click a mobile agent and they will becom infected
try opening the windows and observe the flow of aerosol particles
trying using the view controls
EXTENDING THE MODEL
- load in restaurant from file
- click to create restaurant by placing tables etc manually
- save a specific configuration
- save a specific ordering of customers for re-testing
- further physicaly distancing, customers choose a seat far away from other tables
- wind directions and wind speed
- one-way system
- use of washroom
- portable fans to accelerate air flow
- adjust booking arrival intervals
- queue system
- reduced waiter contact
- more realistic dissipation of virus particles from breathing coughing etc
NETLOGO FEATURES
RELATED MODELS
CREDITS AND LICENCE
This simulation was created by Chris Hodgson as part of disseration research. Contact info: c.hodgson@sky.com
Under the supervison of Dr Savi Maharaj at the University of Stirling. Contact info: Email: sma@cs.stir.ac.uk
Full Dissertation: https://github.com/hodgsonc123/Modelling-COVID-19-in-a-restaurant-setting)
This work is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International License. http://creativecommons.org/licenses/by-nc-sa/4.0/
Comments and Questions
Please start the discussion about this model!
(You'll first need to log in.)
Click to Run Model
;breed declarations breed [tablesOfTwo tableOfTwo] breed [tablesOfSix tableOfSix] breed [tablesOfEight tableOfEight] breed [chairs chair] breed [waiters waiter] breed [customers customer] breed [bartenders bartender] breed [chefs chef] breed [nodes node] breed [sinks sink] breed [sanitisationStations sanitisationStation] breed [toilets toilet] breed [acOuts acOut] breed [screens screen] breed [largeTables largeTable] ;declare patch variables patches-own [ concentration ; viral aerosol count patchType ; wall, window, door etc airDirection ; natural ventilation air direction gridSquare ; grid square 1 - 72 in 3x3 chunks pushPull ; push pull patch pullDir ;direction of patch pulling air from airTransfer ;direction of patch pushing air into fomiteInfectedDoor ] turtles-own [legendFlag] ;declare waiters own variables waiters-own [ location ; current/most recent location node next-location ; next location on journey to destination final-location ; final destination ticks-since-here ; time at current location used for scheduling busy ; is waiter byst serving a table moving ; is the waiter moving timeAtLocation ; time spent at location assignedTable ; table num of final location table node infected ;infectious exposureTime ; not used? could be time-in-restaurant ;same as time spent at locatoin, needs removed coughTime ; time between coughs set by slider sneezeTime coughQueued ; is there a cough queued sneezeQueued ; risk ; aerosol and droplet infection risk inhalationProtection ; mask inhalation protection emissionProtection ; mask emission protection handContamination ; how dirty is a person hanfd fomiteRisk ; risk from fomites based on the hand contamination and face touches counted ; counted in infected count total ] ;declare customers own variables customers-own [ location next-location final-location previous-location moving timeAtLocation assignedTable ticks-since-here stayLength ;length of booking in ticks atTable ; is customer at table sat ; is customer sat in chair assignedTable assignedChair ; assigned chair at table toiletUse ; currently not used sinkUse toiletUsed sinkUsed infected exposureTime time-in-restaurant coughTime sneezeTime coughQueued sneezeQueued risk inhalationProtection emissionProtection handContamination fomiteRisk counted ] bartenders-own [ location next-location final-location ticks-since-here busy moving timeAtLocation assignedTable infected exposureTime time-in-restaurant coughTime sneezeTime coughQueued sneezeQueued risk inhalationProtection emissionProtection handContamination fomiteRisk counted ] chefs-own [location ; unused, implementation is there just commented out next-location final-location ticks-since-here infected] ; nodes variables nodes-own [ nodeType ; node type: table node, spawn/despawn node, waiting node, bar node tableNumber ; table number tableSize ;num of chairs at table beingServed ; is waiter on route to/serving the table occupied ; is the table taken needsOrder ; table states... needsDrinksOrder needsDrink needsFood hasFood needsCheckback needsCleared needsBill needsSanitised entryTick ; tick table became taken visits ; number of waiter/bartender table visits fomiteInfected ; is table fomite contaminated ] ; table variables tablesOfTwo-own[number nodeType fomiteInfected] tablesOfSix-own[number nodeType fomiteInfected] tablesOfEight-own[number nodeType fomiteInfected] ;chair variables chairs-own [ chairTaken ; chair occupied tableNo ; table number of chair chairNo ; chair number at this table e.g. a table of 2 will have chairNo 1 and chairNo 2 ] ;global variables globals [ numberOfTablesAndChairs ; count of turtles constant-output ; constant output of aerosols at current volume averageConcentration ; average concentration across all patches averageConcentrationTemp averageSpeed ; implemented but not used - average air speed averageSpeedTemp averageRisk ; average aerosol and droplet virus intake averageRiskTemp numAtRisk ; number of people at risk totalPutAtRisk averageFomiteRisk ; average fomite risk averageFomiteRiskTemp averageHand ; hand contamination value averageHandTemp averageStay ; implemented, only used in validation testing. average stay length averageStayTemp lastTableEntry ; implemented, only used in validation testing percentagePutAtRisk ; percentage put at risk leftWindowOpen topWindowOpen mouse-was-down? ; mouse clicked total-customers total-infectious colourIntensity ; colour intensity of aerosol concentration ] to setup clear-all resize-world -18 30 -23 17 set numberOfTablesAndChairs 0 ifelse twoM-distanced-seating = false [ ; call non-physically distanced set up methods setup-patches spawn-twos ;spawn tables of 2... spawn-sixs spawn-eights spawn-chairs spawn-nodes spawn-sinks setup-chair-links spawn-toilets spawn-sanitisation-stations spawn-acOut spawn-largeTable ;spawn-screens ask patch -5 12 [set plabel "SEATING AREA " set plabel-color black ] ] [ ; call physically distanced set up methods setup-patches spawn-twos-2 spawn-sixs-2 spawn-eights-2 spawn-chairs-2 spawn-nodes-2 spawn-sinks setup-chair-links-2 spawn-toilets spawn-sanitisation-stations spawn-acOut spawn-largeTable ask patch -5 10 [set plabel "SEATING AREA " set plabel-color black ] ] grid ; setup air direction grid squares spawn-waiters ;spawn mobile agents spawn-bartenders spawn-chefs spawn-legend ; spawn in agent turtles ask patch 9 4 [set plabel "BAR " set plabel-color black ] ask patch 17 13 [set plabel "KITCHEN " set plabel-color black ] ask patch -7 -19 [set plabel "TOILETS " set plabel-color black ] ask patch 11 -17 [set plabel "ENTRANCE" set plabel-color black ] ask patch -15 0 [set plabel "FRONT" set plabel-color black ] ask patch 0 16 [set plabel "SIDE" set plabel-color black ] reset-ticks end ; spawn in legend to spawn-legend create-turtles 1 [setxy 21 16 set color black set heading 90 ] ; create turtle for legend ask patch 25 16 [set plabel "Waiter" set plabel-color black ] ; create label for legend create-turtles 1 [setxy 21 14 set color 115 set heading 90 ] ask patch 26 14 [set plabel "Bartender" set plabel-color black ] create-turtles 1 [setxy 21 12 set color 83 set heading 90 ] ask patch 26 12 [set plabel "Customer" set plabel-color black ] create-turtles 1 [setxy 21 10 set color red set shape "infectedturtle" set heading 90 ] ask patch 28 10 [set plabel "Infected person" set plabel-color black ] create-turtles 1 [setxy 21 8 set color orange + 2 set heading 90 ] ask patch 29 8 [set plabel "Probable infection" set plabel-color black ] create-turtles 1 [setxy 21 6 set color grey set shape "square" set heading 90 ] ask patch 25 6 [set plabel "Door" set plabel-color black ] create-turtles 1 [setxy 21 4 set color 135 set shape "square" set heading 90 ] ask patch 29 4 [set plabel "Recirculation vent" set plabel-color black ] create-turtles 1 [setxy 21 2 set color black set shape "square" set heading 90 ] ask patch 24 2 [set plabel "Wall" set plabel-color black ] create-turtles 1 [setxy 21 0 set color blue set shape "square" set heading 90 ] ask patch 28 0 [set plabel "Closed window" set plabel-color black ] create-turtles 1 [setxy 16 -2 set color black set size 0.5 set shape "circle" ] ask patch 26 -2 [set plabel " Unoccupied Table node" set plabel-color black ] create-turtles 1 [setxy 16 -4 set color green set size 0.5 set shape "circle" ] ask patch 25 -4 [set plabel " Occupied Table node" set plabel-color black ] create-turtles 1 [setxy 16 -6 set color pink + 2 set size 0.5 set shape "circle" ] ask patch 22 -6 [set plabel "Regular node" set plabel-color black ] create-turtles 1 [setxy 16 -8 set color green set size 2 set shape "square" set heading 90 ] ask patch 22 -8 [set plabel "Table of two" set plabel-color black ] create-turtles 1 [setxy 16 -10 set color green set size 4 set shape "tableOfSix" set heading 90 ] ask patch 22 -10 [set plabel "Table of six" set plabel-color black ] create-turtles 1 [setxy 16 -13 set color green set size 4 set shape "tableOfEight" set heading 90 ] ask patch 23 -13 [set plabel "Table of eight" set plabel-color black ] create-turtles 1 [setxy 16 -16 set shape "square 2" set color yellow set heading 270 ] ask patch 20 -16 [set plabel "Chair" set plabel-color black ] create-turtles 1 [setxy 16 -18 set shape "sink" set color grey set size 2 set heading 270 ] ask patch 20 -18 [set plabel "Sink" set plabel-color black ] create-turtles 1 [setxy 16 -20 set shape "sanitisationstation" set color grey set heading 0 ] ask patch 24 -20 [set plabel "Sanitisation station" set plabel-color black ] create-turtles 1 [setxy 16 -22 set shape "square" set color red set heading 0 ] create-turtles 1 [setxy 15 -22 set shape "square" set color red + 1 set heading 0 ] create-turtles 1 [setxy 14 -22 set shape "square" set color red + 2 set heading 0 ] create-turtles 1 [setxy 13 -22 set shape "square" set color red + 3 set heading 0 ] create-turtles 1 [setxy 12 -22 set shape "square" set color red + 4 set heading 0 ] ask patch 28 -22 [set plabel "High number of viral aerosols" set plabel-color black ] ask patch 10 -22 [set plabel "Low number of viral aerosols" set plabel-color black ] end ; procedure to instantiate all others that handle the running of the simulation to go waiter-movement bartender-movement if manual-customer-spawn = false[ ; if manual spawning is off then call the automatic spawning procedure customer-table-assignment ] customer-movement ;chef-movement schedule infection airflow-control risk-control protection-control fomite-control mouse-manager ; hide/show view components ifelse toggle-links = false[ ask links[hide-link] ask nodes [ht] ] [ ask links[show-link] ask nodes [st] ] ifelse toggle-tables = false[ ask tablesOfTwo [ht] ask tablesOfSix [ht] ask tablesOfEight [ht] ] [ ask tablesOfTwo [st] ask tablesOfSix [st] ask tablesOfEight [st] ] ifelse toggle-chairs = false[ ask chairs[ht] ] [ ask chairs[st] ] ask nodes [ ifelse occupied = true[set color green] [ifelse occupied = 0 [set color 138][set color black]] ] ;ask patches with [pxcor < -14][set concentration 0] ;if ticks > length-of-service * 3600 and count customers = 0[stop] if ticks > (length-of-service * 3600 + (diningTime * 60 ) + 30)[stop] set averageStayTemp 0 ask customers [set averageStayTemp averageStayTemp + ticks-since-here] tick end ; report if mouse was clicked to-report mouse-clicked? report (mouse-was-down? = true and not mouse-down?) end ;handle momuse click actions to mouse-manager let mouse-is-down? mouse-down? let spawn false let no 100 if mouse-clicked? [ ask patch mouse-xcor mouse-ycor [ if any? turtles-here with [(breed = customers or breed = waiters or breed = bartenders)][ ;if mouse cliecked infect turtle ask turtles-here with [(breed = customers or breed = waiters or breed = bartenders)][set infected true set shape "infectedturtle" ask patches with [patchType = "door"][set fomiteInfectedDoor true]] ] if any? turtles-here with [breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight][ ; if table clicked, fill with customers. ask turtles-here with [breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight][set no number] ask one-of nodes with [tableNumber = no][ if occupied = false[ set spawn true ] ] ] ] if spawn = true [ ; spawn the customers carefully[ let sizeT 0 let tNo 1 ask one-of nodes with [tableNumber = no] [ set occupied true set entryTick ticks show no ask link-neighbors[ if breed = chairs [ set sizeT [tableSize] of myself set tNo [tableNumber] of myself ] ] ] spawn-customers sizeT tNo false ] [ show "issue" ] set no 100 ] ] set mouse-was-down? mouse-is-down? end ; handling of the agents fomite transfer. to fomite-control if ticks mod 1800 = 0 [ask patches with [patchType = "door"][set fomiteInfectedDoor false]] ; clean the door every 30 mins ask customers with [infected != true] [ if [fomiteInfected] of one-of nodes with [tableNumber = [assignedTable] of myself] = true and ticks-since-here mod 120 = 0[ ; simulate contact with contaminated surface set handContamination handContamination + 1 ] ; if [fomiteInfected] of one-of nodes with [tableNumber = [assignedTable] of myself] = true and ticks-since-here mod 60 = 0 and handContamination >= 5[ ; ; set handContamination handContamination + 1 ; ] ifelse masks = true [ ;mask wearing face touches. with/without masks if ticks-since-here mod 667 = 0 and handContamination != 0 [set fomiteRisk fomiteRisk + handContamination] ;5.4 face touches per hour with mask https://www.ncbi.nlm.nih.gov/pmc/articles/PMC7404441/ ] [ if ticks-since-here mod 180 = 0 and handContamination != 0 [set fomiteRisk fomiteRisk + handContamination];20 per hour without ] if sanitiser-on-tables = true and ticks-since-here mod ((diningTime * 60) / 2) = 0[ ; wash hands. reduce hand contamination value by hand wahsing thoroughness percentage at the start, middle and end of the meal set handContamination handContamination * (1 - (handwashing-thoroughness / 100)) ] ] ifelse doors-open = true [ ask patches with [pxcor > 7 and pxcor < 12 and pycor = -14] [set pcolor white] ] [ ask patches with [pxcor > 7 and pxcor < 12 and pycor = -14] [set pcolor grey] ] ask patches with [patchType = "door"][ ; contact transfer of the door if pcolor = grey[ if fomiteInfectedDoor = true[ if any? customers-here with [infected != true][ ask customers-here [set handContamination handContamination + 1] ] ] if any? customers-here with [infected = true][ set fomiteInfectedDoor true ] ] ] ;average fomite risk set averageFomiteRiskTemp 0 if count turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0] > 0[ ask turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0][set averageFomiteRiskTemp averageFomiteRiskTemp + fomiteRisk] set averageFomiteRisk averageFomiteRiskTemp / count turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0] ] ;average fomite hand contamination set averageHandTemp 0 if count turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0] > 0[ ask turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0][set averageHandTemp averageHandTemp + handContamination] set averageHand averageHandTemp / count turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0] ] end ; mask protection control method to protection-control ifelse masks = true[ ; if masks are on, set protection values for customers ask turtles with [breed = waiters or breed = bartenders][ set inhalationProtection 100 - mask-effectiveness-inhalation set emissionProtection 100 - mask-effectiveness-emission ] ask customers[ ; if no food set customers mask protection, else they have food then remove masks ifelse ([hasFood] of one-of nodes with [tableNumber = [assignedTable] of myself]) = false[ set inhalationProtection 100 - mask-effectiveness-inhalation set emissionProtection 100 - mask-effectiveness-emission ] [ set inhalationProtection 100 set emissionProtection 100 ] ] ] [ ask turtles with [breed = customers or breed = waiters or breed = bartenders][ set inhalationProtection 100 set emissionProtection 100 ] ] end ; handling infection risk of agents through aerosols to risk-control ask turtles with [(breed = customers or breed = waiters or breed = bartenders) and infected = 0][ ;ask sucseptible agents set risk risk + ((([concentration] of patch-here / 125000) * 100) * (inhalationProtection / 100)) ; increase risk by percentage of aerosol concentration if risk >= 300 [set color orange + 2 if counted = 0 [set totalPutAtRisk totalPutAtRisk + 1 set counted true]] ; if inhaled infectious dose of aerosols then count as infected agent ] ask turtles with [(breed = customers or breed = waiters or breed = bartenders) and infected = true][ ; count of infectious agents if counted = 0 [set total-infectious total-infectious + 1 set counted true] ] set percentagePutAtRisk (totalPutAtRisk / (total-customers + count waiters + count bartenders)) * 100 ; calculate percentage of agents that have recieved and infectious dose end ; method to check which windows are open and call ventilation method. to airflow-control if top-windows-open = false and left-windows-open = false[ ask patches with [patchType = "topWindow"][set pcolor blue ] ask patches with [patchType = "leftWindow"][set pcolor blue ] set topWindowOpen false set leftWindowOpen false ] if top-windows-open = true and left-windows-open = false[ ask patches with [patchType = "topWindow"][set pcolor white ] ask patches with [patchType = "leftWindow"][set pcolor blue ] if topWindowOpen != true or leftWindowOpen != false[ top-airpaths ] ventilation ] if top-windows-open = false and left-windows-open = true[ ask patches with [patchType = "topWindow"][set pcolor blue ] ask patches with [patchType = "leftWindow"][set pcolor white ] if topWindowOpen != false or leftWindowOpen != true[ left-airpaths ] ventilation ] if top-windows-open = true and left-windows-open = true[ ask patches with [patchType = "topWindow"][set pcolor white ] ask patches with [patchType = "leftWindow"][set pcolor white ] if topWindowOpen != true or leftWindowOpen != true[ left-top-airpaths ] ventilation ] end ; infection method mainly handling the emission of aerosols and droplets. different volumes, coughing, sneezing to infection ;calculating averages set averageConcentrationTemp 0 ask patches with [patchType = 0][set averageConcentrationTemp averageConcentrationTemp + concentration] set averageConcentration averageConcentrationTemp / count patches with [patchType = 0] set averageSpeedTemp 0 ask patches with [patchType = 0][set averageSpeedTemp averageSpeedTemp + airTransfer] set averageSpeed averageSpeedTemp / count patches with [ patchType = 0] set averageRiskTemp 0 if count turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0] > 0[ ask turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0][set averageRiskTemp averageRiskTemp + risk] set averageRisk averageRiskTemp / count turtles with [(breed = waiters or breed = customers or breed = bartenders) and infected = 0] ] if recirculation = true[ ; recirculation of aerosols. hightened concentration near ac out vents. if ticks mod 10 = 0 [ ask acOuts [ let me self ask patches with [distance me <= 4 and patchType != "entry" and patchType != "outside" and patchType != "wall" and patchType != "door" and patchType != "bar" and patchType != "leftWindow" and patchType != "topWindow"][ if distance me <= 4[ set concentration concentration + (((averageConcentrationTemp) * ((100 / ((60 / air-refresh-rate) * 60)) / 100)) / 7.7625) show averageConcentrationTemp ] ] ] ] ] ask patches with [patchType = 0] [ ; ask indoor patches to reduce cocentration by air refresh rate and colour path on concentration colour scale if concentration > 0 [set concentration concentration - (concentration * ((100 / (3600 / (air-refresh-rate + noOfPortableHEPA))) / 100))] ifelse exaggerated-colouring = true [set colourIntensity 1000][set colourIntensity 2000] set pcolor scale-color red concentration colourIntensity 0 if concentration > 200 and ticks mod 10 = 0 [ ;every ten secs diffuse high concentration patches. every ten seconds and high concentration because every tick is too much for netlogo to handle set concentration concentration - 50 ask patches with [patchType = 0][ ;split a portion of particles among full restaurant set concentration concentration + (50 / count patches with [patchType != "entry" and patchType != "wall" and patchType != "outside" and patchType != "door" and patchType != "topWindow" and patchType != "leftWindow"]) ] ] ] ask turtles with [(breed = waiters or breed = bartenders or breed = customers) and infected = true] [ ; set output of viral aerosols based on volume 50db, 60db, 70db let me self ifelse volume = 50 [set constant-output 135 * 0.269 * (emissionProtection / 100)] [ ifelse volume = 60 [set constant-output 189 * 0.269 * (emissionProtection / 100)] [ if volume = 70[set constant-output 309 * 0.269 * (emissionProtection / 100)] ] ] ask patch-here [ ; spread of aerosol particles around a person. as patches get further away, the concentration is lowered as divided by more patches. set concentration concentration + ((constant-output / 4 / 5.4 )) ; divided by 4 place a quarter of the aerosols on the patch of the infectious person. Divided by 5.4 to represent head height patches 2.7 ceiling height / 2 = 5.4 in 0.5m ask patches with [distance myself < 2 and distance myself >= 1 and patchType = 0] [ set concentration concentration + (constant-output / 4 / (count patches with [distance myself < 2 and distance myself >= 1 and patchType = 0]) / 5.4) ] ask patches with [distance myself >= 2 and distance myself < 3 and patchType = 0][ set concentration concentration + (constant-output / 4 / (count patches with [distance myself >= 2 and distance myself < 3 and patchType = 0]) / 5.4) ] ask patches with [patchType = 0][set concentration concentration + (constant-output / 4) / (count patches with [distance myself >= 3 and patchType = 0]) / 5.4] ] if time-in-restaurant mod (cough-frequency * 60) = 0 and coughing = true [ ; cough 3 metre aerosol plume ask patches in-cone 6 45 [if patchType != "outside" and patchType != "wall" and patchType != "leftWindow" and patchtype != "topWindow" and patchType != "door"[set concentration concentration + (((3000 * 0.35) / [count patches with [patchType = 0] in-cone 6 45] of myself) * ((100 - mask-effectiveness-emission) / 100))]] set coughQueued false show "cough" ask other turtles in-cone 4 30 [ ; cough droplets if breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight [set fomiteInfected true set color red] ; fomite table contamination if (breed = customers or breed = waiters or breed = bartenders) and ([heading] of self < [heading] of me + 270 and [heading] of self > [heading] of me + 90)[set risk risk + 4 * ((100 - mask-effectiveness-emission) / 100)] ] ask turtles with [(breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight) and fomiteInfected = true][ask one-of nodes with [tableNumber = [number] of myself][set fomiteInfected true]] ; update fomite infection boolean of node ] if time-in-restaurant mod (sneeze-frequency * 60) = 0 and sneezing = true [ ;sneeze 6m aerosol plume ask patches in-cone 12 30 [if patchType != "outside" and patchType != "wall" and patchType != "leftWindow" and patchtype != "topWindow" and patchType != "door" [set concentration concentration + (((40000 * 0.35) / [count patches with [patchType = 0] in-cone 12 30] of myself) * ((100 - mask-effectiveness-emission) / 100))]] show "sneeze" ask turtles in-cone 4 30 [ if (breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight) [set fomiteInfected true set color red] if (breed = customers or breed = waiters or breed = bartenders) and ([heading] of self < [heading] of me + 270 and [heading] of self > [heading] of me + 90)[set risk risk + 48 * ((100 - mask-effectiveness-emission) / 100)] ] ask turtles with [(breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight) and fomiteInfected = true][ask one-of nodes with [tableNumber = [number] of myself][set fomiteInfected true]] ] ] end ; controlling the transfer of aerosols between patches for natural ventilation to ventilation ask patches with [patchType = 0][ ifelse pushPull = 0[ ; push pull means rather than just outputing aerosols into the patch at sirDirection, it also pulls from another specified direction rather than relying on just getting pushed ask patch-at-heading-and-distance airDirection 1 [ set concentration concentration + ([concentration] of myself) * airTransfer] ; push percentage of aerosol concentration into patch at airDirection dist 1 set concentration concentration * (1 - airTransfer) ] [ ask patch-at-heading-and-distance airDirection 1 [ set concentration concentration + ([concentration] of myself ) * airTransfer] ;push into set concentration concentration * (1 - airTransfer) set concentration concentration + ([concentration] of patch-at-heading-and-distance (pullDir + 180) 1) * airTransfer ask patch-at-heading-and-distance (pullDir + 180) 1 [set concentration concentration * (1 - airTransfer)] ;pull from ] ] ask patches with [patchType = "topWindow" or patchType = "outside" or patchType = "leftWindow"][set concentration 0] ; set window patches to 0 concentration end ;scheduling of orders etc/table states stored in table nodes to schedule ask nodes with [occupied = true and nodeType = "table"] [ let timeOccupied ticks - entryTick + 1 if (diningTime * 60) / timeOccupied < 20 and visits = 0[ ; does the table need a drinks order taken (if not visited and less than 1/20th of the way through the meal) set needsDrinksOrder true ; set state to needs drinks order ] if (diningTime * 60) / timeOccupied < 12 and visits = 1 and needsDrinksOrder = false [ set needsDrink true ] if (diningTime * 60) / timeOccupied < 6 and visits = 2[ set needsOrder true ] if (diningTime * 60) / timeOccupied < 2.4 and visits = 3[ set needsFood true ] if (diningTime * 60) / timeOccupied < 2.222 and visits = 4[ set needsCheckback true ] if (diningTime * 60) / timeOccupied < 1.333333 and visits = 5[ set needsCleared true ] if (diningTime * 60) / timeOccupied < 1.15 and visits = 6[ set needsBill true ] ; schedule calculation ; drinks order - 180 - 3 mins drinks order (diningTime)3600/180(time-occupied) = 20 ; food order - 600 - 10 mins food order 3600/600 = 6 ; needs food - 1500 - 25 mins get food 3600/1500 = 2.4 ;checkback - 1620 - 27 mins checkback 3600/1620 = 2.22222222 ; cleared - 2700 - 45 mins clear plates 3600/2700 = 1.33333333 ; leave - 3600 - 1 hour leave 3600/3600 = 1 ] ask nodes with [occupied = false and visits = 7][set needsSanitised true] ;show "needs santised"] ask nodes with [occupied = false and visits = 8 and needsSanitised = false][set visits 0 ];show "table reset"] end ; waiter movement across network node. actions triggered by tables states. to waiter-movement ask waiters[ let local-location location ; local variables to store location let local-next-location next-location let local-final-location final-location let local-busy busy let stay-here-for 30 let me self if [nodeType] of final-location = "table" [set assignedTable [tableNumber] of final-location] ;set waiters assigned table to table number of final location set time-in-restaurant time-in-restaurant + 1 ; increase time-in-restaurant of waiter ifelse location = final-location [ ;if at final location set stop moving for 30 ticks and if table, face table set moving false if [nodeType] of location = "table" [ face one-of turtles with [(breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight) and number = [assignedTable] of me] ] ] [ set moving true ] ifelse distance final-location < 1[ ; if close to final location then move to it and update the locations move-to final-location set location final-location set local-location final-location if [ticks-since-here] of me > stay-here-for ; if been here for more than 30 ticks [ set ticks-since-here 0 ;ordering of the following if statements is to prioritise order then food then checkback etc. as taking an order is more important than clearing a plate ifelse count nodes with [needsOrder = true and beingServed = false] > 0 and busy = false[ ask one-of nodes with [needsOrder = true][ ;set location of waiter to table that needs order set local-final-location self set local-busy true set beingServed true set visits 3 ] ] [ ifelse count nodes with [needsFood = true and beingServed = false] > 0 and busy = false[ ask one-of nodes with [needsFood = true][ ; ask all nodes set local-final-location self set local-busy true set beingServed true set visits 4 ] ] [ ifelse count nodes with [needsCheckback = true and beingServed = false] > 0 and busy = false[ ask one-of nodes with [needsCheckback = true][ ; ask all nodes set local-final-location self set local-busy true set beingServed true set visits 5 ] ] [ ifelse count nodes with [needsCleared = true and beingServed = false] > 0 and busy = false[ ask one-of nodes with [needsCleared = true][ ; ask all nodes set local-final-location self set local-busy true set beingServed true set visits 6 ] ] [ ifelse count nodes with [needsBill = true and beingServed = false] > 0 and busy = false[ ask one-of nodes with [needsBill = true][ ; ask all nodes set local-final-location self set local-busy true set beingServed true set visits 7 ] ] [ ifelse count nodes with [needsSanitised = true and beingServed = false] > 0 and busy = false[ ask one-of nodes with [needsSanitised = true][ ; ask all nodes set local-final-location self set local-busy true set beingServed true set visits 8 ] ] [ if busy = true[ set local-final-location one-of nodes with [nodeType = "waitingNode" and occupied = false] ] set local-busy false face one-of nodes with [nodeType = "centreNode"] ] ] ] ] ] ] ask location [ ; update the state of the current node ifelse needsOrder = true [ set needsOrder false set beingServed false ] [ ifelse needsFood = true[ set needsFood false set hasFood true set beingServed false ] [ ifelse needsCheckback = true [ set needsCheckback false set beingServed false ] [ ifelse needsCleared = true[ set needsCleared false set hasFood false set beingServed false ] [ ifelse needsBill = true[ set needsBill false set beingServed false ] [ if needsSanitised = true[ set needsSanitised false set beingServed false set fomiteInfected false ask one-of turtles with [(breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight) and number = [tableNumber] of myself][set fomiteInfected false set color green ] ] ] ] ] ] ] ] set final-location local-final-location ;update actual variables with local variables set busy local-busy set local-final-location final-location ask location [ ; ask current location for closest neighbor let closestDistance 1000.0 let closestNode one-of link-neighbors ask link-neighbors [ if (distance local-final-location) <= closestDistance and breed = nodes[ set closestDistance distance local-final-location set closestNode self ] ] set local-next-location closestNode ] set next-location local-next-location ] set ticks-since-here ticks-since-here + 1 ] [ ifelse distance next-location < 1 ; if distance to next location is less then one then move to the node [ move-to next-location set location next-location set local-location next-location ask location [ ; ask current location for closest neighbor let closestDistance 1000.0 let closestNode one-of link-neighbors ask link-neighbors [ ; ask current location for closest neighbor if (distance local-final-location) <= closestDistance and breed = nodes[ set closestDistance distance local-final-location set closestNode self ] ] ask closestNode [set color red] set local-next-location closestNode ] set next-location local-next-location ] [ ;if not at location step towards it face next-location fd 1 ] ] ] end to customer-movement ask customers [ let local-location location let local-next-location next-location let local-final-location final-location let me self set ticks-since-here ticks-since-here + 1 if atTable = false[ ifelse distance final-location < 1[ set atTable true move-to final-location set location final-location set local-location final-location set final-location one-of other nodes set local-final-location final-location ;set next-location one-of [link-neighbors] of location set final-location local-final-location ask location [ let closestDistance 1000.0 let closestNode one-of link-neighbors ask link-neighbors [ if (distance local-final-location) <= closestDistance and breed = nodes[ set closestDistance distance local-final-location set closestNode self ] ] set local-next-location closestNode ] set next-location local-next-location ] [ ifelse distance next-location < 1 and atTable = false [ move-to next-location set location next-location set local-location next-location ;set next-location one-of [link-neighbors] of location ask location [ let closestDistance 1000.0 let closestNode one-of link-neighbors ask link-neighbors [ if (distance local-final-location) <= closestDistance and breed = nodes[ set closestDistance distance local-final-location set closestNode self ] ] set local-next-location closestNode ask closestNode [set color red] ] set next-location local-next-location ] [ face next-location fd 1 ] ] ] ;sitting process if atTable = true and sat = false[ ;if at table but not sat, assign empty chair to customer and seat them there carefully[ move-to one-of chairs with [tableNo = [assignedTable] of myself and chairTaken = false] ; ask customer to move to one of the empty chairs at assigned table set sat true ; set sat true ask chairs [if any? turtles-here with [breed = customers][set chairTaken true]] ; if a customers is on a chaiur set chait taken to true face one-of turtles with [(breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight) and nodeType = "physicalTable" and number = [assignedTable] of myself] ; face the table ] [show "error" ask chairs [if not any? turtles-here with [breed = customers] [set chairTaken false]]] ; try again if unsuccessful ] ;leaving process let local-visits 0 ask nodes with [tableNumber = [assignedTable] of myself][set local-visits visits] if ticks-since-here > (diningTime * 60) and local-visits >= 7 [ ; if customer has been here for a long time tell them to leave set atTable false set sat false set final-location one-of nodes with [nodeType = "spawnDespawn"] ask chairs with [tableNo = [assignedTable] of myself][set chairTaken false] ; set their chair to not taken ask nodes with [tableNumber = [assignedTable] of myself][set occupied false] ; set their table to not occupied ask location [if nodeType = "spawnDespawn"[ask myself[die]]] ] ifelse sat = true [set moving false][set moving true] ] end to bartender-movement ask bartenders[ let local-location location let local-next-location next-location let local-final-location final-location let local-busy busy let stay-here-for 30 let me self set time-in-restaurant time-in-restaurant + 1 if [nodeType] of final-location = "table" [set assignedTable [tableNumber] of final-location] ifelse location = final-location [set moving false if [nodeType] of location = "table" [face one-of turtles with [(breed = tablesOfTwo or breed = tablesOfSix or breed = tablesOfEight) and number = [assignedTable] of me]]][set moving true] ifelse distance final-location < 1[ move-to final-location set location final-location set local-location final-location if [ticks-since-here] of me > stay-here-for ; if been ohere for more than 30 ticks [ set ticks-since-here 0 ifelse count nodes with [needsDrinksOrder = true and beingServed = false] > 0 and busy = false[ ask one-of nodes with [needsDrinksOrder = true][ ; ask all nodes set local-final-location self set local-busy true set beingServed true set visits 1 ;show "getting drinks order" ] ] [ ifelse count nodes with [needsDrink = true and beingServed = false] > 0 and busy = false[ ask one-of nodes with [needsDrink = true][ ; ask all nodes set local-final-location self set local-busy true set beingServed true set visits 2 ;show "getting drinks" ] ] [ if busy = true[set local-final-location one-of nodes with [nodeType = "barNode"]] set local-busy false face one-of nodes with [nodeType = "centreNode"] ] ] ask location [ ifelse needsDrinksOrder = true [ set needsDrinksOrder false set beingServed false ;show "drinks order received" ] [ if needsDrink = true[ set needsDrink false set beingServed false ;show "drinks received" ] ] ] set final-location local-final-location set busy local-busy set local-final-location final-location ;set next-location one-of [link-neighbors] of location ask location [ ; ask current location for closest neighbor let closestDistance 1000.0 let closestNode one-of link-neighbors ask link-neighbors [ if (distance local-final-location) <= closestDistance and breed = nodes[ set closestDistance distance local-final-location set closestNode self ] ] set local-next-location closestNode ] set next-location local-next-location ] set ticks-since-here ticks-since-here + 1 ] [ ifelse distance next-location < 1 [ move-to next-location set location next-location set local-location next-location ;set next-location one-of [link-neighbors] of location ask location [ let closestDistance 1000.0 let closestNode one-of link-neighbors ask link-neighbors [ if (distance local-final-location) <= closestDistance and breed = nodes[ set closestDistance distance local-final-location set closestNode self ] ] ask closestNode [set color red] set local-next-location closestNode ] set next-location local-next-location ] [ face next-location fd 1 ] ] ] end to chef-movement ask chefs[ let local-location location let local-next-location next-location let local-final-location final-location let stay-here-for 60 let me self ifelse distance final-location < 1[ move-to final-location set location final-location set local-location final-location if [ticks-since-here] of me > stay-here-for ; if been ohere for more than 30 ticks [ set ticks-since-here 0 ask one-of nodes with [nodeType = "kitchenNode"][ ; ask all nodes set local-final-location self ] set final-location local-final-location set local-final-location final-location ;set next-location one-of [link-neighbors] of location ask location [ ; ask current location for closest neighbor let closestDistance 1000.0 let closestNode one-of link-neighbors ask link-neighbors [ set closestNode self ] set local-next-location closestNode ] set next-location local-next-location ] set ticks-since-here ticks-since-here + 1 ] [ ifelse distance next-location < 1 [ move-to next-location set location next-location set local-location next-location ;set next-location one-of [link-neighbors] of location ask location [ let closestDistance 1000.0 let closestNode one-of link-neighbors ask link-neighbors [ set closestNode self ] ask closestNode [set color red] set local-next-location closestNode ] set next-location local-next-location ] [ face next-location fd 0.5 ] ] ] end ;spawn waiters with initial values to spawn-waiters let numberOfWaiters noOfWaiters create-waiters numberOfWaiters [ move-to one-of nodes with [nodeType = "waitingNode"] set location one-of nodes with [nodeType = "waitingNode"] set color black set busy false set final-location one-of nodes with [nodeType = "waitingNode"] set next-location one-of [link-neighbors] of location set coughQueued false set sneezeQueued false let infectedChance random 10000; chance of being infected if infectedChance < (chance-of-being-infected * 100) [set infected true set shape "infectedTurtle"] ] end ;assign correct number of customers to a table to customer-table-assignment carefully[ let sizeT 0 let tNo 1 ifelse ticks mod 300 = 0 and any? nodes with [nodeType = "table" and occupied = false and needsSanitised = false] and (count customers + count waiters + count bartenders) < capacity and ticks < length-of-service * 3600[ ask one-of nodes with [nodeType = "table" and occupied = false and (count customers + count waiters + count bartenders + tableSize) <= capacity] [ set occupied true set entryTick ticks set lastTableEntry ticks ask link-neighbors[ if breed = chairs [ set sizeT [tableSize] of myself set tNo [tableNumber] of myself ] ] ] spawn-customers sizeT tNo false ] [ ] ] [ show "issue" ] end ;queue not used. spawn num of customers (size of table), and tab, assigned unoccupied table ;some variables unused like sinkUsed etc to spawn-customers[num tab queue] let numberOfCustomers num let holder num create-customers numberOfCustomers [ move-to one-of nodes with [nodeType = "spawnDespawn"] set location one-of nodes with [nodeType = "spawnDespawn"] set color 83 set atTable false set sat false set toiletUse false set sinkUse false set toiletUsed false set sinkUsed false set stayLength diningTime * 60 set assignedTable tab set final-location one-of nodes with [tableNumber = tab] set next-location one-of [link-neighbors] of location set heading 0 set coughQueued false set sneezeQueued false set assignedChair holder set holder holder - 1 set total-customers total-customers + 1 let infectedChance random 10000 ; chance of being infected if infectedChance < (chance-of-being-infected * 100) [set infected true set shape "infectedTurtle"] set sinkUse true ] end to spawn-bartenders let numberOfBartenders 1 create-bartenders numberOfBartenders [ move-to one-of nodes with [nodeType = "barNode"] set location one-of nodes with [nodeType = "barNode"] set color violet set busy false set final-location one-of nodes with [nodeType = "barNode"] set next-location one-of [link-neighbors] of location set coughQueued false set sneezeQueued false let infectedChance random 10000 if infectedChance < (chance-of-being-infected * 100) [set infected true set shape "infectedTurtle"] ] end to spawn-chefs let numberOfChefs 2 create-chefs numberOfChefs [ move-to one-of nodes with [nodeType = "kitchenNode"] set location one-of nodes with [nodeType = "kitchenNode"] set color grey set final-location one-of nodes with [nodeType = "kitchenNode"] set next-location one-of [link-neighbors] of location let infectedChance random 100 if infectedChance < chance-of-being-infected [set infected true] ] end ; spawning of table of two to spawn-twos let numberOfTwos 11 let tableOfTwoXCoordsList [-9.5 -9.5 -9.5 -9.5 -5.5 -5.5 -3.5 -5.5 -5.5 -2.5 -2.5] let tableOfTwoYCoordsList [-9.5 -5.5 3.5 7.5 7.5 3.5 -0.5 -5.5 -9.5 -5.5 -9.5] create-tablesOfTwo numberOfTwos let i 0 while[i < numberOfTwos][ ask tableOfTwo numberOfTablesAndChairs [setxy item i tableOfTwoXCoordsList item i tableOfTwoYCoordsList set shape "tableOfTwo" set size 2 set color green set nodeType "physicalTable"] set i i + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask tableOfTwo 0 [set number 1 ] ; setting table nubmers ask tableOfTwo 1 [set number 2 ] ask tableOfTwo 2 [set number 4 ] ask tableOfTwo 3 [set number 5 ] ask tableOfTwo 4 [set number 6 ] ask tableOfTwo 5 [set number 7 ] ask tableOfTwo 6 [set number 8 ] ask tableOfTwo 7 [set number 9 ] ask tableOfTwo 8 [set number 10 ] ask tableOfTwo 9 [set number 12] ask tableOfTwo 10 [set number 11] end ; physically distanced seating tables of 2 to spawn-twos-2 let numberOfTwos 10 let tableOfTwoXCoordsList [-10.5 -10.5 -8.5 -1.5 5.5 -2 -2.5 -2.5 -6.5 -6.5] let tableOfTwoYCoordsList [-8.5 -1.5 12.5 12.5 12.5 5.5 -1.5 -8.5 -8.5 -1.5] create-tablesOfTwo numberOfTwos let i 0 while[i < numberOfTwos][ ask tableOfTwo numberOfTablesAndChairs [setxy item i tableOfTwoXCoordsList item i tableOfTwoYCoordsList set shape "tableOfTwo" set size 2 set color green set nodeType "physicalTable"] set i i + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask tableOfTwo 0 [set number 1 ] ask tableOfTwo 1 [set number 2 ] ask tableOfTwo 2 [set number 4 ] ask tableOfTwo 3 [set number 5 ] ask tableOfTwo 4 [set number 6 ] ask tableOfTwo 5 [set number 7 ] ask tableOfTwo 6 [set number 11 ] ask tableOfTwo 7 [set number 10 ] ask tableOfTwo 8 [set number 9 ] ask tableOfTwo 9 [set number 8 ] end to spawn-sixs let numberOfSixs 3 let tableOfSixXCoordsList [1.5 1.5 1.5] let tableOfSixYCoordsList [2 -3 -8] create-tablesOfSix numberOfSixs let j 0 while[j < numberOfSixs][ ask tableOfSix numberOfTablesAndChairs [ setxy item j tableOfSixXCoordsList item j tableOfSixYCoordsList set shape "tableOfSix" set size 4 set color green set nodeType "physicalTable" set heading 0] set j j + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask tableOfSix 11 [set number 14] ask tableOfSix 12 [set number 15] ask tableOfSix 13 [set number 16] end to spawn-sixs-2 let numberOfSixs 3 let tableOfSixXCoordsList [3 2 2] let tableOfSixYCoordsList [5.5 -1.5 -8.5] create-tablesOfSix numberOfSixs let j 0 while[j < numberOfSixs][ ask tableOfSix numberOfTablesAndChairs [ setxy item j tableOfSixXCoordsList item j tableOfSixYCoordsList set shape "tableOfSix" set size 4 set color green set nodeType "physicalTable" set heading 90] set j j + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask tableOfSix 10 [set number 12 ] ask tableOfSix 11 [set number 13 ] ask tableOfSix 12 [set number 14 ] end to spawn-eights let numberOfEights 2 let tableOfEightXCoordsList [-8.5 -0.5] let tableOfEightYCoordsList [-1 7.5] create-tablesOfEight numberOfEights let k 0 while[k < numberOfEights][ ask tableOfEight numberOfTablesAndChairs [ setxy item k tableOfEightXCoordsList item k tableOfEightYCoordsList set shape "tableOfEight" set size 4 set color green set nodeType "physicalTable"] set k k + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask tableOfEight 14 [set number 3 ] ask tableOfEight 15 [set number 13] end to spawn-eights-2 let numberOfEights 1 let tableOfEightXCoordsList [-8.5] let tableOfEightYCoordsList [6] create-tablesOfEight numberOfEights let k 0 while[k < numberOfEights][ ask tableOfEight numberOfTablesAndChairs [ setxy item k tableOfEightXCoordsList item k tableOfEightYCoordsList set shape "tableOfEight" set size 4 set color green] set k k + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask tableOfEight 13 [set number 3 set nodeType "physicalTable"] end to spawn-largeTable ;bar and kitchen tables let numberOfLargeTables 2 let tableOfLargeTableXCoordsList [15.5 8.5] let tableOfLargeTableYCoordsList [7.5 -1] create-largeTables numberOfLargeTables let k 0 while[k < numberOfLargeTables][ ask largeTable numberOfTablesAndChairs [ setxy item k tableOfLargeTableXCoordsList item k tableOfLargeTableYCoordsList set shape "largeTable" set size 20 set color green] set k k + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] end to spawn-chairs let numberOfChairs 56 let chairsXCoordsList [-9.5 -9.5 -9.5 -9.5 -11 -6 -8.5 -8.5 -10 -10 -7 -7 -9.5 -9.5 -9.5 -9.5 -5.5 -5.5 -5.5 -5.5 -3.5 -3.5 -5.5 -5.5 -5.5 -5.5 -2.5 -2.5 -2.5 -2.5 -0.5 -0.5 -3 2 1 1 -2 -2 0 0 0 3 3 3 0 0 0 3 3 3 0 0 0 3 3 3 0 0 ] let chairsYCoordsList [-11 -8 -7 -4 -1 -1 -3.5 1.5 -3 1 1 -3 2 5 6 9 6 9 2 5 1 -2 -4 -7 -8 -11 -4 -7 -8 -11 5 10 7.5 7.5 9.5 5.5 9.5 5.5 3 2 1 3 2 1 -2 -3 -4 -2 -3 -4 -7 -8 -9 -7 -8 -9] create-chairs numberOfChairs let l 0 while[l < numberOfChairs][ ask chair numberOfTablesAndChairs [ setxy item l chairsXCoordsList item l chairsYCoordsList set shape "square 2" set color yellow set chairTaken false set heading 0] if l > 3 and l < 12 [ask chair numberOfTablesAndChairs [face tableOfEight 14]] if l > 30 and l < 39 [ask chair numberOfTablesAndChairs [face tableOfEight 15]] set l l + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] end to spawn-chairs-2 let numberOfChairs 46 let chairsXCoordsList [-10.5 -10.5 -10.5 -10.5 -8.5 -10 -11 -10 -8.5 -7 -6 -7 -10 -7 -3 4 7 0 -2 -2 -6.5 -6.5 -6.5 -6.5 -2.5 -2.5 -2.5 -2.5 2 3 4 2 3 4 1 2 3 1 2 3 1 2 3 1 2 3] let chairsYCoordsList [-10 -7 -3 0 3.5 4 6 8 8.5 8 6 4 12.5 12.5 12.5 12.5 12.5 12.5 7 4 -3 -7 -10 0 -10 -7 -3 0 7 7 7 4 4 4 0 0 0 -3 -3 -3 -7 -7 -7 -10 -10 -10] create-chairs numberOfChairs let l 0 while[l < numberOfChairs][ ask chair numberOfTablesAndChairs [ setxy item l chairsXCoordsList item l chairsYCoordsList set shape "square 2" set color cyan set chairTaken false set heading 0] if l > 4 and l < 12 [ask chair numberOfTablesAndChairs [face tableOfEight 13]] set l l + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] end to spawn-sinks let numberOfSinks 3 create-sinks numberOfSinks set numberOfTablesAndChairs numberOfTablesAndChairs + numberOfSinks ask sink (numberOfTablesAndChairs - 3) [setxy -11 -18 set size 2 set shape "sink" set color grey set heading 270] ask sink (numberOfTablesAndChairs - 2) [setxy -4 -18 set size 2 set shape "sink" set color grey set heading 270] ask sink (numberOfTablesAndChairs - 1) [setxy 10 -5 set size 2 set shape "sink" set color grey set heading 270] end to spawn-toilets let numberOfToilets 2 create-toilets numberOfToilets set numberOfTablesAndChairs numberOfTablesAndChairs + numberOfToilets ask toilet (numberOfTablesAndChairs - 2) [setxy -7 -18 set size 3 set shape "toilet" set color grey set heading 0] ask toilet (numberOfTablesAndChairs - 1) [setxy 0 -18 set size 3 set shape "toilet" set color grey set heading 0] end to spawn-sanitisation-stations let numberOfSanitisationStations 2 create-sanitisationStations numberOfSanitisationStations set numberOfTablesAndChairs numberOfTablesAndChairs + numberOfSanitisationStations ask sanitisationStation (numberOfTablesAndChairs - 2) [setxy 10 -15 set size 1 set shape "sanitisationStation" set color grey set heading 0] ask sanitisationStation (numberOfTablesAndChairs - 1) [setxy 10 7 set size 1 set shape "sanitisationStation" set color grey set heading 0] end ; screen placement implemented but not used. to spawn-screens let numberOfScreens 11 let screensXCoordsList [-9.5 -9.5 -6.5 -6.5 -9.5 -9.5 -5.5 -3 -3.5 -5.5 -2.5] let screensYCoordsList [-7.5 -3.5 -3 1 1.5 5.5 5.5 1.5 -3 -7.5 -7.5] create-screens numberOfScreens let l 0 while[l < numberOfScreens][ ask screen numberOfTablesAndChairs [setxy item l screensXCoordsList item l screensYCoordsList set shape "line" set size 3 set color black] set l l + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask screen 151 [set heading 90] ask screen 152 [set heading 100] ask screen 153 [set heading 70] ask screen 154 [set heading 110] ask screen 155 [set heading 80] ask screen 156 [set heading 90] ask screen 157 [set heading 90] ask screen 158 [set heading 90] ask screen 159 [set heading 90] ask screen 160 [set heading 90] ask screen 161 [set heading 90] end to spawn-acOut let numberOfAcOuts 4 create-acOuts numberOfAcOuts set numberOfTablesAndChairs numberOfTablesAndChairs + numberOfAcOuts ask acOut (numberOfTablesAndChairs - 4) [setxy -12 -1 set shape "square" set color pink set heading 90] ask acOut (numberOfTablesAndChairs - 3) [setxy 0 14 set shape "square" set color pink set heading 180] ask acOut (numberOfTablesAndChairs - 2) [setxy 12 6 set shape "square" set color pink set heading 270] ask acOut (numberOfTablesAndChairs - 1) [setxy 12 -8 set shape "square" set color pink set heading 270] end ;turn off ac to acOff set air-refresh-rate 0.000001 end ;close windows to closeWindows set left-windows-open false set top-windows-open false end ;set up air direction grid squares to grid let j 1 let k -11 let l 13 while [l > -14][ while [k < 12][ ask patch k l [set gridSquare j ] ask patch k (l - 1) [set gridSquare j ] ask patch k (l - 2) [set gridSquare j ] ask patch (k + 1) l [set gridSquare j ] ask patch (k + 1) (l - 1) [set gridSquare j ] ask patch (k + 1) (l - 2) [set gridSquare j ] ask patch (k + 2) l [set gridSquare j ] ask patch (k + 2) (l - 1) [set gridSquare j ] ask patch (k + 2) (l - 2) [set gridSquare j] set k k + 3 set j j + 1 ] set l l - 3 set k -11 ] ask patches with [pxcor = 12][set gridSquare 0] end ; network of nodes. spawning of nodes, assigning of node types and relating vairables like tableSize. Creating linkes between nodes. to spawn-nodes let numberOfNodes 68 let nodesXCoordsList [-8 -8 -5.5 -5.5 -8 -8 -7 -7 -5 -7 -7 -1 -1 -1.5 -3 3 2 1.5 1.5 1.5 1.5 1.5 1.5 11 22 1.5 4 4 4 4 -2.5 -6 -2 -3.5 -1 4 -1.5 -6 -7 5.5 5.5 5.5 9 9 9 6 11 9 11 -10 -7.5 -7.5 -3 0 -2.5 9 11 10.5 8.5 13 17 14 17 14 14 17 17 2] let nodesYCoordsList [-9.5 -5.5 -2.5 0.5 3.5 7.5 3.5 7.5 -0.5 -9.5 -5.5 -9.5 -5.5 4.5 9 9 6 4 0 -1 -5 -6 -10 12.25 12.5 0 -10 -5 0 5.5 3 11 -2.5 6 11 4 -12 -12 5.2 2 -3.5 -8 -10 -11 -16 7 11.5 -12 13 -18 -18 -14 -18 -18 -14 5 -5 3 -8 12 12 2 2 9 5 9 5 -12] create-nodes numberOfNodes let m 0 while[m < numberOfNodes][ ask node numberOfTablesAndChairs [setxy item m nodesXCoordsList item m nodesYCoordsList set size 0.35 set shape "circle" set color black] set m m + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask node 72 [ set nodeType "table" set tableNumber 1 set tableSize 2 create-link-with node 73 create-link-with node 82] ask node 73 [ set nodeType "table" set tableNumber 2 set tableSize 2 create-link-with node 74] ask node 74 [ set nodeType "table"set tableNumber 3 set tableSize 8 create-link-with node 80 create-link-with node 82 create-link-with node 104] ask node 75 [ create-link-with node 76 create-link-with node 78 create-link-with node 102 create-link-with node 80] ask node 76 [ set nodeType "table" set tableNumber 4 set tableSize 2 ] ask node 77 [ set nodeType "table"set tableNumber 5 set tableSize 2 create-link-with node 103 ] ask node 78 [ set nodeType "table" set tableNumber 7 set tableSize 2 ] ask node 79 [ set nodeType "table" set tableNumber 6 set tableSize 2 create-link-with node 103] ask node 80 [ set nodeType "table" set tableNumber 8 set tableSize 2] ask node 81 [ set nodeType "table" set tableNumber 10 set tableSize 2 create-link-with node 82] ask node 82 [ set nodeType "table" set tableNumber 9 set tableSize 2] ask node 83 [ set nodeType "table" set tableNumber 11 set tableSize 2 create-link-with node 94 create-link-with node 84] ask node 84 [ set nodeType "table" set tableNumber 12 set tableSize 2 create-link-with node 104] ask node 85 [ create-link-with node 89 create-link-with node 105] ask node 86 [ create-link-with node 105 create-link-with node 106] ask node 87 [ create-link-with node 88 create-link-with node 106 create-link-with node 117] ask node 88 [ set nodeType "table" set tableNumber 13 set tableSize 8 create-link-with node 89 create-link-with node 101 create-link-with node 117] ask node 89 [ create-link-with node 101 create-link-with node 107] ask node 91 [ create-link-with node 104] ask node 92 [ set nodeType "table" set tableNumber 15 set tableSize 6 create-link-with node 99 create-link-with node 84] ask node 93 [ create-link-with node 99 create-link-with node 84] ask node 94 [set nodeType "table" set tableNumber 16 set tableSize 6] ask node 95 [ create-link-with node 87 create-link-with node 106 set nodeType "waitingNode" set occupied false] ask node 97 [ set nodeType "table" set tableNumber 14 set tableSize 6 create-link-with node 104] ask node 98 [ create-link-with node 99 create-link-with node 94 create-link-with node 119 ] ask node 99 [ create-link-with node 100] ask node 100 [ create-link-with node 107 create-link-with node 97 create-link-with node 91] ask node 101 [ create-link-with node 117 create-link-with node 107 create-link-with node 127] ask node 102 [ create-link-with node 104 create-link-with node 85 create-link-with node 85 create-link-with node 89 create-link-with node 105 set nodeType "centreNode"] ask node 103 [ create-link-with node 86 create-link-with node 106] ask node 104 [ ] ask node 105 [ ] ask node 106 [ ] ask node 107 [ create-link-with node 127] ask node 108 [ create-link-with node 83 create-link-with node 94] ask node 109 [ create-link-with node 72 create-link-with node 81 create-link-with node 108 ] ask node 110 [ create-link-with node 77 create-link-with node 78 create-link-with node 76 create-link-with node 79 create-link-with node 105] ask node 111 [ create-link-with node 107 create-link-with node 100] ask node 112 [ create-link-with node 111 create-link-with node 99 create-link-with node 100] ask node 113 [ create-link-with node 112 create-link-with node 98 create-link-with node 99] ask node 114 [ create-link-with node 113 create-link-with node 98 set nodeType "queue"] ask node 115 [ create-link-with node 114 set nodeType "queue"] ask node 116 [ set nodeType "spawnDespawn"] ask node 117 [ create-link-with node 111 create-link-with node 95] ask node 118 [ create-link-with node 87 create-link-with node 106 create-link-with node 117 create-link-with node 95 set nodeType "waitingNode" set occupied false] ask node 119 [ create-link-with node 116 create-link-with node 115 create-link-with node 108 set nodeType "queue"] ask node 120 [ create-link-with node 87 create-link-with node 106 create-link-with node 117 create-link-with node 95 set nodeType "waitingNode" set occupied false] ask node 121 [ create-link-with node 122 set nodeType "sink" set occupied false] ask node 122 [ create-link-with node 124] ask node 123 [ create-link-with node 121 create-link-with node 122 create-link-with node 72 create-link-with node 109 create-link-with node 108 ] ask node 124 [ create-link-with node 125 set nodeType "sink" set occupied false] ask node 125 [] ask node 126 [ create-link-with node 124 create-link-with node 125 create-link-with node 108 create-link-with node 109] ask node 127 [ create-link-with node 118 create-link-with node 117 create-link-with node 111] ask node 129 [ create-link-with node 128 create-link-with node 127 set nodeType "barNode"] ask node 130 [create-link-with node 128 create-link-with node 113 create-link-with node 112 create-link-with node 114 ] ask node 131 [ create-link-with node 132 set nodeType "kitchenNode"] ask node 132 [create-link-with node 131 create-link-with node 137] ask node 133 [create-link-with node 134 ] ask node 135 [create-link-with node 131 create-link-with node 136 set nodeType "kitchenNode"] ask node 136 [create-link-with node 133 set nodeType "kitchenNode"] ask node 137 [create-link-with node 138 set nodeType "kitchenNode"] ask node 138 [create-link-with node 134 set nodeType "kitchenNode"] ask node 139 [create-link-with node 119 create-link-with node 109 create-link-with node 119 create-link-with node 83] ask node 90 [die] ask node 96 [die] ask nodes [ ;set up table state variables if nodeType = "table"[ set occupied false set needsOrder false set needsFood false set needsDrinksOrder false set needsDrink false set hasFood false set needsCheckback false set needsCleared false set needsBill false set needsSanitised false set beingServed false set visits 0 ] ] end to spawn-nodes-2 let numberOfNodes 68 let nodesXCoordsList [-9 -9 -6 -6 -4 -8.5 -1.5 5.5 5 4 4 -0.5 -1 -1 -5 -5 11 11 11 1 7 6 5 0 -4 -8 -2.5 0 0 -4 -8 6 1 -3 -7 5 -4 5 -5 10.5 9 11 8 9 9 9 9 5 0 5 4 13 14 14 14 17 17 17 17 -8 -4 -1 6 -5 0 0 0 0] let nodesYCoordsList [-8.5 -1.5 2 4.5 8 11 11 11 5.5 -1.5 -8.5 5.5 -1.5 -8.5 -1.5 -8.5 13 11 9 9 9 3 -5 -6 -6 -6 2 2 -11 -11 -11 -7 -5 -5 -5 1 3 8 8 3 7 -5 -8 -10 -11 -12 -16 -11 0 3 -4 12 9 5 2 2 5 9 12 -3 -3 8 -8 -6 0 0 0 0] create-nodes numberOfNodes let m 0 while[m < numberOfNodes][ ask node numberOfTablesAndChairs [setxy item m nodesXCoordsList item m nodesYCoordsList set size 0.35 set shape "circle" set color black] set m m + 1 set numberOfTablesAndChairs numberOfTablesAndChairs + 1 ] ask node 60[create-link-with node 61 create-link-with node 85 create-link-with node 90 set nodeType "table" set tableSize 2 set tableNumber 1] ask node 61[create-link-with node 62 create-link-with node 94 set nodeType "table" set tableSize 2 set tableNumber 2] ask node 62[create-link-with node 63 create-link-with node 86 create-link-with node 109 create-link-with node 74] ask node 63[create-link-with node 74 create-link-with node 64 set nodeType "table" set tableSize 8 set tableNumber 3 ] ask node 64[create-link-with node 98 create-link-with node 121] ask node 65[create-link-with node 66 create-link-with node 98 set nodeType "table" set tableSize 2 set tableNumber 4] ask node 66[create-link-with node 67 create-link-with node 79 set nodeType "table" set tableSize 2 set tableNumber 5] ask node 67[create-link-with node 79 create-link-with node 80 create-link-with node 97 create-link-with node 68 create-link-with node 121 set nodeType "table" set tableSize 2 set tableNumber 6] ask node 68[create-link-with node 97 set nodeType "table" set tableSize 6 set tableNumber 12] ask node 69[create-link-with node 82 set nodeType "table" set tableSize 6 set tableNumber 13] ask node 70[create-link-with node 107 set nodeType "table" set tableSize 6 set tableNumber 14] ask node 71[create-link-with node 86 set nodeType "table" set tableSize 2 set tableNumber 7] ask node 72[create-link-with node 92 create-link-with node 93 create-link-with node 108 create-link-with node 86 set nodeType "table" set tableSize 2 set tableNumber 11] ask node 73[create-link-with node 83 set nodeType "table" set tableSize 2 set tableNumber 10 create-link-with node 72] ask node 74[create-link-with node 93 create-link-with node 94 set nodeType "table" set tableSize 2 set tableNumber 8] ask node 75[create-link-with node 94 set nodeType "table" set tableSize 2 set tableNumber 9 create-link-with node 72] ask node 76[create-link-with node 67 create-link-with node 77 set nodeType "waitingNode" set occupied false] ask node 77[create-link-with node 80 create-link-with node 67 create-link-with node 78 set nodeType "waitingNode" set occupied false] ask node 78[create-link-with node 80 create-link-with node 100 set nodeType "waitingNode" set occupied false] ask node 79[create-link-with node 64 create-link-with node 71] ask node 80[create-link-with node 79 create-link-with node 68 create-link-with node 109] ask node 81[create-link-with node 95 create-link-with node 108 create-link-with node 80 create-link-with node 99 create-link-with node 109] ask node 82[create-link-with node 70 create-link-with node 95 create-link-with node 92 create-link-with node 107 create-link-with node 102 create-link-with node 109] ask node 83[create-link-with node 85 create-link-with node 82 create-link-with node 120] ask node 84[create-link-with node 75 create-link-with node 93] ask node 85[create-link-with node 84] ask node 86[create-link-with node 74] ask node 87[create-link-with node 95 create-link-with node 86 create-link-with node 71 create-link-with node 81 create-link-with node 108 set nodeType "centreNode"] ask node 88[create-link-with node 89 create-link-with node 73 create-link-with node 107] ask node 89[create-link-with node 90 create-link-with node 75] ask node 90[] ask node 91[] ask node 92[create-link-with node 91 create-link-with node 83 create-link-with node 93 create-link-with node 102] ask node 93[create-link-with node 73 create-link-with node 94 ] ask node 94[create-link-with node 85] ask node 95[create-link-with node 69 create-link-with node 71 create-link-with node 96] ask node 96[create-link-with node 62 create-link-with node 87 create-link-with node 86 create-link-with node 63 create-link-with node 109] ask node 97[create-link-with node 79 create-link-with node 121] ask node 98[create-link-with node 96] ask node 99[set nodeType "barNode" create-link-with node 97] ask node 100[create-link-with node 99 create-link-with node 81 create-link-with node 68 create-link-with node 80 create-link-with node 97 create-link-with node 67] ask node 101[create-link-with node 99] ask node 102[create-link-with node 101 create-link-with node 91 create-link-with node 95 create-link-with node 105] ask node 103[create-link-with node 102 create-link-with node 70 set nodeType "queue"] ask node 104[create-link-with node 103 set nodeType "queue"] ask node 105[create-link-with node 104 create-link-with node 88 create-link-with node 107 create-link-with node 82 create-link-with node 70 set nodeType "queue"] ask node 106[create-link-with node 105 set nodeType "spawnDespawn"] ask node 107[create-link-with node 102] ask node 108[create-link-with node 109] ask node 109[create-link-with node 68 create-link-with node 87 create-link-with node 95 create-link-with node 99 create-link-with node 100 create-link-with node 86] ask node 110[create-link-with node 69 create-link-with node 92] ask node 111[create-link-with node 112 set nodeType "kitchenNode"] ask node 112[create-link-with node 113 set nodeType "kitchenNode"] ask node 113[create-link-with node 114 set nodeType "kitchenNode"] ask node 114[ create-link-with node 115 set nodeType "kitchenNode"] ask node 115[create-link-with node 116 set nodeType "kitchenNode"] ask node 116[create-link-with node 117 set nodeType "kitchenNode"] ask node 117[create-link-with node 118 set nodeType "kitchenNode"] ask node 118[create-link-with node 111 set nodeType "kitchenNode"] ask node 119[ create-link-with node 93 create-link-with node 61] ask node 120[ create-link-with node 92 create-link-with node 74] ask node 121[ create-link-with node 71 create-link-with node 66 create-link-with node 65 create-link-with node 79] ask node 122[create-link-with node 102 create-link-with node 70] ask node 123[create-link-with node 74 create-link-with node 75 create-link-with node 85] ask node 124[] ask node 91[die] ask node 104[die] ask node 103[die] ask node 81[die] ask nodes [ if nodeType = "table"[ set occupied false set needsOrder false set needsFood false set needsDrinksOrder false set needsDrink false set hasFood false set needsCheckback false set needsCleared false set needsBill false set needsSanitised false set beingServed false set visits 0 ] ] end to setup-chair-links ask chair 16 [create-link-with node 72 set tableNo 1 set chairNo 1] ask chair 17 [create-link-with node 72 set tableNo 1 set chairNo 2] ask chair 18 [create-link-with node 73 set tableNo 2 set chairNo 1] ask chair 19 [create-link-with node 73 set tableNo 2 set chairNo 2] ask chair 20 [create-link-with node 73 set tableNo 3 set chairNo 3] ask chair 21 [create-link-with node 74 set tableNo 3 set chairNo 7] ask chair 22 [create-link-with node 74 set tableNo 3 set chairNo 1] ask chair 23 [create-link-with node 75 set tableNo 3 set chairNo 5] ask chair 24 [create-link-with node 73 set tableNo 3 set chairNo 2] ask chair 25 [create-link-with node 76 set tableNo 3 set chairNo 4] ask chair 26 [create-link-with node 75 set tableNo 3 set chairNo 6] ask chair 27 [create-link-with node 73 set tableNo 3 set chairNo 8] ask chair 28 [create-link-with node 76 set tableNo 4 set chairNo 1] ask chair 29 [create-link-with node 76 set tableNo 4 set chairNo 2] ask chair 30 [create-link-with node 77 set tableNo 5 set chairNo 1] ask chair 31 [create-link-with node 77 set tableNo 5 set chairNo 2] ask chair 32 [create-link-with node 79 set tableNo 6 set chairNo 1] ask chair 33 [create-link-with node 79 set tableNo 6 set chairNo 2] ask chair 34 [create-link-with node 78 set tableNo 7 set chairNo 1] ask chair 35 [create-link-with node 78 set tableNo 7 set chairNo 2] ask chair 36 [create-link-with node 80 set tableNo 8 set chairNo 1] ask chair 37 [create-link-with node 80 set tableNo 8 set chairNo 2] ask chair 38 [create-link-with node 82 set tableNo 9 set chairNo 1] ask chair 39 [create-link-with node 82 set tableNo 9 set chairNo 2] ask chair 40 [create-link-with node 81 set tableNo 10 set chairNo 1] ask chair 41 [create-link-with node 81 set tableNo 10 set chairNo 2] ask chair 42 [create-link-with node 84 set tableNo 12 set chairNo 1] ask chair 43 [create-link-with node 84 set tableNo 12 set chairNo 2] ask chair 44 [create-link-with node 83 set tableNo 11 set chairNo 1] ask chair 45 [create-link-with node 83 set tableNo 11 set chairNo 2] ask chair 46 [create-link-with node 85 set tableNo 13 set chairNo 1] ask chair 47 [create-link-with node 106 set tableNo 13 set chairNo 5] ask chair 48 [create-link-with node 105 set tableNo 13 set chairNo 3] ask chair 49 [create-link-with node 88 set tableNo 13 set chairNo 7] ask chair 50 [create-link-with node 106 set tableNo 13 set chairNo 6] ask chair 51 [create-link-with node 88 set tableNo 13 set chairNo 8] ask chair 52 [create-link-with node 106 set tableNo 13 set chairNo 4] ask chair 53 [create-link-with node 85 set tableNo 13 set chairNo 2] ask chair 54 [create-link-with node 97 set tableNo 14 set chairNo 1] ask chair 55 [create-link-with node 97 set tableNo 14 set chairNo 2] ask chair 56 [create-link-with node 97 set tableNo 14 set chairNo 3] ask chair 57 [create-link-with node 97 set tableNo 14 set chairNo 4] ask chair 58 [create-link-with node 97 set tableNo 14 set chairNo 5] ask chair 59 [create-link-with node 97 set tableNo 14 set chairNo 6] ask chair 60 [create-link-with node 92 set tableNo 15 set chairNo 1] ask chair 61 [create-link-with node 92 set tableNo 15 set chairNo 2] ask chair 62 [create-link-with node 92 set tableNo 15 set chairNo 3] ask chair 63 [create-link-with node 92 set tableNo 15 set chairNo 4] ask chair 64 [create-link-with node 92 set tableNo 15 set chairNo 5] ask chair 65 [create-link-with node 92 set tableNo 15 set chairNo 6] ask chair 66 [create-link-with node 94 set tableNo 16 set chairNo 1] ask chair 67 [create-link-with node 94 set tableNo 16 set chairNo 2] ask chair 68 [create-link-with node 94 set tableNo 16 set chairNo 3] ask chair 69 [create-link-with node 94 set tableNo 16 set chairNo 4] ask chair 70 [create-link-with node 94 set tableNo 16 set chairNo 5] ask chair 71 [create-link-with node 94 set tableNo 16 set chairNo 6] end ;distanced to setup-chair-links-2 ask chair 14 [create-link-with node 60 set tableNo 1 set chairNo 1] ask chair 15 [create-link-with node 60 set tableNo 1 set chairNo 2] ask chair 16 [create-link-with node 61 set tableNo 2 set chairNo 1] ask chair 17 [create-link-with node 61 set tableNo 2 set chairNo 2] ask chair 18 [create-link-with node 63 set tableNo 3 set chairNo 1] ask chair 19 [create-link-with node 63 set tableNo 3 set chairNo 2] ask chair 20 [create-link-with node 63 set tableNo 3 set chairNo 3] ask chair 21 [create-link-with node 63 set tableNo 3 set chairNo 4] ask chair 22 [create-link-with node 63 set tableNo 3 set chairNo 5] ask chair 23 [create-link-with node 63 set tableNo 3 set chairNo 6] ask chair 24 [create-link-with node 63 set tableNo 3 set chairNo 7] ask chair 25 [create-link-with node 63 set tableNo 3 set chairNo 8] ask chair 26 [create-link-with node 65 set tableNo 4 set chairNo 1] ask chair 27 [create-link-with node 65 set tableNo 4 set chairNo 2] ask chair 28 [create-link-with node 66 set tableNo 5 set chairNo 1] ask chair 29 [create-link-with node 67 set tableNo 6 set chairNo 2] ask chair 30 [create-link-with node 67 set tableNo 6 set chairNo 1] ask chair 31 [create-link-with node 66 set tableNo 5 set chairNo 2] ask chair 32 [create-link-with node 71 set tableNo 7 set chairNo 1] ask chair 33 [create-link-with node 71 set tableNo 7 set chairNo 2] ask chair 34 [create-link-with node 74 set tableNo 8 set chairNo 1] ask chair 35 [create-link-with node 75 set tableNo 9 set chairNo 2] ask chair 36 [create-link-with node 75 set tableNo 9 set chairNo 1] ask chair 37 [create-link-with node 74 set tableNo 8 set chairNo 2] ask chair 38 [create-link-with node 73 set tableNo 10 set chairNo 1] ask chair 39 [create-link-with node 73 set tableNo 10 set chairNo 2] ask chair 40 [create-link-with node 72 set tableNo 11 set chairNo 1] ask chair 41 [create-link-with node 72 set tableNo 11 set chairNo 2] ask chair 42 [create-link-with node 68 set tableNo 12 set chairNo 1] ask chair 43 [create-link-with node 68 set tableNo 12 set chairNo 2] ask chair 44 [create-link-with node 68 set tableNo 12 set chairNo 3] ask chair 45 [create-link-with node 68 set tableNo 12 set chairNo 4] ask chair 46 [create-link-with node 68 set tableNo 12 set chairNo 5] ask chair 47 [create-link-with node 68 set tableNo 12 set chairNo 6] ask chair 48 [create-link-with node 69 set tableNo 13 set chairNo 1] ask chair 49 [create-link-with node 69 set tableNo 13 set chairNo 2] ask chair 50 [create-link-with node 69 set tableNo 13 set chairNo 3] ask chair 51 [create-link-with node 69 set tableNo 13 set chairNo 4] ask chair 52 [create-link-with node 69 set tableNo 13 set chairNo 5] ask chair 53 [create-link-with node 69 set tableNo 13 set chairNo 6] ask chair 54 [create-link-with node 70 set tableNo 14 set chairNo 1] ask chair 55 [create-link-with node 70 set tableNo 14 set chairNo 2] ask chair 56 [create-link-with node 70 set tableNo 14 set chairNo 3] ask chair 57 [create-link-with node 70 set tableNo 14 set chairNo 4] ask chair 58 [create-link-with node 70 set tableNo 14 set chairNo 5] ask chair 59 [create-link-with node 70 set tableNo 14 set chairNo 6] end to setup-patches ca ask patches [ set pcolor white] ;;main walls patches ask patches [if pxcor = -12 AND pycor > -22 AND pycor < 15[set pcolor black]] ask patches [if pxcor = 12 AND pycor > -15 AND pycor < 15[set pcolor black]] ask patches [if pxcor > -13 AND pxcor < 13 AND pycor = 14 [set pcolor black]] ask patches [if pxcor > -13 AND pxcor < 13 AND pycor = -14 [set pcolor black]] ;;bathroom walls patches ask patches [if pxcor > -13 AND pxcor < 2 AND pycor = -21 [set pcolor black]] ask patches [if pxcor = 2 AND pycor > -22 AND pycor < -14[set pcolor black]] ask patches [if pxcor = -5 AND pycor > -22 AND pycor < -14[set pcolor black]] ;;doors patches ask patches [if pxcor > -9 AND pxcor < -6 AND pycor = -14 [set pcolor grey]] ask patches [if pxcor > -4 AND pxcor < -1 AND pycor = -14 [set pcolor grey]] ask patches [if pxcor > 7 AND pxcor < 12 AND pycor = -14 [set pcolor grey]] ;;bar ask patches [if pxcor = 12 AND pycor > 11 AND pycor < 14[set pcolor grey]] ;;kitchen ask patches [if pxcor > 12 AND pxcor < 20 AND pycor = 14 [set pcolor black]] ask patches [if pxcor > 12 AND pxcor < 20 AND pycor = 0 [set pcolor black]] ask patches [if pxcor = 19 AND pycor < 15 AND pycor > -1[set pcolor black]] ask patches [if pxcor > 14 AND pxcor < 17 AND pycor > 2 AND pycor < 12[set pcolor black]] ask patch -12 -8 [set pcolor blue] ask patch -12 -7 [set pcolor blue] ask patch -12 5 [set pcolor blue] ask patch -12 6 [set pcolor blue] ask patch 6 14 [set pcolor blue] ask patch 5 14 [set pcolor blue] ask patch -5 14 [set pcolor blue] ask patch -6 14 [set pcolor blue] ;patch types ask patches [if pxcor < -12[set patchType "outside"]] ask patches [if pycor > 14[set patchType "outside"]] ask patches [if pxcor > 19[set patchType "outside"]] ask patches [if pxcor > 12 and pycor < 0[set patchType "outside"]] ask patches [if pxcor > 12 and pxcor < 19 and pycor < 14 and pycor > 0[set patchType "outside"]] ask patches [if pxcor > 2 and pycor < -14[set patchType "outside"]] ask patches [if pycor < -21[set patchType "outside"]] ask patches [if pxcor > -12 and pxcor < -5 and pycor < -14 and pycor > -21[set patchType "outside"]] ask patches [if pxcor > -5 and pxcor < 2 and pycor < -14 and pycor > -21[set patchType "outside"]] ask patches [if pcolor = black [set patchType "wall"]] ask patches [if pcolor = green [set patchType "bar"]] ask patches [if pcolor = grey [set patchType "door"]] ask patches [if pcolor = blue and pxcor = -12[set patchType "leftWindow"]] ask patches [if pcolor = blue and pycor = 14[set patchType "topWindow" ]] ask patches [if pxcor > 7 and pxcor < 12 and pycor < -14 and pycor > -21[set patchType 0]] end ; top/side windows open only. air directions to top-airpaths set leftWindowOpen false set topWindowOpen true show "top" ask patches with [gridSquare = 1][set airDirection 135] ask patches with [gridSquare = 2][set airDirection 180] ask patch -8 13 [set airDirection 135] ask patches with [gridSquare = 3][set airDirection 180] ask patch -3 11 [set airDirection 135] ask patches with [gridSquare = 4][set airDirection 270] ask patch 0 11 [set airDirection 0] ask patch -3 13 [set airDirection 225] ask patch -3 12 [set airDirection 225] ask patches with [gridSquare = 5][set airDirection 90] ask patch 1 11 [set airDirection 0] ask patch 1 12 [set airDirection 45] ask patch 2 11 [set airDirection 45]ask patch 0 12 [set airDirection 315] ask patches with [gridSquare = 6][set airDirection 180] ask patch 4 11 [set airDirection 225 set pushPull true set pullDir 225] ask patch -1 11 [set airDirection 315] ask patch 4 13 [set airDirection 135] ask patch 4 12 [set airDirection 135] ask patches with [gridSquare = 7][set airDirection 180] ask patch 9 13 [set airDirection 225] ask patch 8 13 [set airDirection 225] ask patch 9 12 [set airDirection 225] ask patches with [gridSquare = 8][set airDirection 225] ask patches with [gridSquare = 9][set airDirection 180] ask patches with [gridSquare = 10][set airDirection 180] ask patches with [gridSquare = 11][set airDirection 180] ask patches with [gridSquare = 12][set airDirection 180] ask patch 0 10 [set airDirection 0] ask patch -1 10 [set airDirection 0] ask patch 0 9 [set airDirection 0] ask patch -2 10 [set airDirection 90] ask patch -1 9 [set airDirection 90] ask patch -2 9 [set airDirection 135 set pushPull true set pullDir 135] ask patch -1 12 [set airDirection 90 set pushPull true set pullDir 315] ask patches with [gridSquare = 13][set airDirection 180] ask patch 1 10 [set airDirection 0] ask patch 2 10 [set airDirection 0] ask patch 1 9 [set airDirection 0] ask patch 3 10 [set airDirection 270] ask patch 2 9 [set airDirection 270] ask patch 3 9 [set airDirection 225 set pushPull true set pullDir 225] ask patch 2 12 [set airDirection 90 set pushPull true set pullDir 45]ask patch 3 11 [set airDirection 90 set pushPull true set pullDir 270] ask patch 4 10 [set airDirection 0 set pushPull true set pullDir 225] ask patches with [gridSquare = 14][set airDirection 180] ask patches with [gridSquare = 15][set airDirection 180] ask patches with [gridSquare = 16][set airDirection 180] ask patches with [gridSquare = 17][set airDirection 135] ask patches with [gridSquare = 18][set airDirection 180] ask patches with [gridSquare = 19][set airDirection 180] ask patches with [gridSquare = 20][set airDirection 180] ask patches with [gridSquare = 21][set airDirection 180] ask patches with [gridSquare = 22][set airDirection 180] ask patches with [gridSquare = 23][set airDirection 180] ask patches with [gridSquare = 24][set airDirection 225] ask patches with [gridSquare = 25][set airDirection 180] ask patches with [gridSquare = 26][set airDirection 180] ask patches with [gridSquare = 27][set airDirection 180] ask patches with [gridSquare = 28][set airDirection 180] ask patches with [gridSquare = 29][set airDirection 180] ask patches with [gridSquare = 30][set airDirection 180] ask patches with [gridSquare = 31][set airDirection 180] ask patches with [gridSquare = 32][set airDirection 180] ask patches with [gridSquare = 33][set airDirection 135] ask patches with [gridSquare = 34][set airDirection 180] ask patches with [gridSquare = 35][set airDirection 180] ask patches with [gridSquare = 36][set airDirection 180] ask patches with [gridSquare = 37][set airDirection 180] ask patches with [gridSquare = 38][set airDirection 180] ask patches with [gridSquare = 39][set airDirection 180] ask patches with [gridSquare = 40][set airDirection 225] ask patches with [gridSquare = 41][set airDirection 180] ask patches with [gridSquare = 42][set airDirection 180] ask patches with [gridSquare = 43][set airDirection 180] ask patches with [gridSquare = 44][set airDirection 180] ask patches with [gridSquare = 45][set airDirection 180] ask patches with [gridSquare = 46][set airDirection 180] ask patches with [gridSquare = 47][set airDirection 180] ask patches with [gridSquare = 48][set airDirection 180] ask patches with [gridSquare = 49][set airDirection 135] ask patches with [gridSquare = 50][set airDirection 180] ask patches with [gridSquare = 51][set airDirection 180] ask patches with [gridSquare = 52][set airDirection 180] ask patches with [gridSquare = 53][set airDirection 180] ask patches with [gridSquare = 54][set airDirection 180] ask patches with [gridSquare = 55][set airDirection 180] ask patches with [gridSquare = 56][set airDirection 225] ask patches with [gridSquare = 57][set airDirection 180] ask patches with [gridSquare = 58][set airDirection 180] ask patches with [gridSquare = 59][set airDirection 180] ask patches with [gridSquare = 60][set airDirection 180] ask patches with [gridSquare = 61][set airDirection 180] ask patches with [gridSquare = 62][set airDirection 180] ask patches with [gridSquare = 63][set airDirection 180] ask patches with [gridSquare = 64][set airDirection 180] ask patches with [gridSquare = 65][set airDirection 135] ask patches with [gridSquare = 66][set airDirection 180] ask patches with [gridSquare = 67][set airDirection 180] ask patches with [gridSquare = 68][set airDirection 180] ask patches with [gridSquare = 69][set airDirection 180] ask patches with [gridSquare = 70][set airDirection 180] ask patches with [gridSquare = 71][set airDirection 180] ask patches with [gridSquare = 72][set airDirection 225] ask patch 5 14[ set airDirection 0 set pushPull true set pullDir 45] ask patches with [gridSquare != 0][set airTransfer 0.0093] ask patches with [pycor = -13][set concentration concentration * 0.5]; simulate some air going up to the ceiling and round and out intake windows ask patches with [pycor = -12][set concentration concentration * 0.7] ask patches with [pycor = -11][set concentration concentration * 0.9] end ; left windows open only to left-airpaths set leftWindowOpen true set topWindowOpen false show "left" ask patches with [gridSquare = 1][set airDirection 135] ask patches with [gridSquare = 2][set airDirection 90] ask patches with [gridSquare = 3][set airDirection 90] ask patches with [gridSquare = 4][set airDirection 90] ask patches with [gridSquare = 5][set airDirection 90] ask patches with [gridSquare = 6][set airDirection 90] ask patches with [gridSquare = 7][set airDirection 90] ask patches with [gridSquare = 8][set airDirection 90] ask patches with [gridSquare = 9][set airDirection 135] ask patches with [gridSquare = 10][set airDirection 90] ask patches with [gridSquare = 11][set airDirection 90] ask patches with [gridSquare = 12][set airDirection 90] ask patches with [gridSquare = 13][set airDirection 90] ask patches with [gridSquare = 14][set airDirection 90] ask patches with [gridSquare = 15][set airDirection 90] ask patches with [gridSquare = 16][set airDirection 90] ask patches with [gridSquare = 17][set airDirection 90] ask patches with [gridSquare = 18][set airDirection 90] ask patches with [gridSquare = 19][set airDirection 90] ask patches with [gridSquare = 20][set airDirection 90] ask patches with [gridSquare = 21][set airDirection 90] ask patches with [gridSquare = 22][set airDirection 90] ask patches with [gridSquare = 23][set airDirection 90] ask patches with [gridSquare = 24][set airDirection 90] ask patches with [gridSquare = 25][set airDirection 45] ask patches with [gridSquare = 26][set airDirection 45] ask patch -6 3[ set airDirection 45 set pushPull true set pullDir 45] ask patch -6 2[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 27][set airDirection 45] ask patches with [pycor = 2 and pxcor < -2 and pxcor > -12] [ set airDirection 0] ask patch -4 2[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 28][set airDirection 45] ask patch -2 3[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 29][set airDirection 45] ask patch 1 2[ set airDirection 45 set pushPull true set pullDir 90] ask patches with [gridSquare = 30][set airDirection 90] ask patch 5 2 [ set airDirection 45] ask patch 4 2 [ set airDirection 45] ask patch 4 3 [ set airDirection 45] ask patches with [gridSquare = 31][set airDirection 90] ask patches with [gridSquare = 32][set airDirection 90] ask patches with [gridSquare = 33][set airDirection 225]ask patch -11 1 [ set airDirection 0] ask patch -9 1 [ set airDirection 225] ask patch -11 0 [ set airDirection 0] ask patches with [gridSquare = 34][set airDirection 315] ask patches with [gridSquare = 35][set airDirection 315]ask patch -11 1 [ set airDirection 0] ask patch -3 0 [ set airDirection 0 set pushPull true set pullDir 0] ask patch -3 -1[ set airDirection 0 set pushPull true set pullDir 45] ask patch -4 0[ set airDirection 45 set pushPull true set pullDir 90] ask patch -4 1[ set airDirection 0 set pushPull true set pullDir 0] ask patch -5 1[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 36][set airDirection 0] ask patch 0 -1 [ set airDirection 45 set pushPull true set pullDir 90] ask patch 0 0 [ set airDirection 45] ask patch -1 0 [ set airDirection 45 set pushPull true set pullDir 0] ask patch -1 -1 [ set airDirection 45 set pushPull true set pullDir 45] ask patch -2 0 [ set airDirection 45] ask patch -2 1 [ set airDirection 45] ask patch -1 1 [ set airDirection 45] ask patches with [gridSquare = 37][set airDirection 45] ask patch 1 -1[ set airDirection 45] ask patch 2 -1[ set airDirection 45] ask patch 1 0[ set airDirection 45] ask patch 1 1[ set airDirection 45 set pushPull true set pullDir 0] ask patches with [gridSquare = 38][set airDirection 45] ask patches with [gridSquare = 39][set airDirection 90] ask patches with [gridSquare = 40][set airDirection 90] ask patches with [gridSquare = 41][set airDirection 135]ask patches with [pxcor = -11 and pycor < 0 and pycor > -5] [ set airDirection 180] ask patch -10 -2 [ set airDirection 180] ask patch -9 -2 [ set airDirection 225] ask patch -10 -3 [ set airDirection 180] ask patch -9 -4 [ set airDirection 225] ask patch -3 1 [ set airDirection 45] ask patch -4 1 [ set airDirection 45] ask patch -3 0 [ set airDirection 45] ask patches with [gridSquare = 42][set airDirection 315]ask patch -6 -4 [ set airDirection 90] ask patch -7 -4 [ set airDirection 90] ask patch -8 -4 [ set airDirection 90] ask patches with [gridSquare = 43][set airDirection 315]ask patch -5 -4 [ set airDirection 90] ask patch -4 -4 [ set airDirection 90] ask patches with [pycor = -3 and pxcor < -3 and pxcor > -9] [ set airDirection 0] ask patch -8 -3 [ set airDirection 225] ask patch -3 -3 [ set airDirection 315 set pushPull true set pullDir 0] ask patch -5 -3[ set airDirection 0 set pushPull true set pullDir 45] ask patch -3 -4[ set airDirection 0 set pushPull true set pullDir 45] ask patch -4 -3[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 44][set airDirection 315]ask patch 0 -2 [ set airDirection 45 set pushPull true set pullDir 45] ask patch 0 -4 [ set airDirection 45] ask patch 0 -3 [ set airDirection 45 set pushPull true set pullDir 0] ask patch -1 -4 [ set airDirection 0] ask patch -2 -4 [ set airDirection 0] ask patch -1 -2[ set airDirection 315 set pushPull true set pullDir 0] ask patch -2 -2[ set airDirection 45 set pushPull true set pullDir 0] ask patches with [gridSquare = 45][set airDirection 45] ask patches with [gridSquare = 46][set airDirection 45] ask patch 4 -4 [ set airDirection 45] ask patch 4 -3 [ set airDirection 45] ask patch 5 -4 [ set airDirection 45] ask patches with [gridSquare = 47][set airDirection 45] ask patches with [gridSquare = 48][set airDirection 90] ask patch 10 -4 [ set airDirection 45] ask patch 10 -3 [ set airDirection 45] ask patches with [gridSquare = 49][set airDirection 90] ask patch -11 -5 [ set airDirection 135] ask patch -11 -6 [ set airDirection 135 set pushPull true set pullDir 180] ask patch -10 -5[ set airDirection 135 set pushPull true set pullDir 135] ask patch -7 -8[ set airDirection 0 set pushPull true set pullDir 315] ask patches with [gridSquare = 50][set airDirection 90] ask patch -8 -7[ set airDirection 90 set pushPull true set pullDir 315] ask patch -8 -5[ set airDirection 90 set pushPull true set pullDir 90] ask patches with [gridSquare = 51][set airDirection 90] ask patches with [gridSquare = 52][set airDirection 90] ask patch -2 -5 [ set airDirection 45] ask patch -1 -5 [ set airDirection 45] ask patch 0 -5 [ set airDirection 45] ask patch -1 -6 [ set airDirection 45 set pushPull true set pullDir 45]ask patch 0 -6 [ set airDirection 45] ask patch 0 -7 [ set airDirection 45 set pushPull true set pullDir 45] ask patch -1 -7 [ set airDirection 45] ask patch -2 -6 [ set airDirection 45] ask patch -3 -5 [ set airDirection 45] ask patch -2 -5[ set airDirection 45 set pushPull true set pullDir 0] ask patches with [gridSquare = 53][set airDirection 45] ask patches with [gridSquare = 54][set airDirection 45] ask patch 4 -7 [ set airDirection 45] ask patch 4 -6 [ set airDirection 45] ask patch 5 -7 [ set airDirection 45] ask patches with [gridSquare = 55][set airDirection 45] ask patches with [gridSquare = 56][set airDirection 0] ask patch 10 -7 [ set airDirection 45] ask patch 10 -6 [ set airDirection 45] ask patches with [gridSquare = 57][set airDirection 90] ask patch -9 -8[ set airDirection 90 set pushPull true set pullDir 135] ask patches with [gridSquare = 58][set airDirection 90] ask patches with [gridSquare = 59][set airDirection 90] ask patches with [gridSquare = 60][set airDirection 90] ask patches with [gridSquare = 61][set airDirection 45] ask patch 0 -8 [ set airDirection 45] ask patch 1 -8 [ set airDirection 45 set pushPull true set pullDir 45] ask patch 2 -10[ set airDirection 45 set pushPull true set pullDir 90] ask patches with [gridSquare = 62][set airDirection 45] ask patch 4 -10 [ set airDirection 45] ask patch 4 -9 [ set airDirection 45] ask patch 5 -10 [ set airDirection 45] ask patches with [gridSquare = 63][set airDirection 45] ask patches with [gridSquare = 64][set airDirection 0] ask patch 10 -10 [ set airDirection 45] ask patch 10 -9 [ set airDirection 45] ask patches with [gridSquare = 65][set airDirection 45] ask patches with [gridSquare = 66][set airDirection 90] ask patches with [gridSquare = 67][set airDirection 90] ask patches with [gridSquare = 68][set airDirection 90] ask patches with [gridSquare = 69][set airDirection 45] ask patch 1 -13 [ set airDirection 90] ask patch 2 -13 [ set airDirection 90] ask patch 1 -12 [ set airDirection 90] ask patch 1 -13 [ set airDirection 90] ask patch 3 -12 [ set airDirection 45 set pushPull true set pullDir 90] ask patch 2 -11 [ set airDirection 45 set pushPull true set pullDir 90] ask patches with [gridSquare = 70][set airDirection 45] ask patch 4 -13 [ set airDirection 45 set pushPull true set pullDir 90] ask patch 4 -12 [ set airDirection 45] ask patch 5 -13 [ set airDirection 45] ask patches with [gridSquare = 71][set airDirection 45] ask patches with [gridSquare = 72][set airDirection 0] ask patch 10 -13 [ set airDirection 45] ask patch 10 -12 [ set airDirection 45] ask patch 5 14[ set airDirection 0 set pushPull true set pullDir 45] ask patches with [gridSquare != 0][set airTransfer 0.01] ask patches with [pxcor = 11][set concentration concentration * 0.5] ask patches with [pxcor = 10][set concentration concentration * 0.7] ask patches with [pxcor = 9][set concentration concentration * 0.9] ask patches with [pxcor = 11][set concentration concentration * 0.5] ask patches with [pxcor = 10][set concentration concentration * 0.7] ask patches with [pxcor = 9][set concentration concentration * 0.9] end ; both windows open air directions to left-top-airpaths set leftWindowOpen true set topWindowOpen true show "both" ask patches with [gridSquare = 1][set airDirection 45] ask patch -11 13 [ set airDirection 90]ask patch -10 13 [ set airDirection 90]ask patch -9 13 [ set airDirection 90] ask patch -11 12 [ set airDirection 90] ask patch -10 12 [ set airDirection 90] ask patch -11 11 [ set airDirection 90] ask patches with [gridSquare = 2][set airDirection 45] ask patch -8 13 [ set airDirection 90] ask patches with [gridSquare = 3][set airDirection 315] ask patches with [gridSquare = 4][set airDirection 315] ask patch 0 13 [ set airDirection 270] ask patch -1 13 [ set airDirection 270] ask patch -2 13 [ set airDirection 270] ask patch -3 13 [ set airDirection 270] ask patches with [gridSquare = 5][set airDirection 45] ask patch 3 13 [ set airDirection 90] ask patch 1 13 [ set airDirection 90] ask patch 2 13 [ set airDirection 90] ask patch 2 11[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 6][set airDirection 0] ask patch 4 12 [ set airDirection 45] ask patch 4 13 [ set airDirection 45] ask patches with [gridSquare = 7][set airDirection 270] ask patch 7 13 [ set airDirection 315 set pushPull true set pullDir 0]ask patch 7 12 [ set airDirection 315]ask patch 7 11 [ set airDirection 315] ask patch 8 11 [ set airDirection 315] ask patch 8 12 [ set airDirection 315] ask patch 9 11 [ set airDirection 315] ask patch 7 12[ set airDirection 315 set pushPull true set pullDir 90] ask patch 8 13[ set airDirection 270 set pushPull true set pullDir 0] ask patch 9 13[ set airDirection 270 set pushPull true set pullDir 0] ask patches with [gridSquare = 8][set airDirection 270] ask patch 11 11 [ set airDirection 0] ask patches with [gridSquare = 9][set airDirection 45] ask patch -9 8[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 10][set airDirection 0] ask patch -8 8[ set airDirection 0 set pushPull true set pullDir 45] ask patch -7 10[ set airDirection 45 set pushPull true set pullDir 45] ask patch 3 10[ set airDirection 0 set pushPull true set pullDir 45] ask patch -7 8[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 11][set airDirection 0] ask patch -4 8[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 12][set airDirection 0] ask patch 0 8 [ set airDirection 45] ask patch 0 9 [ set airDirection 45] ask patch 0 10 [ set airDirection 45] ask patch -1 8 [ set airDirection 45] ask patch -1 7 [ set airDirection 45] ask patch -2 8 [ set airDirection 45] ask patch -2 9[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 13][set airDirection 0] ask patch 3 10[ set airDirection 45] ask patch 3 9[ set airDirection 45] ask patch 2 10[ set airDirection 45] ask patches with [gridSquare = 14][set airDirection 0] ask patch 6 10[ set airDirection 0 set pushPull true set pullDir 315] ask patch 5 8[ set airDirection 45 set pushPull true set pullDir 45] ask patch 5 9[ set airDirection 0 set pushPull true set pullDir 0] ask patch 6 10[ set airDirection 0 set pushPull true set pullDir 315] ask patch 2 9[ set airDirection 45 set pushPull true set pullDir 45] ask patch 2 10[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 15][set airDirection 315]ask patch 9 8 [ set airDirection 0] ask patch 8 9 [ set airDirection 315 set pushPull true set pullDir 0] ask patch 7 9[ set airDirection 0 set pushPull true set pullDir 0] ask patch 9 10[ set airDirection 315 set pushPull true set pullDir 0] ask patch 10 11[ set airDirection 315 set pushPull true set pullDir 0] ask patches with [gridSquare = 16][set airDirection 315]ask patch 11 8 [ set airDirection 0] ask patch 10 8 [ set airDirection 0] ask patch 11 9 [ set airDirection 0] ask patch 11 10 [ set airDirection 0] ask patch 10 9 [ set airDirection 0] ask patches with [gridSquare = 17][set airDirection 90] ask patch 3 10[ set airDirection 90 set pushPull true set pullDir 45] ask patches with [gridSquare = 18][set airDirection 45] ask patch -8 5 [ set airDirection 90] ask patch -7 5 [ set airDirection 90] ask patch -6 5 [ set airDirection 90] ask patch -8 6 [ set airDirection 90] ask patch -7 6 [ set airDirection 90 set pushPull true set pullDir 45] ask patch -8 7 [ set airDirection 45] ask patch -6 6[ set airDirection 90 set pushPull true set pullDir 45] ask patch -7 7[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 19][set airDirection 45] ask patch -5 6[ set airDirection 45 set pushPull true set pullDir 90] ask patch -6 7[ set airDirection 45 set pushPull true set pullDir 45] ask patch -5 7[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 20][set airDirection 45] ask patches with [gridSquare = 21][set airDirection 45] ask patches with [gridSquare = 22][set airDirection 0] ask patch 4 6 [ set airDirection 45] ask patch 5 5 [ set airDirection 0 set pushPull true set pullDir 45] ask patch 4 5 [ set airDirection 45] ask patch 6 5[ set airDirection 0 set pushPull true set pullDir 45] ask patch 6 7[ set airDirection 0 set pushPull true set pullDir 45] ask patch 4 7[ set airDirection 0 set pushPull true set pullDir 315] ask patches with [gridSquare = 23][set airDirection 0] ask patch 7 7 [ set airDirection 0 set pushPull true set pullDir 0] ask patch 8 7 [ set airDirection 315] ask patch 8 7 [ set airDirection 0] ask patch 7 6[ set airDirection 0 set pushPull true set pullDir 45] ask patches with [gridSquare = 24][set airDirection 0] ask patches with [gridSquare = 25][set airDirection 45] ask patch -10 2[ set airDirection 0 set pushPull true set pullDir 315] ask patch -9 2[ set airDirection 45 set pushPull true set pullDir 0] ask patches with [gridSquare = 26][set airDirection 45] ask patch -6 3[ set airDirection 45 set pushPull true set pullDir 90] ask patch -6 2[ set airDirection 0 set pushPull true set pullDir 0] ask patch -7 2[ set airDirection 0 set pushPull true set pullDir 0] ask patch -8 2[ set airDirection 45 set pushPull true set pullDir 0] ask patch -7 3[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 27][set airDirection 45] ask patches with [pycor = 2 and pxcor < -2 and pxcor > -12] [ set airDirection 0] ask patch -4 2[ set airDirection 0 set pushPull true set pullDir 0] ask patch -4 4[ set airDirection 45 set pushPull true set pullDir 315] ask patches with [gridSquare = 28][set airDirection 45] ask patch -2 3[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 29][set airDirection 45] ask patch 1 2[ set airDirection 45 set pushPull true set pullDir 90] ask patches with [gridSquare = 30][set airDirection 0] ask patch 5 2 [ set airDirection 45] ask patch 4 2 [ set airDirection 45] ask patch 4 3 [ set airDirection 45] ask patch 5 4 [ set airDirection 0 set pushPull true set pullDir 315] ask patch 5 3 [ set airDirection 0 set pushPull true set pullDir 0] ask patch 6 4[ set airDirection 0 set pushPull true set pullDir 45] ask patches with [gridSquare = 31][set airDirection 0] ask patch 7 2[ set airDirection 0 set pushPull true set pullDir 45] ask patches with [gridSquare = 32][set airDirection 0] ask patch 10 -13 [ set airDirection 45] ask patch 10 -12 [ set airDirection 45] ask patches with [gridSquare = 33][set airDirection 225]ask patch -11 1 [ set airDirection 0] ask patch -9 1 [ set airDirection 0 set pushPull true set pullDir 0] ask patch -11 0 [ set airDirection 0] ask patches with [gridSquare = 34][set airDirection 315]ask patch -10 2[ set airDirection 0 set pushPull true set pullDir 0] ask patch -8 1[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 35][set airDirection 315]ask patch -11 1 [ set airDirection 0] ask patch -3 0 [ set airDirection 0 set pushPull true set pullDir 0] ask patch -3 -1[ set airDirection 0 set pushPull true set pullDir 45] ask patch -4 0[ set airDirection 45 set pushPull true set pullDir 0] ask patch -4 1[ set airDirection 0 set pushPull true set pullDir 0] ask patch -5 1[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 36][set airDirection 0] ask patch 0 -1 [ set airDirection 45 set pushPull true set pullDir 90] ask patch 0 0 [ set airDirection 45] ask patch -1 0 [ set airDirection 45 set pushPull true set pullDir 0] ask patch -1 -1 [ set airDirection 45 set pushPull true set pullDir 45] ask patch -2 0 [ set airDirection 45] ask patch -2 1 [ set airDirection 45] ask patch -1 1 [ set airDirection 45] ask patches with [gridSquare = 37][set airDirection 45] ask patch 1 -1[ set airDirection 45] ask patch 2 -1[ set airDirection 45] ask patch 1 0[ set airDirection 45] ask patch 1 1[ set airDirection 45 set pushPull true set pullDir 0] ask patches with [gridSquare = 38][set airDirection 45] ask patch 6 1 [ set airDirection 0] ask patch 5 1 [ set airDirection 0 set pushPull true set pullDir 0] ask patch 6 0 [ set airDirection 0] ask patch 4 1 [ set airDirection 45] ask patch 4 1[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 39][set airDirection 0] ask patch 8 0 [ set airDirection 0 set pushPull true set pullDir 45] ask patch 9 1[ set airDirection 0 set pushPull true set pullDir 45] ask patch 8 1[ set airDirection 0 set pushPull true set pullDir 45] ask patches with [gridSquare = 40][set airDirection 0] ask patches with [gridSquare = 41][set airDirection 135]ask patches with [pxcor = -11 and pycor < 0 and pycor > -5] [ set airDirection 180] ask patch -10 -2 [ set airDirection 180] ask patch -9 -2 [ set airDirection 225] ask patch -10 -3 [ set airDirection 180] ask patch -9 -4 [ set airDirection 225] ask patch -3 1 [ set airDirection 45] ask patch -4 1 [ set airDirection 45] ask patch -3 0 [ set airDirection 45] ask patches with [gridSquare = 42][set airDirection 315]ask patch -6 -4 [ set airDirection 90] ask patch -7 -4 [ set airDirection 90] ask patch -8 -4 [ set airDirection 90] ask patches with [gridSquare = 43][set airDirection 315]ask patch -5 -4 [ set airDirection 90] ask patch -4 -4 [ set airDirection 90] ask patches with [pycor = -3 and pxcor < -3 and pxcor > -9] [ set airDirection 0] ask patch -8 -3 [ set airDirection 225] ask patch -3 -3 [ set airDirection 315 set pushPull true set pullDir 0] ask patch -5 -3[ set airDirection 0 set pushPull true set pullDir 45] ask patch -3 -4[ set airDirection 0 set pushPull true set pullDir 45] ask patch -4 -3[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 44][set airDirection 315]ask patch 0 -2 [ set airDirection 45 set pushPull true set pullDir 45] ask patch 0 -4 [ set airDirection 45] ask patch 0 -3 [ set airDirection 45 set pushPull true set pullDir 0] ask patch -1 -4 [ set airDirection 0] ask patch -2 -4 [ set airDirection 0] ask patch -1 -2[ set airDirection 315 set pushPull true set pullDir 0] ask patch -2 -2[ set airDirection 45 set pushPull true set pullDir 0] ask patches with [gridSquare = 45][set airDirection 45] ask patch -7 11[ set airDirection 0 set pushPull true set pullDir 0] ask patches with [gridSquare = 46][set airDirection 45] ask patch 4 -4 [ set airDirection 45] ask patch 4 -3 [ set airDirection 45] ask patch 5 -4 [ set airDirection 45] ask patches with [gridSquare = 47][set airDirection 45] ask patch 9 -2[ set airDirection 0 set pushPull true set pullDir 0] ask patch 8 -1[ set airDirection 0 set pushPull true set pullDir 0] ask patch 8 0[ set airDirection 0 set pushPull true set pullDir 0] ask patch 10 -1[ set airDirection 0 set pushPull true set pullDir 45] ask patches with [gridSquare = 48][set airDirection 0] ask patch 10 -4 [ set airDirection 45] ask patch 10 -3 [ set airDirection 0] ask patches with [gridSquare = 49][set airDirection 90] ask patch -11 -5 [ set airDirection 135] ask patch -11 -6 [ set airDirection 135 set pushPull true set pullDir 180] ask patch -10 -5[ set airDirection 135 set pushPull true set pullDir 135] ask patch -7 -8[ set airDirection 0 set pushPull true set pullDir 315] ask patches with [gridSquare = 50][set airDirection 90] ask patch -8 -7[ set airDirection 90 set pushPull true set pullDir 135] ask patch -8 -5[ set airDirection 90 set pushPull true set pullDir 90] ask patches with [gridSquare = 51][set airDirection 90] ask patches with [gridSquare = 52][set airDirection 90] ask patch -2 -5 [ set airDirection 45] ask patch -1 -5 [ set airDirection 45] ask patch 0 -5 [ set airDirection 45] ask patch -1 -6 [ set airDirection 45 set pushPull true set pullDir 45]ask patch 0 -6 [ set airDirection 45] ask patch 0 -7 [ set airDirection 45 set pushPull true set pullDir 45] ask patch -1 -7 [ set airDirection 45] ask patch -2 -6 [ set airDirection 45] ask patch -3 -5 [ set airDirection 45] ask patch -2 -5[ set airDirection 45 set pushPull true set pullDir 0] ask patches with [gridSquare = 53][set airDirection 45] ask patches with [gridSquare = 54][set airDirection 45] ask patch 4 -7 [ set airDirection 45] ask patch 4 -6 [ set airDirection 45] ask patch 5 -7 [ set airDirection 45] ask patches with [gridSquare = 55][set airDirection 45] ask patches with [gridSquare = 56][set airDirection 0] ask patch 10 -7 [ set airDirection 45] ask patch 10 -6 [ set airDirection 45] ask patches with [gridSquare = 57][set airDirection 90] ask patch -9 -8[ set airDirection 90 set pushPull true set pullDir 135] ask patches with [gridSquare = 58][set airDirection 90] ask patches with [gridSquare = 59][set airDirection 90] ask patches with [gridSquare = 60][set airDirection 90] ask patch 0 -9[ set airDirection 45 set pushPull true set pullDir 90] ask patch -1 -8[ set airDirection 45 set pushPull true set pullDir 90] ask patch -1 -9[ set airDirection 45 set pushPull true set pullDir 900] ask patches with [gridSquare = 61][set airDirection 45] ask patch 0 -8 [ set airDirection 45] ask patch 1 -8 [ set airDirection 45 set pushPull true set pullDir 45] ask patch 2 -10[ set airDirection 45 set pushPull true set pullDir 90] ask patch 1 -10[ set airDirection 45 set pushPull true set pullDir 45] ask patch 1 -9[ set airDirection 45 set pushPull true set pullDir 45] ask patches with [gridSquare = 62][set airDirection 45] ask patch 4 -10 [ set airDirection 45] ask patch 4 -9 [ set airDirection 45] ask patch 5 -10 [ set airDirection 45] ask patches with [gridSquare = 63][set airDirection 45] ask patches with [gridSquare = 64][set airDirection 0] ask patch 10 -10 [ set airDirection 45] ask patch 10 -9 [ set airDirection 45] ask patches with [gridSquare = 65][set airDirection 45] ask patches with [gridSquare = 66][set airDirection 90] ask patches with [gridSquare = 67][set airDirection 90] ask patches with [gridSquare = 68][set airDirection 90] ask patches with [gridSquare = 69][set airDirection 45] ask patch 1 -13 [ set airDirection 90] ask patch 2 -13 [ set airDirection 90] ask patch 1 -12 [ set airDirection 90] ask patch 1 -13 [ set airDirection 90] ask patch 3 -12 [ set airDirection 45 set pushPull true set pullDir 90] ask patch 2 -11 [ set airDirection 45 set pushPull true set pullDir 90] ask patches with [gridSquare = 70][set airDirection 45] ask patch 4 -13 [ set airDirection 45 set pushPull true set pullDir 90] ask patch 4 -12 [ set airDirection 45] ask patch 5 -13 [ set airDirection 45] ask patches with [gridSquare = 71][set airDirection 45] ask patches with [gridSquare = 72][set airDirection 0] ask patch 10 -13 [ set airDirection 45] ask patch 10 -12 [ set airDirection 45] ask patch 5 14[ set airDirection 0 set pushPull true set pullDir 45] ask patches with [gridSquare != 0][set airTransfer 0.031] ask patches with [pxcor = 11][set concentration concentration * 0.5] ; simulate some air going up to the ceiling and round and out intake windows ask patches with [pxcor = 10][set concentration concentration * 0.7] ask patches with [pxcor = 9][set concentration concentration * 0.9] end
There is only one version of this model, created almost 3 years ago by Chris Hodgson.
Attached files
| File | Type | Description | Last updated | |
|---|---|---|---|---|
| Airborne COVID-19 transmission restaurant simulation.png | preview | Preview for 'Airborne COVID-19 transmission restaurant simulation' | almost 3 years ago, by Chris Hodgson | Download |
This model does not have any ancestors.
This model does not have any descendants.