a:=stkindi('','kdj.k',0,24,2)>stkindi('','kdj.d',0,24,2);
a1:=stkindi('','kdj.d',0,24,2)<85;
b:=stkindi('','ma.ma5',0,21,3)>stkindi('','ma.ma60',0,21,3);
b1:=c>stkindi('','ma.ma60',0,21,3);
c1:=stkindi('','kdj.k',0,21,3)>stkindi('','kdj.d',0,21,3);
ka:=stkindi('','kdj.k',0,24,2)<stkindi('','kdj.d',0,24,2);
ka1:=stkindi('','kdj.d',0,24,2)>15;
kb:=stkindi('','ma.ma5',0,21,3)<stkindi('','ma.ma60',0,21,3);
kb1:=c<stkindi('','ma.ma60',0,21,3);
kc1:=stkindi('','kdj.k',0,21,3)<stkindi('','kdj.d',0,21,3);
if a and a1 and b and b1 and c1 and holding<=0 then
begin
sellshort(1,holding,marketr);
buy(1,1,marketr);
END
if ka and ka1 and kb and kb1 and kc1 and holding>=0 then
begin
sell(1,holding,marketr);
buyshort(1,1,marketr);
END
if kb and holding>0 and kb1 then sell(1,holding,marketr);
if b and holding<0 and b1 then sellshort(1,holding,marketr); |