通达信资金强弱副图源码

2016-06-27 09:34:00来源:本站整理浏览:563

流入:=ABS(超B+大B+中B+小B)*1000/VOL;
流出:=ABS(超S+大S+中S+小S)*1000/VOL;
净流买比:=流入*100/(流入+流出);
大宗进:=(超B)+(大B),NODRAW;
大宗出:=(超S)+(大S),NODRAW;
非大宗进:=(中B)+(小B),NODRAW;
非大宗出:=(中S)+(小S),NODRAW;
大宗进限制:=IF((超B+大B)=0,0,大宗进),NODRAW;
大宗出限制:=IF((超S+大S)=0,0,大宗出),NODRAW;
非大宗进限制:=IF(中B+小B=0,0,非大宗进),NODRAW;
非大宗出限制:=IF(中S+小S=0,0,非大宗出),NODRAW;
资金流向买:=大宗进限制+非大宗进限制;
资金流向卖:=大宗出限制+非大宗出限制;
{ 当日 }
DRAWRECTREL(0,0,990,999,IF(120,RGB(10,0,0),0));
DRAWRECTREL(0,330,990,390,RGB(10,0,0));
DRAWRECTREL(10,325,983,8,RGB(188,188,188));
DRAWRECTREL(50,555,950,530,RGB(0,140,0));
DRAWRECTREL(50,555,50+CONST(净流买比*900/100),530,RGB(140,0,0));
DRAWTEXT_FIX(1,0.05,0.4,0,STRCAT(STRCAT('净流买比',CON2STR(净流买比,2)),'％')),COLORYELLOW;
DRAWRECTREL(500,555,500,530,RGB(250,250,0));
DRAWRECTREL(60,CONST(800-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),200,800,RGB(128,0,0));
DRAWRECTREL(60,800,200,CONST(800+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(300,CONST(800-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),430,800,RGB(128,0,0));
DRAWRECTREL(300,800,430,CONST(800+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(600,CONST(800-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),730,800,RGB(128,0,0));
DRAWRECTREL(600,800,730,CONST(800+IF((中单)<0,(ABS(中单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(820,CONST(800-IF((小单)>0,(ABS(小单)*250/DAZHI),0)),950,800,RGB(128,0,0));
DRAWRECTREL(820,800,950,CONST(800+IF((小单)<0,(ABS(小单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(60,799.8,950,800.2,RGB(255,0,0));
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)>0,0.08,0.900,0,'机构'),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)<0,0.08,0.900,0,'机构'),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)=0,0.08,0.900,0,'机构'),COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)>0,0.32,0.900,0,'游资'),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)<0,0.32,0.900,0,'游资'),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)=0,0.32,0.900,0,'游资'),COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)>0,0.62,0.900,0,'中户'),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)<0,0.62,0.900,0,'中户'),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)=0,0.62,0.900,0,'中户'),COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)>0,0.85,0.900,0,'散户'),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)<0,0.85,0.900,0,'散户'),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)=0,0.85,0.900,0,'散户'),COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)>0,0.03,0.6,0,STRCAT(STRCAT(' ',CON2STR(超大单,1)),'万')),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)<0,0.03,0.6,0,STRCAT(STRCAT(' ',CON2STR(超大单,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)=0,0.03,0.6,0,STRCAT(STRCAT(' ',CON2STR(超大单,1)),' ')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)>0,0.25,0.6,0,STRCAT(STRCAT(' ',CON2STR(大单,1)),'万')),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)<0,0.25,0.6,0,STRCAT(STRCAT(' ',CON2STR(大单,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)=0,0.25,0.6,0,STRCAT(STRCAT(' ',CON2STR(大单,1)),' ')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)>0,0.55,0.6,0,STRCAT(STRCAT(' ',CON2STR(中单,1)),'万')),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)<0,0.55,0.6,0,STRCAT(STRCAT(' ',CON2STR(中单,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)>0,0.80,0.6,0,STRCAT(STRCAT(' ',CON2STR(小单,1)),'万')),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)<0,0.80,0.6,0,STRCAT(STRCAT(' ',CON2STR(小单,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入)>0,0.93,0.4,1,STRCAT('当日净买： ',STRCAT(CON2STR(净流入,1),'万'))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入)<0,0.93,0.4,1,STRCAT('当日净买： ',STRCAT(CON2STR(净流入,1),'万'))) COLOR00FF00;
DRAWTEXT_FIX(1,0.05,0.47,0,STRCAT(STRCAT('买入额：',CON2STR(资金流向买,1)),'万')),COLOR0000FF;
DRAWTEXT_FIX(1,0.50,0.47,0,STRCAT(STRCAT('卖出额： ',CON2STR(资金流向卖,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(1,0.00,0.34,0,'当日资金方程'),COLORWHITE;
短买价:='操盘线.明短买价#DAY';
离场价:='操盘线.明离场价#DAY';
中线决策:='操盘线.持股#DAY';
多方力度:=(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1));
空方力度:=100*(HHV(HIGH,55)-CLOSE)/(HHV(HIGH,55)-LLV(LOW,55));
操作决策:=多方力度>空方力度;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(操作决策)>0,0.15,0.05,0,STRCAT('【操作决策】===','☆波段操作☆'))COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(操作决策)=0,0.15,0.05,0,STRCAT('【操作决策】===','★轻仓短线★'))COLORBLUE;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中线决策)>0,0.15,0.15,0,STRCAT('【中线决策】===','☆持股待涨☆'))COLORRED;