相關標簽:黃金分割主圖指標源碼 、 分時黃金分割主圖指標 、 黃金分割股票主圖公式 、 現貨黃金分割主圖公式 、 移動黃金分割指標源碼 、 mt4移動黃金分割指標 、 自動畫線黃金分割主圖 、 黃金分割指標公式源碼 、 股票時間周期主圖公式 、 黃金分割自動畫線指標 、 通達信黃金分割主圖 、 同花順黃金分割主圖 、 黃金分割法主圖 、 黃金通道主圖指標 、 自動畫線主圖指標公式 、

?

黃金分割主圖 自動移動光標可以顯示時間周期源碼

?

原理解析：
VAR1賦值:SYSPARAM(3)-SYSPARAM(2)+1 VAR2賦值:SYSPARAM(3)-BARPOS VAR3賦值:VAR1日內最高價的最高值 VAR4賦值:VAR1日內最低價的最低值 VAR5賦值:VAR2日后的VAR3 輸出 //主圖最高價VAR5:如果SYSPARAM(3)不等于SYSPARAM(1),返回SYSPARAM(6),否則返回VAR5,COLOR0000FF 輸出VAR6:VAR2日后的VAR4,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 當滿足條件SYSPARAM(2)=BARPOS時,在(VAR5-VAR6)*0.0381+VAR6位置書寫文字,COLOR00FF00 當滿足條件SYSPARAM(2)=BARPOS時,在(VAR5-VAR6)*0.191+VAR6位置書寫文字,COLOR00FF00 當滿足條件SYSPARAM(2)=BARPOS時,在(VAR5-VAR6)*0.382+VAR6位置書寫文字,COLOR00FF00 當滿足條件SYSPARAM(2)=BARPOS時,在(VAR5-VAR6)*0.500+VAR6位置書寫文字,COLOR00FF00 當滿足條件SYSPARAM(2)=BARPOS時,在(VAR5-VAR6)*0.618+VAR6位置書寫文字,COLOR00FF00 當滿足條件SYSPARAM(2)=BARPOS時,在(VAR5-VAR6)*0.809+VAR6位置書寫文字,COLOR00FF00 當滿足條件SYSPARAM(2)=BARPOS時,在(VAR5-VAR6)*0.981+VAR6位置書寫文字,COLOR00FF00 奔銬ATA1賦值: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(對DATA1(進行)四舍五入=BARPOS),COLOR0000FF,POINTDOT VERTLINE(對DATA21(進行)四舍五入=BARPOS),COLOR0000FF,POINTDOT VERTLINE(對DATA34(進行)四舍五入=BARPOS),COLOR0000FF,POINTDOT VERTLINE(對DATA55(進行)四舍五入=BARPOS),COLOR0000FF VERTLINE(對DATA89(進行)四舍五入=BARPOS),COLOR0000FF,POINTDOT VERTLINE(對DATA144(進行)四舍五入=BARPOS),COLOR0000FF,POINTDOT 當滿足條件對DATA1(進行)四舍五入-3=BARPOSANDSYSPARAM(3)不等于SYSPARAM(1)時,在黃500*0.99位置書寫文字,COLOR0000FF 當滿足條件對DATA21(進行)四舍五入-3=BARPOSANDSYSPARAM(3)不等于SYSPARAM(1)時,在黃500*0.99位置書寫文字,COLOR0000FF 當滿足條件對DATA34(進行)四舍五入-3=BARPOSANDSYSPARAM(3)不等于SYSPARAM(1)時,在黃500*0.99位置書寫文字,COLOR0000FF 當滿足條件對DATA55(進行)四舍五入-3=BARPOSANDSYSPARAM(3)不等于SYSPARAM(1)時,在黃500*0.99位置書寫文字,COLOR0000FF 當滿足條件對DATA89(進行)四舍五入-3=BARPOSANDSYSPARAM(3)不等于SYSPARAM(1)時,在黃500*0.99位置書寫文字,COLOR0000FF 當滿足條件對DATA144(進行)四舍五入-3=BARPOSANDSYSPARAM(3)不等于SYSPARAM(1)時,在黃500*0.99位置書寫文字,COLOR0000FF 當滿足條件SYSPARAM(3)-3=BARPOSANDSYSPARAM(3)不等于SYSPARAM(1)時,在黃500*0.99位置書寫文字,COLOR0000FF

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

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;{程序化交易 www.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?