{逐筆成交主圖}、{資金分布}、{主散分析}

zgy1216 2013-03-09

展開(kāi)全文

1、{逐筆成交主圖}

現(xiàn)手買:=BUYVOL*DYNAINFO(7)*100/10000 COLOR0000FF,NODRAW;
現(xiàn)手賣:=SELLVOL*DYNAINFO(7)*100/10000 COLOR00FF00,NODRAW;
合:=ABS(現(xiàn)手買)+ABS(現(xiàn)手賣)COLOR80FFFF,NODRAW;
差:=ABS(現(xiàn)手買)-ABS(現(xiàn)手賣)COLOR80FFFF,NODRAW;
MPB1:=ABS(現(xiàn)手買)/合*100;
MPB2:=ABS(現(xiàn)手賣)/合*100;
TESTSKIP(NOT(現(xiàn)手買 OR 現(xiàn)手賣 OR 合 OR 差 OR MPB1 OR MPB2)!=0);
DRAWRECTREL(640,940,940,1000,RGB(160,160,190));
DRAWRECTREL(790-現(xiàn)手賣*210/合,940,790,1000,RGB(0,128,0));
DRAWRECTREL(790,940,790+現(xiàn)手買*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(現(xiàn)手買,1)),'萬(wàn)')),COLOR0000FF;
DRAWTEXT_FIX(1,0.61,0.88,0,STRCAT(STRCAT('',CON2STR(現(xiàn)手賣,1)),'萬(wàn)')),COLOR00FF00;
DRAWTEXT_FIX(1,0.755,0.88,0,STRCAT(STRCAT('',CON2STR(差,1)),'萬(wàn)')),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;
大宗進(jìn):=(超B)+(大B),NODRAW;
大宗出:=(超S)+(大S),NODRAW;
非大宗進(jìn):=(中B)+(小B),NODRAW;
非大宗出:=(中S)+(小S),NODRAW;
大宗進(jìn)限制:=IF((超B+大B)=0,0,大宗進(jìn)),NODRAW;
大宗出限制:=IF((超S+大S)=0,0,大宗出),NODRAW;
非大宗進(jìn)限制:=IF(中B+小B=0,0,非大宗進(jìn)),NODRAW;
非大宗出限制:=IF(中S+小S=0,0,非大宗出),NODRAW;
資金流向買:=大宗進(jìn)限制+非大宗進(jìn)限制;
資金流向賣:=大宗出限制+非大宗出限制;
流入比:=凈流入*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);
大宗進(jìn):=(超B)+(大B),NODRAW;
大宗出:=(超S)+(大S),NODRAW;
非大宗進(jìn):=(中B)+(小B),NODRAW;
非大宗出:=(中S)+(小S),NODRAW;
統(tǒng)計(jì)額:=ABS(超B)+ABS(大B)+ABS(超S)+ABS(大S)+ABS(中B)+ABS(小B)+ABS(中S)+ABS(小S),NODRAW;
DAZHIV:=CONST(MAX(ABS(統(tǒng)計(jì)額),MAX(ABS(大宗進(jìn)),MAX(ABS(大宗出),MAX(ABS(非大宗進(jìn)),ABS(非大宗出)))))),NODRAW;
DRAWRECTREL(580,320,920,500,RGB(128,128,128));
DRAWRECTREL(420-CONST(統(tǒng)計(jì)額*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(大宗進(jìn)*340/DAZHIV),500,RGB(128,0,0));
DRAWRECTREL(750-CONST(非大宗出*340/DAZHIV),320,750,500,RGB(0,128,0));
DRAWRECTREL(750,320,750+CONST(非大宗進(jìn)*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(大宗進(jìn),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(非大宗進(jìn),1)),'')),COLOR0000FF;
DRAWTEXT_FIX(1,0.51,0.35,0,STRCAT(STRCAT('',CON2STR(非大宗出,1)),'')),COLOR00FF00;
大宗進(jìn)比:=大宗進(jìn)/統(tǒng)計(jì)額*100,NODRAW;
大宗出比:=大宗出/統(tǒng)計(jì)額*100,NODRAW;
非大宗進(jìn)比:=非大宗進(jìn)/統(tǒng)計(jì)額*100,NODRAW;
非大宗出比:=非大宗出/統(tǒng)計(jì)額*100,NODRAW;
DRAWTEXT_FIX(1,0.34,0.10,0,STRCAT(STRCAT('買',CON2STR(大宗進(jìn)比,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(非大宗進(jìn)比,2)),'%%')),COLOR0000FF;
DRAWTEXT_FIX(1,0.58,0.10,0,STRCAT(STRCAT('賣 ',CON2STR(非大宗出比,2)),'%%')),COLOR00FF00;
大宗差:=大宗進(jìn)-大宗出;
非大宗差:=非大宗進(jìn)-非大宗出;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大宗差)>0,0.20,0.15,0,STRCAT(' ',STRCAT(CON2STR(大宗差,1),'萬(wàn) '))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大宗差)<0,0.20,0.15,0,STRCAT(' ',STRCAT(CON2STR(大宗差,1),'萬(wàn) '))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(大宗差)=0,0.20,0.15,0,STRCAT(' ',STRCAT(CON2STR(大宗差,1),'萬(wàn) '))) COLOR80FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(非大宗差)>0,0.70,0.15,0,STRCAT(' ',STRCAT(CON2STR(非大宗差,1),'萬(wàn) '))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(非大宗差)<0,0.70,0.15,0,STRCAT(' ',STRCAT(CON2STR(非大宗差,1),'萬(wàn) '))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(非大宗差)=0,0.70,0.15,0,STRCAT(' ',STRCAT(CON2STR(非大宗差,1),'萬(wàn) '))) COLOR80FFFF;

{ 原文鏈接：http://www./soft/sort013/sort05/down-59567.html }

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自： zgy1216 > 《公式》

舉報(bào)/認(rèn)領(lǐng)