beyond202104 发表于 2023-8-28 16:36:45

分时Ｔ十０ 分时专用（通达信公式 分时主图 源码 测试图）


{分时分割}最新:=CLOSE;分时均价线:=SUM(C*V,240)/SUM(V,240),COLOR4080FF,LINETHICK2; DRAWTEXT( ISLASTBAR AND 最新>REF(最新,1),最新,STRCAT(' ▲',CON2STR(最新,2))),COLORMAGENTA; DRAWTEXT( ISLASTBAR AND 最新=REF(最新,1),最新,STRCAT(' =',CON2STR(最新,2))),COLORGRAY; DRAWTEXT( ISLASTBAR AND 最新<REF(最新,1),最新,STRCAT(' ▼',CON2STR(最新,2))),COLOR408000;突破:=TDXDLL2(8,20,TDXDLL2(1,C,14,10),1);A1X:=(TDXDLL2(1,C,10,10)-突破)/突破*100;多方:=IF(A1X>=0,REF(TDXDLL2(1,C,10,10),BARSLAST(TDXDLL2(6,A1X,0,C))+1),DRAWNULL);空方:=IF(A1X<0,REF(TDXDLL2(1,C,10,10),BARSLAST(TDXDLL2(6,0,A1X,C))+1),DRAWNULL);STICKLINE(A1X>=0,多方,突破,0,0),COLOR000099;STICKLINE(A1X<0,空方,突破,0,0),COLOR00CC66;HQ1:=MAX(DYNAINFO(3),DYNAINFO(5));LQ1:=MIN(DYNAINFO(3),DYNAINFO(6));PQ1:=HQ1-LQ1;阻力:=LQ1+PQ1*7/8,COLOR00DD00;支撑:=LQ1+PQ1*0.5/8,COLOR00DD00;DRAWTEXT(FILTER(LONGCROSS(支撑,C,2),90),支撑*1.001,'★买'),COLORMAGENTA;DRAWTEXT(FILTER(LONGCROSS(C,阻力,2),90),H,'★卖'),COLORFF8000;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; HH:=C>TDXDLL2(8,20,C,1) AND C/均价1>(1+0.03); LL:=C<TDXDLL2(8,20,C,1) AND C/均价<(1-0.03); HH1:=TDXDLL2(6,SUM(HH,0),0.5,C); LL1:=TDXDLL2(6,SUM(LL,0),0.5,C); SS1:=SUM(HH1,0)*CROSS(COUNT(C<TDXDLL2(8,20,C,1),BARSLAST(HH1)),0.5); BB1:=SUM(LL1,0)*CROSS(COUNT(C>TDXDLL2(8,20,C,1),BARSLAST(LL1)),0.5); CS1:CONST(SUM(IF(SS1,TDXDLL2(8,20,C,1),DRAWNULL),0)),DOTLINE,COLOR408000; CB1:CONST(SUM(IF(BB1,TDXDLL2(8,20,C,1),DRAWNULL),0)),DOTLINE,COLOR4080FF;DRAWTEXT( ISLASTBAR AND C<CS1 AND CS1,CS1,STRCAT('压力',CON2STR(CS1,2))),COLOR408000;DRAWTEXT( ISLASTBAR AND C>=CS1 AND CS1,CS1,STRCAT('支撑',CON2STR(CS1,2))),COLOR408000;DRAWTEXT( ISLASTBAR AND C>CB1 AND CB1,CB1,STRCAT('支撑',CON2STR(CB1,2))),COLOR4080FF;DRAWTEXT( ISLASTBAR AND C<=CB1 AND CB1,CB1,STRCAT('压力',CON2STR(CB1,2))),COLOR4080FF; 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<TDXDLL2(8,20,C,1),BARSLAST(HH2)),0.5); BB2:=SUM(LL2,0)*CROSS(COUNT(C>TDXDLL2(8,20,C,1),BARSLAST(LL2)),0.5); CS2:CONST(SUM(IF(SS2,TDXDLL2(8,20,C,1),DRAWNULL),0))COLOR408000; CB2:CONST(SUM(IF(BB2,TDXDLL2(8,20,C,1),DRAWNULL),0))COLOR4080FF;DRAWTEXT( ISLASTBAR AND CS2,CS2,STRCAT('顶',CON2STR(CS2,2))),COLOR408000;DRAWTEXT( ISLASTBAR AND CB2,CB2,STRCAT('底',CON2STR(CB2,2))),COLOR4080FF; DRAWTEXT(HH1,CS1,'Ｔ-'),COLOR408000; DRAWTEXT(HH2,CS2,'逃顶'),COLOR408000; DRAWTEXT(LL1,CB1,'Ｔ+'),COLOR0000FF;

DRAWTEXT(LL2,CB2,'抄底'),COLOR0080FF;




布衣小贩2017 发表于 2023-10-16 10:15:55

厉害了！

找个人一起走谇 发表于 2023-12-5 14:03:30

内容真的很不错

ajuanZ 发表于 2024-1-4 05:47:14

感谢楼主分享好资源

水针刀培训 发表于 2024-2-3 19:27:55

爱分享，爱生活

步就吧象使 发表于 2024-2-24 11:10:32

不错的内容！

lishuixiu006 发表于 2024-4-1 22:47:14

相当不错，感谢无私分享精神！
页: [1]
查看完整版本: 分时Ｔ十０ 分时专用（通达信公式 分时主图 源码 测试图）