|
D2:=stkindi(stklabel,'VAR1.CY1',0,1);//引用YY301中的CY1定义
D3:=stkindi(stklabel,'VAR1.CY2',0,1);//引用YY301中的CY2定义
ZD:MAX(MAX(A1,A2),MAX(A3,A4)),COLORWHITE; //对ZD赋值，并输出白色
ZX:MIN(MIN(A1,A2),MIN(A3,A4)),COLORWHITE; //对最小赋值，并输出白色
FILLRGN(L>ZD,ZD,ZX,COLORRED);//在ZD,ZX之填充颜色
FILLRGN(H<ZX,ZD,ZX,COLORGREEN);//在ZD,ZX之填充颜色
J5:EMA(A0,5),COLORRED;//对J5赋值并画红色
CC:=(H-L)/L*100;//对CC赋值
PW1:=(L-LLV(L,30))<=5;//对PW1赋值
DK1:=((SUM(L<ZX,2)>=1) OR (L-REF(ZD,1)/REF(ZD,1)<=0.0005)) AND (REF(ZD,1)-REF(ZX,1))/REF(ZX,1)<=0.0006;//对DK1赋值
KXCD:=(H-L)/(REF(SUM((H-L),15),1)/15)>=7;
if VOL/REF(VOL,1)>=5 AND JLD AND PW1 AND KXCD AND DK1 AND (CC>=1 OR CC<=-1) AND CLOSESEC1>=180 then buy(holding=0,1,THISCLOSE);//符合条件并且时间大于收盘前3分钟，开多单一手
if VOL/REF(VOL,1)>=5 AND JLK AND PW2 AND KXCD2 AND DK2 AND (CC>=1 OR CC<=-1) AND CLOSESEC1>=180 then buyshort(holding=0,1,THISCLOSE);//符合条件并且时间大于收盘前三分钟，开空单一手
if L<ZX AND D2 then sellshort(holding<0,1,THISCLOSE);//平多单一手条件
if H>ZD AND D3 then sell(holding>0,1,THISCLOSE);//平空单一手条件
if time>=1514300 then begin //收盘前一分钟清仓
sell(holding>0,1,THISCLOSE);
sellshort(holding<0,1,THISCLOSE);
end
|
加好友 
发短信
Post By：2015/1/14 15:53:39 Post IP：58.246.57.26[显示全部帖子]
