if holding>500 then begin
 ss:=ceiling(holding/500);
 for i=1 to ss do begin
 SELL(多平條件 AND HOLDING>0,min(holding,500),limitr,if(ISLASTBAR,c-2*hd,c-hd));
 end
end

按照之前版主的寫法，在持倉超過500手的情況下，就平不了倉。平倉手數沒有分割，程序發出的指令是以總持倉量掛單的。