通达信发一个复合指标源码一招鲜.docx

1、通达信发一个复合指标源码一招鲜【通达信】发一个复合指标源码，一招鲜 引用:原帖由 抓住启动点 于 2015-5-6 22:27 发表 故友呵呵 谢谢老师分享,理想因你而精彩！，老师，你截图里的主图指标能不能给我发一下？，我很喜欢 源码如下，自己弄 不会的下载附件E13:EXPMA(C,13),COLORGREEN;M8:MA(C,8);M21:MA(C,21);M233:MA(C,233);E10:EXPMA(C,10),COLORRED;ZZT:=C/REF(C,1)>1.095 AND C=H;ZA:=BARSLASTCOUNT(ZZT);ZT:=BARSLAST(CROSS(ZA=

2、3,0.5);ZLL:=REF(L,(ZT+2);ZTJ:=C<ZLL;ZAA:=COUNT(ZTJ,ZT+1)=1 AND ZTJ;ZTA:=BARSLAST(ZAA);ZLT:=BARSLAST(L=LLV(L,ZTA+1);ZTJ1:=CROSS(C,E10);ZXG:=COUNT(ZTJ1,ZLT+1)=1 AND ZTJ1 AND TOTALBARSCOUNT>200;STICKLINE(ZXG,C,O,2,0),COLORYELLOW;DRAWTEXT(ZXG,L*0.95,起轿),COLORYELLOW;HA:=M8/M21*100;HTJ:=BARSLASTCOUN

3、T(RANGE(HA,99.9,100.3);HHB:=MAX(C,O)/MIN(C,O)*100-100;HTJ1:=BARSLASTCOUNT(HHB<2);HZF:=(HHV(H,5)-LLV(L,5)/LLV(L,5)*100;HDZF:=(H-L)/REF(C,1)*100;HTJ2:=COUNT(MIN(C,O)/L>1.03,5)=0;HTJ3:=COUNT(H<REF(L,1),5)=0;HTJ4:=C>M233;HXG:=HTJ>4 AND HTJ1>4 AND HZF<10 AND HTJ2 AND HTJ3 AND HTJ4;ST

4、ICKLINE(CROSS(HXG,0.5),C,O,2,0),COLORLIMAGENTA;STICKLINE(CROSS(HXG,0.5),H,L,2,0),COLORLIMAGENTA;DRAWTEXT(CROSS(HXG,0.5),L*0.95,绽放),COLORYELLOW;ZF:=(C-REF(C,1)/REF(C,1)*100;TJ:=EVERY(RANGE(ZF,-2.22,2.55),15);TJ1:=C>O AND C/REF(C,1)>1.03;TJ2:=COUNT(E13>=REF(E13,1),15);JD:=(ATAN(E13/REF(E13,15

5、)-1)*100)*180/3.1415926);A:=IF(MIN(C,O)>E13,MAX(C,O)/E13*100-100,IF(MAX(C,O)<E13,E13/MIN(C,O),E13);B:=MAX(C,O)/MIN(C,O)*100-100;LL:=LLV(A,15);HH:=HHV(A,15);HB:=COUNT(BB>3,15)<2;XG:=REF(TJ,1) AND TJ1 AND TJ2>13 AND JD>72 AND REF(LL,1)<1.37 AND REF(HH,1)<11.15;STICKLINE(XG,C,O,

6、2,0),COLORGREEN;DRAWTEXT(XG,L*0.95,上树),COLORYELLOW;WT:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1);C1:=REF(C,WT+1);C2:=REF(C1,WT+1);C3:=REF(C2,WT+1);C4:=REF(C3,WT+1);C5:=REF(C4,WT+1);C6:=REF(C5,WT+1);C7:=REF(C6,WT+1);C8:=REF(C7,WT+1);C9:=REF(C8,WT+1);WM10:=(C+C1+C2+C3+C4+C5+C6+C7+C8+C9)/10;E20:=EXPMA(C,2

7、0);E120:=EXPMA(C,120);E250:=EXPMA(C,250);WA:=MACD.DIF;WB:=MACD.DEA;WT1:=BARSLAST(CROSS(WA,WB);WST:=BARSLAST(CROSS(WB,WA);WZF:=(HHV(H,110)-LLV(L,110)/LLV(L,110)*100;WTJ:=EVERY(V>REF(V,1),2);WHH:=MAX(MAX(E20,E120),E250);WLL:=MIN(MIN(E20,E120),E250);WNH:=WHH/WLL*100-100;WTJ1:=EVERY(WNH<40,25);WZZ

8、F:=(C-REF(C,10)/REF(C,10)*100 ;WTJA:=C>WM10;WXG:=WT1=0 AND WA<REF(WA,WST) AND WB<REF(WB,WST) AND WZF<70 AND WTJ AND WTJ1 AND WZZF<1.4 AND WTJA;STICKLINE(WXG,C,O,2,0),COLORYELLOW;STICKLINE(WXG,H,L,0,0),COLORYELLOW;DRAWTEXT(WXG,H*1.02,周线走好),COLORYELLOW;M5:=MA(C,5);M10:=MA(C,10);M15:=MA(

9、C,15);FTJ:=M5>REF(M5,1) AND M10>REF(M10,1) AND M15>=REF(M15,10);FT:=BARSLAST(CROSS(FTJ,0.5);FTT:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1);FHH:=MAX(MAX(M5,M10),M15);FLL:=MIN(MIN(M5,M10),M15);FNH:=FHH/FLL*100-100;FZZF:=(C-REF(C,FTT+1)/REF(C,FTT+1)*100;FZZF1:=REF(FZZF,FTT+1);FTJ2:=CROSS(FZZF>

10、20,0.5) OR CROSS(FZZF1>20,0.5);FJD:=(ATAN(M5/REF(M5,1)-1)*100)*180/3.1415926);FTJA:=FZZF1>0 AND FZZF1>0 ;FDT:=M10/M15*100-100>1 AND H/MAX(C,O)<1.03;FBL:=MIN(C,O)/M5;FBL5:=M5/M10*100-100;FXG:=FTJ2 AND C=HHV(C,5) AND BETWEEN(FT,0,5)AND FTJA AND FNH<12 AND FDT AND FBL<1.045 AND FBL

11、5<7.2 AND FJD<77.5;STICKLINE(CROSS(FXG,0.5),C,O,1.8,0),COLORMAGENTA;STICKLINE(CROSS(FXG,0.5),H,L,0,0),COLORMAGENTA;DRAWTEXT(CROSS(FXG,0.5),L*0.98,周线翻红),COLORYELLOW;DTJ:=O>REF(H,1) AND C<O AND O/C<C/L AND V>REF(V,1);DTT:=BARSLAST(REF(ZA>1,1) AND DTJ);DXG:=COUNT(CROSS(C,REF(H,DTT)

12、,DTT+1)=1 AND CROSS(C,REF(H,DTT);STICKLINE(DTT>=0,REF(H,DTT),REF(H,DTT),6,0),COLORRED;DRAWTEXT(DTT=0,REF(H,DTT)*1.02,清茶),COLORYELLOW;DRAWICON(DXG,L*0.95,7);QT:=BARSLAST(C>REF(C,1)*1.095 AND C=H);QTJ:=(C-REF(C,QT+1)/REF(C,QT+1)*100;QTJ1:=EVERY(C<O,QT);QTJ2:=COUNT(REF(C,1)/C>1.09,QT)>0

13、AND REF(C,1)/C>1.09;QA:=QTJ>-1 AND QTJ1 AND QTJ2;QTA:=BARSLAST(QA);QHH:=REF(H,QTA);QTJ3:=EVERY(MAX(C,O)<QHH,QTA);QTJ4:=MIN(C,O)<QHH AND MAX(C,O)>QHH AND COUNT(MIN(C,O)<QHH AND MAX(C,O)>QHH,QTA)=1;QTJ5:=REF(QTJ3,1) AND QTA<69 AND IF(C<O,O/QHH>1.007,C>O) AND IF(C<O,

14、REF(C,1)/C<1.06,C>O); QXG:=QTJ4 AND QTJ5;STICKLINE(QTA>=0,REF(H,QTA),REF(H,QTA),6,0),COLORBLUE;DRAWICON(QXG=1,L*0.95,1);DRAWTEXT(QTA=0,H*1.02,STRCAT(STRCAT(阴线最高价:,VAR2STR(REF(H,QTA),2),元)COLORYELLOW;DIF:=MACD.DIF;H300:=HHVBARS(DIF,300);IA:=BOLL.UB;IT:=BARSLAST(CROSS(IA>=REF(IA,1),0.5);E2

15、5:=EXPMA(C,25);IZF:=EVERY(RANGE(C/REF(C,1),0.97,1.05),IT+1);IZFF:=(HHV(H,IT+1)-LLV(L,IT+1)/LLV(L,IT+1)*100;ITJ:=EVERY(MAX(C,O)/IA<1.02 ,IT+1);IXL:=(ATAN(E25/REF(E25,IT)-1)*100)*180/3.1415926);ITJ1:=CROSS(DIF>=REF(DIF,H300),0.5) AND IZFF<17 AND IZF AND ITJ;ITJ2:=MIN(C,O)/E25>1.04;IXG:=ITJ

16、1 AND IXL>75;STICKLINE(IXG,C,O,2,0),COLORLIRED;STICKLINE(IXG,H,L,0,0),COLORLIRED;DRAWICON(IXG,H*1.01,15);LT8:=LLVBARS(L,60);LTT8:=BARSLAST(CURRBARSCOUNT=CONST(LT8)+1);HT8:=FINDHIGHBARS(H,LT8+1,60,1);A8:DRAWLINE(CURRBARSCOUNT=CONST(HT8)+1,H,ISLASTBAR,REF(H,HT8),0),COLORYELLOW,LINETHICK2;TT8:=BARSL

17、AST(CURRBARSCOUNT=CONST(HT8)+1);AA8:=CROSS(C,CONST(A8);TJ8:=COUNT(AA8,TT8+1)=1 AND AA8;TJ18:=COUNT(V<MA(V,277),TT8+1) ;BL8:=TJ18/(TT8+1)*100;XG8:=TJ8 AND TT8>40 AND BL8>70;XGT8:=BARSLAST(CURRBARSCOUNT=CONST(BARSLAST(XG8)+1);ZH8:=REF(H,TT8);YL8:=REF(L,LTT8);XC8:=REF(C,XGT8);YZ8:=(XC8-YL8)/YL

18、8*100;ZBL8:=YZ8/REF(LTT8,XGT8);XGA8:=XG8 AND ZBL8<2.95;DRAWLINE(TT8=0,H,LTT8=0,L,0),COLORRED;DRAWLINE(LTT8=0,L,XGT8=0,L,0),COLORRED;DRAWICON(XGA8,L*0.95,9);SNH:=E120/E250*100-100;STA:=EVERY(SNH<3 AND E120>E250,20);STB:=CROSS(E20,MAX(E120,E250);STC:=MIN(C,O)/E20<1.08;SXG:=STB AND STA AND

19、STC; STICKLINE(SXG,C,O,2,0),COLORLIMAGENTA;DRAWICON(SXG,L*0.95,15);TIM:=IFF(FROMOPEN>0,(240/FROMOPEN),1);预计日成交量:=IFF(ISLASTBAR AND PERIOD=5 AND TIM>0,VOL*TIM,VOL);JJ:=(3*C+H+L+O)/6;VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8)/36;TJ28:=预计日成交量>

20、=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>O AND C>REF(C,1);黄金柱A:=FILTER(TJ28,5);MA135:=MA(VOL,135);CTXIONG:=(预计日成交量=HHV(VOL,10) AND 预计日成交量>=1.7*REF(VOL,1) AND C>=REF(C,1) AND C>=O AND 预计日成交量<=MA135*3.5);黄金柱B:=FILTER(CTXIONG,3) AND BARSCOUNT(C>0)>=135;XTJ1:=

21、(VOL=HHV(VOL,10) AND VOL>1.7*REF(VOL,1) AND C>=REF(C,1) AND C>=O);黄金柱C:=FILTER(TJ1,3) AND BARSCOUNT(C>0)<135;黄金柱:黄金柱A OR 黄金柱B OR 黄金柱C,NODRAW,COLORYELLOW;STICKLINE(黄金柱,OPEN,CLOSE,8,0),COLORYELLOW;QGA1:=REF(C,10)=HHV(C,2*10+1);QGB1:=FILTER(QGA1,10);QGC1:=BACKSET(QGB1,10+1);HD:=FILTER(QG

22、C1,10);QDA2:=REF(C,10)=LLV(C,2*10+1);QDB2:=FILTER(QDA2,10);QDC2:=BACKSET(QDB2,10+1);LD:=FILTER(QDC2,10);前期高位:REF(C,BARSLAST(HD),POINTDOT,COLORFFFFFF;STICKLINE(C,前期高位,前期高位,8,0),COLORFFFFFF;前期低位:REF(C,BARSLAST(LD),NODRAW,COLORRED;STICKLINE(C,前期低位,前期低位,8,0),COLORRED;AP:=(L+H+C*2)/4;A5:EMA(AP,5),COLORFF

23、FFFF;A13:EMA(AP,13),COLORRED,LINETHICK2;A55:EMA(AP,55),COLORYELLOW;A0X:=(A5-REF(A5,1)/REF(A5,1)*100,NODRAW;A1X:=(A13-REF(A13,1)/REF(A13,1)*100,NODRAW;A2X:=(A55-REF(A55,1)/REF(A55,1)*100,NODRAW;高低幅度:100*(前期高位-前期低位)/前期低位,NODRAW,COLORGREEN;均线幅度:100*(EMA(L+H+C*2)/4,3)-前期低位)/前期低位,NODRAW;买入持股:IFF(A1X>=0,A13,DRAWNULL),COLORRED,LINETHICK5;卖出空仓:IFF(A1X<0 AND A2X<0,A13,DRAWNULL),COLORGREEN,LINETHICK5;STICKLINE(CROSS(A0X,0),C,O,2,0 ),COLORGRAY;STICKLINE(CROSS(A1X,0),C,O,2,0 ),COLORMAGENTA;