20个极品通达信指标公式源码

公式1（未来函数）代码N1:=5;N2:=10;N3:=20;N4:=30;P:=2;M:=20;N:=250;M1:=55;W:=21;P3:=500;N9:=90;HR:=HHV(HIGH,M1);HRY:=LLV(LOW,M1);HRY11:=HR*HRY;HRY33:SQRT(HRY11),COLORGREEN,LINETHICK2;IF(CHRY33ANDHRY33=REF(HRY33,1),HRY33,DRAWNULL),LINETHICK2,COLORRED;MA1:EMA(CLOSE,N1);MA2:EMA(CLOSE,N2);MA3:EMA(CLOSE,N3),COLOR00FFFF;MA4:EMA(CLOSE,N4),LINETHICK2;TJ1:=CROSS(MA1,MA2)ANDCOANDCREF(C,1)ANDC/REF(C,1)=1.018ORCROSS(MA1,MA4)ANDCOANDCREF(C,1)ANDC/REF(C,1)=1.018ORCROSS(MA2,MA3)ANDCOANDCREF(C,1)ANDC/REF(C,1)=1.018ORCROSS(MA1,MA3)ANDCOANDCREF(C,1)ANDC/REF(C,1)=1.018;TJ2:=(MAX(MA1,MAX(MA2,MA3))-MIN(MA1,MIN(MA2,MA3)))/MIN(MA1,MIN(MA2,MA3))*100=P;XG:=TJ1ANDTJ2;RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K:=SMA(RSV,3,1);D:=SMA(K,3,1);DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA:=EMA(DIFF,9);MACD:=2*(DIFF-DEA);做多:=IF(KDANDMACD0ANDV1,2,0),COLORRED;做空:=IF(KDANDMACD0ANDV1,-2,0),COLOR00FF00;强洗:=IF(MACD0ANDKDANDV1,1,0),COLOR0099FF;弱升:=IF(MACD0ANDKDANDV1,-1,0),COLORFFFF00;STICKLINE(做多ANDC=O,C,O,3,1),COLORRED;STICKLINE(做多ANDCO,C,O,3,0),COLOR990099;STICKLINE(做多ANDCO,C,O,1,0),COLORCC00CC;STICKLINE(做多ANDCO,C,O,0.3,0),COLORFF00FF;STICKLINE(做多ANDC=O,C,O,3,1),COLOR0000FF;{STICKLINE(做多ANDC=O,C,O,1.5,0),COLOR0000DD;STICKLINE(做多ANDC=O,C,O,0.4,0),COLOR0000FF;}STICKLINE(做空ANDC=O,L,H,0.1,0),COLOR0000FF;STICKLINE(做空ANDC=O,C,O,3,1),COLOR00FF00;{STICKLINE(做空ANDCO,C,O,3,0),COLOR00FF00;STICKLINE(做空ANDCO,C,O,0.3,0),COLOR00FF00;STICKLINE(做空ANDCO,C,O,0.3,0),COLOR00FF00;}STICKLINE(强洗ANDC=O,L,H,0.1,0),COLOR0000FF;STICKLINE(强洗ANDC=O,C,O,3,1),COLORFFFFFF;STICKLINE(强洗ANDCO,C,O,3,0),COLOR999999;STICKLINE(强洗ANDCO,C,O,1,0),COLORCCCCCC;STICKLINE(强洗ANDCO,C,O,0.3,0),COLORFFFFFF;STICKLINE(弱升ANDC=O,C,O,3,1),COLOR00FFFF;STICKLINE(弱升ANDCO,C,O,3,0),COLOR009999;STICKLINE(弱升ANDCO,C,O,0.3,0),COLOR00FFFF;STICKLINE(FILTER(TJ1,3),C,O,4,0),COLOR0000FF;DRAWICON(FILTER(XG,3),L*0.985,23);GET:=ZIG(3,3),COLORYELLOW;PL5:=ZIG(3,5);EN1:=ZIG(3,5)REF(ZIG(3,5),1)ANDREF(ZIG(3,5),1)=REF(ZIG(3,5),2)ANDREF(ZIG(3,5),2)=REF(ZIG(3,5),3);EX1:=ZIG(3,5)REF(ZIG(3,5),1)ANDREF(ZIG(3,5),1)=REF(ZIG(3,5),2)ANDREF(ZIG(3,5),2)=REF(ZIG(3,5),3);PL10:=ZIG(3,10);EN2:=ZIG(3,10)REF(ZIG(3,10),1)ANDREF(ZIG(3,10),1)=REF(ZIG(3,10),2)ANDREF(ZIG(3,10),2)=REF(ZIG(3,10),3);EX2:=ZIG(3,10)REF(ZIG(3,10),1)ANDREF(ZIG(3,10),1)=REF(ZIG(3,10),2)ANDREF(ZIG(3,10),2)=REF(ZIG(3,10),3);PL20:=ZIG(3,20);EN3:=ZIG(3,20)REF(ZIG(3,20),1)ANDREF(ZIG(3,20),1)=REF(ZIG(3,20),2)ANDREF(ZIG(3,20),2)=REF(ZIG(3,20),3);EX3:=ZIG(3,20)REF(ZIG(3,20),1)ANDREF(ZIG(3,20),1)=REF(ZIG(3,20),2)ANDREF(ZIG(3,20),2)=REF(ZIG(3,20),3);PL40:=ZIG(3,40);走强1:=BARSLAST(PL5REF(PL5,1));走弱1:=BARSLAST(PL5REF(PL5,1));走强2:=BARSLAST(PL10REF(PL10,1));走弱2:=BARSLAST(PL10REF(PL10,1));走强3:=BARSLAST(PL20REF(PL20,1));走弱3:=BARSLAST(PL20REF(PL20,1));ZTJZ5:=IF(PL10REF(PL10,1),COUNT(EN1,走强2),0);ZTJD5:=IF(PL10REF(PL10,1),COUNT(EX1,走强2),0);DTJZ5:=IF(PL10REF(PL10,1),COUNT(EN1,走弱2),0);DTJD5:=IF(PL10REF(PL10,1),COUNT(EX1,走弱2),0);ZTJZ10:=IF(PL20REF(PL20,1),COUNT(EN2,走强3),0);ZTJD10:=IF(PL20REF(PL20,1),COUNT(EX2,走强3),0);DTJZ10:=IF(PL20REF(PL20,1),COUNT(EN2,走弱3),0);DTJD10:=IF(PL20REF(PL20,1),COUNT(EX2,走弱3),0);DRAWTEXT(EN1ANDDTJZ5=1,L*0.98,'(A)'),COLORFFFF00;DRAWTEXT(EX1ANDDTJD5=2,H*1.02,'(B)'),COLORFF00FF;DRAWTEXT(EN2ANDZTJZ5=1,L*0.98,'(C)'),COLOR0000FF;DRAWTEXT(EN2ANDDTJZ10=1,L*0.93,'Ⅰ'),COLORFF00FF;DRAWTEXT(EX2ANDDTJD10=2,H*1.05,'Ⅱ'),COLORFFFF00;DRAWTEXT(EN3ANDZTJZ10=1,L*0.93,'Ⅲ'),COLOR0000FF;DRAWTEXT(EX2ANDPL20REF(PL20,1)ANDZTJD10=1,H*1.03,'①'),LINETHICK3,COLOR00FFFF;DRAWTEXT(EN2ANDPL20REF(PL20,1)ANDZTJZ10=2,L*0.95,'②'),LINETHICK3,COLOR00FFFF;DRAWTEXT(EX2ANDPL20REF(PL20,1)ANDZTJD10=2OR(ZTJD10=0ORZTJD10=2)ANDEX2,H*1.03,'③'),LINETHICK3,COLOR00FFFF;DRAWTEXT(EN2ANDPL20REF(PL20,1)ANDZTJZ10=3,L*0.95,'④'),LINETHICK3,COLOR00FFFF;TJ11:=EN2ANDZTJZ5=1;TJ22:=EN1ANDPL10REF(PL10,1)ANDZTJZ5=2;TJ33:=EN2ANDDTJZ10=1;TJ44:=EN3ANDZTJZ10=1;TJ55:=EN2ANDPL20REF(PL20,1)ANDZTJZ10=2;XG22:=TJ11ORTJ22ORTJ33ORTJ44ORTJ55;MM:=CHRY33ANDHRY33=REF(HRY33,1);QQ:=HRY33=REF(HRY33,1);XG11:=CROSS(C,HRY33)ANDQQANDMM;BUY1:=LAST(CLOSEMA(CLOSE,55),0,5);BUY2:=EXIST(CLOSEMA(CLOSE,55),5);BUY:=CLOSEMA(CLOSE,55)&&BUY1&&BUY2;W18:=FILTER(EXIST(XG11ORBUY,1),5);STICKLINE(W18,C,(C+O)/2,4,0),COLORFF00FF;DRAWTEXT(W18,L*0.97,'牛'),COLOR00FFFF;X1:=REF(C,1)/HHV(H,20)0.82;X2:=(MIN(C,O)-L)/(H-L)0.67;X3:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)0.33;X4:=ABS(C-O)/C0.01;DOWN:=OC;X5:=COUNT(DOWN,7)=5;XG8:=X1ANDX2ANDX3ANDX4ANDX5;DRAWTEXT(XG8,L*0.98,'螺'),COLOR00FFFF;AA:=REF(C,1)/REF(O,1)0.96;BB:=C/O1.03;CC:=CREF(O,1);TJ81:=AAANDBBANDCC;X81:=REF(C,1)/HHV(H,20)0.82;DN:=OC;X82:=COUNT(DN,7)=5;X83:=C=HHV(C,3);XG81:=TJ81ANDX81ANDX82;XG82:=X81ANDX82ANDX83;XG88:=XG81ORXG82;DRAWTEXT(XG88,L*0.96,'反'),COLOR00FFFF;X01:=REF(C,1)/HHV(H,21)0.77;{DOWN1:=OC;X02:=COUNT(DOWN1,9)=6;}X03:=ABS(C-O)/C0.008;X04:=(H-L)/C0.025;XG0:=X01ANDX03ANDX04;DRAWTEXT(XG0,L*0.97,'星'),COLOR00FFFF;S1:=REF(C,1)/LLV(L,W)1.30;S2:=(H-MAX(C,O))/(H-L)0.60;S3:=ABS(C-O)/C0.03;S4:=(H-O)/C0.05ANDCO;SAL1:=S1ANDS2A