csv - 使用 Netlogo 模型库中的 CSV 示例创建代理

Question

我对这段代码创建的海龟数量有疑问:

to read-turtles-from-csv
  file-close-all ; close all open files
  if not file-exists? "turtles.csv" [
    user-message "No file 'turtles.csv' exists! Try pressing WRITE-TURTLES-TO-CSV."
    stop
  ]
  file-open "turtles.csv" ; open the file with the turtle data

  ; We'll read all the data in a single loop
  while [ not file-at-end? ] [

    let data csv:from-row file-read-line

    create-turtles 1 [
     print "item column 4"
     show item 4 data







    ]
  ]

  file-close ; make sure to close the file
end

我的 turtles.csv 文件只有两行，所以我在这里期望的是 create-turtles 1 重复了行数，我有两个代理，第 4 列中的 2 个数字被打印出来。令人惊讶的是，创建了 4 只海龟!为什么？

谢谢

Answer 1

我想知道您的 turtles.csv 是否被读取为多行？尝试做类似的事情:

to read-file
  file-close-all
  file-open "turtles.csv"
  while [not file-at-end?] [
    print csv:from-row file-read-line
  ]
  file-close-all
end

查看 Netlogo 是如何读取文件的。看来您走在正确的轨道上，否则-我只是按照您的示例测试了一个类似的文件，并且按预期得到了我的两只乌龟。使用名为“turtle_details.csv”的 .csv 文件，如下所示:

  color size heading
1   red    2      90
2  blue    4     180

我用这段代码用 .csv 中的变量生成了两只海龟:

extensions [ csv ]

to setup
  ca
  reset-ticks
  file-close-all 
  file-open "turtle_details.csv"

  ;; To skip the header row in the while loop,
  ;  read the header row here to move the cursor
  ;  down to the next line.
  let headings csv:from-row file-read-line 

  while [ not file-at-end? ] [
    let data csv:from-row file-read-line
    print data
    create-turtles 1 [
      set color read-from-string item 0 data
      set size item 1 data
      set heading item 2 data
    ]
  ]
  file-close-all  
end