如何在Netlogo中根据特定的概率随机分配智能体的属性？

breed [agents agent]
agents-own [
  attribute
]

globals [
  attribute-values
  probabilities
]

to setup
  set attribute-values ["A" "B" "C"]
  set probabilities [0.3 0.4 0.3]
  let cumulative-probs []
  let total 0
  foreach probabilities [
    let current-sum total + ?
    set total current-sum
    set cumulative-probs lput current-sum cumulative-probs
  ]
end

to assign-attributes
  ask agents [
    let rand-prob random-float 1.0
    let index position cumulative-probs of max-one-of cumulative-probs [
      ifelse-value (item ? attribute-values) > rand-prob [true] [false]
    ]
    set attribute item index attribute-values
  ]
end

to go
  assign-attributes
  ; 其他模拟逻辑
end