打印本文
關閉窗口
相關標簽:
?
原理解析：
源碼：
?
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;
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?