用换手率替代成交量,带盘中虚拟(源码 附图)介绍
用换手率替代成交量,带盘中虚拟(源码 附图)
外加了MACD双背离提示,在符合DIF及MACD柱双底背离的条件会在图中的底部显示出一黄色小三角形.在开盘的时当日的换手柱上方有虚柱,那是虚拟的,与虚拟成交量一样,至于多大才符合换手率异动,请以黄线作参考或自己领会.
底线:STICKLINE(0=0,0,0,1500,1),COLORRED;
A1:=IF(RANGE(FROMOPEN,0,61),VOL/CAPITAL*100*60/FROMOPEN,DRAWNULL);
A2:=IF(RANGE(FROMOPEN,60,121),VOL/CAPITAL*100*120/FROMOPEN,A1);
A3:=IF(RANGE(FROMOPEN,120,181),VOL/CAPITAL*100*180/FROMOPEN,A2);
A4:=IF(RANGE(FROMOPEN,180,241),VOL/CAPITAL*100*240/FROMOPEN,A3);
A5:=IF(ISLASTBAR&&PERIOD=5,VOL/CAPITAL*100*240/FROMOPEN,DRAWNULL);
虚拟:IF(ISLASTBAR&&PERIOD=4,A4,A5),COLORRED;
STICKLINE(ISLASTBAR,虚拟,0,-1,-1),COLORGREEN;
换手:IF(CAPITAL>1,VOL/CAPITAL*100,VOL/10000),COLORWHITE,VOLSTICK;
五换手:SUM(换手,5),NODRAW;
十换手:SUM(换手,10),NODRAW;
廿换手:SUM(换手,20),COLORFF6EC7,NODRAW;
M5:MA(换手,5),COLORGREEN;
M120:MA(换手,120),COLORYELLOW;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
QZQ:=BARSLAST(REF(MACD,1)<0 AND MACD>0);
QM:=LLVBARS(MACD,QZQ+20);
MQDZ:=IF(QM>QZQ,REF(MACD,QM),0);
QF:=LLVBARS(DIFF,QZQ+20);
DQDZ:=IF(QF>QZQ,REF(DIFF,QF),0);
XG1:=MACD<0 AND MACD>MQDZ AND DIFF<0 AND DIFF>DQDZ
AND CLOSE=LLV(CLOSE,QZQ+20) AND MQDZ<0 AND DQDZ<0;
MACD双背离:REF(XG1,1)=1 AND MACD>REF(MACD,1),LINETHICK2,COLORYELLOW;
gd11973
