日天A1(通达信公式 主图 源码 测试图)

[复制链接]
查看53 | 回复0 | 2022-6-27 19:21:35 | 显示全部楼层 |阅读模式

 

201962913345247129.png

201962913345247129.png

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.70822.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.70822.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);

p201962913352780100.jpg

p201962913352780100.jpg

20196291336771432.rar

3.34 KB, 下载次数: 0

售价: 4 金钱  [记录]  [购买]

20196291336771432.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则