| 自动移动光标可以显示时间周期 Var1:=SYSPARAM(3)-SYSPARAM(2)+1;Var2:=SYSPARAM(3)-BARPOS;Var3:=HHV(HIGH,Var1);Var4:=LLV(LOW,VaR1);Var5:=REFX(Var3,Var2); //主图最高价Var5:IF(SYSPARAM(3)<>SYSPARAM(1),SYSPARAM(6),Var5),COLOR0000FF;Var6:REFX(Var4,Var2),COLOR0000FF; //主图最低价黄191:(Var5-Var6)*0.191+Var6,COLOR0000FF,POINTDOT;黄382:(Var5-Var6)*0.382+Var6,COLOR0000FF,POINTDOT;黄500:(Var5-Var6)*0.500+Var6,COLOR0000FF;黄618:(Var5-Var6)*0.618+Var6,COLOR0000FF,POINTDOT;黄809:(Var5-Var6)*0.809+Var6,COLOR0000FF,POINTDOT;DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.0381+Var6,最低价(+NUMTOSTR(Var6,2)+)),COLOR00FF00;DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.191+Var6,黄金0.191(+NUMTOSTR(黄191,2)+)),COLOR00FF00;DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.382+Var6,黄金0.382(+NUMTOSTR(黄382,2)+)),COLOR00FF00;DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.500+Var6,黄金分割中轴(+NUMTOSTR(黄500,2)+)),COLOR00FF00;DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.618+Var6,黄金0.618(+NUMTOSTR(黄618,2)+)),COLOR00FF00;DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.809+Var6,黄金0.809(+NUMTOSTR(黄809,2)+)),COLOR00FF00;DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.981+Var6,最高价(+NUMTOSTR(Var5,2)+)),COLOR00FF00;//黄金分割线──时间data1:=1+SYSPARAM(1)-1;data21:=21+SYSPARAM(1)-1;data34:=34+SYSPARAM(1)-1;data55:=55+SYSPARAM(1)-1;data89:=89+SYSPARAM(1)-1;data144:=144+SYSPARAM(1)-1;VERTLINE(ROUND(data1)=BARPOS),COLOR0000FF,POINTDOT;VERTLINE(ROUND(data21)=BARPOS),COLOR0000FF,POINTDOT;VERTLINE(ROUND(data34)=BARPOS),COLOR0000FF,POINTDOT;VERTLINE(ROUND(data55)=BARPOS),COLOR0000FF;VERTLINE(ROUND(data89)=BARPOS),COLOR0000FF,POINTDOT;VERTLINE(ROUND(data144)=BARPOS),COLOR0000FF,POINTDOT;DRAWTEXT(ROUND(data1)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,1),COLOR0000FF;DRAWTEXT(ROUND(data21)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,21),COLOR0000FF;DRAWTEXT(ROUND(data34)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,34),COLOR0000FF;DRAWTEXT(ROUND(data55)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,55),COLOR0000FF;DRAWTEXT(ROUND(data89)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,89),COLOR0000FF;DRAWTEXT(ROUND(data144)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,144),COLOR0000FF;DRAWTEXT(SYSPARAM(3)-3=BARPOS AND SYSPARAM(3)<>SYSPARAM(1),黄500*0.99,NUMTOSTR(SYSPARAM(3)-SYSPARAM(1)+1,0)),COLOR0000FF;
|
