通達信黃金分割趨勢主圖指標公式：

N:=10;M:=150;
網1:=EXPMA(C,5),COLORYELLOW;
網2:=EXPMA(網1,2);
網3:=EXPMA(網2,2);
網12:EXPMA(CLOSE,12),COLORGRAY,LINETHICK3;
網33:EXPMA(CLOSE,33),COLORFF00FF,LINETHICK4;
TJ1A:IF(網1>網2,網1,網2),COLORLICYAN;
TJ2A:IF(網1>網3,網1,網3),COLORGREEN;
TJ3A:網1,COLORYELLOW,LINETHICK2;
{QS}
網A:=EXPMA(CLOSE,5),COLORWHITE;
網B:=EXPMA(CLOSE,33),COLORFF00FF,LINETHICK3;
IF(網B<REF(網B,1),網B,DRAWNULL),COLOR00FF00,LINETHICK3;
IF(網B<REF(網A,1),網A,DRAWNULL),COLORWHITE,LINETHICK1;
IF(網1<REF(網B,1),網A,DRAWNULL),COLORGREEN,LINETHICK1;
{黃金分割線}
頂1:=REFDATE(HHV(H,M),DATE);
底1:=REFDATE(LLV(L,M),DATE);
H1:=頂1-(頂1-底1)*0.191;
H2:=頂1-(頂1-底1)*0.382;
H3:=頂1-(頂1-底1)*0.5;
H4:=頂1-(頂1-底1)*0.618;
H5:=頂1-(頂1-底1)*0.809;
頂部:REFDATE(頂1,DATE),COLOR666666;
%19。8:REFDATE(H1,DATE),COLOR666666;
%38。2:REFDATE(H2,DATE),COLOR666666;
%50:REFDATE(H3,DATE),COLOR666666;
%61。8:REFDATE(H4,DATE),COLOR666666;
%80。9:REFDATE(H5,DATE),COLOR666666;
底部:REFDATE(底1,DATE),COLOR666666;
DRAWTEXT(ISLASTBAR,頂部,' 頂部'),COLORGREEN;
DRAWTEXT(ISLASTBAR,%19。8,' 19。8％'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%38。2,' 38。2％'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,%50,' 50％'),COLORWHITE;
DRAWTEXT(ISLASTBAR,%61。8,' 61。8％'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,%80。9,' 80。9％'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,底部,' 底部'),COLORRED;
{BS標志}
DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))
AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,7);
DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2))
AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.02,8);
{箱體}
{
箱頂:PEAK(CLOSE,N,1)*0.98,POINTDOT,LINETHICK3,COLORYELLOW;
箱底:TROUGH(CLOSE,N,1)*1.02,POINTDOT,LINETHICK3,COLORFFFF00;
箱高:100*(箱頂-箱底)/箱底,NODRAW;
};
DRAWTEXT_FIX(1,0.00,0,0,'所屬行業：')COLOR0080FF;
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK)COLOR0080FF;
DRAWTEXT_FIX(1,0.14,0,0,'所屬地區：')COLOR00FFFF;
DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.04,0,'主題投資：')COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.04,0,EXTERNSTR(0,1))COLOR0000FF; {生成數據時第1項輸1與這里1一致,描述部分輸"主題投資"}
DRAWTEXT_FIX(1,0.00,0.08,0,'主營業務：')COLORFF00FF;
DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2))COLORFF00FF; {生成數據時第1項輸2與這里2一致,描述部分輸"主營業務"}
DRAWTEXT_FIX(1,0.00,0.12,0,'出千概念：')COLORFF88FF;
DRAWTEXT_FIX(1,0.07,0.12,0,EXTERNSTR(0,3))COLORFF88FF; {生成數據時第1項輸3與這里3一致,描述部分輸"出千概念"};
總額:=AMOUNT;
買:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));
買%:=買/AMOUNT*100;
流入:=AMOUNT*買%/10000000000;
流出:=AMOUNT/100000000-流入;
凈流:=(流入-流出);
總額3:=SUM(AMOUNT,3);
流入3:=SUM(流入,3);
流出3:=SUM(流出,3);
凈流3:=SUM(流入-流出,3);
總額5:=SUM(AMOUNT,5);
流入5:=SUM(流入,5);
流出5:=SUM(流出,5);
凈流5:=SUM(流入-流出,5);
總額10:=SUM(AMOUNT,10);
流入10:=SUM(流入,10);
流出10:=SUM(流出,10);
凈流10:=SUM(流入-流出,10);
畫:=CONST(FINDHIGH(總額10,0,190,1));
DRAWTEXT_FIX(1,0.71,0.07,0,'凈流(億):'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLORMAGENTA,LINETHICK1;
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((凈流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((凈流3))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((凈流5))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((凈流10))),COLORYELLOW;

通達信黃金分割趨勢主圖指標公式實例圖解：

通達信黃金分割趨勢主圖指標公式