多年使用的分时指标

分享一个我自己修改的分时指标，带今日资金流入流出净比例，以及机构购买比例，和内外盘比例！

超引B1:="总引.超B#DAY";
超引B2:="总引.大B#DAY";
超引B3:="总引.中B#DAY";
超引B4:="总引.小B#DAY";
超引S1:="总引.超S#DAY";
超引S2:="总引.大S#DAY";
超引S3:="总引.中S#DAY";
超引S4:="总引.小S#DAY";
TESTSKIP(NOT(超引B1 OR 超引B2 OR 超引B3 OR 超引B4 OR 超引S1 OR 超引S2 OR 超引S3 OR 超引S4)!=0);
总A:=(超引B1+超引B2+超引B3+超引B4)+(超引S1+超引S2+超引S3+超引S4),NODRAW;
净流入1:=SUM((超引B1+超引B2+超引B3+超引B4)-(超引S1+超引S2+超引S3+超引S4),1),NODRAW,COLORCYAN;
流入:=(超引B1+超引B2+超引B3+超引B4),COLORRED,NODRAW;
流出:=(超引S1+超引S2+超引S3+超引S4),COLORGREEN,NODRAW;
流入比:=(超引B1+超引B2+超引B3+超引B4)/总A*100;
流出比:=(超引S1+超引S2+超引S3+超引S4)/总A*100;
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-CONST(流入*300/总A),1000,790,940,RGB(140,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),995,790,945,RGB(148,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),990,790,950,RGB(168,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),985,790,955,RGB(188,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),980,790,960,RGB(208,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),975,790,965,RGB(228,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),970,790,970,RGB(248,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),940,790-CONST(流入*300/总A),1000,RGB(128,0,0));
DRAWRECTREL(790,1000,790+CONST(流出*300/总A),940,RGB(0,128,0));
DRAWRECTREL(790,995,790+CONST(流出*300/总A),945,RGB(0,148,0));
DRAWRECTREL(790,990,790+CONST(流出*300/总A),950,RGB(0,168,0));
DRAWRECTREL(790,985,790+CONST(流出*300/总A),955,RGB(0,188,0));
DRAWRECTREL(790,980,790+CONST(流出*300/总A),960,RGB(0,208,0));
DRAWRECTREL(790,975,790+CONST(流出*300/总A),965,RGB(0,228,0));
DRAWRECTREL(790,970,790+CONST(流出*300/总A),970,RGB(0,248,0));
DRAWRECTREL(790+CONST(流出*300/总A),940,790+CONST(流出*300/总A),1000,RGB(0,128,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.61,0.88,0,STRCAT(STRCAT('流入=',CON2STR(流入,1)),'万')),COLOR0000FF;
DRAWTEXT_FIX(1,0.9,0.88,0,STRCAT(STRCAT('流出=',CON2STR(流出,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入1)>0,0.755,0.88,0,STRCAT('净流= ',STRCAT(CON2STR(净流入1,1),'万'))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入1)<0,0.755,0.88,0,STRCAT('净流= ',STRCAT(CON2STR(净流入1,1),'万'))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入1)=0,0.755,0.88,0,STRCAT('净流= ',STRCAT(CON2STR(净流入1,1),'万'))) COLOR80FFFF;
DRAWTEXT_FIX(1,0.80,0.955,0,STRCAT(STRCAT(' ',CON2STR(流出比,1)),'%%')),COLORBLUE;
DRAWTEXT_FIX(1,0.74,0.955,0,STRCAT(STRCAT('',CON2STR(流入比,1)),'%%')),COLORBLUE;

{放量}
DRAWTEXT_FIX(ISLASTBAR,0.50,0,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.0,0,CODE),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.60,0.0,0,STKNAME)COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.65,0.0,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.25,0.85,0,GNBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.25,0.90,0,FGBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.25,0.95,0,ZSBLOCK),COLORYELLOW;

现在价:=CONST(C),COLORYELLOW,DOTLINE;
昨开:='REF(O,1)#DAY',NODRAW;
昨高:='REF(H,1)#DAY',NODRAW;
昨低:='REF(L,1)#DAY',NODRAW;
昨收:=DYNAINFO(3),NODRAW;
今开:=DYNAINFO(4),NODRAW;
昨与今对比:=(DYNAINFO(4)-DYNAINFO(3)),NODRAW;
昨与今跳跃比例%:=((DYNAINFO(4)-DYNAINFO(3))*100/DYNAINFO(4)),NODRAW;
A1:=CROSS(C,昨高);
B:=CROSS(昨高,C);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0,0,STRCAT('昨收: ',CON2STR(昨收,2))),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.09,0.00,0,STRCAT('今开: ',CON2STR(今开,2))),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.17,0.00,0,STRCAT('昨与今对比: ',CON2STR(昨与今对比,2))),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.28,0.00,0,STRCAT('昨与今跳跃比例%: ',CON2STR(昨与今跳跃比例%,2))),COLORWHITE;

成交额:=V*C/100,NODRAW;{万元}
A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
A6:=(A2+A3);
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
DD1:=1;
ZTJ:=ZTPRICE(REF(CLOSE,1),0.1);
AAA1:=STRCAT(STRCAT('机构买',CON2STR((100*A2)/A6,0)),'%');
AAA2:=STRCAT(STRCAT('机构卖',CON2STR((100*A3)/A6,0)),'%');
AAA3:=STRCAT(STRCAT('总买入',CON2STR((100*(A2-A3))/A6,0)),'%');
AAA4:=STRCAT(STRCAT('预估涨停: ',CON2STR(ZTJ,3)),'元');
DRAWTEXT_FIX(DD1=1,0.01,0.90,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0.08,0.90,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0.15,0.90,0,AAA3),COLOR00FFFF;
DRAWTEXT_FIX(DD1=1,0.01,0.80,0,AAA4),COLOR00FFFF;

N0:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y:=STRCAT(CON2STR(MONTH,0),' 月 ');
R:=STRCAT(CON2STR(DAY,0),' 日 ');
SJ:=STRCAT(STRCAT(N0,Y), R);
DRAWTEXT_FIX(C>0,0.01,0.85,0,SJ),COLORMAGENTA;

大单买量1:=SUM(IF(C>REF(C,1) AND V>4000,V/1000,0),0),NODRAW;
大单卖量1:=SUM(IF(C<REF(C,1) AND V>4000,V/1000,0),0),NODRAW;
买单总量1:=SUM(IF(C>REF(C,1),V/1000,0),0),NODRAW;
卖单总量1:=SUM(IF(C<REF(C,1),V/1000,0),0),NODRAW;
小单买量1:=买单总量1-大单买量1,NODRAW;
小单卖量1:=卖单总量1-大单卖量1,NODRAW;
{DRAWRECTREL(0,500,147,999.4,IF(120,RGB(10,0,0),0)); }
大宗进:=大单买量1,NODRAW;
大宗出:=大单卖量1,NODRAW;
非大宗进:=小单买量1,NODRAW;
非大宗出:=小单卖量1,NODRAW;
主力净流入:=大单买量1-大单卖量1,COLORRED,NODRAW;
散户净流入:=小单买量1-小单卖量1,COLORRED,NODRAW;
净流入:=买单总量1-卖单总量1,COLORRED,NODRAW;
DAZHIV:=CONST(MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出))))),NODRAW;
DRAWTEXT_FIX(1,0.01,0.95,0,STRCAT(STRCAT('主力 ',CON2STR(主力净流入,0)),'万')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.08,0.95,0,STRCAT(STRCAT('散户 ',CON2STR(散户净流入,0)),'万')),COLORCYAN;
DRAWTEXT_FIX(1,0.15,0.95,0,STRCAT(STRCAT('净流入 ',CON2STR(净流入,0)),'万')),COLOR8000FF;

放量:=SUM(V,3)>REF(SUM(V,7),3)*2;
DRAWICON(放量=1 AND FILTER(放量=1,6),C,11);
DRAWTEXT(放量=1 AND FILTER(放量=1,6),C-C*0.015,'↑量'),COLORYELLOW;
{价}
现价:C,COLORMAGENTA,LINETHICK3;
均价:SUM(V*C,0)/SUM(V,0),COLORGREEN,LINETHICK3;
绿跌:IF(均价<=REF(均价,1),均价,DRAWNULL),COLORGREEN,LINETHICK5;
蓝涨:IF(均价>=REF(均价,1),均价,DRAWNULL),COLORBLUE,LINETHICK5;
{分时MACD}{www.goodgupiao.com 好股票网指标公式}
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=2*(DIF-DEA);
X:=CONST(HHV(ABS(C-DYNAINFO(3)),FROMOPEN))/CONST(HHV(ABS(DIF),FROMOPEN))*0.6;
DI:DIF*X+DYNAINFO(3),COLORGRAY;
DE:DEA*X+DYNAINFO(3),COLOR7700AA;
MAC:=MACD*X;
STICKLINE(MAC>0,DYNAINFO( 3),MAC+DYNAINFO( 3),0,1),COLORRED;
STICKLINE(MAC<0,DYNAINFO( 3),MAC+DYNAINFO( 3),0,1),COLORCYAN;
DRAWTEXT((CROSS(DIF,DEA) AND 蓝涨),C,'↑买'),COLORYELLOW;
{======================================================}
DRAWRECTREL(IF(CODELIKE('999999') OR CODELIKE('399001'),0,760),IF(CODELIKE('999999') OR CODELIKE('399001'),0,12),IF(CODELIKE('999999') OR CODELIKE('399001'),0,890),IF(CODELIKE('999999') OR CODELIKE('399001'),0,70),RGB(255,0,0));
DRAWRECTREL(IF(CODELIKE('999999') OR CODELIKE('399001'),0,760),IF(CODELIKE('999999') OR CODELIKE('399001'),0,12),IF(CODELIKE('999999') OR CODELIKE('399001'),0,890),IF(CODELIKE('999999') OR CODELIKE('399001'),0,70),IF(CONST(DYNAINFO(51))>=1,RGB(0,255,0),RGB(255,0,0)));
NNN1:=CON2STR(CONST(DYNAINFO(51)),2);
NNN2:=STRCAT('【 内外比：',NNN1);
NNN3:=STRCAT(NNN2,' 】');
DRAWTEXT_FIX(IF(CODELIKE('999999') OR CODELIKE('399001'),DRAWNULL,1),0.76,0.015,0,NNN3),COLORYELLOW;
DRAWTEXT_FIX(IF(CODELIKE('999999') OR CODELIKE('399001'),DRAWNULL,CONST(DYNAINFO(51))>=1),0.76,0.015,0,NNN3),COLORBLACK;
{=======================均线解盘===============================};