NetLogo是一种基于代理的编程语言和集成建模环境。 NetLogo是免费的开源软件,符合GPL许可。还提供商业许可证。它使用Scala和Java编写,并在Java虚拟机上运行。
globals [ evacuated-count evacuation-time exits ] turtles-own [ speed target ] to setup clear-all setup-environment create-pedestrians set evacuated-count 0 reset-ticks end to setup-environment ;; Rysowanie korytarzy (poziome) ;; Rysowanie czarnych cienkich ścian (ramki) wokół pokoi i korytarzy draw-wall -15 8 10 6 black ;; Górny lewy pokój draw-wall -5 8 10 6 black ;; Górny środkowy pokój draw-wall 5 8 10 6 black ;; Górny prawy pokój draw-wall -15 -2 10 6 black ;; Dolny lewy pokój draw-wall -5 -2 10 6 black ;; Dolny środkowy pokój draw-wall 5 -2 10 6 black ;; Dolny prawy pokój draw-rectangle -15 10 30 3 white ;; Górny korytarz draw-rectangle -15 0 30 3 white ;; Środkowy korytarz draw-rectangle -15 10 3 25 white ;; Tworzenie pokojów (kolory: żółty i pomarańczowy) draw-rectangle -11 6 8 5 white ;; Górny lewy pokój draw-rectangle -2 6 8 5 white ;; Górny środkowy pokój draw-rectangle 7 6 8 5 white ;; Górny prawy pokój draw-rectangle -11 -4 8 5 white ;; Dolny lewy pokój draw-rectangle -2 -4 8 5 white ;; Dolny środkowy pokój draw-rectangle 7 -4 8 5 white ;; Dolny prawy pokój ;; Rysowanie wyjść zgodnie z oznaczeniami na planie ;; Wyjścia z pokojów na korytarze () ask patches with [ (pxcor = -7 and pycor = 1) or (pxcor = 0 and pycor = 1) or (pxcor = 10 and pycor = 1) or (pxcor = -7 and pycor = -3) or (pxcor = 0 and pycor = -3) or (pxcor = 10 and pycor = -3) ] [ set pcolor white ;; czerwone wyjścia z pokojów ] ;; Główne wyjścia z budynku (zielone kółka) ask patches with [ (pxcor = 14 and pycor = 9) or (pxcor = -14 and pycor = -14) ] [ set pcolor green ;; wyjścia z budynku ] ;; Zbierz wszystkie wyjścia do zmiennej `exits` set exits patches with [pcolor = green] end to draw-rectangle [x y width height room-color] ask patches with [ pxcor >= x and pxcor < (x + width) and pycor <= y and pycor > (y - height) ] [ set pcolor room-color ] end to draw-wall [x y width height wall-color] ask patches with [ pxcor >= x and pxcor < (x + width) and pycor <= y and pycor > (y - height) ] [ set pcolor wall-color ] end to create-pedestrians create-turtles num-pedestrians [ ;; Losowe rozmieszczenie pieszych w pokojach i korytarzach let spawn-patch one-of patches with [ (pcolor = white or pcolor = yellow or pcolor = orange or pcolor = red) and not any? turtles-here ] if spawn-patch != nobody [ move-to spawn-patch set color blue set size 1.5 set speed random-float-between 0.3 0.5 set target one-of exits ;; Ustaw cel jako jedno z wyjść ] ] end to move-pedestrians ask turtles [ ;; Sprawdź, czy agent dotarł do wyjścia if target != nobody and distance target < 0.5 [ set evacuated-count evacuated-count + 1 die ] ;; Jeśli `target` jest nieprawidłowy, przypisz nowe wyjście if target = nobody or not member? target exits [ set target min-one-of exits [distance myself] ] ;; Sprawdzenie, czy patch przed agentem jest przeszkodą (szary lub czarny kolor) let next-patch patch-ahead 1 ifelse ([pcolor] of next-patch = white or [pcolor] of next-patch = red) [ face target fd speed ;; Poruszaj się w kierunku celu ] [ rt random 90 lt random 90 ;; Obrót w losową stronę, aby znaleźć wolny patch ] ] end to go move-pedestrians if not any? turtles [ set evacuation-time ticks print (word "Evacuation completed in " evacuation-time " ticks.") stop ] tick end to-report random-float-between [#min #max] report #min + random-float (#max - #min) end
我使用 1/16 公顷的单元格,其中有一个变量 a。其中一些在模拟过程中获得值 1。该模式是随机且分布的。我想创建第二个大小为一小时的补丁...
我正在使用 NetLogo 模型,其中我的海龟具有变量纬度和经度。我想根据坐标参考系统为这些变量分配相应的纬度和经度值...
我正在 Netlogo 中使用一个模型,其中每个代理都有一条通过网络的路径。每个节点都有一个名为“mode”的属性,其值为 [“bike”“bus”“train”“...
这是与上一篇文章相关的后续问题。我有与 16 名笔记本电脑消费者的评论评级相关的数据,这些消费者要么满意(16 人),要么不满意(6 人)。他们定义...
如何避免此错误“MOVE-TO 预期输入是代理,但没有得到 NOBODY”
我的代码所做的是设置一个内部灰色补丁区域和一个外部黑色补丁区域,海龟可以在其中繁殖(每个补丁上有一个)。一旦乌龟到达灰色和灰色之间的边界...
我正在模拟一条单车道道路与一条两车道道路合并的情况,所有道路均朝同一方向行驶。不并道的汽车 (cars1) 检查半径 2 内是否有并道的汽车,看看是否
我正在尝试查找 NetLogo 6.4(自版本 6 起)中存储扩展的位置。具体来说,我需要提取表扩展以将其与 OpenMole 一起使用。 OpenMole 容器运行在
我正在尝试使用随机泊松函数生成随机数。 这个函数似乎只允许我给出它的平均值,虽然这没关系,但我也想给它一个最小值和最大值。 ...
我一直在使用 NetLogo 开发基于疏散代理的模型,我想让一些代理遵循多线形状。 作为背景,我有一个城市网络(基本上是一个图表)及其......
我一直在使用 NetLogo 开发基于疏散代理的模型,我想让一些代理遵循多线形状。 作为背景,我有一个城市网络(基本上是一个图表)及其......
我正在基于非常大的 GIS 地图构建模型。我正在地图的一小部分上构建它,因为 shapefile 甚至不会加载到我计算机上安装的 Netlogo 中(我已经修改了...
我需要一些关于如何完全使用全局变量的指导。 我有全局变量 num-tourists,它是有多少游客来到某个地方的数字。 然后,我让我的乌龟得到
Netlogo 时间延长挑战:嵌入命令完成后立即停止“go”功能
我在 go 程序中嵌入了一条命令。命令如下:海龟 1 移动到海龟 3,海龟 3 移动海龟 5 等。我试图实现以下目标: 刻度线应固定在
如何修复 NetLogo 错误“已经有一个名为 [ ]”的全局变量
我不断收到错误“已经有一个名为“DOTTED-LINE-VISIBLE”的全局变量,但是当我更改名称时,它给了我相同的错误,但使用了新名称。我不知道该怎么解决...
我想对我的海龟和我的补丁之间的关系实施某些规则。我的补丁变量是: n_min - 如果有足够的海龟,将 pcolor 更改为粉色,将海龟更改为黄色...
在设置中,我尝试设置整体色块红色 pcolor 或绿色 pcolor 的精确百分比。 我使用的是标准补丁环境,总共有1089个补丁。 我有两个滑块: 滑块1 ...