通达信“智能系统”主图指标

MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA20:MA(CLOSE,20);
MA60:MA(CLOSE,60);
MA120:MA(CLOSE,120);

GET:=ZIG(3,7);
PL5:=ZIG(3,5);
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,10);
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,20);
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,40);
走强一:=BARSLAST(PL5<REF(PL5,1));
走弱一:=BARSLAST(PL5>REF(PL5,1));
走强二:=BARSLAST(PL10<REF(PL10,1));
走弱二:=BARSLAST(PL10>REF(PL10,1));
走强三:=BARSLAST(PL20<REF(PL20,1));
走弱三:=BARSLAST(PL20>REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强二),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强二),0);
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱二),0);
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱二),0);
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强三),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强三),0);
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱三),0);
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱三),0);
DRAWTEXT(EN2 AND ZTJZ5=1,LOW+0.19,'②'),LINETHICK3,Color0000FF,ALIGN1,LAYER0;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H,'③'),LINETHICK3,COLOR00FF00,ALIGN1,LAYER0;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L,'②'),LINETHICK3,Color0000FF,ALIGN1,LAYER0;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H,'③'),LINETHICK3,COLOR00FF00,ALIGN1,LAYER0;
DRAWGBKLAST(CLOSE,STRIP(RGB(80,105,180),RGB(0,0,0),0));
{大盘走势}
VAR1:="SH000001$CLOSE";
VAR2:=MA(VAR1,13);
VAR3:=VAR1>VAR2;
VAR4:=VAR2>VAR1;
IF BARSTATUS=2 AND VAR3 THEN BEGIN
DRAWTEXTABS(10,20,'大盘走势：★·强·★·重仓参与，积极操作'),COLORRED,LINETHICK3;
END
ELSE
IF BARSTATUS=2 AND VAR4 THEN BEGIN
DRAWTEXTABS(10,20,'大盘走势：★·弱·★·严控仓位，谨慎操作'),COLORffffff,LINETHICK3;
END;
{①}
AA:=TROUGHBARS(3,15,1)<4;
XG1:=FILTER(AA=1,5);
DRAWTEXT(XG1,L,'①'),LINETHICK3,COLOR00FFFF,ALIGN1,LAYER0;
{太阳选股}
WF:=TROUGHBARS(3,5,2)<4 OR TROUGHBARS(3,5,1)<4;
WD:=((REF(C,1)-C)/C*100>1.5 OR ((REF(C,2)-C)/C*100>1.5) AND C<REF(C,1)) AND C>MA(C,13)*0.94;
XG3:=FILTER(WF=1,1) AND WD;
DRAWICON(XG3,l,12),ALIGN1,LAYER0;

TJ:=IF((C-REF(C,1))/REF(C,1)>0.025,1,0);
yl:=IF(C>REF(O,BARSLAST(TJ =1)),REF(O,BARSLAST(TJ =1)),0);
FT:=BARSLAST(yl);
YLX:=REF(yl,FT);
bt:=IF(C<OPEN and ref(C,1)>ref(OPEN,1),ref(C,1),0);
XFT:=BARSLAST(bt);
XYLX:=REF(bt,XFT);
平台调下:=CROSS(XYLX,C);
平台突破:=CROSS(C,YLX);
DRAWICON(平台突破,L* 0.93,7),ALIGN1,VALIGN2;
DRAWICON(平台调下,H,8),ALIGN1,VALIGN2;
VAR22:=REF(LOW,1);
VAR33:=SMA(ABS(LOW-VAR22),13,1)/SMA(MAX(LOW-VAR22,0),13,1)*100;
VAR44:=EMA(IF(CLOSE*1.2,VAR33*13,VAR33/13),13);
VAR55:=LLV(LOW,34);
VAR66:=HHV(VAR44,34);
VAR77:=IF(LLV(LOW,56),1,0);
VAR88:=EMA(IF(LOW<=VAR55,(VAR44+VAR66*2)/2,0),3)/618*VAR77;
主力进场:=VAR88>REF(VAR88,1);
坚决买入:=ref(主力进场,1);
DRAWTEXT(坚决买入 and 平台突破 ,L * 0.97,'坚决买入'),ALIGN1,COLOR0000FF;
ma6:=ma(c,6);
ma18:=ma(c,18);
ma30:=ma(c,30);
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
逃遁:=(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(买=1,5),LOW-0.05,'↖买进'),COLORYELLOW;
VR2:=HHV(HIGH,70);
VR3:=HHV(HIGH,20);
红: VR2*0.83,LINETHICK0;
绿: VR3*0.91,LINETHICK0;
DRAWICON(CROSS(C,红),L,9);
DRAWICON(CROSS(C,绿),L,11);
VL:=REF(LOW,1);
VAR12:=(SMA(ABS(LOW-VL),13,1))/(SMA(MAX(LOW-VL,0),13,1))*100;
VAR14:=MA(VAR12,13);
VAR15:=LLV(LOW,34);
VAR18:=EMA(IF(LOW<=VAR15,VAR14,0),3);
VAR110:=SMA(SMA((CLOSE-LLV(LOW,54))/(HHV(HIGH,54)-LLV(LOW,54))*100,7,1),5,1);
VAR111:=SMA((CLOSE-LLV(LOW,54))/(HHV(HIGH,54)-LLV(LOW,54))*100,7,1)*16.18-VAR110*10.9;
T:=FILTER(IF(VAR111<=VAR110 AND VAR18>REF(VAR18,1),VAR18*8,0),20);
DRAWTEXT(T,LOW-0.4,'←Z注意变盘'),COLORFF00FF;

A1:=BARSLAST(L>REF(H,1));
A2:=COUNT(L>REF(H,A1+1),A1+1)=A1+1;
A3:=BACKSET(BARSTATUS=2 AND A2,A1+1);
STICKLINE(A3>0,REF(H,A1+1),REF(L,A1),20,0),COLORGRAY;
DRAWTEXT(CROSS(A3,0.5),REF(H,A1+1),NUMTOSTRN(REF(H,A1+1),2)+'-'+NUMTOSTRN(REF(L,A1),2)),COLORGRAY;
B1:=BARSLAST(H<REF(L,1));
B2:=COUNT(H<REF(L,B1+1),B1+1)=B1+1;
B3:=BACKSET(BARSTATUS=2 AND B2,B1+1);
STICKLINE(B3>0,REF(L,B1+1),REF(H,B1),20,0),COLORGRAY;
DRAWTEXT(CROSS(B3,0.5),REF(H,B1),NUMTOSTRN(REF(L,B1+1),2)+'-'+NUMTOSTRN(REF(H,B1),2)),COLORGRAY;

AA10:=MA(CLOSE,8);
中期大底:LLV(LOW,30),COLORFF00FF;
支撑:=HHV(EMA(((((OPEN + LOW) + HIGH) + CLOSE) / 4),5),60);
压力一:HHV(LOW,20),COLORBLUE;
中线:=MA(CLOSE,3);
天:=(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;
阻挡:=(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(((((LOW <= (SMA(LOW,5,2) * 0.96)) AND (HIGH >= 短期底部)) AND
(CLOSE >= 长期底部)) AND ((CLOSE / OPEN) > 1.03)),
(LOW - 0.08),'抄底'),COLORRED;
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,1);