SIEMENS西门子杯，西门子六部十层电梯程序，跑分可以西门子-2021-初赛电梯最终版

SIEMENS西门子杯，西门子六部十层电梯程序，跑分可以西门子-2021-初赛电梯最终版

深夜两点半的实验室里，显示器蓝光映着六部电梯的仿真界面，参数监控窗口的数据流像瀑布一样倾泻而下。这个被我们戏称为"电梯侠"的项目，硬生生让三个机械专业的学生转型成了PLC编程狂人。西门子杯初赛的六部十部电梯控制，最刺激的莫过于看着自己写的调度算法在仿真环境里疯狂飙分。

核心调度算法活像个交通指挥员，得同时处理二十多个呼叫信号。我们给每个电梯设计了状态寄存器，就像给它们戴上了智能手表：

// 电梯状态结构体 TYPE ELEVATOR_STATUS : STRUCT CurrentFloor : INT; // 当前楼层 Direction : INT; // 运行方向（-1/0/+1） TargetFloors : ARRAY[1..10] OF BOOL; // 目标楼层队列 DoorStatus : BOOL; // 门状态 Overload : BOOL; // 超载报警 END_STRUCT END_TYPE

这结构体后来被队友吐槽长得像俄罗斯方块，每个布尔量都是下落中的方块。但正是这简单的数据结构，支撑起了整个调度系统的骨架。

SIEMENS西门子杯，西门子六部十层电梯程序，跑分可以西门子-2021-初赛电梯最终版

多电梯协同像在跳集体舞，我们用了环形队列分配策略。当新呼叫进来时，调度器会计算各电梯的响应成本：

// 成本计算函数 FUNCTION CalculateCost : INT VAR_INPUT elevator : ELEVATOR_STATUS; callFloor : INT; callDir : INT; END_VAR VAR distanceCost : INT := ABS(elevator.CurrentFloor - callFloor); directionBonus : INT := 0; END_VAR IF elevator.Direction = callDir THEN directionBonus := (callDir = 1) ? (10 - callFloor) : callFloor; ELSIF elevator.Direction = 0 THEN directionBonus := 5; ELSE directionBonus := -10; END_IF RETURN distanceCost * 2 - directionBonus;

这个函数里的魔数让学弟看了直挠头，其实都是调试时拍脑袋试出来的经验值。有时候调参就像炒菜，火候到了自然香。

最要命的是防死锁机制。某次模拟时六部电梯卡在3-5层之间来回鬼畜，后来发现是方向标志没及时更新。于是给状态机加了心跳检测：

// 心跳监测程序 IF T#5S <= heartbeatTimer THEN FOR i := 1 TO 6 DO IF NOT elevators[i].Moving AND elevators[i].TargetFloors <> 0 THEN TRIGGER_REALLOCATE(i); heartbeatTimer(IN:=TRUE); END_IF END_FOR END_IF

这段代码后来被我们称作"电梯起搏器"，成功解决了僵尸电梯问题。调试时在机房笑得像个两百斤的孩子，结果被隔壁组当成神经病。

仿真界面跑起来那刻，六部电梯的轨迹在监控屏上画出彩虹般的曲线。虽然最终版程序里还藏着几个TODO没解决，但提交前夜的压测跑分已经能稳定在97%以上。清晨走出实验室时，看宿舍楼的电梯都觉得眉清目秀——这大概就是工科生的浪漫吧。