日天A1主图指标公式源码[通达信公式]

{程序化交易 WWW.CXH99.COM }

M:=10;

MID:=(3*C+L+O+H)/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.CXH99.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(C,43),COLORGREEN,LINETHICK1;

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

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

DRAWICON(C2,L,38);

AP1:=MA(CLOSE,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(CLOSE,P1);

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

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

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

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

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

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

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

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

{程序化久久公式网WWW.CXH99.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(LOW,XGT6),DRAWNULL),COLORRED,DOTLINE;

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

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

DRAWICON(DPD2,L,1);

CXH1:=REF(C,1);

CXH2:=((SMA(MAX((C - CXH1),0),6,1) / SMA(ABS((C - CXH1)),6,1)) * 100);

MC:=CROSS(90,CXH2);

DRAWICON(MC,H,2);