Compartments:
forest: initial value = 1
budworm: initial value = 10
Flows:
ageing = (if forest<4 then 0.02 else 0)
regression = (if budworm>300 then forest-1 else 0)
recruitment = forest*graph(0,400,400,5,0,400,1,21,points(292,315,346,346,328,311,302,301,301,308,318,327,332,339,345,346,348,352,352,352,353),budworm)*budworm where[budworm=budworm,forest=forest]