NetLogo绘制函数与分布求助:如何绘制P(b)=(1+a)*(1-b)折线图
解决NetLogo中绘制P(b)分布折线图的问题
我来帮你搞定这个NetLogo绘图的难题!你的思路是对的,但原来的代码没考虑到NetLogo绘图的核心逻辑——得明确指定每个点的x(b)和y(P(b))坐标,还要按x轴顺序绘制才能得到正确的折线。
先分析你原来代码的问题
你写的plot [P_distribution] of turtles会把所有海龟的P值按海龟创建的顺序绘制,x轴默认是从1开始的索引(不是你要的b值),所以自然看不到对应b的分布曲线;另外set-plot-x-range 0 (max [b] of turtles)也不够准确,因为b是随机浮点数,最大可能接近1但到不了1,直接固定x轴范围0到1更贴合你的需求。
正确实现方法(两种方案)
方案1:基于海龟的样本点绘制折线
适合展示随机生成的海龟样本对应的分布趋势:
- 先确保海龟变量初始化正确
在setup过程里给每个海龟赋值b和P_distribution:
to setup clear-all create-turtles 100 ; 可调整海龟数量,越多点越密集 set b random-float 1 ; 生成0到1的随机浮点数 set P_distribution (1 + a) * (1 - b) ; 计算对应P值,a是你创建的滑块变量 end reset-ticks end
注意:先在NetLogo界面创建一个名为a的滑块,设置范围0到5、类型为整数。
- 编写绘图过程
创建一个专门的绘图过程,按b从小到大排序海龟,再逐个绘制坐标点:
to plot-turtle-distribution set-current-plot "Distribution" clear-plot ; 每次绘图前清空旧内容 set-plot-x-range 0 1 ; 固定x轴为b的范围0-1 set-plot-y-range 0 6 ; a最大为5时,P(b)最大值是6,所以y轴设0-6足够 ; 按b值从小到大排序海龟,保证折线按x轴递增方向绘制 let sorted-turtles sort-by [ [t1 t2] -> [b] of t1 < [b] of t2 ] turtles ; 遍历排序后的海龟,用plotxy指定每个点的x和y坐标 foreach sorted-turtles [ t -> plotxy [b] of t [P_distribution] of t ] end
方案2:绘制平滑的理论分布曲线
如果不需要展示随机样本,只想画出P(b)=(1+a)*(1-b)的理论曲线,可以直接生成均匀的b点计算P值,曲线更平滑:
to plot-theoretical-distribution set-current-plot "Distribution" clear-plot set-plot-x-range 0 1 set-plot-y-range 0 6 let step 0.01 ; 步长越小曲线越平滑 ; 从0到1遍历所有b值,计算对应P并绘制 for [b 0 step step 1] [ let P (1 + a) * (1 - b) plotxy b P ] end
最后一步:配置绘图窗口
在NetLogo界面创建一个名为Distribution的绘图窗口,记得设置x轴标签为b,y轴标签为P(b),这样图表更清晰。
内容的提问来源于stack exchange,提问作者still_learning
相关产品推荐
相关产品推荐

