分时主图源码 通达信 贴图

分时主图 ，大家一起参考交流

TT:=BARSLAST(HOUR=9 AND MINUTE=(30+1))+1;均价:=SUM(V*C,0)/SUM(V,10),COLORYELLOW;均价1:=SUM(V*C,0)/SUM(V,0),COLORYELLOW;盘整:IF(HOUR>9 AND RANGE(HHV(C,60)/LLV(C,60),1,1.02),C,DRAWNULL),COLORRED,LINETHICK2; V1:=V; HH:=C>REF(C,1) AND C/均价1>(1+0.03); LL:=C<REF(C,1) AND C/均价<(1-0.03); HH1:=CROSS(SUM(HH,0),0.5); LL1:=CROSS(SUM(LL,0),0.5); SS1:=SUM(HH1,0)*CROSS(COUNT(C<REF(C,1),BARSLAST(HH1)),0.5); BB1:=SUM(LL1,0)*CROSS(COUNT(C>REF(C,1),BARSLAST(LL1)),0.5); CS1:CONST(SUM(IF(SS1,REF(C,1),DRAWNULL),0)),COLORGREEN,LINETHICK2; CB1:CONST(SUM(IF(BB1,REF(C,1),DRAWNULL),0)),COLORMAGENTA,LINETHICK2; HH2:=CROSS(SUM(HH AND C>CS1*1.03,0),0.5); LL2:=CROSS(SUM(LL AND C<CB1*0.97,0),0.5); SS2:=SUM(HH2,0)*CROSS(COUNT(C<REF(C,1),BARSLAST(HH2)),0.5); BB2:=SUM(LL2,0)*CROSS(COUNT(C>REF(C,1),BARSLAST(LL2)),0.5); CS2:CONST(SUM(IF(SS2,REF(C,1),DRAWNULL),0)),COLORGREEN,LINETHICK1; CB2:CONST(SUM(IF(BB2,REF(C,1),DRAWNULL),0)),COLORMAGENTA,LINETHICK1; DRAWICON(HH1 OR HH2,C*1.01,39); DRAWICON(SS1 OR SS2,REF(C,1)*1.01,8);{8是S卖出信号}B1:DRAWICON(BB1 OR BB2,REF(C,1)*0.99,7); B2:DRAWICON(LL1 OR LL2,C*0.99,38);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,LINETHICK5,COLORFFFF00; GBB:IF(RSI1>84,H*1.0008,DRAWNULL),CROSSDOT,LINETHICK3,COLOR0000FF;均:SUM(CLOSE*VOL,FROMOPEN)/SUM(VOL,FROMOPEN),COLORYELLOW,DOTLINE;