通达信短线主图 源码 主图

MM1:=5;
 MM2:=13;
 MM3:=21;
 MM4:=34;
 MM5:=55;
 MM6:=89;
 MM7:=144;
 MM8:=233;
 M5:EMA(C,MM1);
 M13:EMA(C,MM2);
 M21:EMA(C,MM3);
 M34:EMA(C,MM4);
 M55:EMA(C,MM5),POINTDOT,LINETHICK2,COLOR3366DD;
 M89:EMA(C,MM6),POINTDOT,LINETHICK2,COLOR66FFAA;
 M144:EMA(C,MM7),POINTDOT,LINETHICK2,COLOR6633FF;
 M233:EMA(C,MM8),POINTDOT,LINETHICK2,COLOR6666FF;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 {B1:=BARSLAST(HHV(HIGH,19)=H);}
 B1:=CONST(LLV(LOW,19));
 B2:=CONST(HHV(HIGH,19));
 支撑价:IF(CURRBARSCOUNT<19,B1,DRAWNULL), COLORLIRED,CIRCLEDOT;
 阻力价:IF(CURRBARSCOUNT<19,B2,DRAWNULL),COLORLIBLUE,CIRCLEDOT;
 {攻击临界点}
 C1:=C<B2/1.03 AND C>B2/1.05;
 C2:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);
 C3:=C2/REF(V,1)>=1.5;
 C4:=C1 AND C3;
 C5:=C2/REF(V,1)>=2;
 DRAWTEXT(C4,L,'☆攻击临界点'),COLORLIRED;
 DRAWTEXT(C4 AND C5,L,'☆颈线位量超'),COLORLIRED;
 {旱地拔葱}
 D1:=19;
 D2:=BARSLAST(LLV(LOW,D1)=L);
 D3:=BARSLAST(C/REF(C,1)>1.09);
 D4:=D3-D2;
 D5:=D4>=0 AND D4<3;
 D6:=FILTER(D5,D1);
 D7:=COUNT(C/REF(C,1)>1.05,12)>=9;
 DRAWTEXT(D6 OR D7,L,'☆旱地拔葱'),COLORLICYAN;
 D8:=COUNT(D6,3)>0;
 D9:=C>M13 AND C<M13*1.02;
 DRAWTEXT(D8 AND D9 ,L,'☆厚积薄发'),COLORLICYAN;
 {小阳放量滞涨}
 E1:=5; E2:=3;
 E3:=C/REF(C,1)>=1 AND C/REF(C,1)<1.02;
 E4:=V/REF(V,1)>1;
 E5:=COUNT(E3 AND E4,E1)>=E2;
 E6:=FILTER(E5,E1);
 DRAWTEXT(E6,L,'☆小阳放量滞涨'),COLORLIGREEN;
 {轻舟越过万重山}
 F1:=V/CAPITAL*100<3;
 F2:=C>M233*1.03 AND C<M233*1.11 AND C/REF(C,1)>1.04 AND REF(C,1)<M233;
 F3:=F2 AND F1;
 DRAWTEXT(F3,L,'☆轻舟越过万重山'),COLORLIBLUE;
 {空头强驽之末}
 FF1:=M55>M34 AND M34>M13;
 FF2:=C<M13*0.8;
 FF3:=FF1 AND FF2;
 DRAWTEXT(FF3,L,'☆空头强驽之末'),COLORLIBLUE;
 {黄金买点}
 G1:=CONST(LLV(LOW,55));
 G2:=CONST(HHV(HIGH,55));
 G3:=G2-G1;
 G4:=C<(G2-G3*0.382)*1.05 AND C>(G2-G3*0.382)*0.98;
 G5:=FILTER(G4,10);
 DRAWTEXT(G5 AND CURRBARSCOUNT<10,L,'☆黄金买点'),COLORLIBLUE;
 {假阴线}
 H1:=REF(C,1)/REF(C,2)>1.0985;
 H2:=O>REF(H,1) AND O>C;
 H3:=V/REF(V,1)>1.3;
 H4:=M5>M21;
 H5:=C/REF(C,1)>1.01;
 H6:=H1 AND H2 AND H3 AND H4 AND H5;
 DRAWTEXT(H6,L,'☆假阴线'),COLORLIBLUE;
 {直破多头线}
 J1:=M13>M34 AND M34>M55;
 J2:=M13>REF(M13,1);
 J3:=(M13-M34)>(REF(M13,2)-REF(M34,2));
 J4:=C/REF(C,1)<0.97 AND L/M34>0.99 AND L/M34<1.01;
 J5:=J1 AND J2 AND J3 AND J4;
 J6:=FILTER(J5,10);
 DRAWTEXT(J6,L,'☆直破多头线'),COLORLIBLUE;
 {日、周线同处0乖离}
 K1:=M13>M34 AND M34>M55;
 K2:=MA(C#WEEK,13)>MA(C#WEEK,34) AND MA(C#WEEK,34)>MA(C#WEEK,55);
 K3:=C>M13*0.98 AND C<M13*1.03;
 K4:=C>MA(C#WEEK,13)*0.98 AND C<MA(C#WEEK,13)*1.03;
 K5:=K1 AND K2 AND K3 AND K4;
 K6:=FILTER(K5,10);
 DRAWTEXT(K6,L,'☆日、周线同处0乖离'),COLORLIBLUE;
 {穿越分水岭}
 L1:=COUNT(C>M55,20)<2;
 L2:=REF(C,1)<M55 AND C>M55 AND C<M55*1.03 AND C>REF(C,1);
 L3:=L1 AND L2;
 L4:=FILTER(L3,10);
 DRAWTEXT(L4,L,'☆穿越分水岭'),COLORLIBLUE;
 {十全十美}
 N1:=M13>M34 AND M34>M55;
 N2:=REF(M13,1)>REF(M34,1) AND REF(M34,1)>REF(M55,1);
 N3:="MACD.DIF">"MACD.DEA" AND "MACD.DEA">0;
 N4:="MACD.MACD"<REF("MACD.MACD",1);
 N5:=FILTER(N4,5);
 N6:=C<REF(C,1) AND C>M13 AND C<M13*1.02;
 N7:=N1 AND N2 AND N3 AND N5 AND N6;
 DRAWTEXT(N7,L,'☆十全十美'),COLORLIBLUE;
 {扭转乾坤}
 O1:=LAST(COUNT(C/REF(C,1)<0.95,4)>0,5,1);
 O2:=C/REF(C,1)>1.07;
 O3:=(V=HHV(V,6)) AND O1 AND O2;
 O4:=FILTER(O3,5);
 DRAWTEXT(O4,L,'☆扭转乾坤'),COLORLIBLUE;
 {宝剑锋自磨砺出}
 P1:=M13>M34 AND M34>M55;
 P2:=REF(M13,1)>REF(M34,1) AND REF(M34,1)>REF(M55,1);
 P3:=REF(C,1)<M13 AND LAST(COUNT(C<REF(C,1),4)>2,5,1);
 P4:=H>M13 AND (H-C)/REF(C,1)*100>=3 AND C>REF(C,1) AND C/REF(C,1)<1.03;
 P5:=P1 AND P2 AND P3 AND P4;
 P6:=FILTER(P5,5);
 DRAWTEXT(P6,L,'☆扭转乾坤'),COLORLIBLUE;
 {平量横盘}
 Q1:=CONST(LLV(L,20));
 Q2:=CONST(HHV(H,20));
 Q3:=Q2/Q1>1.2;
 Q4:=COUNT(C/REF(C,1)>0.985 AND C/REF(C,1)<1.015,4)>=3;
 Q5:=COUNT(V/REF(V,1)>=0.9 AND V/REF(V,1)<=1.2,4)>=3;
 Q6:=C>M13 AND L<M13 AND C>REF(C,1);
 Q7:=FILTER(Q6,5);
 DRAWTEXT(Q7,L,'☆平量横盘'),COLORLIBLUE;
 {火箭冲天加速度}
 R1:=COUNT(C/REF(C,1)>1.0985,3)=3;
 R2:=COUNT(C/REF(C,1)>1.0985,5)=5;
 R3:=R1 AND R2;
 DRAWTEXT(R3,L,'☆火箭冲天加速度'),COLORLIBLUE;
 {万里长城永不倒}
 S1:=(M13>=REF(M13,1)*0.99) OR (M13<=REF(M13,1)*1.01);
 S2:=(M34>=REF(M34,1)*0.99) OR (M34<=REF(M34,1)*1.01);
 S3:=(M55>=REF(M55,1)*0.99) OR (M55<=REF(M55,1)*1.01);
 S4:=C/REF(C,1)>1.07 AND REF(C,1)<M13 AND REF(C,1)<M34 AND REF(C,1)<M55;
 S5:=C>M13 AND C>M34 AND C>M55;
 S6:=S1 AND S2 AND S3 AND S4 AND S5;
 DRAWTEXT(S6,L,'☆万里长城永不倒'),COLORLIBLUE;
 {擎天柱}
 T1:=(C-O)/REF(C,1)*100;
 DRAWTEXT(T1>12,L,'☆擎天柱'),COLORLIRED;