通达信分享一个不错主图源码主图指标贴图）

{不错主图}
M:=500;
 AA:=HHV(HIGH,M);
 BB:=LLV(LOW,M);
 QQ:=AA*BB;
 MM:SQRT(QQ),COLOR00FF00,LINETHICK2;
 IF(C>MM AND MM >=REF(MM ,1), MM ,DRAWNULL),LINETHICK2,COLORRED;
 MA20:=MA(CLOSE,20);
 AA10:=MA(CLOSE,8),COLOR0000FF;
中期大底:LLV(LOW,30),COLORFF00FF;
支撑:=HHV(EMA(((((OPEN + LOW) + HIGH) + CLOSE) / 4),5),60);
压力一:HHV(LOW,20),COLORBLUE;
中线:=MA(CLOSE,3);
 DRAWTEXT(FILTER(((((HIGH > 支撑) AND (CLOSE < 支撑))
  AND ((CLOSE / OPEN) > (0 - 1.06))) AND
 (CLOSE < OPEN)),5),(HIGH + 0.02),'逃'),COLOR00FFFF;
天:=(MA(LOW,15) * 0.985);
人:=(MA(LOW,15) * 0.96);
地:=(((HIGH + LOW) + CLOSE) / 3);
 B1:=HHV(地,(4 * 15));
 B6:=LLV(地,(4 * 15));
 B7:=(B1 - B6);
 B8:=(MA(((地 - B6) / B7),2) * 80);
短期底部:(LLV(HIGH,30) * 0.93),COLOR0000FF;
 MA80:=LLV(HIGH,30);
压力二:=(SMA(HIGH,21,2) * 1.035);
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
 RSV:=SMA(下档线,3,1);
 K:=SMA(RSV,3,1);
 D:=((3 * RSV) - (2 * K));
 J12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
 K24:=SMA(SMA(J12,3,1),3,1);
 D24:=((3 * SMA(J12,3,1)) - (2 * K24));
压力位:IF(CROSS(D24,D),HIGH,L),POINTDOT,COLORFFFFFF;
长期底部:LLV(HIGH,30),COLORYELLOW;
 X1:=EMA((((((3 * CLOSE) + HIGH) + LOW) + OPEN) / 6),10);
逃遁:=(SMA(HIGH,21,2) * 1.05);
 STICKLINE((O >= C),C,O,3.3,0),COLORFF5500;
 STICKLINE((O >= C),C,O,2.1,0),COLORFFAA00;
 STICKLINE((O >= C),C,O,1.3,0),COLORFFCC00;
 STICKLINE((O >= C),H,L,0.00,0),COLORFFFF00;
 STICKLINE((C >= O),C,O,3.3,0),COLOR000088;
 STICKLINE((C >= O),C,O,2.3,0),COLOR0000AA;
 STICKLINE((C >= O),C,O,1.2,0),COLOR0000DD;
 STICKLINE((C >= O),C,O,0.3,0),COLOR0000FF;
 STICKLINE((C >= O),H,L,0.00,0),COLOR0000FF;
 STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND
 ((C - REF(C,1)) > 0)),C,O,3.3,0),COLOR0077FF;
 STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND
 ((C - REF(C,1)) > 0)),C,O,2.8,0),COLOR0099FF;
 STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND
 ((C - REF(C,1)) > 0)),C,O,2.1,0),COLOR00AAFF;
 STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND
 ((C - REF(C,1)) > 0)),C,O,1.3,0),COLOR00CCFF;
 STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND
 ((C - REF(C,1)) > 0)),H,L,0.00,0),COLOR00FFFF;
 STICKLINE(((((C < REF(C,1)) AND (C < REF(C,1)))
 AND (H > 逃遁)) AND (C < 逃遁)),C,O,3.3,0),COLOR008800;
 STICKLINE(((((C < REF(C,1)) AND (C < REF(C,1)))
 AND (H > 逃遁)) AND (C < 逃遁)),C,O,2.8,0),COLOR00AA00;
 STICKLINE(((((C < REF(C,1)) AND (C < REF(C,1)))
  AND (H > 逃遁)) AND (C < 逃遁)),C,O,2.1,0),COLOR00DD00;
 STICKLINE(((((C < REF(C,1)) AND (C < REF(C,1)))
  AND (H > 逃遁)) AND (C < 逃遁)),C,O,1.3,0),COLOR00FF00;
 STICKLINE(((((C < REF(C,1)) AND (C < REF(C,1)))
  AND (H > 逃遁)) AND (C < 逃遁)),H,L,0.00,0),COLOR00FF00;
 DRAWTEXT(FILTER(((((LLV(LOW,0) AND
  ((MA(CLOSE,37) - REF(MA(CLOSE,37),1))
 > 0)) AND (LOW <= 短期底部)) AND (WINNER(CLOSE) < 0.05)) AND
  ((CLOSE / OPEN)
  > 0.13)),7),(LOW - 0.09),'底'),COLORRED;
阻挡:=(SMA(LOW,21,2) * 0.94);
 DRAWTEXT(FILTER(((((((((CLOSE / OPEN) > 1.03) AND ((MA(CLOSE,15) -
 REF(MA(CLOSE,15),1)) > 0)) AND ((CLOSE - REF(CLOSE,1)) > 0))
 AND (HIGH < 压力一)) AND (CLOSE < 压力一)) AND ((压力二 -
REF(压力二,1)) > 0)) AND (CLOSE < (SMA(HIGH,21,2) * 1.05))),3),
 LOW,'击'),COLORRED;
 DRAWTEXT(FILTER(((((((LOW <= 天) AND (CLOSE >= MA20)) AND (HIGH < 压力一))
  AND ((天 - REF(天,1)) > 0)) AND (CLOSE < 压力一)) AND ((MA20 -
REF(MA20,1)) > 0)),6),(LOW - 0.12),'全仓'),COLORRED;
 DRAWTEXT(((((LOW <= (SMA(LOW,5,2) * 0.96)) AND (HIGH >= 短期底部)) AND
 (CLOSE >= 长期底部)) AND ((CLOSE / OPEN) > 1.03)),
 (LOW - 0.08),'抄底'),COLORRED;
 T1:=CROSS(SMA(LOW,5,1),阻挡) AND WINNER(CLOSE) <= 0.17
  AND (X1 - REF(X1,1)) > 0;
 T11:=FILTER(T1,5);
 DRAWTEXT(T11,(LOW - 0.15),'买'),COLORFF00FF;
 DRAWTEXT(FILTER((((((B8 <= 1) AND (LOW <= 阻挡)) AND (CLOSE > OPEN))
 AND (LOW <= 中期大底)) AND (CLOSE >= 长期底部)),3)
 ,(LOW - 0.08),'短抄'),COLORYELLOW;
 DRAWTEXT(FILTER((((CROSS((MA(LOW,10) * 0.96),(EMA(OPEN,107) * 0.897))
 AND (HIGH < MA(CLOSE,80))) AND (HIGH < 压力一)) AND
  LLV(LOW,0)),10),LOW,'买'),COLORRED;
 DRAWTEXT(FILTER(((((LOW <= MA80) AND (CLOSE > MA80)) AND (CLOSE > OPEN))
  AND (SMA(CLOSE,2,1) <= MA80)),8),LOW,'底'),COLORFF00FF;
红轨道:MA(MA(CLOSE,3),1),LINETHICK1,COLORYELLOW;
绿轨道:MA(MA(CLOSE,3),3),COLORGREEN;
上升:IF(红轨道>=绿轨道,绿轨道,DRAWNULL),COLORRED,LINETHICK2;
 AA1:=3*SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1)-2*SMA(SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1),3,1);
加仓:=IF(CROSS(AA1,REF(AA1+0.01,1)) AND LLV(AA1,2)=LLV(AA1,8) AND BETWEEN(AA1,20,60),1,0);
波段底:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) -
(2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));
 DRAWICON(加仓,L*0.97,23);
 DRAWICON(CROSS(波段底,3),L*0.97,26);
 A:=(3*C+L+O+H)/6;
 X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
 +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
 REF(A,20))/210;
 MTM:=C-REF(C,1);
 DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
 CB:=EMA(X,13);
卖:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0);
 DRAWTEXT(FILTER(卖=1,1) AND C<红轨道,HIGH*1.02,'卖'),COLORGREEN;
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
 DRAWTEXT(FILTER(买=1,8),LOW-0.08,'买'),COLORRED;