1 SSXS:=3; //拆单系数
2 IF 下单数量<=SSXS THEN BEGIN //
3 TBUY(1,下单数量,MKT);
4 END
5 IF 下单数量>SSXS THEN BEGIN
6 SSZD:=INTPART(下单数量/SSXS); //拆单系数,整数倍
7 SSYD:=MOD(下单数量,3); //拆单系数,余数
8 IF SSYD=0 THEN BEGIN
9 FOR 1 TO SSZD DO TBUY(1,SSXS,MKT);
10 END
11 IF SSYD>0 THEN BEGIN
12 FOR 1 TO SSZD DO TBUY(1,SSXS,MKT);
13 TBUY(1,SSYD,MKT);
14 END
15 END