通达信猎豹量能 豹子成交量能饱和源码副图[查股公式]

{豹子成交量能饱和指标}
{LCY增加}
JE:=AMOUNT;
AAA:=IF(CURRBARSCOUNT=1 AND PERIOD=5,JE*240/FROMOPEN,DRAWNULL); 
预测额（万元）:AAA/10000,NODRAW;
STICKLINE(BARSTATUS=2,0,AAA,3.5,1),COLORWHITE;
加速:=IF(100*WINNER(CLOSE*0.95)>50 AND COST(85)<CLOSE AND 
      (EMA(EMA(CLOSE,9),9)-REF(EMA(EMA(CLOSE,9),9),1))/REF(EMA(EMA(CLOSE,9),9),1)*1000>0,
      (EMA(EMA(CLOSE,9),9)-REF(EMA(EMA(CLOSE,9),9),1))/REF(EMA(EMA(CLOSE,9),9),1)*1000,0){,COLORFF00FF,NODRAW};
成交额（元）:AMOUNT,VOLSTICK;
换手:VOL/CAPITAL*100,DOTLINE{NODRAW};
量能饱和:(AMOUNT/CLOSE)/HHV((AMOUNT/CLOSE),26)*100,COLORMAGENTA,DOTLINE{NODRAW};
VAR1:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2));
STICKLINE(量能饱和=100,主动买盘,0,1.5,0),COLORMAGENTA;
五日均额:MA(AMOUNT,5),COLORMAGENTA, LINETHICK1;
四十日均额:MA(AMOUNT,40),COLORWHITE, LINETHICK1;
一三五日均额:MA(AMOUNT,135),COLORYELLOW, LINETHICK2;

 
{以下LCY有较大修改}
超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;
净流入:=(超B+大B+中B+小B)+(超S+大S+中S+小S);
中单:=中B+中S;
大宗净流入:=(超B+大B)+(超S+大S);
三日大宗:=SUM(大宗净流入,3);
十日大宗:=SUM(大宗净流入,10);
超大单:=(超B)+(超S);
大单:=(大B)+(大S);
小单:=(小B)+(小S);
大宗进:=(超B)+(大B);
大宗出:=(超S)+(大S);
非大宗进:=(中B)+(小B);
非大宗出:=(中S)+(小S);
近3日流向:=SUM(净流入,3);
近10日流向:=SUM(净流入,10);
主力买力度:=LARGEINTRDVOL*100/VOL;
主力卖力度:=LARGEOUTTRDVOL*100/VOL;
DRAWRECTREL(0,0,264,999.4,IF(120,RGB(10,0,0),0));

 
AAB:=CONST(MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))*1.5,NODRAW;
DRAWRECTREL(2,CONST(900-(ABS(超大单)*400/AAB)),37,900,IF(CONST(超大单)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(39,CONST(900-(ABS(大单)*400/AAB)),74,900,IF(CONST(大单)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(76,CONST(900-(ABS(中单)*400/AAB)),111,900,IF(CONST(中单)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(113,CONST(900-(ABS(小单)*400/AAB)),148,900,IF(CONST(小单)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.002,0.80,0,INTPART(超大单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.038,0.74,0,INTPART(大单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.076,0.80,0,INTPART(中单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.115,0.74,0,INTPART(小单)),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.004,1,0,'超大单'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.044,1,0,'大单'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.082,1,0,'中单'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1160,1,0,'小单'),COLORYELLOW;

 
AAC:=CONST(MAX(ABS(净流入),MAX(ABS(近3日流向),ABS(近10日流向))))*1.5,NODRAW;
DRAWRECTREL(153,CONST(900-(ABS(净流入)*400/AAC)),188,900,IF(CONST(净流入)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(190,CONST(900-(ABS(近3日流向)*400/AAC)),225,900,IF(CONST(近3日流向)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(227,CONST(900-(ABS(近10日流向)*400/AAC)),262,900,IF(CONST(近10日流向)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.152,0.80,0,INTPART(净流入)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.190,0.74,0,INTPART(近3日流向)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.228,0.80,0,INTPART(近10日流向)),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.152,1,0,'净流入'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.190,1,0,'三日流'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.228,1,0,'十日流'),COLORYELLOW;
DDX:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*100/CAPITAL;
DDY:=IF(TRADENUM>0,(TRADEOUTNUM-TRADEINNUM)*100/TRADENUM,0);
DDZ:=IF(TRADENUM>0,(LARGETRDINNUM-LARGETRDOUTNUM)/TRADENUM*100,0);
DRAWRECTREL(2,15,88,104,IF(CONST(DDX)>0,RGB(175,50,250),RGB(0,100,0)));
DRAWRECTREL(89,15,175,104,IF(CONST(DDY)>0,RGB(175,50,250),RGB(0,100,0)));
DRAWRECTREL(176,15,262,104,IF(CONST(DDZ)>0,RGB(175,50,250),RGB(0,100,0)));
DRAWTEXT_FIX(1,0.004,0.010,0,STRCAT('大单动向:',CON2STR(DDX,2))),COLORWHITE;
DRAWTEXT_FIX(1,0.091,0.010,0,STRCAT('涨跌动因:',CON2STR(DDY,2))),COLORWHITE;
DRAWTEXT_FIX(1,0.178,0.010,0,STRCAT('大单差分:',CON2STR(DDZ,2))),COLORWHITE;

 
DDX连红:=BARSLASTCOUNT(DDX>0);
DDY连红:=BARSLASTCOUNT(DDY>0);
DDZ连红:=BARSLASTCOUNT(DDZ>0);
DRAWTEXT_FIX(1,0.004,0.116,0,STRCAT(STRCAT('连红  ',CON2STR(DDX连红,0)),' [天] ')),COLORWHITE;
DRAWTEXT_FIX(1,0.091,0.116,0,STRCAT(STRCAT('连红  ',CON2STR(DDY连红,0)),' [天] ')),COLORWHITE;
DRAWTEXT_FIX(1,0.178,0.116,0,STRCAT(STRCAT('连红  ',CON2STR(DDZ连红,0)),' [天] ')),COLORWHITE;

 
DDX十红:=COUNT(DDX>0,10);
DDY十红:=COUNT(DDY>0,10);
DDZ十红:=COUNT(DDZ>0,10);
DRAWTEXT_FIX(1,0.004,0.190,0,STRCAT(STRCAT('十红  ',CON2STR(DDX十红,0)),' [天] ')),COLORWHITE;
DRAWTEXT_FIX(1,0.091,0.190,0,STRCAT(STRCAT('十红  ',CON2STR(DDY十红,0)),' [天] ')),COLORWHITE;
DRAWTEXT_FIX(1,0.178,0.190,0,STRCAT(STRCAT('十红  ',CON2STR(DDZ十红,0)),' [天] ')),COLORWHITE;

 
主买量占比:=LARGEINTRDVOL/(LARGEINTRDVOL+LARGEOUTTRDVOL)*100;
{主力净买量:=(LARGEINTRDVOL-LARGEOUTTRDVOL);}
TMP:=LARGEINTRDVOL-LARGEOUTTRDVOL;
主力活跃度:=(LARGEINTRDVOL+LARGEOUTTRDVOL)*100/FINANCE(7)*100;
{主力活跃度:=(LARGEINTRDVOL+LARGEOUTTRDVOL)*10000/(2*FINANCE(7));}
主力净资:=(L2_AMO(0,0)+L2_AMO(1,0)-L2_AMO(0,1)-L2_AMO(1,1))/10000.0;
DRAWRECTREL(2,282,88,371,IF(CONST(主买量占比)>50,RGB(175,50,250),RGB(0,100,0)));
DRAWRECTREL(89,282,175,371,IF(CONST(TMP)>0,RGB(175,50,250),RGB(0,100,0)));
DRAWRECTREL(176,282,262,371,IF(CONST(主力净资)>0,RGB(175,50,250),RGB(0,100,0)));
DRAWTEXT_FIX(1,0.004,0.280,0,STRCAT('主力买比:',CON2STR(主买量占比,2))),COLORWHITE;
DRAWTEXT_FIX(1,0.091,0.280,0,STRCAT('主力活跃度:',CON2STR(主力活跃度,2))),COLORWHITE;
DRAWTEXT_FIX(1,0.178,0.280,0,STRCAT('主力净资:',CON2STR(主力净资,0))),COLORWHITE;

 
主力主动买占比:=(超B+大B)/(超B+大B-超S-大S)*100;
十日飘红:=COUNT(大宗净流入>0,10);
DRAWRECTREL(2,371,88,460,IF(CONST(主力主动买占比)>50,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(89,371,175,460,IF(CONST(十日飘红)>0,RGB(255,0,0),RGB(25,125,255)));
DRAWTEXT_FIX(1,0.004,0.364,0,STRCAT('主主买比:',CON2STR(主力主动买占比,2))),COLORYELLOW;
DRAWTEXT_FIX(1,0.091,0.364,0,STRCAT('主力主动十红:',CON2STR(十日飘红,0))),COLORYELLOW;

 
换手率:=VOL/CAPITAL*100,NODRAW,COLORRED; 
AA:=IF(CURRBARSCOUNT=1 AND PERIOD=5,换手率*240/FROMOPEN,DRAWNULL);{预测换手率}
DRAWRECTREL(175,371,262,460,IF(CONST(AA>=3 AND AA<15),RGB(255,0,0),RGB(25,125,255)));
{DRAWRECTREL(176,570,262,615,IF(CONST(主力净资)>0,RGB(175,50,250),RGB(0,100,0)));}
DRAWTEXT_FIX(1,0.178,0.364,0,STRCAT('预测换手:',CON2STR(AA,2))),COLORYELLOW;

 
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.:082,0.50,0,'主动资金流（万元）：'),COLORYELLOW;

 
DRAWTEXT_FIX(1,0.350,0.000,0,STRCAT(STRCAT('大盘总上涨家数: ',CON2STR(DYNAINFO(60),0)),' 家')),COLORRED;
DRAWTEXT_FIX(1,0.490,0.000,0,STRCAT(STRCAT('大盘总下跌家数: ',CON2STR(DYNAINFO(61),0)),' 家')),COLORGREEN;
DRAWTEXT_FIX(1,0.630,0.000,0,STRCAT(STRCAT('对应上涨家数: ',CON2STR(INDEXADV,0)),' 家')),COLORRED;
DRAWTEXT_FIX(1,0.770,0.000,0,STRCAT(STRCAT('对应下跌家数: ',CON2STR(INDEXDEC,0)),' 家')),COLORGREEN;