通达信 量能优化

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,COLORRED,;
主动卖:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-BB*(HIGH-LOW),0-VOL/2));
主卖:=-主动卖/10000,COLORGREEN;
空线:=MA(主卖,5),LINETHICK1,COLORWHITE;
启线:=MA(主买,5),COLORYELLOW;
DRAWBAND(启线,RGB(255,0,0),空线, RGB(100,300,150));
VAREE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR122:=(HIGH+LOW+CLOSE)/3;
VAR133:=(VAR122-MA(VAR122,14))/(0.015*AVEDEV(VAR122,14));
VAR144:=(VAR122-MA(VAR122,70))/(0.015*AVEDEV(VAR122,70));
VAR155:=IF(VAR133>=150 AND VAR133<200 AND VAR144>=150 AND VAR144<200,10,0);
VAR166:=IF(VAR133<=-150 AND VAR133>-200 AND VAR144<=-150 AND VAR144>-200,-10,VAR155);
VAR177:=(CLOSE-MA(CLOSE,133))/MA(CLOSE,133)*100;
VAR188:=100-ABS(VAR177);
VAR199:=IF(VAR188<90,VAR188,100);
VAR1AA:=IF(VAREE>0,VAREE,0);
VAR1BB:=IF(VAR144>=200 AND VAR133>=150,15,IF(VAR144<=-200 AND VAR133<=-150,-15,VAR166))+60;
VAR1CC:=VAR1AA>48 AND VAR1BB>60 AND VAR199<100;
STICKLINE(VAR1CC AND COUNT(VAR1CC,30)=1,(空线+(启线-空线)*0.125),(空线+(启线-空线)*0.75),1,0),COLORFFCC66;
STICKLINE(C>MA(C,10),启线,空线,0.00000005,1),COLORYELLOW;
DRAWICON(VAR1CC AND COUNT(VAR1CC,30)=1,(空线+(启线-空线)*0.4),2);

空头线:MA(主卖,5),LINETHICK1,COLORWHITE;
启动线:MA(主买,5),COLORYELLOW;
洗盘线:MA(主买,35)COLORMAGENTA,LINETHICK1;
异动线:MA(主买,135)COLORGREEN,LINETHICK1;
中线:=(CLOSE-MA(CLOSE,4))/MA(CLOSE,4)*20;
蓝柱:=SMA(中线,3,1),COLORSTICK;

WW:=CROSS(启动线,空头线) AND REF(启动线,1)<REF(异动线,1) AND REF(启动线,1)>REF(洗盘线,1) ;
SS:=CROSS(启动线,空头线) AND REF(启动线,1)<REF(洗盘线,1) AND REF(启动线,1)>REF(异动线,1) ;
YY:=CROSS(启动线,空头线) AND REF(启动线,1)<REF(异动线,1) AND REF(启动线,1)<REF(洗盘线,1) ;
HH:=异动线>洗盘线 AND CROSS(异动线,启动线) AND CROSS(洗盘线,启动线) ;
JJ:=洗盘线>异动线 AND CROSS(异动线,启动线) AND CROSS(洗盘线,启动线) ;
ZZ:=洗盘线>异动线 AND REF(CROSS(洗盘线,启动线),1) AND CROSS(异动线,启动线) ;
DD:=异动线>洗盘线 AND REF(CROSS(异动线,启动线),1) AND CROSS(洗盘线,启动线) ;
QQ:=REF(异动线,1)>REF(洗盘线,1) AND CROSS(空头线,异动线);
GG:=REF(洗盘线,1)>REF(异动线,1) AND CROSS(空头线,洗盘线);
TT:=洗盘线>异动线 AND CROSS(启动线,异动线) AND CROSS(启动线,洗盘线);
LL:=异动线>洗盘线 AND CROSS(启动线,异动线) AND CROSS(启动线,洗盘线);
TL:=洗盘线>异动线 AND REF(CROSS(启动线,异动线),1) AND CROSS(启动线,洗盘线);
QG:=异动线>洗盘线 AND REF(CROSS(启动线,洗盘线),1) AND CROSS(启动线,异动线);
DRAWICON(WW,(启动线+空头线)/2,1 );
DRAWICON(SS,(启动线+空头线)/2,1 );
DRAWICON(YY,(启动线+空头线)/2,1 );
DRAWICON(TT,(启动线+空头线)/2,1 );
DRAWICON(LL,(启动线+空头线)/2,1 );
DRAWICON(TL,(启动线+空头线)/2,1 );
DRAWICON(QG,(启动线+空头线)/2,1 );

DRAWICON(QQ,异动线,2);
DRAWICON(GG,洗盘线,2);
DRAWICON(HH,洗盘线,2);
DRAWICON(JJ,异动线,2);
DRAWICON(ZZ,异动线,2);
DRAWICON(DD,洗盘线,2);