打印本文
關閉窗口
相關標簽:
原理解析：
源碼：
?
小單買:=1-BIGORDER(1,1)*V/CAPITAL;
小單賣:=1-BIGORDER(2,1)*V/CAPITAL;
散戶凈買:=(小單買-小單賣)*100;
散戶:sum(散戶凈買,1),linethick0,COLORGREEN;{http://www.weiqiv.net.cn}
中戶買:=BIGORDER(1,1)*V/CAPITAL-BIGORDER(1,2)*V/CAPITAL;
中戶賣:=BIGORDER(2,1)*V/CAPITAL-BIGORDER(2,2)*V/CAPITAL;
中戶凈買:=(中戶買-中戶賣)*100;
中戶:sum(中戶凈買,1),linethick0,colorf00ff0;
大戶買:=BIGORDER(1,2)*V/CAPITAL-BIGORDER(1,3)*V/CAPITAL;
大戶賣:=BIGORDER(2,2)*V/CAPITAL-BIGORDER(2,3)*V/CAPITAL;
大戶凈買:=(大戶買-大戶賣)*100;
大戶:sum(大戶凈買,1),linethick0,colorf0f000;
機構買:=BIGORDER(1,3)*V/CAPITAL;
機構賣:=BIGORDER(2,3)*V/CAPITAL;
機構凈買:=(機構買-機構賣)*100;
超大:sum(機構凈買,1),linethick0,color3399FF;
大單買:=BIGORDER(1,2)*V/CAPITAL;
大單賣:=BIGORDER(2,2)*V/CAPITAL;
主力:(大單買-大單賣)*100,linethick0,COLORRED;
散戶增減:=散戶-ref(散戶,3);
中戶增減:=中戶-ref(中戶,5);
大戶增減:=大戶-ref(大戶,3);
超大增減:=超大-ref(超大,10);
主力增減:=主力-ref(主力,5);
S3:=ref(散戶,3);
Z3:=ref(中戶,3);
D3:=ref(大戶,3);
F3:=ref(超大,3);
J3:=ref(主力,3);
S5:=ref(散戶,5);
Z5:=ref(中戶,5);
D5:=ref(大戶,5);
F5:=ref(超大,5);
J5:=ref(主力,5);
S10:=ref(散戶,10);
Z10:=ref(中戶,10);
D10:=ref(大戶,10);
F10:=ref(超大,10);
J10:=ref(主力,10);
S20:=ref(散戶,20);
Z20:=ref(中戶,20);
D20:=ref(大戶,20);
F20:=ref(超大,20);
J20:=ref(主力,20);
BL3:=400/MAX(S3,Z3,D3,F3,J3);
BL5:=400/MAX(S5,Z5,D5,F5,J5);
BL10:=400/MAX(S10,Z10,D10,F10,J10);
BL20:=400/MAX(S20,Z20,D20,F20,J20);
S3B:=999-S3*BL3;
Z3B:=999-Z3*BL3;
D3B:=999-D3*BL3;
F3B:=999-F3*BL3;
J3B:=999-J3*BL3;
S5B:=999-S5*BL5;
Z5B:=999-Z5*BL5;
D5B:=999-D5*BL5;
F5B:=999-F5*BL5;
J5B:=999-J5*BL5;
S10B:=999-S10*BL10;
Z10B:=999-Z10*BL10;
D10B:=999-D10*BL10;
F10B:=999-F10*BL10;
J10B:=999-J10*BL10;
S20B:=999-S20*BL20;
Z20B:=999-Z20*BL20;
D20B:=999-D20*BL20;
F20B:=999-F20*BL20;
J20B:=999-J20*BL20;
{畫直方圖}
DRAWRECTREL(10,S3B,40,999,RGB(0,255,0));
DRAWRECTREL(30,Z3B,60,999,RGB(180,0,100));
DRAWRECTREL(50,D3B,80,999,RGB(0,0,255));
DRAWRECTREL(70,F3B,100,999,RGB(180,100,0));
DRAWRECTREL(90,J3B,120,999,RGB(255,0,0));
DRAWRECTREL(140,S5B,170,999,RGB(0,255,0));
DRAWRECTREL(160,Z5B,190,999,RGB(180,0,100));
DRAWRECTREL(175,D5B,210,999,RGB(0,0,255));
DRAWRECTREL(200,F5B,230,999,RGB(180,100,0));
DRAWRECTREL(220,J5B,250,999,RGB(255,0,0));
DRAWRECTREL(270,S10B,300,999,RGB(0,255,0));
DRAWRECTREL(290,Z10B,320,999,RGB(180,0,100));
DRAWRECTREL(310,D10B,340,999,RGB(0,0,255));
DRAWRECTREL(330,F10B,360,999,RGB(180,100,0));
DRAWRECTREL(350,J10B,380,999,RGB(255,0,0));
DRAWRECTREL(400,S20B,430,999,RGB(0,255,0));
DRAWRECTREL(420,Z20B,450,999,RGB(180,0,100));
DRAWRECTREL(440,D20B,470,999,RGB(0,0,255));
DRAWRECTREL(460,F20B,490,999,RGB(180,100,0));
DRAWRECTREL(480,J20B,510,999,RGB(255,0,0));
DRAWTEXTREL(80,5,'散戶'),color00ff00;
DRAWTEXTREL(160,5,'中戶'),colorf00ff0;
DRAWTEXTREL(240,5,'大戶'),colorffaa66;
DRAWTEXTREL(320,5,'超大'),color0099ff;
DRAWTEXTREL(400,5,'主力'),colorred;
DRAWTEXTREL(30,70,'今日'),colorddffff;
DRAWTEXTREL(80,70,NUMTOSTRN(散戶,2)), color00ff00;
DRAWTEXTREL(160,70,NUMTOSTRN(中戶,2)),colorf00ff0;
DRAWTEXTREL(240,70,NUMTOSTRN(大戶,2)), colorffaa66;
DRAWTEXTREL(320,70,NUMTOSTRN(超大,2)), color0099ff;
DRAWTEXTREL(400,70,NUMTOSTRN(主力,2)), colorred;
DRAWTEXTREL(30,140,'3日'), colorddffff;
DRAWTEXTREL(80,140,NUMTOSTRN(S3,2)), color00ff00;
DRAWTEXTREL(160,140,NUMTOSTRN(Z3,2)),colorf00ff0;
DRAWTEXTREL(240,140,NUMTOSTRN(D3,2)), colorffaa66;
DRAWTEXTREL(320,140,NUMTOSTRN(F3,2)), color0099ff;
DRAWTEXTREL(400,140,NUMTOSTRN(J3,2)), colorred;
DRAWTEXTREL(30,210,'5日'), colorddffff;
DRAWTEXTREL(80,210,NUMTOSTRN(S5,2)), color00ff00;
DRAWTEXTREL(160,210,NUMTOSTRN(Z5,2)),colorf00ff0;
DRAWTEXTREL(240,210,NUMTOSTRN(D5,2)), colorffaa66;
DRAWTEXTREL(320,210,NUMTOSTRN(F5,2)), color0099ff;
DRAWTEXTREL(400,210,NUMTOSTRN(J5,2)), colorred;
DRAWTEXTREL(30,280,'10日'), colorddffff;
DRAWTEXTREL(80,280,NUMTOSTRN(S10,2)), color00ff00;
DRAWTEXTREL(160,280,NUMTOSTRN(Z10,2)),colorf00ff0;
DRAWTEXTREL(240,280,NUMTOSTRN(D10,2)), colorffaa66;
DRAWTEXTREL(320,280,NUMTOSTRN(F10,2)), color0099ff;
DRAWTEXTREL(400,280,NUMTOSTRN(J10,2)), colorred;
DRAWTEXTREL(30,350,'20日'), colorddffff;
DRAWTEXTREL(80,350,NUMTOSTRN(S20,2)), color00ff00;
DRAWTEXTREL(160,350,NUMTOSTRN(Z20,2)),colorf00ff0;
DRAWTEXTREL(240,350,NUMTOSTRN(D20,2)), colorffaa66;
DRAWTEXTREL(320,350,NUMTOSTRN(F20,2)), color0099ff;
DRAWTEXTREL(400,350,NUMTOSTRN(J20,2)), colorred;
DRAWTEXTREL(5,800,'3'),COLORRED;
DRAWTEXTREL(3,900,'日'),COLORRED;
DRAWTEXTREL(135,800,'5'),COLORRED;
DRAWTEXTREL(130,900,'日'),COLORRED;
DRAWTEXTREL(260,800,'10'),COLORRED;
DRAWTEXTREL(260,900,'日'),COLORRED;
DRAWTEXTREL(390,800,'20'),COLORRED;
DRAWTEXTREL(390,900,'日'),COLORRED;
一日資金流入:=amount*BIGORDER(1,2)/10000;
一日資金流出:=amount*BIGORDER(2,2)/10000;
資金流:=一日資金流入-一日資金流出;
進出【萬元】:資金流,color3d,COLORYELLOW;{http://cxh99.com}
IF 資金流<0 THEN
DRAWFLAGTEXT(1,資金流,'當日資金流出'+STR(ABS(資金流))+'【萬元】↓');
ELSE
DRAWFLAGTEXT(1,資金流,'當日資金流入'+STR(ABS(資金流))+'【萬元】↑'),COLORRED;
流進:BIGORDER(1,2)*V/CAPITAL,LINETHICK0,COLORRED;
流出:BIGORDER(2,2)*V/CAPITAL,LINETHICK0,COLORGREEN;{http://www.weiqiv.net.cn}
FILLRGN(流進,流出,流進>流出,RGB(255,0,0)),COLOR000000;
FILLRGN(流出,流進,流進<流出,RGB(0,255,0)),COLOR000000;
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?