标题：如何加减仓？

你好，在金字塔里如何实现加减仓？
比如:简单的穿越MA策略，当第一笔上穿MA5开仓1手，下穿MA5，反手，此时如果前一笔亏损，那么增加一手，如果前一笔盈利，再返回到1手起，依此论推，上限20手不再加，收盘前清仓。这个策略如何用程序实现？
谢谢

cond_long:=cross(c,ma(c,5));

cond_short:=cross(ma(c,5),c);

variable:ss=1;

if cond_long then buy(1,ss,marketr);

if cond_short then

begin

  if NUMPROFIT( 1)>0 then ss:=ss+1;

  if NUMPROFIT( 1)<0 then ss:=1;

buyshort(1,ss,marketr);

end

 

if time=150000 then

begin

sell();

sellshort();

end