if ((npeop <- length(peop_id)) > 0) {
+ if ((nbed_empty <- sum(hosp_beds$is_empty)) > 0) { # 有空余床位
+ nbed_use <- min(npeop, nbed_empty)
+ bed_id <- hosp_beds$id[hosp_beds$is_empty][1:nbed_use]
+ # 更新患者信息
+ peop_id2 <- sample(peop_id, nbed_use) # 这里是随机选择,理论上应该按症状轻重
+ people$x[peop_id2] <- hosp_beds$x[bed_id]
+ people$y[peop_id2] <- hosp_beds$y[bed_id]
+ people$state[peop_id2] <- STATE_FREEZE
+ people$freeze_time[peop_id2] <- worldtime
+ # 更新床位信息
+ hosp_beds$is_empty[bed_id] <- F
错误: 句法分析器13行里不能有多字节字符
> hosp_beds$person_id[bed_id] <- peop_id2
> }
错误: 意外的'}' in " }"
> }
错误: 意外的'}' in " }"


雷达卡




京公网安备 11010802022788号







