通达信趋势黄金分割线主图公式源码

以下是通达信线主图公式源码和截图

通达信趋势黄金分割线主图公式源码：

   input:n(999,1,10000),p1(1,1,1000);

   HH:=HHV(H,N)COLORWHITE;

   LL:LLV(L,N)COLORWHITE;

    %

   VH=FFL.VARDATA("HH")

   VL=FFL.VARDATA("LL")

   VN=FFL.VARDATA("N")

   LAst=UBOUND(VH)

   IFVN LASTTHENVN=LAST+1

   FORI=LASTTOLAST-VN+1STEP-1

   VH(I)=VH(LAST)

   VL(I)=VL(LAST)

   NEXT

   FFL.VARDATA("HH")=VH

   FFL.VARDATA("LL")=VL

   FFL.VARSTARTINDEX("HH")=LAST-VN+1

   FFL.VARSTARTINDEX("LL")=LAST-VN+1

   %

   TJ:=BARSCOUNT(LL)=N-(N-p1);

   DRAWTEXT(ISLASTBAR,LL,'0↑');

   DRAWNUMBER(TJ,LL,LL,2),ALIGN2;

   M1:LL*1.0625,COLORYELLOW;

   DRAWTEXT(ISLASTBAR,M1,'6.25%↑22.5')COLORYELLOW;

   DRAWNUMBER(TJ,M1,M1,2),ALIGN2,COLORYELLOW;

   M2:LL*1.125,COLORRED;

   DRAWTEXT(c 0andISLASTBAR=1,M2,'12.5%↑45')COLORRED;

   DRAWNUMBER(TJ,M2,M2,2),ALIGN2,COLORRED;

   M3:LL*1.1875,COLORGREEN;

   DRAWTEXT(ISLASTBAR,M3,'18.75%↑67.5')COLORGREEN;

   DRAWNUMBER(TJ,M3,M3,2)ALIGN2,COLORGREEN;

   M4:LL*1.25,COLORCYAN;

   DRAWTEXT(c 0andISLASTBAR=1,M4,'25%↑90')COLORCYAN;

   DRAWNUMBER(TJ,M4,M4,2),ALIGN2,COLORCYAN;

   M5:LL*1.3125,COLOR00808000;

   DRAWTEXT(c 0andISLASTBAR=1,M5,'31.25%↑112.5')COLOR00808000;

   DRAWNUMBER(TJ,M5,M5,2)ALIGN2,COLOR00808000;

   M6:LL*1.3333,COLORmaGENTA;

   DRAWTEXT(c 0andISLASTBAR=1,M6,'33.3%↑120')COLORMAGENTA;

   DRAWNUMBER(TJ,M6,M6,2),ALIGN2,COLORMAGENTA;

   M7:LL*1.375,COLORGRAY;

   DRAWTEXT(c 0andISLASTBAR=1,M7,'37.5%↑135')COLORGRAY;

   DRAWNUMBER(TJ,M7,M7,2),ALIGN2,COLORGRAY;

   M8:LL*1.4375,COLORBLUE;

   DRAWTEXT(c 0andISLASTBAR=1,M8,'43.75%↑157.5')COLORBLUE;

   DRAWNUMBER(TJ,M8,M8,2)ALIGN2,COLORBLUE;

   M9:LL*1.5,COLORYELLOW;

   DRAWTEXT(c 0andISLASTBAR=1,M9,'50%↑180')COLORYELLOW;

   DRAWNUMBER(TJ,M9,M9,2),ALIGN2,COLORYELLOW;

   M10:LL*1.5625,COLORRED;

   DRAWTEXT(c 0andISLASTBAR=1,M10,'56.25%↑202.5')COLORRED;

   DRAWNUMBER(TJ,M10,M10,2),ALIGN2,COLORRED;

   M11:LL*1.625,COLORGREEN;

   DRAWTEXT(c 0andISLASTBAR=1,M11,'62.5%↑225')COLORGREEN;

   DRAWNUMBER(TJ,M11,M11,2),ALIGN2,COLORGREEN;

   M12:LL*1.6667,COLOR00808000;

   DRAWTEXT(c 0andISLASTBAR=1,M12,'66.6%↑240')COLOR00808000;

   DRAWNUMBER(TJ,M12,M12,2),ALIGN2,COLOR00808000;

   M13:LL*1.6875,COLORMAGENTA;

   DRAWTEXT(c 0andISLASTBAR=1,M13,'68.75%↑247.5')COLORMAGENTA;

   DRAWNUMBER(TJ,M13,M13,2),ALIGN2,COLORMAGENTA;

   M14:LL*1.75,COLORGRAY;

   DRAWTEXT(c 0andISLASTBAR=1,M14,'75%↑270')COLORGRAY;

   DRAWNUMBER(TJ,M14,M14,2),ALIGN2,COLORGRAY;

   M15:LL*1.8125,COLORBLUE;

   DRAWTEXT(c 0andISLASTBAR=1,M15,'81.25%↑292.5')COLORBLUE;

   DRAWNUMBER(TJ,M15,M15,2),ALIGN2,COLORBLUE;

   M16:LL*1.875,COLORYELLOW;

   DRAWTEXT(c 0andISLASTBAR=1,M16,'87.5%↑315')COLORYELLOW;

   DRAWNUMBER(TJ,M16,M16,2),ALIGN2,COLORYELLOW;

   M17:LL*1.9375,COLORRED;

   DRAWTEXT(c 0andISLASTBAR=1,M17,'93.75%↑337.5')COLORRED;

   DRAWNUMBER(TJ,M17,M17,2),ALIGN2,COLORRED;

   M18:LL*2,COLORGREEN;

   DRAWTEXT(c 0andISLASTBAR=1,M18,'100%↑360')COLORGREEN;

   DRAWNUMBER(TJ,M18,M18,2),ALIGN2,COLORGREEN;

   M19:LL*2.0625,COLORCYAN;

   DRAWTEXT(c 0andISLASTBAR=1,M19,'106.25%↑382.5')COLORCYAN;

   DRAWNUMBER(TJ,M19,M19,2),ALIGN2,COLORCYAN;

   M20:LL*2.125,COLOR00808000;

   DRAWTEXT(c 0andISLASTBAR=1,M20,'112.5%↑405')COLOR00808000;

   DRAWNUMBER(TJ,M20,M20,2),ALIGN2,COLOR00808000;

   M5:=MA(C,5);

   M10:=MA(C,10);

   M20:=MA(C,20);

   M60:=MA(C,60);

   A:=M5 =M60ANDM10 =M60ANDM20 =M60;

   T:=BARSLAST(CROSS(A,0.5));

   HT:=HHVBARS(H,T+1);

   NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,REF(H,T),ISLASTBAR,REF(H,T),0),COLORRED;

   NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,REF(H,T),HT=0,REF(H,HT),1),COLORRED;

   NOTEXT3:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,REF(H,T),HT=0,(REF(H,HT)-REF(H,T))*0.382+REF(H,T),1),DOTLINE,COLORMAGENTA;

   NOTEXT4:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,REF(H,T),HT=0,(REF(H,HT)-REF(H,T))*0.618+REF(H,T),1),DOTLINE,COLORGREEN;

   压力:NOTEXT2,NODRAW,COLORYELLOW;

   支撑1:NOTEXT3,NODRAW,COLORMAGENTA;

   支撑2:NOTEXT4,NODRAW,COLORGREEN;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT1*0.96,VARCAT(VARCAT('底部支撑价：',VAR2STR(NOTEXT1,2)),'元')),COLORRED;

   LT0:=FINDLOWBARS(L,0,30,1);

   HT0:=FINDHIGHBARS(H,LT0=0,60,1);

   LL:=REF(L,LT0);

   HH:=REF(H,HT0);

   NOTEXT01:DRAWLINE(HT0=0,HH,LT0=0,HH,1),COLORYELLOW;

   NOTEXT02:DRAWLINE(HT0=0,HH,LT0=0,LL,1),COLORYELLOW;

   NOTEXT03:DRAWLINE(HT0=0,HH,LT0=0,(HH-LL)*0.382+LL,1),DOTLINE,COLORLIMAGENTA;

   NOTEXT04:DRAWLINE(HT0=0,HH,LT0=0,(HH-LL)*0.618+LL,1),DOTLINE,COLORLIBLUE;

   TA:=BARSLAST(REF(NOTEXT01,1)=DRAWNULLANDHT=0);

   X支撑线:REF(L,LT0),COLORYELLOW,NODRAW;

   X阻力1:(HH-LL)*0.382+LL,COLORLIMAGENTA,NODRAW;

   X阻力2:(HH-LL)*0.618+LL,COLORLIBLUE,NODRAW;

   DRAWTEXT(TA=0,NOTEXT01*1.03,VARCAT(VARCAT('最高价：',VAR2STR(HH,2)),'元'))COLORYELLOW;

通达信趋势黄金分割线主图公式截图