先不说执行的效率，看下执行的代码

上半段，是把生产的给1，不生产的给0吧？

if #n >=1 then

    for #m := 1 to 1000 Do

        #点位库[#n] := 1; 

    end_for;

end_if;

 这个 #n 都不变，应该是生产过程中 启用时才给1，所以不用每次都赋值 1000 次吧？

结束时筛选不生产的到另一个数组，同样看代码

for #o = 1 to 1000 Do

    if #点位库[#p] = 0 then

        #unsuccs[#q] := #p;

        #q ：= #q + 1;

    end_if;

end_if;

 这 #点位库[#p] 下标都不变的吗，#点位库[1] 判断了 1000次？