史上最牛黄金分割分时主图通达信 大智慧版源码奉献

《史上最牛黄金分割分时主图通达信 大智慧版源码奉献》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、史上最牛黄金分割分时主图通达信+大智慧版源码奉献史上最牛黄金分割分时主图通达信奉献今天是小年夜，几个朋友小酌之后有点高兴，兴奋之于就把源码奉献出来供大家分享提炼优化。说明：1、史上最牛分时主图本论坛已经有坛友提供使用，但是加密的，不是源码，坛友不能提高优化，网址连接我就省略了。2、本人提供的是大智慧版源码，考虑大多数坛友使用的是通达信行情软件，20%的坛友使用的是大智慧及其他行情软件，我在大智慧源码的基础上做成了通达信版本的源码，同时添加了李驳老师的黄金分割源码，黄金分割一般用在日K线主图上，李驳老师用在分时主图上是一个创

2、新，我觉得很好，因此我就添加了李驳老师的源码。在此，感谢李驳老师的分享。{通达信分时主图用}DRAWTEXT_FIX(1,0.09,0,0,'所属行业：')COLOR0080FF;DRAWTEXT_FIX(1,0.18,0,0,HYBLOCK)COLOR0080FF;DRAWTEXT_FIX(1,0.27,0,0,'所属地区：')COLOR00FFFF;DRAWTEXT_FIX(1,0.36,0,0,DYBLOCK)COLOR00FFFF;MA30:=EMA(CLOSE,30);强弱界定:EMA(CLOSE,900);ST

3、ICKLINE((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,LINET

4、HICK1;{中}上顶: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),COLOR

5、FFAAFF;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(CURRBARSC

6、OUNT=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,支撑,'上支撑:')

7、,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

8、(VAR1,1)*1000;无庄控盘:=控盘<0;有庄控盘:=控盘>REF(控盘,1)AND控盘>0;VAR2:=100*WINNER(C*0.95);主力出货:=控盘<REF(控盘,1)AND控盘>0;高度控盘:=VAR2>50ANDCOST(85)<CAND