通达信非常好用的黄金分割指标公式—通达信指标公式

以下是通达信非常好用的黄金分割指标公式源码和截图

通达信非常好用的黄金分割指标公式源码：

   N:=16;

   N1:=N*10;

   CY:=BArslAst(CURRBARSCOUNT=N1);

   GD:=CONST(IF(ISLASTBAR=1,HHV(H,CY),0));

   DD:=CONST(IF(ISLASTBAR=1,LLV(L,CY),0));

   预顶百分比％:(GD-C)/C*100,NODRAW;

   H5:=GD-(GD-DD)*0.191;

   H4:=GD-(GD-DD)*0.382;

   H3:=GD-(GD-DD)*0.5;

   H2:=GD-(GD-DD)*0.618;

   H1:=GD-(GD-DD)*0.809;

   DH5:=STRCAT(STRCAT('80.9％',CON2STR(H5,3)),'');

   DH4:=STRCAT(STRCAT('61.8％',CON2STR(H4,3)),'');

   DH3:=STRCAT(STRCAT('50.0％',CON2STR(H3,3)),'');

   DH2:=STRCAT(STRCAT('38.2％',CON2STR(H2,3)),'');

   DH1:=STRCAT(STRCAT('19.1％',CON2STR(H1,3)),'');

   BASE:=STRCAT(STRCAT('BASE',CON2STR(DD,3)),'随浪飞扬');

   ％100:=STRCAT(STRCAT('100％',CON2STR(GD,3)),'');

   DRAWBAND(IF(CURRBARSCOUNT<=1,DD,DRAWNULL),

   RGB(16,36,46),IF(CURRBARSCOUNT<=N1,DD,DRAWNULL)-(H4-H3)/2,RGB(0,0,0));

   {DRAWBAND(IF(CURRBARSCOUNT<=N1,GD,DRAWNULL)+(H4-H3)/2,

   RGB(16,36,46),IF(CURRBARSCOUNT<=N1,DD,DRAWNULL)-(H4-H3)/2,RGB(0,0,0));}{背景}

   DRAWKLINE(H,O,L,C);

   DRAWBAND(IF(CURRBARSCOUNT<=N1,H1,DRAWNULL),RGB(200,0,200),H1,RGB(0,0,0));

   DRAWBAND(IF(CURRBARSCOUNT<=N1,H2,DRAWNULL),RGB(200,0,200),H2,RGB(0,0,0));

   DRAWBAND(IF(CURRBARSCOUNT<=N1,H3,DRAWNULL),RGB(200,0,200),H3,RGB(0,0,0));

   DRAWBAND(IF(CURRBARSCOUNT<=N1,H4,DRAWNULL),RGB(200,0,200),H4,RGB(0,0,0));

   DRAWBAND(IF(CURRBARSCOUNT<=N1,H5,DRAWNULL),RGB(200,0,200),H5,RGB(0,0,0));

   DRAWBAND(IF(CURRBARSCOUNT<=N1,GD,DRAWNULL),RGB(200,0,200),GD,RGB(0,0,0));

   DRAWBAND(IF(CURRBARSCOUNT<=N1,DD,DRAWNULL),RGB(200,0,200),DD,RGB(0,0,0));

   DRAWTEXT(CURRBARSCOUNT=N1-1,H5,DH5),COLORAA99AA;

   DRAWTEXT(CURRBARSCOUNT=N1-1,H4,DH4),COLORAA99AA;

   DRAWTEXT(CURRBARSCOUNT=N1-1,H3,DH3),COLORAA99AA;

   DRAWTEXT(CURRBARSCOUNT=N1-1,H2,DH2),COLORAA99AA;

   DRAWTEXT(CURRBARSCOUNT=N1-1,H1,DH1),COLORAA99AA;

   DRAWTEXT(CURRBARSCOUNT=N1-1,DD,BASE),COLORAA99AA;

   DRAWTEXT(CURRBARSCOUNT=N1-1,GD,％100),COLORAA99AA;

   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(上涨=0AND最高％>10,LL*1.1,'-10%'),COLORYELLOW;

   DRAWTEXT(上涨=0AND最高％>10,LL*1.15,'-15%'),COLORFFFFFF;

   DRAWTEXT(上涨=0AND最高％>20,LL*1.2,'-20%'),COLOR00FF00;

   DRAWTEXT(上涨=0AND最高％>25,LL*1.25,'-25%'),COLORFF00FF;

   DRAWTEXT(上涨=0AND最高％>30,LL*1.3,'-30%'),COLOR0000FF;

   DRAWTEXT(上涨=0AND最高％>40,LL*1.4,'-40%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>50,LL*1.5,'-50%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>60,LL*1.6,'-60%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>70,LL*1.7,'-70%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>80,LL*1.8,'-80%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>90,LL*1.9,'-90%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>100,LL*2,'-100%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>125,LL*2.25,'-125%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>150,LL*2.5,'-150%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>180,LL*2.8,'-180%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>200,LL*3,'-200%'),COLOR00FFFF;

   DRAWTEXT(上涨=0AND最高％>250,LL*3.5,'-250%'),COLOR00FFFF;

   DRAWTEXT(下跌=0AND最低％<-10,HH*0.9,'-10%'),COLORYELLOW;

   DRAWTEXT(下跌=0AND最低％<-15,HH*0.85,'-15%'),COLORFFFFFF;

   DRAWTEXT(下跌=0AND最低％<-20,HH*0.8,'-20%'),COLOR00FF00;

   DRAWTEXT(下跌=0AND最低％<-25,HH*0.75,'-25%'),COLORFF00FF;

   DRAWTEXT(下跌=0AND最低％<-30,HH*0.7,'-30%'),COLORFF0000;

   DRAWTEXT(下跌=0AND最低％<-40,HH*0.6,'-40%'),COLORFFFFFF;

   DRAWTEXT(下跌=0AND最低％<-50,HH*0.5,'-50%'),COLORFFFFFF;

   DRAWTEXT(下跌=0AND最低％<-60,HH*0.4,'-60%'),COLORFFFFFF;

   DRAWTEXT(下跌=0AND最低％<-70,HH*0.3,'-70%'),COLORFFFFFF;

   DRAWTEXT(下跌=0AND最低％<-80,HH*0.2,'-80%'),COLORFFFFFF;

   DRAWTEXT(下跌=0AND最低％<-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;

   ifK=1thenbegin

   HL191:=(HH1-LL1)*0.191;

   HL382:=(HH1-LL1)*0.382;

   HL618:=(HH1-LL1)*0.618;

   HL809:=(HH1-LL1)*0.809;

   ifKK<0thenbegin

   a1:=HH1-HL191;

   a2:=HH1-HL382;

   a3:=HH1-HL618;

   a4:=HH1-HL809;

   endelsebegin

   a1:=LL1+HL191;

   a2:=LL1+HL382;

   a3:=LL1+HL618;

   a4:=LL1+HL809;

   end

   end

   ifk=1thenbegin

   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;

   ifkk<0thenbegin

   b1:=HH1-HL125;

   b2:=HH1-HL250;

   b3:=HH1-HL375;

   b4:=HH1-HL625;

   b5:=HH1-HL750;

   b6:=HH1-HL875;

   endelsebegin

   b1:=LL1+HL125;

   b2:=LL1+HL250;

   b3:=LL1+HL375;

   b4:=LL1+HL625;

   b5:=LL1+HL750;

   b6:=LL1+HL875;

   end

   end

   DRAWTEXT(AaandK<>3,HH1,'最高价：'+HH1),ALIGN2,colorgreen;

   DRAWTEXT(AaandK<>3,LL1,'最低价：'+ll1),ALIGN2,VALIGN2,colorgreen;

   DRAWTEXT(AaandK<>3,mHL,'50%：'+mHL),ALIGN2,ColorC0C0C0;

   DRAWTEXT(AaandK=1,a1,'0.191：'+NUMTOSTRN(a1,2)),ALIGN2,ColorC0C0C0;

   DRAWTEXT(AaandK=1,a2,'0.382：'+NUMTOSTRN(a2,2)),ALIGN2,ColorC0C0C0;

   DRAWTEXT(AaandK=1,a3,'0.618：'+NUMTOSTRN(a3,2)),ALIGN2,ColorC0C0C0;

   DRAWTEXT(AaandK=1,a4,'0.809：'+NUMTOSTRN(a4,2)),ALIGN2,ColorC0C0C0;

   DRAWTEXT(AaandK<>3,HH1,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;

   DRAWTEXT(AaandK<>3,LL1,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;

   DRAWTEXT(AaandK<>3,mHL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorff0000,linethick7;

   DRAWTEXT(AaandK=1,a1,'﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊'),ALIGN2,color208FFF,linethick0;

   DRAWTEXT(AaandK=1,a2,'﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊'),ALIGN2,color208FFF,linethick0;

   DRAWTEXT(AaandK=1,a3,'﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊'),ALIGN2,color208FFF,linethick0;

   DRAWTEXT(AaandK=1,a4,'﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊'),ALIGN2,color208FFF,linethick0;

   HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);

   T:=HHVBARS(HH,0);

   TT:=BARSLAST(L=LLV(L,T+1));

   T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);

   XL:=REFX(MIN(C,O),BARSNEXT(T1=0));

   高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;

   NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.08,ISLASTBAR,REF(XL*1.08,T),0),DOTLINE,COLORGREEN;

   NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.21,ISLASTBAR,REF(XL*1.21,T),0),DOTLINE,COLORRED;

   NOTEXT3:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.34,ISLASTBAR,REF(XL*1.34,T),0),DOTLINE,COLORBLUE;

   NOTEXT4:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.55,ISLASTBAR,REF(XL*1.55,T),0),DOTLINE,COLORWHITE;

   NOTEXT5:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.89,ISLASTBAR,REF(XL*1.89,T),0),DOTLINE,COLORBROWN;

   NOTEXT6:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*2.44,ISLASTBAR,REF(XL*2.44,T),0),DOTLINE,COLORMAGENTA;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.03,VARCAT(VARCAT('涨8%价：',VAR2STR(XL*1.08,2)),'元')),COLORGREEN;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.21,VARCAT(VARCAT('涨21%价：',VAR2STR(XL*1.21,2)),'元')),COLORRED;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.34,VARCAT(VARCAT('涨34%价：',VAR2STR(XL*1.34,2)),'元')),COLORBLUE;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.55,VARCAT(VARCAT('涨55%价：',VAR2STR(XL*1.55,2)),'元')),COLORWHITE;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.89,VARCAT(VARCAT('涨89%价：',VAR2STR(XL*1.89,2)),'元')),COLORBROWN;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*2.44,VARCAT(VARCAT('涨144%价：',VAR2STR(XL*2.44,2)),'元')),COLORMAGENTA;

通达信非常好用的黄金分割指标公式截图