日天A1 通达信主图指标 源码 贴图

M:=10;

MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;

MMM:=(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+

16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+

13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+

10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+

7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+

4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210;

{MX:=MA(MMM,M);

UP:=IF(MMM>MX,(MMM+MX)/2,DRAWNULL);

UP,CIRCLEDOT,COLORRED;

DOWN:=IF(MMM<MX,(MMM+MX)/2,DRAWNULL);

DOWN,CIRCLEDOT,COLORGREEN;

M1:=CROSS(MMM,MX);

M2:=CROSS(MX,MMM);}

{WWW.GPXIAZAI.COM}

GGG:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+

16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+

13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+

10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+

7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+

4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORRED;

IF(GGG>=REF(GGG,1),GGG,DRAWNULL),COLORRED,LINETHICK3;

IF(GGG<=REF(GGG,1),GGG,DRAWNULL),COLORGREEN,LINETHICK3;

{P3:EMA(CLOSE,43),COLORGREEN,LINETHICK1;

IF(P3>REF(P3,1), P3,DRAWNULL),COLORRED,LINETHICK1;}

{C2:= O<=REF(L,1)*0.98 AND CLOSE/OPEN>=1.05 AND REF(SUM((C-REF(C,1))/C*100,3)<-7,1) ;

DRAWICON(C2,L,38);

AP1:=MA(C,1);

BP1:=SMA(SMA(SMA(AP1,2,1),2,1),2,1);

CP1:=MA(BP1,3);

DRAWBAND(BP1,RGB(255,0,0),CP1,RGB(0,255,0));}

BDGD:=C=HHV(C,P1);

GDSJ:=BARSLAST(FILTER(CROSS(0.8,BDGD),P2))+1;

GD:REF(H,GDSJ),COLOR00FF00,POINTDOT,LINETHICK1;

TTP:=CROSS(C,REF(GD,1)),COLOR00FFFF,POINTDOT,LINETHICK0;

STICKLINE(GDSJ<=6,GD,GD,8,0),COLORFF00FF;

BDDD:=C=LLV(C,N1);

DDSJ:=BARSLAST(FILTER(CROSS(0.8,BDDD),N2))+1;

DDD1:REF(L,DDSJ),COLOR00FFFF,POINTDOT,LINETHICK1;

STICKLINE(DDSJ<=6,DDD1,DDD1,8,0),COLOR00FF00;

{WWW.GPXIAZAI.COM}

XG6:=DDSJ=1;

XG7:=DDD1>REF(DDD1,1) ;

DRAWICON(XG6,L,1);

DRAWICON(XG7,L*0.999,23);

XGT6:=BARSLAST(XG6);

{ZSJ:IF(XGT6<=30,REF(L,XGT6),DRAWNULL),COLORRED,DOTLINE;}

DPD:=C=LLV(C,60);

DPD2:=FILTER(CROSS(0.8,DPD),30) ;

DRAWICON(DPD2,L,1);

VAR1:=REF(CLOSE,1);

VAR2:=((SMA(MAX((CLOSE - VAR1),0),6,1) / SMA(ABS((CLOSE - VAR1)),6,1)) * 100);

MC:=CROSS(90,VAR2);

DRAWICON(MC,H,2);