首次开发NetLogo ABM：三类程序问题技术求助

问题描述 #

我正在构建一个社会环境模型，其中个体基于自我效能（self-efficacy）水平选择目标；自我效能值会根据目标完成情况更新，若未成功或失去动力，个体可切换目标。目前遇到三类程序问题：

1. 需确保每个个体拥有独立的自我效能（SE）值，初始化后的个体值不受新个体创建影响，新个体也不会继承旧个体的值，请问当前代码是否实现了这一点？
2. 希望go procedure持续运行至ticks>599，但点击GO按钮仅执行1次tick，调整语句位置、改用if-else等尝试均无效。
3. 希望每个个体默认颜色为79，每次切换目标时颜色值减1；但当前global变量current-color被所有个体共享，导致颜色受其他个体影响。

已尝试的解决方法 #

• 问题1：尝试通过颜色变化验证个体SE独立性，但发现是颜色逻辑问题，无法确认SE值是否独立。
• 问题2：调整终止语句位置、改用if-else结构，均未解决单次tick问题。
• 问题3：尝试将current-color设为个体变量，但颜色始终保持79无变化。

完整代码 #

变量定义 #

globals [current-color]

breed [individuals individual]
breed [goals goal]

individuals-own [
    pa-se
    ea-se
    vl-se
    sp-se
    pa-se-initial
    ea-se-initial
    vl-se-initial
    sp-se-initial
    efficacy
    efficacy-initial
    chosen-goal
    new-goal
    ;; setting efficacy levels
]

goals-own [
    name
]

setup过程 #

to setup
    clear-all
    set-default-shape turtles "circle"
    set current-color 79
    ;; creating the four goals i the space
    create-goals 4 [
        set color blue
        setxy random-xcor random-ycor
        ;; I want to move the goals towards the center, so I make them face the center patch and move towards it a bit
        facexy 0 0
        forward 15
        set name ""
        set label-color white
        ask goal 0 [set name "GOAL 1"]
        ask goal 1 [set name "GOAL 2"]
        ask goal 2 [set name "GOAL 3"]
        ask goal 3 [set name "GOAL 4"]
        set label name
    ]
    reset-ticks
end

go过程 #

to go
    if ticks > 599 [stop]
    initialize-individual
    choose-goal
    layout
    tick
end

initialize-individual过程 #

to initialize-individual
    create-individuals 1 [
        set color current-color
        ;; Assign variables randomly
        set pa-se random-float 1
        set ea-se random-float 1
        set vl-se random-float 1
        set sp-se random-float 1
        set chosen-goal ["GOAL 1"]
        ;;record the initial value of each component
        set pa-se-initial pa-se
        set ea-se-initial ea-se
        set vl-se-initial vl-se
        set sp-se-initial sp-se
        ;; the efficacy in each individual is the sum of the four components
        set efficacy ((pa-se + ea-se + vl-se + sp-se) / 4)
        set efficacy-initial efficacy
    ]
end

choose-goal过程 #

to choose-goal
    ;; set initial goal based on SE
    ask individuals [
        if (efficacy >= 0) and (efficacy <= 0.25) [
            set chosen-goal "GOAL 1"
            move-to goal 0
        ]   
        if (efficacy > 0.25) and (efficacy <= 0.5) [
            set chosen-goal "GOAL 2"
            move-to goal 1
        ]   
        if (efficacy > 0.5) and (efficacy <= 0.75) [
            set chosen-goal "GOAL 3"
            move-to goal 2
        ]  
        if (efficacy > 0.75) and (efficacy <= 1) [
            set chosen-goal "GOAL 4"
            move-to goal 3
        ]
        
        let goal-name chosen-goal 
        ;; update efficacy values 
        ask individuals [
            if chosen-goal != nobody [
                ;; Deduct from ea-se based on the selected goal and pa-se value
                if (chosen-goal = "GOAL 4") and (pa-se < 0.8) [
                    set ea-se (ea-se - (ea-se * (stringencyfactor / 100)))
                ]
                if (chosen-goal = "GOAL 3") and (pa-se < 0.6) [
                    set ea-se (ea-se - (ea-se * (stringencyfactor / 100)))
                ]
                if (chosen-goal ="GOAL 2") and (pa-se < 0.5) [
                    set ea-se (ea-se - (ea-se * (stringencyfactor / 100)))
                ]
                if ea-se < 0 [
                    set ea-se 0
                ]
            ]
        ]

        ;; set a new goal if conditions are met
        ask individuals [
            set new-goal chosen-goal
            if (chosen-goal =  "GOAL 1") and ((ea-se / (stringencyfactor / 100)) > 0.2) [
                set new-goal "GOAL 2"
                move-to one-of goals with [name = "GOAL 2"]
            ]
            if (chosen-goal = "GOAL 2") and ((ea-se / (stringencyfactor / 100)) > 0.2) [
                set new-goal "GOAL 3"
                move-to one-of goals with [name = "GOAL 3"]
            ]
            if (chosen-goal = "GOAL 3") and ((ea-se / (stringencyfactor / 100)) > 0.2) [
                set new-goal "GOAL 4"
                move-to one-of goals with [name = "GOAL 4"]
            ] 
            if new-goal != chosen-goal [
                set current-color current-color - 1
                set chosen-goal new-goal
                ;;to check final goal
            ]
        ]
    ]
end

layout过程 #

to layout
    ;; the number 3 here is arbitrary; more repetitions slows down the
    ;; model, but too few gives poor layouts
    repeat 3 [
        ;; the more turtles we have to fit into the same amount of space,
        ;; the smaller the inputs to layout-spring we'll need to use
        let factor sqrt count turtles
        ;; numbers here are arbitrarily chosen for pleasing appearance
        layout-spring turtles links (1 / factor) (7 / factor) (1 / factor)
        display  ;; for smooth animation
    ]
    ;; don't bump the edges of the world
    let x-offset max [xcor] of turtles + min [xcor] of turtles
    let y-offset max [ycor] of turtles + min [ycor] of turtles
    ;; big jumps look funny, so only adjust a little each time
    set x-offset limit-magnitude x-offset 0.1
    set y-offset limit-magnitude y-offset 0.1
    ask goals [
        setxy (xcor - x-offset / 2) (ycor - y-offset / 2)
    ]
end

limit-magnitude过程 #

to-report limit-magnitude [number limit]
    if number > limit [
        report limit
    ]
    if number < (- limit) [
        report (- limit)
    ]
    report number
end

问题解答 #

问题1：个体SE值独立性确认 #

当前代码已经实现了个体SE值的独立性，原因如下：

• 所有SE相关变量（pa-se、ea-se、vl-se、sp-se、efficacy等）都定义在individuals-own块中，属于每个个体的私有变量。
• 在initialize-individual过程中，每次创建新个体时，都会通过random-float 1为这些变量生成独立的随机值，不会继承其他个体的数值，也不会影响已存在个体的变量值。

如果需要验证，可以在initialize-individual中添加打印语句：

print (word "新个体SE值: " efficacy)

运行后观察每个新个体的SE值都是独立随机的，即可确认。

问题2：go过程仅执行1次tick的解决 #

核心问题有两点：

1. 按钮属性设置：在NetLogo界面中编辑GO按钮，将"Type"设置为"Forever"（默认可能是"Once"），这样按钮会持续运行go过程直到触发stop条件。
2. 逻辑合理性：当前go过程每次tick都会创建1个新个体，若你的模型需求是先初始化所有个体再运行模拟，建议将initialize-individual的逻辑移到setup过程中（比如在setup末尾添加create-individuals 10创建10个个体），避免每次tick重复创建个体。

go过程中的if ticks > 599 [stop]条件是正确的，满足条件时会自动停止运行。

问题3：个体颜色独立切换的解决 #

需要用个体私有变量替代全局变量，同时修复嵌套ask的逻辑错误：

1. 添加个体颜色变量：在individuals-own中新增my-color：

individuals-own [
    ;; 原有变量...
    my-color
]

2. 初始化个体颜色：修改initialize-individual中颜色设置逻辑：

create-individuals 1 [
    set my-color 79  ;; 每个个体默认颜色79
    set color my-color
    ;; 原有初始化逻辑...
]

3. 修改目标切换时的颜色更新逻辑：在choose-goal中删除对全局current-color的引用，改为更新个体自身的my-color，同时去掉内层冗余的ask individuals（避免每个个体重复执行所有个体的逻辑）：

to choose-goal
    ask individuals [
        ;; 原有目标选择逻辑...
        
        ;; update efficacy values 
        if chosen-goal != nobody [
            ;; Deduct from ea-se based on the selected goal and pa-se value
            if (chosen-goal = "GOAL 4") and (pa-se < 0.8) [
                set ea-se (ea-se - (ea-se * (stringencyfactor / 100)))
            ]
            if (chosen-goal = "GOAL 3") and (pa-se < 0.6) [
                set ea-se (ea-se - (ea-se * (stringencyfactor / 100)))
            ]
            if (chosen-goal ="GOAL 2") and (pa-se < 0.5) [
                set ea-se (ea-se - (ea-se * (stringencyfactor / 100)))
            ]
            if ea-se < 0 [
                set ea-se 0
            ]
        ]

        ;; set a new goal if conditions are met
        set new-goal chosen-goal
        if (chosen-goal =  "GOAL 1") and ((ea-se / (stringencyfactor / 100)) > 0.2) [
            set new-goal "GOAL 2"
            move-to one-of goals with [name = "GOAL 2"]
        ]
        if (chosen-goal = "GOAL 2") and ((ea-se / (stringencyfactor / 100)) > 0.2) [
            set new-goal "GOAL 3"
            move-to one-of goals with [name = "GOAL 3"]
        ]
        if (chosen-goal = "GOAL 3") and ((ea-se / (stringencyfactor / 100)) > 0.2) [
            set new-goal "GOAL 4"
            move-to one-of goals with [name = "GOAL 4"]
        ] 
        if new-goal != chosen-goal [
            set my-color my-color - 1
            set color my-color
            set chosen-goal new-goal
        ]
    ]
end

最后删除全局变量current-color以及setup中的set current-color 79语句，即可实现每个个体独立的颜色变化逻辑。

内容的提问来源于stack exchange，提问作者Katrine Munkholm