您现在的位置:好股网 >> 股票公式 >> 通达信公式 >> 一键转帖:精美制作立体显示资金系列3指标

精美制作立体显示资金系列3指标


指标功能:[B]国产软件[/B]
指标类型:简体中文
所需积分:0
推荐星级:
授权方式:共享版
公式大小:0 Bytes
更新时间:2013-03-09 08:37:00
公式简介:

3个指标在我的操盘版面的应用图:



逐步完善今日改动完毕:本指标也许有人不喜欢,但制作精美实属自设版面用图之佳品,值得收藏。




1、{逐笔成交主图}

现手买:=BUYVOL*DYNAINFO(7)*100/10000 COLOR0000FF,NODRAW;
现手卖:=SELLVOL*DYNAINFO(7)*100/10000 COLOR00FF00,NODRAW;
合:=ABS(现手买)+ABS(现手卖)COLOR80FFFF,NODRAW;
差:=ABS(现手买)-ABS(现手卖)COLOR80FFFF,NODRAW;
MPB1:=ABS(现手买)/合*100;
MPB2:=ABS(现手卖)/合*100;
TESTSKIP(NOT(现手买 OR 现手卖 OR 合 OR 差 OR MPB1 OR MPB2)!=0);
DRAWRECTREL(640,1000,940,940,RGB(190,190,190));
DRAWRECTREL(640,995,940,945,RGB(200,200,200));
DRAWRECTREL(640,990,940,950,RGB(210,210,210));
DRAWRECTREL(640,985,940,955,RGB(220,220,220));
DRAWRECTREL(640,980,940,960,RGB(230,230,230));
DRAWRECTREL(640,975,940,965,RGB(240,240,240));
DRAWRECTREL(640,970,940,970,RGB(250,250,250));
DRAWRECTREL(790-现手卖*210/合,1000,790,940,RGB(0,128,0));
DRAWRECTREL(790-现手卖*210/合,995,790,945,RGB(0,148,0));
DRAWRECTREL(790-现手卖*210/合,990,790,950,RGB(0,168,0));
DRAWRECTREL(790-现手卖*210/合,985,790,955,RGB(0,188,0));
DRAWRECTREL(790-现手卖*210/合,980,790,960,RGB(0,208,0));
DRAWRECTREL(790-现手卖*210/合,975,790,965,RGB(0,228,0));
DRAWRECTREL(790-现手卖*210/合,970,790,970,RGB(0,248,0));
DRAWRECTREL(790-现手卖*210/合,940,790-现手卖*210/合,1000,RGB(0,128,0));
DRAWRECTREL(790,1000,790+现手买*210/合,940,RGB(128,0,0));
DRAWRECTREL(790,995,790+现手买*210/合,945,RGB(148,0,0));
DRAWRECTREL(790,990,790+现手买*210/合,950,RGB(168,0,0));
DRAWRECTREL(790,985,790+现手买*210/合,955,RGB(188,0,0));
DRAWRECTREL(790,980,790+现手买*210/合,960,RGB(208,0,0));
DRAWRECTREL(790,975,790+现手买*210/合,965,RGB(228,0,0));
DRAWRECTREL(790,970,790+现手买*210/合,970,RGB(248,0,0));
DRAWRECTREL(790+现手买*210/合,940,790+现手买*210/合,1000,RGB(128,0,0));
DRAWRECTREL(789.8,940,790.2,1000,RGB(0,0.0,10));
DRAWRECTREL(639.8,940,640.2,1000,RGB(0,0,10));
DRAWRECTREL(939.8,940,940.2,1000,RGB(0,0,10));
DRAWRECTREL(0,940,1000,940.2,RGB(0,0,10));
DRAWTEXT_FIX(1,0.9,0.88,0,STRCAT(STRCAT('',CON2STR(现手买,1)),'万')),COLOR0000FF;
DRAWTEXT_FIX(1,0.61,0.88,0,STRCAT(STRCAT('',CON2STR(现手卖,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)>0,0.755,0.88,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万'))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)<0,0.755,0.88,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万'))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)=0,0.755,0.88,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万'))) COLOR80FFFF;
DRAWTEXT_FIX(1,0.58,0.97,0,STRCAT(STRCAT(' ',CON2STR(MPB2,1)),'%%')),COLOR00FF00;
DRAWTEXT_FIX(1,0.94,0.97,0,STRCAT(STRCAT('',CON2STR(MPB1,1)),'%%')),COLOR0000FF;

2、{资金分布}

超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
净流入:=ABS(超B+大B+中B+小B)-ABS(超S+大S+中S+小S),NODRAW;
超大单:=ABS(超B)-ABS(超S);
大单:=ABS(大B)-ABS(大S);
中单:=ABS(中B)-ABS(中S);
小单:=ABS(小B)-ABS(小S);
DAZHI:=CONST(MAX(ABS(净流入),MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))),NODRAW;
总流入比:=(超B+大B+中B+小B)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW;
总流出比:=(超S+大S+中S+小S)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW;
大宗进:=(超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;
资金流向买:=大宗进限制+非大宗进限制;
资金流向卖:=大宗出限制+非大宗出限制;
流入比:=净流入*1000000/AMOUNT,NODRAW;
大宗净流入:=(超B+大B)-(超S+大S),NODRAW;
大宗流入比:=大宗净流入*1000000/AMOUNT,NODRAW;
DRAWRECTREL(90,600,440,420,RGB(0,130,0));
DRAWRECTREL(90,585,440,435,RGB(0,145,0));
DRAWRECTREL(90,570,440,450,RGB(0,150,0));
DRAWRECTREL(90,555,440,465,RGB(0,165,0));
DRAWRECTREL(90,540,440,480,RGB(0,180,0));
DRAWRECTREL(90,525,440,495,RGB(0,195,0));
DRAWRECTREL(90,510,440,510,RGB(0,210,0));
DRAWRECTREL(90,600,90+CONST(总流入比*350/100),420,RGB(128,0,0));
DRAWRECTREL(90,585,90+CONST(总流入比*350/100),435,RGB(148,0,0));
DRAWRECTREL(90,570,90+CONST(总流入比*350/100),450,RGB(168,0,0));
DRAWRECTREL(90,555,90+CONST(总流入比*350/100),465,RGB(188,0,0));
DRAWRECTREL(90,540,90+CONST(总流入比*350/100),480,RGB(208,0,0));
DRAWRECTREL(90,525,90+CONST(总流入比*350/100),495,RGB(228,0,0));
DRAWRECTREL(90,510,90+CONST(总流入比*350/100),510,RGB(248,0,0));
DRAWRECTREL(90+CONST(总流入比*350/100),420,90+CONST(总流入比*350/100),600,RGB(128,0,0));{
DRAWRECTREL(264.8,420,265.2,600,RGB(0,0,10));
DRAWRECTREL(90,419.5,440,420.3,RGB(0,0,10));
DRAWRECTREL(90,599.7,440,600.3,RGB(0,0,10));
DRAWRECTREL(89.8,0,90.2,1000,RGB(0,0,10));
DRAWRECTREL(439.8,0,440.2,1000,RGB(0,0,10));
DRAWTEXT_FIX(1,0.00,0.45,0,STRCAT(STRCAT(' ',CON2STR(资金流向买,2)),' ')),COLOR0000FF;
DRAWTEXT_FIX(1,0.445,0.45,0,STRCAT(STRCAT(' ',CON2STR(资金流向卖,2)),' ')),COLOR00FF00;
DRAWTEXT_FIX(1,0.09,0.20,0,STRCAT('买',STRCAT(CON2STR(总流入比,1),'%%'))),COLOR0000FF;
DRAWTEXT_FIX(1,0.36,0.20,0,STRCAT('卖',STRCAT(CON2STR(总流出比,1),'%%'))),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入)>0,0.22,0.25,0,STRCAT(' ',STRCAT(CON2STR(净流入,2),' '))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入)<0,0.22,0.25,0,STRCAT(' ',STRCAT(CON2STR(净流入,2),' '))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入)=0,0.22,0.25,0,STRCAT(' ',STRCAT(CON2STR(净流入,2),' '))) COLOR80FFFF;
DRAWRECTREL(640,CONST(500-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),600,500,RGB(128,0,0));
DRAWRECTREL(635,CONST(500-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),605,500,RGB(148,0,0));
DRAWRECTREL(630,CONST(500-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),610,500,RGB(168,0,0));
DRAWRECTREL(625,CONST(500-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),615,500,RGB(188,0,0));
DRAWRECTREL(620,CONST(500-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),620,500,RGB(218,0,0));
DRAWRECTREL(600,CONST(500-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),640,CONST(500-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),RGB(128,0,0));
DRAWRECTREL(640,500,600,CONST(500+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(635,500,605,CONST(500+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),RGB(0,148,0));
DRAWRECTREL(630,500,610,CONST(500+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),RGB(0,168,0));
DRAWRECTREL(625,500,615,CONST(500+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),RGB(0,188,0));
DRAWRECTREL(620,500,620,CONST(500+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),RGB(0,218,0));
DRAWRECTREL(600,CONST(500+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),640,CONST(500+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(740,CONST(500-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),700,500,RGB(128,0,0));
DRAWRECTREL(735,CONST(500-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),705,500,RGB(148,0,0));
DRAWRECTREL(730,CONST(500-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),710,500,RGB(168,0,0));
DRAWRECTREL(725,CONST(500-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),715,500,RGB(188,0,0));
DRAWRECTREL(720,CONST(500-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),720,500,RGB(218,0,0));
DRAWRECTREL(700,CONST(500-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),740,CONST(500-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),RGB(128,0,0));
DRAWRECTREL(740,500,700,CONST(500+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(735,500,705,CONST(500+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),RGB(0,148,0));
DRAWRECTREL(730,500,710,CONST(500+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),RGB(0,168,0));
DRAWRECTREL(725,500,715,CONST(500+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),RGB(0,188,0));
DRAWRECTREL(720,500,720,CONST(500+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),RGB(0,218,0));
DRAWRECTREL(700,CONST(500+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),740,CONST(500+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(840,CONST(500-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),800,500,RGB(128,0,0));
DRAWRECTREL(835,CONST(500-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),805,500,RGB(148,0,0));
DRAWRECTREL(830,CONST(500-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),810,500,RGB(168,0,0));
DRAWRECTREL(825,CONST(500-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),815,500,RGB(188,0,0));
DRAWRECTREL(820,CONST(500-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),820,500,RGB(218,0,0));
DRAWRECTREL(800,CONST(500-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),840,CONST(500-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),RGB(128,0,0));
DRAWRECTREL(840,500,800,CONST(500+IF((中单)<0,(ABS(中单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(800,CONST(500+IF((中单)<0,(ABS(中单)*250/DAZHI),0)),840,CONST(500+IF((中单)<0,(ABS(中单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(940,CONST(500-IF((小单)>0,(ABS(小单)*250/DAZHI),0)),900,500,RGB(128,0,0));
DRAWRECTREL(900,CONST(500-IF((小单)>0,(ABS(小单)*250/DAZHI),0)),940,CONST(500-IF((小单)>0,(ABS(小单)*250/DAZHI),0)),RGB(128,0,0));
DRAWRECTREL(940,500,900,CONST(500+IF((小单)<0,(ABS(小单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(900,CONST(500+IF((小单)<0,(ABS(小单)*250/DAZHI),0)),940,CONST(500+IF((小单)<0,(ABS(小单)*250/DAZHI),0)),RGB(0,128,0));
DRAWRECTREL(599.8,0,600.2,1000,RGB(0,0,10));
DRAWRECTREL(639.8,0,640.2,1000,RGB(0,0,10));
DRAWRECTREL(699.8,0,700.2,1000,RGB(0,0,10));
DRAWRECTREL(739.8,0,740.2,1000,RGB(0,0,10));
DRAWRECTREL(799.8,0,800.2,1000,RGB(0,0,10));
DRAWRECTREL(839.8,0,840.2,1000,RGB(0,0,10));
DRAWRECTREL(899.8,0,900.2,1000,RGB(0,0,10));
DRAWRECTREL(939.8,0,940.2,1000,RGB(0,0,10));
DRAWRECTREL(0,0.00,1000,0.20,RGB(255,0,0));
DRAWRECTREL(600,499.8,940,500.2,RGB(255,0,0));
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)>0,0.59,0.805,0,'超大单'),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)<0,0.59,0.805,0,'超大单'),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)=0,0.59,0.805,0,'超大单'),COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)>0,0.70,0.805,0,'大单'),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)<0,0.70,0.805,0,'大单'),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)=0,0.70,0.805,0,'大单'),COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)>0,0.80,0.805,0,'中单'),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)<0,0.80,0.805,0,'中单'),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)=0,0.80,0.805,0,'中单'),COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)>0,0.90,0.805,0,'小单'),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)<0,0.90,0.805,0,'小单'),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)=0,0.90,0.805,0,'小单'),COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)>0,0.59,0.1,0,STRCAT(STRCAT(' ',CON2STR(超大单,1)),' ')),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)=0,0.59,0.1,0,STRCAT(STRCAT(' ',CON2STR(超大单,1)),' ')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)<0,0.59,0.1,0,STRCAT(STRCAT(' ',CON2STR(超大单,1)),' ')),COLOR00FF00; DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)>0,0.69,0.1,0,STRCAT(STRCAT(' ',CON2STR(大单,1)),' ')),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)<0,0.69,0.1,0,STRCAT(STRCAT(' ',CON2STR(大单,1)),' ')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大单)=0,0.69,0.1,0,STRCAT(STRCAT(' ',CON2STR(大单,1)),' ')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)>0,0.79,0.1,0,STRCAT(STRCAT(' ',CON2STR(中单,1)),' ')),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)<0,0.79,0.1,0,STRCAT(STRCAT(' ',CON2STR(中单,1)),' ')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中单)=0,0.79,0.1,0,STRCAT(STRCAT(' ',CON2STR(中单,1)),' ')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)>0,0.89,0.1,0,STRCAT(STRCAT(' ',CON2STR(小单,1)),' ')),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)<0,0.89,0.1,0,STRCAT(STRCAT(' ',CON2STR(小单,1)),' ')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(小单)=0,0.89,0.1,0,STRCAT(STRCAT(' ',CON2STR(小单,1)),' ')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR=1,0.018,0,0,STKNAME),COLOR80FFFF ;
DRAWTEXT_FIX(ISLASTBAR=1,0.12,0,0,CODE) COLOR0000FF;


3、{主散分析}
超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
大宗进:=(超B)+(大B),NODRAW;
大宗出:=(超S)+(大S),NODRAW;
非大宗进:=(中B)+(小B),NODRAW;
非大宗出:=(中S)+(小S),NODRAW;
统计额:=ABS(超B)+ABS(大B)+ABS(超S)+ABS(大S)+ABS(中B)+ABS(小B)+ABS(中S)+ABS(小S),NODRAW;
DAZHIV:=CONST(MAX(ABS(统计额),MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出)))))),NODRAW;

DRAWRECTREL(580,500,920,320,RGB(118,118,118));
DRAWRECTREL(580,490,920,330,RGB(128,128,128));
DRAWRECTREL(580,480,920,340,RGB(138,138,138));
DRAWRECTREL(580,470,920,350,RGB(148,148,148));
DRAWRECTREL(580,460,920,360,RGB(158,158,158));
DRAWRECTREL(580,450,920,370,RGB(168,168,168));
DRAWRECTREL(580,440,920,380,RGB(178,178,178));
DRAWRECTREL(580,430,920,390,RGB(188,188,188));
DRAWRECTREL(580,420,920,400,RGB(198,198,198));
DRAWRECTREL(580,410,920,410,RGB(208,208,208));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),320,420,500,RGB(128,128,128));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),490,420,330,RGB(138,138,138));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),480,420,340,RGB(148,148,148));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),470,420,350,RGB(158,158,158));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),460,420,360,RGB(168,168,168));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),450,420,370,RGB(178,178,178));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),440,420,380,RGB(188,188,188));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),430,420,390,RGB(198,198,198));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),420,420,400,RGB(208,208,208));
DRAWRECTREL(420-CONST(统计额*340/DAZHIV),410,420,410,RGB(218,218,218));

DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),500,250,320,RGB(0,128,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),490,250,330,RGB(0,138,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),480,250,340,RGB(0,148,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),470,250,350,RGB(0,158,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),460,250,360,RGB(0,168,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),450,250,370,RGB(0,178,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),440,250,380,RGB(0,188,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),430,250,390,RGB(0,198,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),420,250,400,RGB(0,208,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),410,250,410,RGB(0,218,0));
DRAWRECTREL(250-CONST(大宗出*238/DAZHIV),320,250-CONST(大宗出*238/DAZHIV),500,RGB(0,128,0));
DRAWRECTREL(250,500,250+CONST(大宗进*238/DAZHIV),320,RGB(128,0,0));
DRAWRECTREL(250,490,250+CONST(大宗进*238/DAZHIV),330,RGB(138,0,0));
DRAWRECTREL(250,480,250+CONST(大宗进*238/DAZHIV),340,RGB(148,0,0));
DRAWRECTREL(250,470,250+CONST(大宗进*238/DAZHIV),350,RGB(158,0,0));
DRAWRECTREL(250,460,250+CONST(大宗进*238/DAZHIV),360,RGB(168,0,0));
DRAWRECTREL(250,450,250+CONST(大宗进*238/DAZHIV),370,RGB(178,0,0));
DRAWRECTREL(250,440,250+CONST(大宗进*238/DAZHIV),380,RGB(188,0,0));
DRAWRECTREL(250,430,250+CONST(大宗进*238/DAZHIV),390,RGB(198,0,0));
DRAWRECTREL(250,420,250+CONST(大宗进*238/DAZHIV),400,RGB(208,0,0));
DRAWRECTREL(250,410,250+CONST(大宗进*238/DAZHIV),410,RGB(218,0,0));
DRAWRECTREL(250+CONST(大宗进*238/DAZHIV),320,250+CONST(大宗进*238/DAZHIV),500,RGB(128,0,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),500,750,320,RGB(0,128,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),490,750,330,RGB(0,138,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),480,750,340,RGB(0,148,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),470,750,350,RGB(0,158,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),460,750,360,RGB(0,168,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),450,750,370,RGB(0,178,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),440,750,380,RGB(0,188,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),430,750,390,RGB(0,198,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),420,750,400,RGB(0,208,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),410,750,410,RGB(0,218,0));
DRAWRECTREL(750-CONST(非大宗出*238/DAZHIV),320,750-CONST(非大宗出*238/DAZHIV),500,RGB(0,128,0));
DRAWRECTREL(750,500,750+CONST(非大宗进*238/DAZHIV),320,RGB(128,0,0));
DRAWRECTREL(750,490,750+CONST(非大宗进*238/DAZHIV),330,RGB(138,0,0));
DRAWRECTREL(750,480,750+CONST(非大宗进*238/DAZHIV),340,RGB(148,0,0));
DRAWRECTREL(750,470,750+CONST(非大宗进*238/DAZHIV),350,RGB(158,0,0));
DRAWRECTREL(750,460,750+CONST(非大宗进*238/DAZHIV),360,RGB(168,0,0));
DRAWRECTREL(750,450,750+CONST(非大宗进*238/DAZHIV),370,RGB(178,0,0));
DRAWRECTREL(750,440,750+CONST(非大宗进*238/DAZHIV),380,RGB(188,0,0));
DRAWRECTREL(750,430,750+CONST(非大宗进*238/DAZHIV),390,RGB(198,0,0));
DRAWRECTREL(750,420,750+CONST(非大宗进*238/DAZHIV),400,RGB(208,0,0));
DRAWRECTREL(750,410,750+CONST(非大宗进*238/DAZHIV),410,RGB(218,0,0));
DRAWRECTREL(750+CONST(非大宗进*238/DAZHIV),320,750+CONST(非大宗进*238/DAZHIV),500,RGB(128,0,0));
DZD:=ABS(大宗进)-ABS(大宗出),NODRAW;
FDZD:=ABS(非大宗进)-ABS(非大宗出),NODRAW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(DZD)>0,0.212,0.65,0,'主力买卖') COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(DZD)<0,0.212,0.65,0,'主力买卖') COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(DZD)=0,0.212,0.65,0,'主力买卖') COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(FDZD)>0,0.712,0.65,0,'散户买卖') COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(FDZD)<0,0.712,0.65,0,'散户买卖') COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(FDZD)=0,0.712,0.65,0,'散户买卖') COLOR80FFFF;
DRAWRECTREL(749.75,320,750.25,500,RGB(0,0,60));
DRAWRECTREL(249.75,320,250.25,500,RGB(0,0,60));
DRAWRECTREL(79.8,320,80.2,500,RGB(0,0,10));
DRAWRECTREL(419.8,320,420.2,500,RGB(0,0,10));
DRAWRECTREL(579.8,320,580.2,500,RGB(0,0,10));
DRAWRECTREL(919.8,320,920.2,500,RGB(0,0,10));
DRAWRECTREL(0,319.8,1000,320.2,RGB(0,0,10));
DRAWRECTREL(0,499.8,1000,500.2,RGB(0,0,10));
DRAWTEXT_FIX(1,0.43,0.35,0,STRCAT(STRCAT('',CON2STR(大宗进,1)),'')),COLOR0000FF;
DRAWTEXT_FIX(1,0.012,0.35,0,STRCAT(STRCAT('',CON2STR(大宗出,1)),'')),COLOR00FF00;
DRAWTEXT_FIX(1,0.925,0.35,0,STRCAT(STRCAT('',CON2STR(非大宗进,1)),'')),COLOR0000FF;
DRAWTEXT_FIX(1,0.51,0.35,0,STRCAT(STRCAT('',CON2STR(非大宗出,1)),'')),COLOR00FF00;
大宗进比:=大宗进/统计额*100,NODRAW;
大宗出比:=大宗出/统计额*100,NODRAW;
非大宗进比:=非大宗进/统计额*100,NODRAW;
非大宗出比:=非大宗出/统计额*100,NODRAW;
DRAWTEXT_FIX(1,0.34,0.10,0,STRCAT(STRCAT('买',CON2STR(大宗进比,2)),'%%')),COLOR0000FF;
DRAWTEXT_FIX(1,0.08,0.10,0,STRCAT(STRCAT('卖 ',CON2STR(大宗出比,2)),'%%')),COLOR00FF00;
DRAWTEXT_FIX(1,0.83,0.10,0,STRCAT(STRCAT('买 ',CON2STR(非大宗进比,2)),'%%')),COLOR0000FF;
DRAWTEXT_FIX(1,0.58,0.10,0,STRCAT(STRCAT('卖 ',CON2STR(非大宗出比,2)),'%%')),COLOR00FF00;
大宗差:=大宗进-大宗出;
非大宗差:=非大宗进-非大宗出;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大宗差)>0,0.20,0.15,0,STRCAT(' ',STRCAT(CON2STR(大宗差,1),'万 '))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大宗差)<0,0.20,0.15,0,STRCAT(' ',STRCAT(CON2STR(大宗差,1),'万 '))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大宗差)=0,0.20,0.15,0,STRCAT(' ',STRCAT(CON2STR(大宗差,1),'万 '))) COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(非大宗差)>0,0.70,0.15,0,STRCAT(' ',STRCAT(CON2STR(非大宗差,1),'万 '))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(非大宗差)<0,0.70,0.15,0,STRCAT(' ',STRCAT(CON2STR(非大宗差,1),'万 '))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(非大宗差)=0,0.70,0.15,0,STRCAT(' ',STRCAT(CON2STR(非大宗差,1),'万 '))) COLOR80FFFF;


 




[url=http://www.goodgupiao.com/gupiaogongshi/26531.html][B]精美制作立体显示资金系列3指标[/B][/url]