主图(数浪、操盘、MACD)－精品通达信指标公式源码分享

{参数:N:1,100,5;S:0,2,2;}   

M:=(3*C+L+2*H)/6;   

HR:=HHV(HIGH,55);   

HRY:=LLV(LOW,55);   

WLT1:=EMA(M,3);   

WLT2:=EMA(M,5);   

DRAWBAND(WLT1,RGB(240,240,0),WLT2,RGB(20,120,250));   

VR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));   

VR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));   

VR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));   

DIR1:=ABS(CLOSE-REF(CLOSE,5));   

VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);   

ER1:=DIR1/VIR1;   

CS1:=ER1*(0.8-2/8)+2/8;   

CQ1:=CS1*CS1;   

DIR2:=ABS(CLOSE-REF(CLOSE,10));   

VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);   

ER2:=DIR2/VIR2;   

CS2:=ER2*(0.8-2/24)+2/24;   

CQ2:=CS2*CS2;   

决策:EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),42),COLOR0168FF,LINETHICK2;   

持币:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK3;   

操盘线:IF(持币/REF(持币,1)>0.997,持币,DRAWNULL),COLORFFDDEE,LINETHICK3;   

持股:IF(持币/REF(持币,1)>1.001,持币,DRAWNULL),COLORRED,LINETHICK3;   

GG1:=CROSS(WLT1,WLT2);   

超买:=MA(C,10)*IF(CAPITAL=0,1.04,1.1),POINTDOT,COLORGREEN,LINETHICK2;   

超卖:=MA(C,10)*IF(CAPITAL=0,0.95,0.9),POINTDOT,COLORRED,LINETHICK2;   

DD:=决策>REF(决策,1) AND REF(决策,1) >REF(决策,2);   

GG2:=CROSS(WLT1,决策);   

HRY2:=HHV(HIGH,21);   

GG3:=C<HRY2*0.8 AND C>SQRT(HR*HRY);   

JJ1:=C<HRY*1.62;   

TJ1:=GG1;   

TJ2:=GG2  AND JJ1;   

TJ3:=GG1 AND GG3 ;   

XG:=TJ1  OR TJ3 ;   

STICKLINE(XG,C,O,4,0),COLOR009999;   

STICKLINE(XG,C,O,3,0),COLOR00BBBB;   

STICKLINE(XG,C,O,1.5,0),COLOR00DDDD;   

STICKLINE(XG,C,O,0.3,0),COLOR00FFFF;   

SAL1:=HIGH>超买;   

SAL2:=C<O AND (O-C)/C>0.03;   

BB:= C<WLT2;   

BB1:=CROSS(WLT2,WLT1);   

BB3:=HIGH>HRY*1.38;   

SAL01:= SAL1 AND SAL2 AND BB AND BB3;   

SAL02:=BB3 AND BB1;   

SAL:=SAL01 OR SAL02;   

STICKLINE(SAL,C,O,4,0),COLOR008800;   

STICKLINE(SAL,C,O,3,0),COLOR00BB00;   

STICKLINE(SAL,C,O,1.5,0),COLOR00DD00;   

STICKLINE(SAL,C,O,0.3,0),COLOR00FF00;   

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORFFFFFF,NODRAW;   

DEA:=EMA(DIF,9),COLOR00FFFF,NODRAW;   

MACD:2*(DIF-DEA),COLORFF60FF,NODRAW;   

STICKLINE(MACD<0  AND  MACD>REF(MACD,1),C,O,0.15,0),COLOR0099FF;   

STICKLINE(MACD>0,C,O,0.15,0),COLORFF50FF;   

STICKLINE(MACD<0  AND  MACD<REF(MACD,1),C,O,0.15,0),COLORFFFFF0;    

转折线:ZIG(3,5),COLORFFFFFF;   

EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);   

EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);   

PL10:=ZIG(3,13);   

EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);   

EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);   

PL20:=ZIG(3,26);   

EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);   

EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);   

PL40:=ZIG(3,55);   

走强1:=BARSLAST(转折线<REF(转折线,1));   

走弱1:=BARSLAST(转折线>REF(转折线,1));   

走强2:=BARSLAST(PL10<REF(PL10,1));   

走弱2:=BARSLAST(PL10>REF(PL10,1));   

走强3:=BARSLAST(PL20<REF(PL20,1));   

走弱3:=BARSLAST(PL20>REF(PL20,1));   

ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);   

ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);   

DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);   

DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);   

ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);   

ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);   

DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);   

DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);   

DRAWTEXT(EN1 AND DTJZ5=1,L*0.99,'(Ⅰ)'),COLORFFFF00;   

DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'(Ⅱ)'),COLORFFFF00;   

DRAWTEXT(EN2 AND ZTJZ5=1,L*0.99,'(Ⅲ)'),COLORFFFF00;   

DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR00FFFF;   

DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.97,'⑵'),COLOR00FFFF;   

DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR00FFFF;   

DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR00FFFF;   

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.01,'⑸'),COLOR00FFFF;   

DRAWTEXT(EN2 AND DTJZ10=1,L*0.94,'【A】'),COLOR00FF00;   

DRAWTEXT(EX2 AND DTJD10=2,H*1.01,'【B】'),COLOR00FF00;   

DRAWTEXT(EN3 AND ZTJZ10=1,L*0.94,'【C】'),COLOR00FF00;   

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.06,'①'),LINETHICK3,COLORFFFFFF;   

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.93,'②'),LINETHICK3,COLORFFFFFF;   

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.05,'③'),LINETHICK3,COLORFFFFFF;   

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.94,'④'),LINETHICK3,COLORFFFFFF;   

DMLJ:=HHV(H,120);   

E:=(H+L+O+2*C)/5;    

CRTP:=E+(H-L);   

CRZL:=2*E-L;   

CRZC:=2*E-H;   

CRFZ:=E-(H-L);   

CRXL:=(E+CRTP+CRZL+CRZC+CRFZ)/5;   

高:=CONST(CRTP),COLORRED;   

阻:=CONST(CRZL),COLORC7C9FF;   

支:=CONST(CRZC),COLOR7C9CFF;   

反:=CONST(CRFZ),COLORDD00DD;   

心理:=CONST(CRXL);   

高压:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,高,ISLASTBAR,高,1),COLOR0000FF;   

阻力:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,阻,ISLASTBAR,阻,1),COLOR0099FF;   

支撑:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,支,ISLASTBAR,支,1),COLORGREEN;   

反转价:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,反,ISLASTBAR,反,1),COLORDD00DD;   

次日心理价:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,心理,ISLASTBAR,心理,1),COLORFFFFFF;   

DRAWTEXT(ISLASTBAR,反,' 反 转'),LINETHICK1,COLORDD00DD;   

DRAWTEXT(ISLASTBAR,支,' 支 撑'),LINETHICK1,COLOR00FF00;   

DRAWTEXT(ISLASTBAR,阻,' 阻 力'),LINETHICK1,COLOR0099FF;   

DRAWTEXT(ISLASTBAR,高,' 高 压'),LINETHICK1,COLOR0000FF;   

T1:=CONST(LLVBARS(LOW,10));   

T1HIGH:=CONST(REF(HIGH,T1));   

CC:=CONST(CURRBARSCOUNT);   

T2:=CONST(BARSLAST(CURRBARSCOUNT>CC+T1 AND H>T1HIGH));   

T2HIGH:=CONST(REF(HIGH,T2));   

T3:=CONST(BARSLAST(CURRBARSCOUNT>CC+T2 AND HIGH>T2HIGH));   

T3HIGH:=CONST(REF(HIGH,T3));   

猎击线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),COLOR00FFFF,LINETHICK1;   

DRAWTEXT(ISLASTBAR, T3HIGH, '猎击线')LINETHICK1,COLOR00FFFF;   

IF(S=1, CRTP,DRAWNULL),COLORRED;   

IF(S=1, CRZL,DRAWNULL),COLORC7C9FF;   

IF(S=1, CRZC,DRAWNULL),COLOR7C9CFF;   

IF(S=1, CRFZ,DRAWNULL),COLORDD00DD;   

IF(S=1, CRXL,DRAWNULL),COLORFFDDFF;   

决策点:IF(决策<REF(决策,1),决策,DRAWNULL),COLORFF6128,LINETHICK2;