获利盘II(附图)

VAR1:=LWINNER(5,CLOSE)*100;VAR2:=LWINNER(10,CLOSE)*100;
VAR3:=LWINNER(20,CLOSE)*100;VAR4:=LWINNER(30,CLOSE)*100;
VAR5:=LWINNER(60,CLOSE)*100;VAR6:=LWINNER(100,CLOSE)*100;
X:=REF((VAR1+VAR2+VAR3+VAR4+VAR5+VAR6)/6,1);
五日:VAR1,NODRAW;
十日:VAR2,NODRAW;
二十日:VAR3,NODRAW;
三十日:VAR4,NODRAW;
六十日:VAR5,NODRAW;
一百日:VAR6,NODRAW;
MAX1:=MAX(五日,十日);
MAX2:=MAX(MAX1,二十日);
MAX3:=MAX(MAX2,三十日);
MAX4:=MAX(MAX3,六十日);
MAX5:=MAX(MAX4,一百日);
STICKLINE(五日=MAX5,0,五日,1,0),COLORRED;
STICKLINE(十日=MAX5,0,十日,1.5,0),COLORYELLOW;
STICKLINE(二十日=MAX5,0,二十日,2,0),COLORBROWN;
STICKLINE(三十日=MAX5,0,三十日,2.5,0),COLORBLUE;
STICKLINE(六十日=MAX5,0,六十日,3,0),COLORGREEN;
STICKLINE(一百日=MAX5,0,一百日,3.5,0),COLORWHITE;
STICKLINE(一百日<MAX5,0,一百日,3.5,0),COLORWHITE;
STICKLINE(六十日<MAX5,0,六十日,3,0),COLORGREEN;
STICKLINE(三十日<MAX5,0,三十日,2.5,0),COLORBLUE;
STICKLINE(二十日<MAX5,0,二十日,2,0),COLORBROWN;
STICKLINE(十日<MAX5,0,十日,1.5,0),COLORYELLOW;
STICKLINE(五日<MAX5,0,五日,1,0),COLORRED;
平均成本:MA(X,3),COLORBLUE;
TJ0:=((CLOSE-REF(CLOSE,1))/REF(CLOSE,1))*100;
TJ1:=VAR6>REF(VAR6,1) AND CROSS(VAR6,平均成本);
TJ2:=VAR5>REF(VAR5,1);
TJ3:=VAR4>REF(VAR4,1);
TJ4:=VAR3>REF(VAR3,1);
TJ5:=VAR2>REF(VAR2,1);
TJ6:=VAR1>REF(VAR1,1);
BB:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买:=IF(CLOSE>OPEN,BB*(HIGH-LOW),IF(CLOSE<OPEN,BB*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主买:=主动买/10000;
主动卖:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-BB*(HIGH-LOW),0-VOL/2));
主卖:=-主动卖/10000;
TJ7:=主买>主卖*2 AND TJ0<5;
ZTJ:=TJ1 AND TJ2 AND TJ3 AND  TJ4 AND TJ5 AND TJ6 AND TJ7;
DRAWICON(ZTJ,MAX5,9);