通达信指标之黑马全息.doc

通达信指标之黑马全息 效果图如上 公布其代码 请勿用于商业 代码如下： LC:=REF(C,1);上:=SMA(H,21,2)*1.05;DRAWTEXT(FILTER(CLC AND CLC AND H上 AND C上,5),H+0.05,减仓),COLORFFFFFF;下轨道:SMA(L,21,2)*0.969,crossDOT,COLORFFFFFF;BMA:=MA(C,118);阻挡:=SMA(H,21,2)*1.05;RSV:=(C-LLV(L,13))/(HHV(H,13)-LLV(L,13))*100;K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;RSV12:=(C-LLV(L,34))/(HHV(H,34)-LLV(L,34))*100;K12:=SMA(RSV12,3,1);D12:=SMA(K12,3,1);J12:=3*K12-2*D12;RSV24:=(C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100;K24:=SMA(RSV24,3,1);D24:=SMA(K24,3,1);J24:=3*K24-2*D24;支撑位:=IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24))));压力位:IF(CROSS(J24,J),H,REF(H,BARSLAST(CROSS(J24,J)))),COLORFF00FF;U2L:=IF(C=MA(C,20),80,50);L2L:=IF(C=MA(C,20),50,20);RH1:=IF(JU2L AND REF(J,1)=U2L,HHV(REF(H,1),BARSLAST((J=U2L AND REF(J,1)U2L))-1),REF(HHV(REF(H,1),BARSLAST((J=U2L AND REF(J,1)U2L))-1),BARSLAST(JU2L AND REF(J,1))));RH4:=IF(HRH1,L,REF(L,BARSLAST(HRH1)));RH42:=IF((HRH1),J,REF(J,BARSLAST(HRH1)));RH5:=IF(HRH4 AND JRH42 AND JJ24,H,REF(H,BARSLAST(HRH4 AND JRH42 AND JJ24)));RL1:=IF(JL2L AND REF(J,1)=L2L,LLV(REF(L,1),BARSLAST((J=L2L AND REF(J,1)L2L))-1),REF(LLV(REF(L,1),BARSLAST((J=L2L AND REF(J,1)L2L))-1),BARSLAST(JL2L AND REF(J,1))));RL4:=IF(LRL1,H,REF(H,BARSLAST(LRL1)));RL42:=IF(LRL1,J,REF(J,BARSLAST(LRL1)));RL5:=IF(LRL4 AND JRL42 AND JJ24,L,REF(L,BARSLAST(LRL4 AND JRL42 AND JJ24)));CB:=AMOUNT/VOL/100;CD:=CBH OR CBL;黑马趋势:=MA(C,3);MAP:=MA(C,8);AA5:=MA(C,21);AA10:MA(C,8),COLORFFFFFF;AA12:MA(C,12),COLORFF00FF;BB10:=(ATAN((AA10-REF(AA10,1)))*3.1416)*10;BB12:=(ATAN((AA12-REF(AA12,1)))*3.1416)*10;MA13:=MA(C,13);DRAWTEXT(FILTER(C/O1.04 AND C-LC0 AND C下轨道 AND AA10-REF(AA10,1)0 AND C上,3),L-0.07,追击),COLORD1E768;{FILLRGN((((AA12 = AA10) AND (BB12 = 1)) AND (BB10 = 1)),AA10,AA12),COLORFF;FILLRGN((((AA12 = AA10) AND (BB10 = 1)) AND (BB10 = 1)),AA10,AA12),COLORFF00;}VARD:=(O+L+H+C)/4;支撑:=EMA(VARD,5);短期底部:=LLV(O,30);DRAWTEXT(CROSS(黑马趋势,短期底部) AND RL5REF(RL5,1) AND 黑马趋势REF(黑马趋势,1) AND 黑马趋势1 AND L=支撑位 AND C支撑位 AND H压力位,L-0.15,←黑马