二六分界 窥量而动 全线开花 通达信指标 源码 贴图 指标思路很简单

{高低点}
高:=REF(HHV(H,80),3);
低:=REF(LLV(L,80),3);
顶点:REFDATE(高,DATE),DOTLINE,LINETHICK2,COLORRED;
低点:REFDATE(低,DATE),DOTLINE,LINETHICK2,COLORBLUE;
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED;
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORBLUE;
{上穿均线}
MA5:=MA(C,5);
MA20:MA(C,20);
MA60:MA(C,60),COLORFF00FF,LINETHICK2;
DRAWICON(CROSS(MA5,MA20),L*0.98,1);
DRAWICON(CROSS(MA60,C),H*1.05,2);
IF(C>MA20,MA20,DRAWNULL),COLORRED,LINETHICK2;
IF(C<MA20,MA20,DRAWNULL),COLORGREEN,LINETHICK2;
{全线开花部分}
{MACD部分}
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA:=EMA(DIF,9);MACD1:=(DIF-DEA)*2;
{KDJ部分}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;
{DMI部分}
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),14);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),14);
PDI:=DMP*100/MTR;
MDI:=DMM*100/MTR;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=EXPMEMA(ADX,6);
{DMI部分}
ROC:=100*(CLOSE-REF(CLOSE,12))/REF(CLOSE,12);MAROC:=MA(ROC,6);
AA:=ROC>MAROC AND PDI>ADXR AND PDI>ADX AND PDI>MDI AND K>D AND DIF>DEA AND C>REF(C,1) AND REF(H,1)>REF(C,2);
STICKLINE(AA,C,O,2,0),COLORYELLOW;
DRAWTEXT(AA AND CROSS(MA5,MA20),L*0.9,'开花'),COLORRED;