黄金分割主图 自动移动光标可以显示时间周期 EA

黄金分割主图 自动移动光标可以显示时间周期

rn

源码

rn

rnVar1:=SYSPARAM(3)-SYSPARAM(2)+1;
rnVar2:=SYSPARAM(3)-BARPOS;
rnVar3:=HHV(HIGH,Var1);
rnVar4:=LLV(LOW,VaR1);
rnVar5:=REFX(Var3,Var2);              //主图最高价
rnVar5:IF(SYSPARAM(3)<>SYSPARAM(1),SYSPARAM(6),Var5),COLOR0000FF;
rnVar6:REFX(Var4,Var2),COLOR0000FF;  //主图最低价
rn黄191:(Var5-Var6)*0.191+Var6,COLOR0000FF,POINTDOT;
rn黄382:(Var5-Var6)*0.382+Var6,COLOR0000FF,POINTDOT;
rn黄500:(Var5-Var6)*0.500+Var6,COLOR0000FF;
rn黄618:(Var5-Var6)*0.618+Var6,COLOR0000FF,POINTDOT;
rn黄809:(Var5-Var6)*0.809+Var6,COLOR0000FF,POINTDOT;
rnDRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.0381+Var6,’最低价(‘+NUMTOSTR(Var6,2)+’)’),COLOR00FF00;
rnDRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.191+Var6,’黄金0.191(‘+NUMTOSTR(黄191,2)+’)’),COLOR00FF00;
rnDRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.382+Var6,’黄金0.382(‘+NUMTOSTR(黄382,2)+’)’),COLOR00FF00;
rnDRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.500+Var6,’黄金分割中轴(‘+NUMTOSTR(黄500,2)+’)’),COLOR00FF00;
rnDRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.618+Var6,’黄金0.618(‘+NUMTOSTR(黄618,2)+’)’),COLOR00FF00;
rnDRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.809+Var6,’黄金0.809(‘+NUMTOSTR(黄809,2)+’)’),COLOR00FF00;
rnDRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.981+Var6,’最高价(‘+NUMTOSTR(Var5,2)+’)’),COLOR00FF00;
rn//黄金分割线──时间
rndata1:=1+SYSPARAM(1)-1;
rndata21:=21+SYSPARAM(1)-1;
rndata34:=34+SYSPARAM(1)-1;
rndata55:=55+SYSPARAM(1)-1;
rndata89:=89+SYSPARAM(1)-1;
rndata144:=144+SYSPARAM(1)-1;
rnVERTLINE(ROUND(data1)=BARPOS),COLOR0000FF,POINTDOT;
rnVERTLINE(ROUND(data21)=BARPOS),COLOR0000FF,POINTDOT;
rnVERTLINE(ROUND(data34)=BARPOS),COLOR0000FF,POINTDOT;
rnVERTLINE(ROUND(data55)=BARPOS),COLOR0000FF;
rnVERTLINE(ROUND(data89)=BARPOS),COLOR0000FF,POINTDOT;
rnVERTLINE(ROUND(data144)=BARPOS),COLOR0000FF,POINTDOT;
rnDRAWTEXT(ROUND(data1)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,’1′),COLOR0000FF;
rnDRAWTEXT(ROUND(data21)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,’21’),COLOR0000FF;
rnDRAWTEXT(ROUND(data34)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,’34’),COLOR0000FF;
rnDRAWTEXT(ROUND(data55)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,’55’),COLOR0000FF;
rnDRAWTEXT(ROUND(data89)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,’89’),COLOR0000FF;
rnDRAWTEXT(ROUND(data144)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,’144′),COLOR0000FF;
rnDRAWTEXT(SYSPARAM(3)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,NUMTOSTR(SYSPARAM(3)-SYSPARAM(1)+1,0)),COLOR0000FF;

rn