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

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