input:N(2000,1,10000),M(3,1,10);
ZQ:=DATATYPE;
R:=OPENMINUTES(TIME);
ZS:=REF(CLOSE,R);
ZSR:=DYNAINFO(3);
JJ:=SUM(CLOSE*VOL,0)/SUM(VOL,0);
JJ1:=SUM(CLOSE*VOL,R)/SUM(VOL,R);
JJA:=IF(ZQ=6,JJ,IF(ZQ=1,JJ1,JJ));
ZSA:=IF(ZQ=6,ZSR,IF(ZQ=1,ZS,ZSR));
DK:=(SMA(CLOSE,2,1)-SMA(CLOSE,6,1))*2.1;
STICKLINE(DK>0 AND JJA>0,ZSA,ZSA+DK,0.1,0),color5050FF;
STICKLINE(DK<=0 AND JJA>0,ZSA,ZSA+DK,0.1,0),colorFFFF00;
买入X:=BUYVOL;
卖出X:=SELLVOL;
流通X:=FINANCE(7)/10000;
流通市值X:=DYNAINFO(7)*FINANCE(7)/10000;
标准1:=0.55; 标准2:=0.67; 标准3:=0.75; 标准4:=1.0; 标准5:=1.25; 标准6:=1.55; 标准7:=1.67; 标准8:=2.15;
系数X:=IF(流通X<1.0,标准1,IF(流通X>=1.0 AND 流通X<5.0,标准2,IF(流通X>=5.0 AND 流通X<10,标准3,IF(流通X>=10 AND 流通X<20,标准4,IF(流通X>=20 AND 流通X<50,标准5,IF(流通X>=50 AND 流通X<100,标准6,IF(流通X>=100 AND 流通X<300,标准7,IF(流通X>=300,标准8,0))))))));
门限X:=流通市值X*系数X/15.5*n;
主动买入X:=SUM(BUYVOL,0);
主动卖出X:=SUM(SELLVOL,0);
大单买X:=IF(BUYVOL>=门限X,BUYVOL,0);
大单卖X:=IF(SELLVOL>=门限X,SELLVOL,0);
大单买入X:=SUM(大单买X,0);
大单卖出X:=SUM(大单卖X,0);
小单买入X:=主动买入X-大单买入X;
小单卖出X:=主动卖出X-大单卖出X;
DD1:=MAX(大单买入X,大单卖出X);
DD2:=MAX(小单买入X,小单卖出X);
参考1:=MAX(DD1,DD2);
XX1:=MIN(大单买入X,大单卖出X);
XX2:=MIN(小单买入X,小单卖出X);
参考2:=MIN(XX1,XX2);
RC:=DYNAINFO(3);
Q:=DATACOUNT;
HH:=DYNAINFO(5);
LL:=DYNAINFO(6);
F:=MAX(HH-RC,RC-LL);
FF:=F/RC*100;
Q1H:=IF(FF<1,0.9898*RC,RC-F*1.02);
Q1L:=IF(FF<1,0.9798*RC,RC-2*F*1);
RH:=HHV(参考1,0);
RL:=LLV(参考2,0);
RB:=(Q1H-Q1L)/(RH[Q]-RL[Q]);
RY:=(Q1H+Q1L-RB*(RH[Q]+RL[Q]))/2;
散户卖出:小单卖出X*RB+RY,COLORCYAN,LINETHICK1;
散户买入:小单买入X*RB+RY,COLORMAGENTA,LINETHICK1;
主力卖出:大单卖出X*RB+RY,COLORGREEN,LINETHICK2;
主力买入:大单买入X*RB+RY,COLORRED,LINETHICK2;
DRAWTEXTEX(CLOSE,1,20,1050,'\n'+BLKNAME),COLORWHITE;
DRAWTEXTEX(CLOSE,1,20,20,'主力买:'+NUMTOSTR(大单买入X,0)),color0000FF;
DRAWTEXTEX(CLOSE,1,180,20,'占:'+NUMTOSTR(FLOOR(大单买入X/DYNAINFO( 8)*100),0)+'%'),color0000FF;
DRAWTEXTEX(CLOSE,1,20,80,'主力卖:'+NUMTOSTR(大单卖出X,0)),colorGREEN;
DRAWTEXTEX(CLOSE,1,180,80,'占:'+NUMTOSTR(FLOOR(大单卖出X/DYNAINFO( 8)*100),0)+'%'),colorGREEN;
DRAWTEXTEX(CLOSE,1,20,140,'散户买:'+NUMTOSTR(小单买入X,0)),COLORMAGENTA;
DRAWTEXTEX(CLOSE,1,180,140,'占:'+NUMTOSTR(FLOOR(小单买入X/DYNAINFO( 8)*100),0)+'%'),COLORMAGENTA;
DRAWTEXTEX(CLOSE,1,20,200,'散户卖:'+NUMTOSTR(小单卖出X,0)),COLORCYAN;
DRAWTEXTEX(CLOSE,1,180,200,'占:'+NUMTOSTR(FLOOR(小单卖出X/DYNAINFO( 8)*100),0)+'%'),COLORCYAN;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
