Chart and xAxis as function

[pedro-andrade-inpe]

Allow Chart to have xAxis represented as functions.

[pedro-andrade-inpe]

ebm.zip

[pedro-andrade-inpe]

PredatorPrey = Model{
    finalTime = 500,
    initialEnergy = 40,
    dailyEnergyWolf = 4,
    dailyEnergyRabbit = 1,
    soilToGrow = 4,
    initialWolves = 20,
    initialRabbits = 200,
    dim = 30,
    init = function(model)
        model.cell = Cell{
            state = "pasture",
            becomeSoil = function(cell)
                cell.state = "soil"
                cell.count = 0
            end,
            execute = function(cell)
                if cell.state == "soil" then
                    cell.count = cell.count + 1

                    if cell.count >= 4 then
                        cell.state = "pasture"
                    end
                end
            end
        }

        model.cs = CellularSpace{
            xdim = model.dim,
            instance = model.cell
        }

        model.cs:createNeighborhood()

        model.prey = Agent{
            class = "rabbit",
            energy = model.initialEnergy,
            execute = function(agent)
                if agent:getCell().state == "pasture" then
                    agent:getCell():becomeSoil()
                    agent.energy = agent.energy + 7
                end

                agent:walk()

                agent.energy = agent.energy - model.dailyEnergyRabbit

                if agent.energy >= 80 then
                    agent:reproduce()
                    agent.energy = agent.energy - model.initialEnergy
                end

                if agent.energy <= 0 then
                    agent:die()
                end
            end
        }

        model.preys = Society{
            instance = model.prey,
            quantity = model.initialRabbits
        }

        model.predator = Agent{
            class = "wolf",
            energy = model.initialEnergy,
            execute = function(agent)
                agent:walk()

                forEachAgent(agent:getCell(), function(otherAgent)
                    if otherAgent.class == "rabbit" then
                        agent.energy = agent.energy + otherAgent.energy / 2
                        otherAgent:die()
                        return false
                    end
                end)

                if agent.energy > 80 then
                    agent:reproduce()
                    agent.energy = agent.energy - model.initialEnergy
                end

                agent.energy = agent.energy - model.dailyEnergyWolf

                if agent.energy <= 0 then
                    agent:die()
                end
            end
        }

        model.predators = Society{
            instance = model.predator,
            quantity = model.initialWolves
        }

        model.countpredators = function()
            return #model.predators
        end

        model.countpreys = function()
            return #model.preys
        end

        model.chart = Chart{
            target = model,
            select = "countpredators",
            --HERE
            xAxis = "countpreys"
        }

        model.env = Environment{
            model.cs,
            model.preys,
            model.predators
        }

        model.env:createPlacement{}

        model.map1 = Map{
            target = model.cs,
            select = "state",
            grid = true,
            value = {"pasture", "soil"},
            color = {"green", "brown"}
        }

        model.map1 = Map{
            target = model.preys,
            background = model.map1,
            symbol = "rabbit"
        }

        model.map2 = Map{
            target = model.cs,
            select = "state",
            grid = true,
            value = {"pasture", "soil"},
            color = {"green", "brown"}
        }

        model.map2 = Map{
            target = model.predators,
            background = model.map2,
            symbol = "dog"
        }

        model.timer = Timer{
            Event{action = model.chart},
            Event{action = model.map1},
            Event{action = model.map2},
            Event{action = model.preys},
            Event{start = 10, action = model.predators},
            Event{priority = "high", action = model.cs}
        }
    end
}
PredatorPrey:run()