您現(xiàn)在的位置：程序化交易>> 股票公式>> 通達(dá)信>> 通達(dá)信公式>>正文內(nèi)容

非常好用的黃金分割指標(biāo)公式公式[通達(dá)信公式]

作者：通達(dá)信來源：cxh99.com 發(fā)布時間：2019年08月09日點擊數(shù)：　【收藏到本網(wǎng)的會員中心】

相關(guān)標(biāo)簽:

通達(dá)信非常好用的黃金分割指標(biāo)公式分享給大家通達(dá)信函數(shù)關(guān)系，需調(diào)節(jié)高低參數(shù)定點。
左邊的綠豎線是從高點至下的跌幅百分比右邊是黃金分割位和紅豎線是上升幅度尺

原理解析：
輸出INPUT:K(1,1,3) A賦值:上次DISPSTATUS=1距今天數(shù)+1 HH賦值:A日內(nèi)最高價的最高值 LL賦值:A日內(nèi)最低價的最低值輸出上漲:首次若DISPSTATUS=2則將最近上次最低價=LL距今天數(shù)+1周期置為1距今天數(shù),COLOR0000FF,線寬為0 輸出↑空間％:(收盤價/上漲日前的最低價-1)*100,COLOR00FFFF,線寬為0 輸出最高％:(HHVALL(HH)/上漲日前的最低價-1)*100,COLORFF00FF,線寬為0 輸出下跌:首次若DISPSTATUS=2則將最近上次最高價=HH距今天數(shù)+1周期置為1距今天數(shù),COLOR00FF00,線寬為0 輸出↓空間％:(收盤價/下跌日前的最高價-1)*100,COLOR998888,線寬為0 輸出最低％:(LLVALL(LL)/下跌日前的最高價-1)*100,COLORFF0000,線寬為0 輸出高:下跌日前的最高價,COLOR0000FF,DOTLINE 輸出低:上漲日前的最低價,COLOR00FF00,DOTLINE VERTLINE(上漲=0,4),COLOR0000FF VERTLINE(下跌=0,3),COLOR00FF00 當(dāng)滿足條件上漲=0AND最高％>10時,在LL*1.1位置書寫文字,畫黃色當(dāng)滿足條件上漲=0AND最高％>10時,在LL*1.15位置書寫文字,COLORFFFFFF 當(dāng)滿足條件上漲=0AND最高％>20時,在LL*1.2位置書寫文字,COLOR00FF00 當(dāng)滿足條件上漲=0AND最高％>25時,在LL*1.25位置書寫文字,COLORFF00FF 當(dāng)滿足條件上漲=0AND最高％>30時,在LL*1.3位置書寫文字,COLOR0000FF 當(dāng)滿足條件上漲=0AND最高％>40時,在LL*1.4位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>50時,在LL*1.5位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>60時,在LL*1.6位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>70時,在LL*1.7位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>80時,在LL*1.8位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>90時,在LL*1.9位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>100時,在LL*2位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>125時,在LL*2.25位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>150時,在LL*2.5位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>180時,在LL*2.8位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>200時,在LL*3位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=0AND最高％>250時,在LL*3.5位置書寫文字,COLOR00FFFF 當(dāng)滿足條件下跌=0AND最低％<-10時,在HH*0.9位置書寫文字,畫黃色當(dāng)滿足條件下跌=0AND最低％<-15時,在HH*0.85位置書寫文字,COLORFFFFFF 當(dāng)滿足條件下跌=0AND最低％<-20時,在HH*0.8位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=0AND最低％<-25時,在HH*0.75位置書寫文字,COLORFF00FF 當(dāng)滿足條件下跌=0AND最低％<-30時,在HH*0.7位置書寫文字,COLORFF0000 當(dāng)滿足條件下跌=0AND最低％<-40時,在HH*0.6位置書寫文字,COLORFFFFFF 當(dāng)滿足條件下跌=0AND最低％<-50時,在HH*0.5位置書寫文字,COLORFFFFFF 當(dāng)滿足條件下跌=0AND最低％<-60時,在HH*0.4位置書寫文字,COLORFFFFFF 當(dāng)滿足條件下跌=0AND最低％<-70時,在HH*0.3位置書寫文字,COLORFFFFFF 當(dāng)滿足條件下跌=0AND最低％<-80時,在HH*0.2位置書寫文字,COLORFFFFFF 當(dāng)滿足條件下跌=0AND最低％<-90時,在HH*0.1位置書寫文字,COLORFFFFFF 當(dāng)滿足條件上漲=2時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=4時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=7時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=12時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=20時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=33時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=54時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=88時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=143時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=179時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件上漲=249時,在最低價位置書寫文字,COLOR00FFFF 當(dāng)滿足條件下跌=2時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=4時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=7時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=12時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=20時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=33時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=54時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=88時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=143時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=179時,在最低價位置書寫文字,COLOR00FF00 當(dāng)滿足條件下跌=249時,在最低價位置書寫文字,COLOR00FF00 賦值: 上次DISPSTATUS=1距今天數(shù)+1 AA賦值: DISPSTATUS=2 賦值: T日內(nèi)最高價的最高值賦值: T日內(nèi)最低價的最低值賦值: HH1-LL1 賦值: T日內(nèi)最高價距今天數(shù) 賦值: T日內(nèi)最低價距今天數(shù) 賦值: WH-WL 賦值: HH-HL*0.5 賦值: (HH1-LL1)*0.191 賦值: (HH1-LL1)*0.382 賦值: (HH1-LL1)*0.618 賦值: (HH1-LL1)*0.809 賦值: HH1-HL191 賦值: HH1-HL382 賦值: HH1-HL618 賦值: HH1-HL809 賦值: LL1+HL191 賦值: LL1+HL382 賦值: LL1+HL618 賦值: LL1+HL809 賦值: (HH1-LL1)*0.125 賦值: (HH1-LL1)*0.25 賦值: (HH1-LL1)*0.375 賦值: (HH1-LL1)*0.625 賦值: (HH1-LL1)*0.75 賦值: (HH1-LL1)*0.875 賦值: HH1-HL125 賦值: HH1-HL250 賦值: HH1-HL375 賦值: HH1-HL625 賦值: HH1-HL750 賦值: HH1-HL875 賦值: LL1+HL125 賦值: LL1+HL250 賦值: LL1+HL375 賦值: LL1+HL625 賦值: LL1+HL750 賦值: LL1+HL875 ENDENDDRAWTEXT(AA AND K不等于3,HH1, ' 最高價：'+HH1),ALIGN2,畫綠色當(dāng)滿足條件AAANDK不等于3時,在LL1位置書寫文字,ALIGN2,VALIGN2,畫綠色當(dāng)滿足條件AAANDK不等于3時,在MHL位置書寫文字,ALIGN2,COLORC0C0C0 當(dāng)滿足條件AAANDK=1時,在A1位置書寫文字,ALIGN2,COLORC0C0C0 當(dāng)滿足條件AAANDK=1時,在A2位置書寫文字,ALIGN2,COLORC0C0C0 當(dāng)滿足條件AAANDK=1時,在A3位置書寫文字,ALIGN2,COLORC0C0C0 當(dāng)滿足條件AAANDK=1時,在A4位置書寫文字,ALIGN2,COLORC0C0C0 當(dāng)滿足條件AAANDK不等于3時,在HH1位置書寫文字,ALIGN2,畫紅色,線寬為7 當(dāng)滿足條件AAANDK不等于3時,在LL1位置書寫文字,ALIGN2,畫紅色,線寬為7 當(dāng)滿足條件AAANDK不等于3時,在MHL位置書寫文字,ALIGN2,COLORFF0000,線寬為7 當(dāng)滿足條件AAANDK=1時,在A1位置書寫文字,ALIGN2,COLOR208FFF,線寬為0 當(dāng)滿足條件AAANDK=1時,在A2位置書寫文字,ALIGN2,COLOR208FFF,線寬為0 當(dāng)滿足條件AAANDK=1時,在A3位置書寫文字,ALIGN2,COLOR208FFF,線寬為0 當(dāng)滿足條件AAANDK=1時,在A4位置書寫文字,ALIGN2,COLOR208FFF,線寬為0 當(dāng)滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色當(dāng)滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色當(dāng)滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色當(dāng)滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色當(dāng)滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色當(dāng)滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?來源:程序化99（ m.weiqiv.net.cn ）

源碼：

input:K(1,1,3);
A:=BARSLAST(DISPSTATUS=1)+1;
HH:=HHV(H,A);
LL:=LLV(L,A);
上漲:BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(L=LL)+1)),COLOR0000FF,linethick0;
↑空間％:(C/REF(L,上漲)-1)*100,COLOR00FFFF,linethick0;
最高％:(HHVALL(HH)/REF(L,上漲)-1)*100,COLORFF00FF,linethick0;
下跌:BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(H=HH)+1)),COLOR00FF00,linethick0;
↓空間％:(C/REF(H,下跌)-1)*100,COLOR998888,linethick0;
最低％:(LLVALL(LL)/REF(H,下跌)-1)*100,COLORFF0000,linethick0;
高:REF(H,下跌),COLOR0000FF,DOTLINE;
低:REF(L,上漲),COLOR00FF00,DOTLINE;
VERTLINE(上漲=0,4),COLOR0000FF;
VERTLINE(下跌=0,3),COLOR00FF00;
{DRAWTEXT(上漲=0,HHVALL(HH)*0.99,'-最高'),COLOR0000FF;
DRAWTEXT(下跌=0,LLVALL(LL)*1.01,'-最低'),COLOR00FF00;}DRAWTEXT(上漲=0 AND 最高％>10,LL*1.1,'-10%'),COLORYELLOW;
DRAWTEXT(上漲=0 AND 最高％>10,LL*1.15,'-15%'),COLORFFFFFF;
DRAWTEXT(上漲=0 AND 最高％>20,LL*1.2,'-20%'),COLOR00FF00;
DRAWTEXT(上漲=0 AND 最高％>25,LL*1.25,'-25%'),COLORFF00FF;
DRAWTEXT(上漲=0 AND 最高％>30,LL*1.3,'-30%'),COLOR0000FF;
DRAWTEXT(上漲=0 AND 最高％>40,LL*1.4,'-40%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>50,LL*1.5,'-50%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>60,LL*1.6,'-60%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>70,LL*1.7,'-70%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>80,LL*1.8,'-80%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>90,LL*1.9,'-90%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>100,LL*2,'-100%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>125,LL*2.25,'-125%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>150,LL*2.5,'-150%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>180,LL*2.8,'-180%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>200,LL*3,'-200%'),COLOR00FFFF;
DRAWTEXT(上漲=0 AND 最高％>250,LL*3.5,'-250%'),COLOR00FFFF;
DRAWTEXT(下跌=0 AND 最低％<-10,HH*0.9,'-10%'),COLORYELLOW;
DRAWTEXT(下跌=0 AND 最低％<-15,HH*0.85,'-15%'),COLORFFFFFF;
DRAWTEXT(下跌=0 AND 最低％<-20,HH*0.8,'-20%'),COLOR00FF00;
DRAWTEXT(下跌=0 AND 最低％<-25,HH*0.75,'-25%'),COLORFF00FF;
DRAWTEXT(下跌=0 AND 最低％<-30,HH*0.7,'-30%'),COLORFF0000;
DRAWTEXT(下跌=0 AND 最低％<-40,HH*0.6,'-40%'),COLORFFFFFF;
DRAWTEXT(下跌=0 AND 最低％<-50,HH*0.5,'-50%'),COLORFFFFFF;
DRAWTEXT(下跌=0 AND 最低％<-60,HH*0.4,'-60%'),COLORFFFFFF;
DRAWTEXT(下跌=0 AND 最低％<-70,HH*0.3,'-70%'),COLORFFFFFF;
DRAWTEXT(下跌=0 AND 最低％<-80,HH*0.2,'-80%'),COLORFFFFFF;
DRAWTEXT(下跌=0 AND 最低％<-90,HH*0.1,'-90%'),COLORFFFFFF;
DRAWTEXT(上漲=2,L,'3天'),COLOR00FFFF;
DRAWTEXT(上漲=4,L,'5天'),COLOR00FFFF;
DRAWTEXT(上漲=7,L,'8天'),COLOR00FFFF;
DRAWTEXT(上漲=12,L,'13天'),COLOR00FFFF;
DRAWTEXT(上漲=20,L,'21天'),COLOR00FFFF;
DRAWTEXT(上漲=33,L,'34天'),COLOR00FFFF;
DRAWTEXT(上漲=54,L,'55天'),COLOR00FFFF;
DRAWTEXT(上漲=88,L,'89天'),COLOR00FFFF;
DRAWTEXT(上漲=143,L,'144天'),COLOR00FFFF;
DRAWTEXT(上漲=179,L,'180天'),COLOR00FFFF;
DRAWTEXT(上漲=249,L,'250天'),COLOR00FFFF;
DRAWTEXT(下跌=2,L,'-3天'),COLOR00FF00;
DRAWTEXT(下跌=4,L,'-5天'),COLOR00FF00;
DRAWTEXT(下跌=7,L,'-8天'),COLOR00FF00;
DRAWTEXT(下跌=12,L,'-13天'),COLOR00FF00;
DRAWTEXT(下跌=20,L,'-21天'),COLOR00FF00;
DRAWTEXT(下跌=33,L,'-34天'),COLOR00FF00;
DRAWTEXT(下跌=54,L,'-55天'),COLOR00FF00;
DRAWTEXT(下跌=88,L,'-89天'),COLOR00FF00;
DRAWTEXT(下跌=143,L,'-144天'),COLOR00FF00;
DRAWTEXT(下跌=179,L,'-180天'),COLOR00FF00;
DRAWTEXT(下跌=249,L,'-250天'),COLOR00FF00;T := BARSLAST(DISPSTATUS=1)+1;
Aa:= DISPSTATUS=2;
HH1 := HHV(H, T);
LL1 := LLV(L, T);
HL := HH1-LL1;
wH := HHVBARS(H, T);
wL := LLVBARS(L, T);
KK := wH-wL;
mHL := HH-HL*0.5;
if K=1 then begin
HL191 := (HH1-LL1)*0.191;
HL382 := (HH1-LL1)*0.382;
HL618 := (HH1-LL1)*0.618;
HL809 := (HH1-LL1)*0.809;
if KK<0 then begin
a1 := HH1-HL191;
a2 := HH1-HL382;
a3 := HH1-HL618;
a4 := HH1-HL809;
end else begin
a1 := LL1+HL191;
a2 := LL1+HL382;
a3 := LL1+HL618;
a4 := LL1+HL809;
end
end
if k=1 then begin
HL125 := (HH1-LL1)*0.125;
HL250 := (HH1-LL1)*0.25;
HL375 := (HH1-LL1)*0.375;
HL625 := (HH1-LL1)*0.625;
HL750 := (HH1-LL1)*0.75;
HL875 := (HH1-LL1)*0.875;
if kk<0 then begin
b1 := HH1-HL125;
b2 := HH1-HL250;
b3 := HH1-HL375;
b4 := HH1-HL625;
b5 := HH1-HL750;
b6 := HH1-HL875;
end else begin
b1 := LL1+HL125;
b2 := LL1+HL250;
b3 := LL1+HL375;
b4 := LL1+HL625;
b5 := LL1+HL750;
b6 := LL1+HL875;
end
end
DRAWTEXT(Aa and K<>3,HH1, ' 最高價：'+HH1),ALIGN2,colorgreen;
DRAWTEXT(Aa and K<>3,LL1, ' 最低價：'+ll1),ALIGN2,VALIGN2,colorgreen;
DRAWTEXT(Aa and K<>3,mHL,' 50%：'+mHL),ALIGN2,ColorC0C0C0;
DRAWTEXT(Aa and K=1, a1, ' 0.191：'+NUMTOSTRN(a1,2)),ALIGN2,ColorC0C0C0;
DRAWTEXT(Aa and K=1, a2, ' 0.382：'+NUMTOSTRN(a2,2)),ALIGN2,ColorC0C0C0;
DRAWTEXT(Aa and K=1, a3, ' 0.618：'+NUMTOSTRN(a3,2)),ALIGN2,ColorC0C0C0;
DRAWTEXT(Aa and K=1, a4, ' 0.809：'+NUMTOSTRN(a4,2)),ALIGN2,ColorC0C0C0;
DRAWTEXT(Aa and K<>3,HH1, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;
DRAWTEXT(Aa and K<>3,LL1, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;
DRAWTEXT(Aa and K<>3,mHL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorff0000,linethick7;
DRAWTEXT(Aa and K=1, a1, '﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊ '),ALIGN2,color208FFF,linethick0;
DRAWTEXT(Aa and K=1, a2, '﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊ '),ALIGN2,color208FFF,linethick0;
DRAWTEXT(Aa and K=1, a3, '﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊ '),ALIGN2,color208FFF,linethick0;
DRAWTEXT(Aa and K=1, a4, '﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊ '),ALIGN2,color208FFF,linethick0;DRAWTEXT_FIX(C>O,0.01,0.9,0,' m.weiqiv.net.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

DRAWTEXT_FIX(C>O,0.01,0.9,0,' m.weiqiv.net.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

DRAWTEXT_FIX(C>O,0.01,0.9,0,' m.weiqiv.net.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?