主力龍虎線

作者：飛狐來源：cxh99.com 發布時間：2021年03月02日

相關標簽:

原理解析：

輸出INPUT:N(2000,1,10000),M(3,1,10)

ZQ賦值:DATATYPE

R賦值:OPENMINUTES(時間(時分))

ZS賦值:R日前的收盤價

ZSR賦值:前收盤價

JJ賦值:收盤價*成交量(手)的歷史累和/成交量(手)的歷史累和

JJ1賦值:收盤價*成交量(手)的R日累和/成交量(手)的R日累和

JJA賦值:如果ZQ=6,返回JJ,否則返回如果ZQ=1,返回JJ1,否則返回JJ

ZSA賦值:如果ZQ=6,返回ZSR,否則返回如果ZQ=1,返回ZS,否則返回ZSR

DK賦值:(收盤價的2日[1日權重]移動平均-收盤價的6日[1日權重]移動平均)*2.1

當滿足條件DK>0ANDJJA>0時,在ZSA和ZSA+DK位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,COLOR5050FF

當滿足條件DK<=0ANDJJA>0時,在ZSA和ZSA+DK位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,COLORFFFF00

買入X賦值:外盤

賣出X賦值:內盤

流通X賦值:流通股本(股)/10000

流通市值X賦值:現價*流通股本(股)/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賦值:如果流通X<1.0,返回標準1,否則返回如果流通X>=1.0AND流通X<5.0,返回標準2,否則返回如果流通X>=5.0AND流通X<10,返回標準3,否則返回如果流通X>=10AND流通X<20,返回標準4,否則返回如果流通X>=20AND流通X<50,返回標準5,否則返回如果流通X>=50AND流通X<100,返回標準6,否則返回如果流,返回?,否則返回?

門限X賦值:流通市值X*系數X/15.5*N

主動買入X賦值:外盤的歷史累和

主動賣出X賦值:內盤的歷史累和

大單買X賦值:如果外盤>=門限X,返回外盤,否則返回0

大單賣X賦值:如果內盤>=門限X,返回內盤,否則返回0

大單買入X賦值:大單買X的歷史累和

大單賣出X賦值:大單賣X的歷史累和

小單買入X賦值:主動買入X-大單買入X

小單賣出X賦值:主動賣出X-大單賣出X

DD1賦值:大單買入X和大單賣出X的較大值

DD2賦值:小單買入X和小單賣出X的較大值

參考1賦值:DD1和DD2的較大值

XX1賦值:大單買入X和大單賣出X的較小值

XX2賦值:小單買入X和小單賣出X的較小值

參考2賦值:XX1和XX2的較小值

RC賦值:前收盤價

Q賦值:DATACOUNT

HH賦值:最高價

LL賦值:最低價

F賦值:HH-RC和RC-LL的較大值

FF賦值:F/RC*100

Q1H賦值:如果FF<1,返回0.9898*RC,否則返回RC-F*1.02

Q1L賦值:如果FF<1,返回0.9798*RC,否則返回RC-2*F*1

RH賦值:0日內參考1的最高值

RL賦值:0日內參考2的最低值

RB賦值:(Q1H-Q1L)/(RH[Q]-RL[Q])

RY賦值:(Q1H+Q1L-RB*(RH[Q]+RL[Q]))/2

輸出散戶賣出:小單賣出X*RB+RY,畫青色,線寬為1

輸出散戶買入:小單買入X*RB+RY,畫洋紅色,線寬為1

輸出主力賣出:大單賣出X*RB+RY,畫綠色,線寬為2

輸出主力買入:大單買入X*RB+RY,畫紅色,線寬為2

DRAWTEXTEX(收盤價,1,20,1050,'\N'+BLKNAME),畫白色

輸出DRAWTEXTEX(收盤價,1,20,20,'主力買:'+NUMTOSTR(大單買入X,0)),COLOR0000FF

輸出DRAWTEXTEX(收盤價,1,180,20,'占:'+NUMTOSTR(大單買入X/總量*100的向下舍入,0)+'%'),COLOR0000FF

輸出DRAWTEXTEX(收盤價,1,20,80,'主力賣:'+NUMTOSTR(大單賣出X,0)),畫綠色

輸出DRAWTEXTEX(收盤價,1,180,80,'占:'+NUMTOSTR(大單賣出X/總量*100的向下舍入,0)+'%'),畫綠色

輸出DRAWTEXTEX(收盤價,1,20,140,'散戶買:'+NUMTOSTR(小單買入X,0)),畫洋紅色

輸出DRAWTEXTEX(收盤價,1,180,140,'占:'+NUMTOSTR(小單買入X/總量*100的向下舍入,0)+'%'),畫洋紅色

輸出DRAWTEXTEX(收盤價,1,20,200,'散戶賣:'+NUMTOSTR(小單賣出X,0)),畫青色

輸出DRAWTEXTEX(收盤價,1,180,200,'占:'+NUMTOSTR(小單賣出X/總量*100的向下舍入,0)+'%'),畫青色

源碼：

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;

公式導入教程: 【通達信公式源碼導入方法教程】【同花順公式源碼導入方法教程】【大智慧新一代公式源碼導入方法教程】