基于turtles-own变量建立链接

下面是一个基于turtles-own变量建立链接的示例代码：

breed [turtles turtle] ; 创建一个名为turtles的新品种

turtles-own [
  my-links ; 声明一个turtles-own变量用于存储链接
]

to setup
  clear-all
  create-turtles 5 ; 创建5只乌龟
  ask turtles [
    set color blue ; 设置乌龟的颜色为蓝色
    set my-links [] ; 初始化my-links变量为空列表
  ]
  create-links-with turtles ; 创建所有乌龟之间的链接
end

to connect
  ask turtles [
    ask other turtles in-radius 5 [
      create-link-with myself ; 与其他半径为5的乌龟建立链接
      set my-links lput link my-links ; 将新链接添加到my-links变量中
    ]
  ]
  ask turtles [
    show my-links ; 显示每个乌龟的my-links变量
  ]
end

to test
  setup
  connect
end

在这个示例中，我们首先定义了一个名为turtles的新品种。然后，我们使用turtles-own指令声明了一个turtles-own变量my-links，用于存储链接。在setup过程中，我们创建了5只乌龟，并为每只乌龟设置了蓝色，并将my-links变量初始化为空列表。然后，我们使用create-links-with命令创建了所有乌龟之间的链接。在connect过程中，我们使用ask命令遍历每只乌龟，并使用ask other turtles in-radius 5命令选择半径为5的其他乌龟，然后使用create-link-with myself命令与其他乌龟建立链接。接下来，我们使用set my-links lput link my-links命令将新链接添加到每只乌龟的my-links变量中。最后，在test过程中，我们调用setup和connect过程来创建和连接乌龟，并使用show my-links命令显示每只乌龟的my-links变量。