quadtree network topology

[ecpeterson]

TODO:

• make interface uniform with make-courier-gridded
• write docstrings
• make sure 'region size' still works; maybe this means early tree termination? or maybe it's fine with ceil.
• write a unit test or two

little demo:

AETHER> (multiple-value-bind (courier-grid courier-list) (make-courier-quadtree 4 4)
          (with-simulation (simulation ())
            (dolist (courier courier-list)
              (simulation-add-event simulation (make-event :callback courier)))
            (let (receiver message)
              (let ((*local-courier* (aref courier-grid 0 0)))
                (setf receiver (register)))
              (let ((*local-courier* (aref courier-grid 3 3)))
                (setf message (make-message))
                (send-message receiver message))
              (let ((*local-courier* (aref courier-grid 0 0)))
                (flet ((canary ()
                         (receive-message (receiver msg :catch-rts? nil)
                           (message t))))
                  (simulation-run simulation :canary #'canary)
                  (simulation-horizon simulation))))))
1/25

[karalekas]

also I would really like to see that unit test or two

[karalekas]

also, as discussed offline, id be very interested to see a third network variant that includes both NN and quadtree links, and prioritizes NN links when using them would result in a better routing time

while ofc the quadtree routing time is asymptotically better for long-distance routing, we expect in practice to do a lot of NN routing and it seems non-ideal to double the NN routing time in the quadtree network configuration

[karalekas]

added a minimal unit test; you'll need to pull @ecpeterson

[karalekas]

changes LGTM, thanks!!