史上最牛黃金分割分時主圖通達信奉獻

今天是小年夜，幾個朋友小酌之后有點高興，興奮之于就把源碼奉獻出來供大家分享提煉優(yōu)化。

說明：1、史上最牛分時主圖本論壇已經有壇友提供使用，但是加密的，不是源碼，壇友不能提高優(yōu)化，網址連接我就省略了。
      2、本人提供的是大智慧版源碼，考慮大多數(shù)壇友使用的是通達信行情軟件，20%的壇友使用的是大智慧及其他行情軟件，我在大智慧源碼的基礎上做成了通達信版本的源碼，同時添加了李駁老師的黃金分割源碼，黃金分割一般用在日K線主圖上，李駁老師用在分時主圖上是一個創(chuàng)新，我覺得很好，因此我就添加了李駁老師的源碼。在此，感謝李駁老師的分享。
 
{通達信分時主圖用}

DRAWTEXT_FIX(1,0.09,0,0,'所屬行業(yè)：')COLOR0080FF;
DRAWTEXT_FIX(1,0.18,0,0,HYBLOCK)COLOR0080FF;
DRAWTEXT_FIX(1,0.27,0,0,'所屬地區(qū)：')COLOR00FFFF;
DRAWTEXT_FIX(1,0.36,0,0,DYBLOCK)COLOR00FFFF;

MA30:=EMA(CLOSE,30);
 強弱界定:EMA(CLOSE,900);
 STICKLINE((MA30>強弱界定),MA30,強弱界定,1,0),COLOR0000FF;
 STICKLINE((MA30<強弱界定),MA30,強弱界定,1,0),COLOR00FF00;
 DRAWICON(CROSS(MA30,強弱界定),H,1);
AAA:DYNAINFO(5),COLORDDAADD,LINETHICK1;{最高}
BBB:DYNAINFO(6),COLOR888800,LINETHICK1;{最低}
CCC:=AAA-BBB;
中G:(AAA+BBB)/2,COLOR999999,LINETHICK1;{中}
上頂:BBB+CCC*7/8,COLOR008800,DOTLINE;
阻力:BBB+CCC*2/3,COLOR777700,DOTLINE;
支撐:BBB+CCC/3,COLOR777700,DOTLINE;
下底:BBB+CCC*1/8,COLOR447777,DOTLINE;
JJA:=C,COLOR999999,LINETHICK2;
支撐2:BBB+CCC*0.5/8,DOTLINE,COLOR00DD00;
DRAWNUMBER(CURRBARSCOUNT=12,AAA*0.9995,AAA),COLORFFAAFF;
DRAWNUMBER(CURRBARSCOUNT=12,BBB,BBB),COLORDDDD00;
DRAWNUMBER(CURRBARSCOUNT=12,中G,中G),COLORDDDDDD;
DRAWNUMBER(CURRBARSCOUNT=12,上頂,上頂),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=12,阻力,阻力),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=12,支撐,支撐),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=12,下底,下底),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=20,AAA*0.9995,'最高:'),COLORFFAAFF;
DRAWTEXT(CURRBARSCOUNT=20,BBB,'最低:'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=20,上頂,'上頂:'),COLOR00FF00;
DRAWTEXT(CURRBARSCOUNT=20,阻力,'阻力:'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=20,支撐,'上支撐:'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=20,下底,'下底:'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=20,中G,'平衡:'),COLOREEEEEE;
{DRAWTEXT(CURRBARSCOUNT=20,強弱界定,'強弱界定:'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=20,支撐2,'下支撐:'),COLOREEEEEE;}

 VAR1:=EMA(EMA(C,13),13);
 控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
 無莊控盤:=控盤<0;
 有莊控盤:=控盤>REF(控盤,1) AND 控盤>0;
 VAR2:=100*WINNER(C*0.95);
 主力出貨:=控盤<REF(控盤,1) AND 控盤>0;
 高度控盤:=VAR2>50 AND COST(85)<C AND 控盤>0;
 A10:=CROSS(控盤,0);
 控盤B:=FILTER(IF(A10,1,0),5);

STJ01:=控盤<REF(控盤,1) AND 控盤>0.5;
 STJ02:=控盤>0;
 BTJ2:=控盤>REF(控盤,1) AND 控盤<-0.2;
 BTJ22:=控盤>REF(控盤,1) AND 控盤<0 ;
DRAWTEXT(CROSS(JJA,支撐2) AND 控盤<-0.2,強弱界定*0.995,'★有莊'),COLORMAGENTA,LINETHICK5;

A25:=HHVBARS(CLOSE,60);
突破1:=FILTER(((CROSS(CLOSE,((REF(REF(CLOSE,A25),1))*1.001)))AND(REF((A25>= 5),1))),10),POINTDOT,LINETHICK0;
STICKLINE(突破1,AAA,BBB,1,0),COLORF600A9;
DRAWTEXT( 突破1,中G-0.02,'★突破'),COLORF600A9;
DRAWTEXT((((SUM((突破1>0),0))=1)AND 突破1),(CLOSE*0.99),'最佳買點'),COLORWHITE;
DRAWTEXT((((SUM((突破1>0),0))=2)AND 突破1),(CLOSE*0.99),'次佳買點'),COLORWHITE;
DRAWTEXT((((SUM((突破1>0),0))=3)AND 突破1),(CLOSE*0.99),'理想買點'),COLORWHITE;
DRAWTEXT((((SUM((突破1>0),0))=4)AND 突破1),(CLOSE*0.99),'及格買點'),COLORWHITE;
DRAWTEXT((((SUM((突破1> 0),0))>=5) AND 突破1),(CLOSE * 0.99),'突破'),COLORWHITE;
JJ:=SUM(C*V,0)/SUM(V,0),COLOR00FFFF;
LC:= REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
GB:IF(RSI1>80,H*1.0005,DRAWNULL),CIRCLEDOT,LINETHICK5,COLORFFFF00;
GBB:IF(RSI1>84,H*1.0008,DRAWNULL),CROSSDOT,LINETHICK3,COLOR0000FF;
均:SUM(CLOSE*VOL,FROMOPEN)/SUM(vol,FROMOPEN),COLORYELLOW,DOTLINE;