源码在本论坛的，（前几天发的找了一下没找到）谢谢他的原码，不过是要有L2数据，现改成雨杨数据，方便像我没有钱买L2的人，用正板的就免了吧 （只为分享）。
指标名我叫多日资金（源码)
TODAY:="ddx.ddx"=0;{判断是否有正版数据}
小单买:=1-if(TODAY,"DDEDATA@BIGORDER"(1,1),BIGORDER(1,1))*V/CAPITAL;
小单卖:=1-if(TODAY,"DDEDATA@BIGORDER"(2,1),BIGORDER(2,1))*V/CAPITAL;
小股民净买:=(小单买-小单卖)*100;
小股民:sum(小股民净买,1),linethick0,COLORGREEN;
中买:=if(TODAY,"DDEDATA@BIGORDER"(1,1),BIGORDER(1,1));
户买:=if(TODAY,"DDEDATA@BIGORDER"(1,2),BIGORDER(1,2));
中户买:=(中买-户买)*V/CAPITAL;
中卖:=if(TODAY,"DDEDATA@BIGORDER"(2,1),BIGORDER(2,1));
户卖:=if(TODAY,"DDEDATA@BIGORDER"(2,2),BIGORDER(2,2));
中户卖:=(中卖-户卖)*V/CAPITAL;
中户净买:=(中户买-中户卖)*100;
中户:sum(中户净买,1),linethick0,colorf00ff0;
大买:=if(TODAY,"DDEDATA@BIGORDER"(1,2),BIGORDER(1,2));
户买大:=if(TODAY,"DDEDATA@BIGORDER"(1,3),BIGORDER(1,3));
大户买:=(大买-户买大)*V/CAPITAL;
大户卖:=BIGORDER(2,2)*V/CAPITAL-BIGORDER(2,3)*V/CAPITAL;
大户净买:=(大户买-大户卖)*100;
大户:sum(大户净买,1),linethick0,colorf0f000;
机构买:=if(TODAY,"DDEDATA@BIGORDER"(1,3),BIGORDER(1,3))*V/CAPITAL;
机构卖:=if(TODAY,"DDEDATA@BIGORDER"(2,3),BIGORDER(2,3))*V/CAPITAL;
机构净买:=(机构买-机构卖)*100;
超大:sum(机构净买,1),linethick0,color3399FF;
大单买:=if(TODAY,"DDEDATA@BIGORDER"(1,2),BIGORDER(1,2))*V/CAPITAL;
大单卖:=if(TODAY,"DDEDATA@BIGORDER"(2,2),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,899,RGB(0,255,0));
DRAWRECTREL(30,Z3B,60,899,RGB(180,0,100));
DRAWRECTREL(50,D3B,80,899,RGB(0,0,255));
DRAWRECTREL(70,F3B,100,899,RGB(180,100,0));
DRAWRECTREL(90,J3B,120,899,RGB(255,0,0));
DRAWRECTREL(140,S5B,170,899,RGB(0,255,0));
DRAWRECTREL(160,Z5B,190,899,RGB(180,0,100));
DRAWRECTREL(175,D5B,210,899,RGB(0,0,255));
DRAWRECTREL(200,F5B,230,899,RGB(180,100,0));
DRAWRECTREL(220,J5B,250,899,RGB(255,0,0));
DRAWRECTREL(270,S10B,300,899,RGB(0,255,0));
DRAWRECTREL(290,Z10B,320,899,RGB(180,0,100));
DRAWRECTREL(310,D10B,340,899,RGB(0,0,255));
DRAWRECTREL(330,F10B,360,899,RGB(180,100,0));
DRAWRECTREL(350,J10B,380,899,RGB(255,0,0));
DRAWRECTREL(400,S20B,430,899,RGB(0,255,0));
DRAWRECTREL(420,Z20B,450,899,RGB(180,0,100));
DRAWRECTREL(440,D20B,470,899,RGB(0,0,255));
DRAWRECTREL(460,F20B,490,899,RGB(180,100,0));
DRAWRECTREL(480,J20B,510,899,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;
资金流入:=if(TODAY,"DDEDATA@BIGORDER"(1,2),BIGORDER(1,2));
一日资金流入:=amount*资金流入/10000;
资金流出:=if(TODAY,"DDEDATA@BIGORDER"(2,2),BIGORDER(2,2));
一日资金流出:=amount*资金流出/10000;
资金流:=一日资金流入-一日资金流出;
进出【万元】:资金流,color3d,coloryellow;
IF 资金流<0 THEN
DRAWFLAGTEXT(1,资金流,'当日资金流出'+STR(ABS(资金流))+'【万元】↓');
ELSE
DRAWFLAGTEXT(1,资金流,'当日资金流入'+STR(ABS(资金流))+'【万元】↑'),COLORRED;
流进:if(TODAY,"DDEDATA@BIGORDER"(1,2),BIGORDER(1,2))*V/CAPITAL,LINETHICK0,COLORRED;
流出:if(TODAY,"DDEDATA@BIGORDER"(2,2),BIGORDER(2,2))*V/CAPITAL,LINETHICK0,COLORGREEN;
FILLRGN(流进,流出,流进>流出,RGB(255,0,0)),COLOR000000;
FILLRGN(流出,流进,流进<流出,RGB(0,255,0)),COLOR000000;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
