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,940,940,1000,RGB(160,160,190)); DRAWRECTREL(790-现手卖*210/合,940,790,1000,RGB(0,128,0)); DRAWRECTREL(790,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(1,0.755,0.88,0,STRCAT(STRCAT('',CON2STR(差,1)),'万')),COLOR0080FF; 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,420,440,600,RGB(0,128,0)); DRAWRECTREL(90,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(600,CONST(500-IF((超大单)>0,(ABS(超大单)*250/DAZHI),0)),640,500,RGB(128,0,0)); DRAWRECTREL(600,500,640,CONST(500+IF((超大单)<0,(ABS(超大单)*250/DAZHI),0)),RGB(0,128,0)); DRAWRECTREL(700,CONST(500-IF((大单)>0,(ABS(大单)*250/DAZHI),0)),740,500,RGB(128,0,0)); DRAWRECTREL(700,500,740,CONST(500+IF((大单)<0,(ABS(大单)*250/DAZHI),0)),RGB(0,128,0)); DRAWRECTREL(800,CONST(500-IF((中单)>0,(ABS(中单)*250/DAZHI),0)),840,500,RGB(128,0,0)); DRAWRECTREL(800,500,840,CONST(500+IF((中单)<0,(ABS(中单)*250/DAZHI),0)),RGB(0,128,0)); DRAWRECTREL(900,CONST(500-IF((小单)>0,(ABS(小单)*250/DAZHI),0)),940,500,RGB(128,0,0)); DRAWRECTREL(900,500,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)),' ')),COLOR00FF00; DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(超大单)=0,0.59,0.1,0,STRCAT(STRCAT(' ',CON2STR(超大单,1)),' ')),COLORYELLOW; 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,320,920,500,RGB(128,128,128)); DRAWRECTREL(420-CONST(统计额*340/DAZHIV),320,420,500,RGB(128,128,128)); DRAWRECTREL(250-CONST(大宗出*340/DAZHIV),320,250,500,RGB(0,128,0)); DRAWRECTREL(250,320,250+CONST(大宗进*340/DAZHIV),500,RGB(128,0,0)); DRAWRECTREL(750-CONST(非大宗出*340/DAZHIV),320,750,500,RGB(0,128,0)); DRAWRECTREL(750,320,750+CONST(非大宗进*340/DAZHIV),500,RGB(128,0,0)); DRAWTEXT_FIX(CURRBARSCOUNT=1,0.212,0.65,0,'主力买卖'),COLORYELLOW; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.712,0.65,0,'散户买卖'),COLORYELLOW; 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;
{ 原文链接:http://www./soft/sort013/sort05/down-59567.html }
|