多空波段 副图源码

MA1:=WMA(HIGH,40);
MA2:=WMA(LOW,40);
STICKLINE(CLOSE>MA1 AND OPEN>MA1,MA1,MA2,1,1),colorFFFFFF;
STICKLINE(CLOSE<MA2 AND OPEN<MA2,MA1,MA2,1,1),colorFF0000;
PARTLINE(CLOSE>=MA2,MA1),colorFFFFFF;
PARTLINE(CLOSE<MA2,MA1),colorFF0000;
PARTLINE(CLOSE>=MA2,MA2),LINETHICK1,colorFFFFFF;
PARTLINE(CLOSE<MA2,MA2),LINETHICK1,colorFF0000;
FC:=CLOSE;
A:=EMA(HIGH,20);
B:=EMA(LOW,20);
HLD[20]:=0;
FOR I=20+1 TO DATACOUNT DO BEGIN
IF FC[I]>A[I-1] THEN
HLD[I]:=1;ELSE
IF FC[I]<B[I-1] THEN
HLD[I]:=-1;ELSE
HLD[I]:=HLD[I-1];
END;
HILO:=IF(HLD=-1,MA(HIGH,20),MA(LOW,20));
D:=HLD=1 AND REF(HLD,1)=1 OR HLD=1 AND REF(HLD,1)=-1;
D1:=HLD=-1 AND REF(HLD,1)=-1 OR HLD=-1 AND REF(HLD,1)=1;
DRAWTEXT(D=1 AND (REF(D1=1,1))=1,LOW*0.999,'多');
DRAWTEXT(D1=1 AND (REF(D=1,1))=1,HIGH*1.001,'空');
STICKLINE(D=1,LOW,HIGH,1,0),colorFF;
STICKLINE(D=1,OPEN,CLOSE,8,0),colorFF;
STICKLINE(D1=1,LOW,HIGH,1,0),color9900;
STICKLINE(D1=1,OPEN,CLOSE,8,0),color9900;
PARTLINE(D=1,WMA(OPEN,11)),LINETHICK1,colorFF00FF;
PARTLINE(D1=1,WMA(OPEN,11)),LINETHICK1,colorFFFF00;