Question

我正在根据实际运营数据对生产计划进行建模。数据为我提供了轮班时间表，如下所示：

shift_start shift_end
0:10    4:00
4:00    6:00
8:00    11:00
11:00   13:30
13:30   17:00
18:30   23:30

或其他格式：

shift_start shift_end
0100    0400
0400    0600
0800    1100
1100    1330
1330    1700
1830    2330

但是，这两种都不是从netlogo ticks函数中读取的好格式。如何自动将时间格式更改为如下所示的数字：

shift_start shift_end
10     240
240    360
480    660
660    810
810    1020
1110   1410

还是netlogo中有内置功能支持时间读取？

整个数据集如下所示（项目5是班次开始时间，项目6是结束时间）我正在使用csv扩展方法阅读整套

028W    028W0410    IB  0   1   250 360 0.48    2.78    14.98
028W    028W0800    IB  0   1   480 660 0.54    3.1 18.43
028W    028W1200    IB&OB   0.5 0.5 720 870 0.51    2.58    13.89
028W    028W1430    IB&OB   0.5 0.5 871 910 0.39    2.54    14.83
028W    028W1830    OB  1   0   1110    1410    0.44    2.08    18.08
028W    028W2331    IB&OB   0.5 0.5 1411    240 0.47    2.42    20.25

Answer 1

NetLogo有一个时间扩展，它可以完全满足您的要求-除其他功能外，它还创建了一个新的NetLogo时间变量类型，该类型是确切的日期和时间，以及许多用于操作和比较时间的原语。它包括离散事件计划：您可以对代理进行编程，以计划将来的操作。

问题在于，仍在更新时间扩展并对其进行测试，以将其包含在将来的NetLogo版本中。它的某些部分尚未调试。请务必查看“问题”，以了解我们所知道的行不通。

原始版本在这里： https://github.com/colinsheppard/time 但是其离散事件模拟在新版本的NetLogo中不起作用。

开发版本在这里： https://github.com/NetLogo/Time-Extension

Answer 2

如果您只需要转换为小时数，那么只要您按照指示的方式对数据进行一致的格式化，这应该可以工作。我假设您的值将作为字符串值读取：

globals [ shift-start shift-end ]

to setup
  ca
  set shift-start [ "0:10" "4:00" "8:00"  "11:00" "13:30" "18:30" ]
  set shift-end   [ "4:00" "6:00" "11:00" "13:30" "17:00" "23:30" ]
  show map convert-to-n-minutes shift-start
  show map convert-to-n-minutes shift-end
  reset-ticks
end


to-report convert-to-n-minutes [ string ]
  let ind position ":" string
  let sub1 read-from-string substring string 0 ind
  let sub2 read-from-string substring string ( ind + 1) ( length string )
  report ( sub1 * 60 ) + sub2 
end

输出：

observer: [10 240 480 660 810 1110]
observer: [240 360 660 810 1020 1410]

请注意，这不会容纳从一天开始到第二天结束的任何班次。

编辑：只要您保持一致，就应该能够容纳所需的格式。此修改的版本将读取为“ 00:00”或“ 0000”格式。请注意，您的值"0100"和"0:10"分别表示1小时和10分钟。

to setup
  ca  
  let shift-original [ "0:10" "4:00" "8:00"  "11:00" "13:30" "18:30" ]
  let shift-new [ "0100" "0400" "0800" "1100" "1330" "1830" ]
  show word "Original:" shift-original
  show word "Parsed:  " ( map convert-to-n-minutes shift-original ) 
  print ""
  show word "New:    " shift-new
  show word "Parsed: " map convert-to-n-minutes shift-new

  reset-ticks
end


to-report convert-to-n-minutes [ string ]
  let ind position ":" string
  let sub1 0
  let sub2 0
  ifelse ind != false [
    set sub1 read-from-string substring string 0 ind
    set sub2 read-from-string substring string ( ind + 1) ( length string )
  ] [
    set sub1 read-from-string substring string 0 2
    set sub2 read-from-string substring string 2 4
  ]
  report ( sub1 * 60 ) + sub2
end

输出：

observer: "Original:[0:10 4:00 8:00 11:00 13:30 18:30]"
observer: "Parsed:  [10 240 480 660 810 1110]"

observer: "New:    [0100 0400 0800 1100 1330 1830]"
observer: "Parsed: [60 240 480 660 810 1110]"

编辑2：

假设数据集与您在已编辑问题中显示的数据集相似：

extensions [ csv ]

globals [ shift-start shift-end ]

to setup
  ca
  let data csv:from-file "data/timesheet.csv"
  set shift-start map [ i -> add-zero ( word item 5 i ) ] data
  set shift-end map [ i -> add-zero ( word item 6 i ) ] data
  print map convert-to-n-minutes shift-start
  print map convert-to-n-minutes shift-end
  reset-ticks
end


to-report convert-to-n-minutes [ string ]
  let ind position ":" string
  let sub1 0
  let sub2 0
  ifelse ind != false [
    set sub1 read-from-string substring string 0 ind
    set sub2 read-from-string substring string ( ind + 1) ( length string )
  ] [
    set sub1 read-from-string substring string 0 2
    set sub2 read-from-string substring string 2 4
  ]
  report ( sub1 * 60 ) + sub2
end

to-report add-zero [ string ]
  if length string >= 4 [
    report string
  ]
  report add-zero insert-item 0 string "0"  
end

输出：

[170 320 440 551 670 851]
[240 420 550 550 850 160]

但是，这再次依赖于数据集中的一致性。

NetLogo-如何将时间转换为数字？

2 个答案: