netlogo:创建随机数矩阵

extensions [matrix]

to setup
  clear-all
  let size 5 ; 矩阵的大小
  let random-matrix matrix:make-constant size size 0 ; 创建一个初始值为0的矩阵
  
  ; 填充随机数
  repeat size [
    repeat size [
      set matrix:get random-matrix who who (random 100) ; 随机数范围为0到99
    ]
  ]
  
  print matrix:pretty-print-text random-matrix
end

to setup
  clear-all
  let size 5 ; 矩阵的大小
  let random-matrix matrix:make-constant size size 0
  
  ; 使用foreach循环填充随机数
  foreach n-values size [?1] [
    i ->
    foreach n-values size [?2] [
      j ->
      matrix:set random-matrix i j (random 100)
    ]
  ]
  
  print matrix:pretty-print-text random-matrix
end