| … | … | @@ -484,6 +484,9 @@ |
| 484 | 484 | (Present (Member (Variable "$indiv") anchor)) |
| 485 | 485 | (Equal (ValueOf (Variable "$indiv") seir-state) STATE))))) |
| 486 | 486 | |
| 487 | ; Initially, all individuals are unexposed. Just get a list of them. |
| 488 | (define all-individuals (get-individuals-in-state susceptible)) |
| 489 | |
| 487 | 490 | ; A function that reports the current stats on the population. |
| 488 | 491 | (define (report-stats) |
| 489 | 492 | (format #t |
| … | … | @@ -492,7 +495,7 @@ |
| 492 | 495 | (length (get-individuals-in-state infected)) |
| 493 | 496 | (length (get-individuals-in-state recovered)) |
| 494 | 497 | (length (get-individuals-in-state died)) |
| 495 | | (length individual-list)) |
| 498 | (length all-individuals)) |
| 496 | 499 | *unspecified*) |
| 497 | 500 | |
| 498 | 501 | ; --------------------------------------------------------------------- |