量能无限（通达信公式 副图 源码 测试图）

 {量能无限}

WY1001:=(2*CLOSE+HIGH+LOW)/4;

 WY1002:=EMA(WY1001,4);

 WY1003:=EMA(WY1002,4);

 WY1004:=EMA(WY1003,4);

 XYS0:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*100;

 STICKLINE(XYS0>=0,XYS0,0,2,0),COLORRED;

 STICKLINE(XYS0<0,XYS0,0,2,0),COLORGREEN;

 HD:=FILTER(BACKSET(XYS0>0 AND XYS0<REF(XYS0,1) AND REF(XYS0,1)>REF(XYS0,2),2),1);

 DRAWLINE(HD,XYS0,REF(HD,1),REF(XYS0,1),1);

 LD:=FILTER(BACKSET(XYS0<0 AND XYS0>REF(XYS0,1) AND REF(XYS0,1)<REF(XYS0,2),2),1);

 DRAWLINE(LD,XYS0,REF(LD,1),REF(XYS0,1),1);

 PJGJ:=AMOUNT/AMO/100;

 SSRYDJX:=MA(PJGJ,13);

 SSRCJL:=EMA(AMO,13);

 SSRCJE:=EMA(AMOUNT,13);

 SSRCBJX:=SSRCJE/SSRCJL/100;

 CYS13:=(CLOSE-SSRCBJX)/SSRCBJX*100;

 XYSHSL:=EMA(AMO/CAPITAL*100,13);

 ZZX:0,COLORWHITE;

 {STICKLINE(XYSHSL>6.1 AND CYS13>5,2,0,2,0),COLORGREEN;

 STICKLINE(XYSHSL>3.8 AND CYS13>5,1.5,0,2,0),COLORYELLOW;

 STICKLINE(XYSHSL>2.1 AND CYS13>5,1,0,2,0),COLORCYAN;

 STICKLINE(XYSHSL>1.8 AND CYS13>5,0.5,0,2,0),COLORBLUE;}

 XYS1:MA(XYS0,2);

 XYS2:MA(XYS0,1);

 DRAWICON(CROSS(XYS2,XYS1),XYS0,11); 

 DRAWICON(CROSS(XYS1,XYS2),XYS0,15);

 

202110254101849275.png