飞狐黄金分割副图指标 EA

飞狐黄金分割副图指标

rn

源码

rn

K:=1;

rn

{+}
rninput:K(1,1,3);   
rnDRAWGBK(1, COLORRGB(100,100,100),COLORRGB(50,50,50),0);

rn

DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,STKNAME+’     n所属板块:  ‘+ BLKNAME),align4,COLORwhite;
rnSTICKLINE(C>=O,C,O,8,0),COLOR0000AA;
rnSTICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
rnSTICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
rnSTICKLINE(C>=O,C,O,2,0),COLOR0000ee;
rnSTICKLINE(C>=O,H,L,0,0),COLOR0000ff;
rnSTICKLINE(C<=O,C,O,8,0),Color7B7b00;
rnSTICKLINE(C<=O,C,O,6,0),Color909000;
rnSTICKLINE(C<=O,C,O,4,0),ColorA8a800;
rnSTICKLINE(C<=O,C,O,2,0),COLORcece00;
rnSTICKLINE(C<=O,H,L,0,0),COLORffff00;

rn

n1:=sysparam(3);
rnn:=n1-sysparam(2)+1;
rnhh:=hhv(H,n);
rnll:=llv(L,n);
rn最高:=hh[n1],COLORYELLOW;
rnPARTLINE(C and K<>3,最高),COLORYELLOW;
rn最低:ll[n1],COLORred;
rnPARTLINE(C and K<>3,最低),COLORred;
rnPARTLINE(C and K=1,最低+(最高-最低)*0.191),LINEDOT,COLORWHITE;
rnPARTLINE(C and K=1,最低+(最高-最低)*0.382),LINEDOT,COLORWHITE;
rnPARTLINE(C and K<>3,最低+(最高-最低)*0.5),COLORGREEN;
rnPARTLINE(C and K=1,最低+(最高-最低)*0.618),LINEDOT,COLORWHITE;
rnPARTLINE(C and K=1,最低+(最高-最低)*0.809),LINEDOT,COLORWHITE;
rnDRAWTEXT(BARSCOUNT(C)=SYSPARAM(3) and K<>3,REF(最低,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’最低↓’),ALIGN2,COLORred;
rnDRAWTEXT(BARSCOUNT(C)=SYSPARAM(3) and K<>3,REF(最高,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’最高↑’),ALIGN2,COLORYELLOW;

rn

DRAWTEXT(BARPOS=SYSPARAM(2) and K=1,REF((最低+(最高-最低)*0.191)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’黄金 0.191↑’+NUMTOSTR(最低+(最高-最低)*0.191,2)),COLORWHITE;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K=1,REF((最低+(最高-最低)*0.382)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’黄金 0.382↑’+NUMTOSTR(最低+(最高-最低)*0.382,2)),COLORWHITE;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K<>3,REF((最低+(最高-最低)*0.5)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’     50%  ↑’+NUMTOSTR(最低+(最高-最低)*0.5,2)),COLORGREEN;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K=1,REF((最低+(最高-最低)*0.618)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’黄金 0.618↑’+NUMTOSTR(最低+(最高-最低)*0.618,2)),COLORWHITE;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K=1,REF((最低+(最高-最低)*0.809)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’黄金 0.809↑’+NUMTOSTR(最低+(最高-最低)*0.809,2)),COLORWHITE;

rn

PARTLINE(C and K=2,最低+(最高-最低)*1/8),LINEDOT,Color0095BC;
rnPARTLINE(C and K=2,最低+(最高-最低)*1/4),LINEDOT,Color0095BC;
rnPARTLINE(C and K=2,最低+(最高-最低)*3/8),LINEDOT,Color0095BC;
rnPARTLINE(C and K=2,最低+(最高-最低)*5/8),LINEDOT,Color0095BC;
rnPARTLINE(C and K=2,最低+(最高-最低)*7/8),LINEDOT,Color0095BC;
rnPARTLINE(C and K=2,最低+(最高-最低)*3/4),LINEDOT,Color0095BC;

rn

DRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*1/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’江恩 1/8↑’+NUMTOSTR(最低+(最高-最低)*1/8,2)),Color0095BC;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*1/4)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’江恩 1/4↑’+NUMTOSTR(最低+(最高-最低)*1/4,2)),Color0095BC;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*3/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’江恩 3/8↑’+NUMTOSTR(最低+(最高-最低)*3/8,2)),Color0095BC;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*5/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’江恩 5/8↑’+NUMTOSTR(最低+(最高-最低)*5/8,2)),Color0095BC;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*7/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’江恩 7/8↑’+NUMTOSTR(最低+(最高-最低)*7/8,2)),Color0095BC;
rnDRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*3/4)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),’江恩 3/4↑’+NUMTOSTR(最低+(最高-最低)*3/4,2)),Color0095BC;
rnP:=(C+H+L)/3;
rnR1:=2*P-L;
rnS1:=2*P-H;
rnR2:=P+(R1-S1);
rnS2:=P-(R1-S1);
rnSZ1:=’压力2:’+NUMTOSTR(R2[SYSPARAM(1)],2)+’n压力1:’+NUMTOSTR(R1[SYSPARAM(1)],2);
rnSZ2:=’支撑1:’+NUMTOSTR(S1[SYSPARAM(1)],2)+’n支撑2:’+NUMTOSTR(S2[SYSPARAM(1)],2);
rnDRAWTEXT(BARSCOUNT(C)=SYSPARAM(1),h*1.02,SZ1),ALIGN2,COLOREEBFFF;
rnDRAWTEXT(BARSCOUNT(C)=SYSPARAM(1),l*0.98,SZ2),ALIGN2,COLORFF9F93;

rn