打印本文
關(guān)閉窗口
相關(guān)標簽:
?
根據(jù)DDX資金流入和流出，在主圖上畫出資金進出的矩形，黃色矩形資金流入，青色矩形資金流出，標示了周月的開盤價，表示了每日相對量。
參數(shù):
M1，資金平均的短周期
M2，資金平均的長周期
S，是否標注突破30日價格和量的文字
N1，價格和量突破的周期
P，應(yīng)對上市日期讀錯的情況，作廢了
指標公式源碼：
?
原理解析：
?
?來源:程序化99（ www.kzuj.com.cn ）
源碼：
?
上市日期:(FINANCE(42)+1),COLORLIGRAY,NODRAW;
流通市值:(FINANCE(40)/100000000),NODRAW,COLORRED;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
買:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)) ;
賣:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));
買賣%:=ABS(買/賣);
買M5:=MA(買,M1),NODRAW;
賣M5:=MA(賣,M1),NODRAW;MAVOL1:=MA(VOL,M1);
MAVOL2:=MA(VOL,M2);
UP:=IF(P>0,CROSS(買M5,-賣M5),CROSS(MAVOL1,MAVOL2)),NODRAW;
DOWN:=IF(P>0,CROSS(-賣M5,買M5),CROSS(MAVOL2,MAVOL1)),NODRAW;
{UP:=CROSS(買M5,-賣M5),NODRAW;
DOWN:=CROSS(-賣M5,買M5),NODRAW;}
UPL:=BARSLAST(UP),NODRAW;
UPE:=BARSNEXT(UP),NODRAW;
DOWNL:=BARSLAST(DOWN),NODRAW;
DOWNE:=BARSNEXT(DOWN),NODRAW;
UO:=REF(O,UPL),NODRAW;
MO:=REFX(C,DOWNE-1),NODRAW;
DC:=REFX(C,UPE-1),NODRAW;
DRAWSL(UP,O,0,DOWNE-1,0),COLORYELLOW;{上升矩形}
DRAWSL(UP,MO,0,DOWNE-1,0),COLORYELLOW;
STICKLINE(UP,O,MO,0,0),COLORYELLOW;
STICKLINE(DOWNE==1,C,UO,0,0),COLORYELLOW;
DRAWSL(DOWN,DC,0,UPE-1,0),COLORGREEN;{下降矩形}
DRAWSL(DOWN,O,0,UPE-1,0),COLORGREEN;
STICKLINE(DOWN,O,DC,0,0),COLORGREEN;
STICKLINE(UPE==1,C,REF(O,DOWNL),0,0),COLORGREEN;
{====================================}
{突破N1=30日量前高}
{N1:=30;}
K1:=REF(C,1)=DYNAINFO(3) AND O=DYNAINFO(4) AND C=DYNAINFO(7) AND H=DYNAINFO(5) AND L=DYNAINFO(6);
K2:=BARSLAST(V=HHV(V,N1));
K3:=BACKSET(K1,K2+1);
DRAWSL(K2=0 AND K3=1,H,0,2,0),COLORWHITE,LINETHICK2;
收:C,NODRAW;
{DRAWTEXT(S=1&&K2=0&&K3=1,H*1.02,'破N1日最高量的最高價'),COLORGREEN;}
DRAWTEXT(S=1&&K2=0&&K3=1,H*0.97,'V'),COLORWHITE,LINETHICK2;{突破N1=30日價格前高}
TJG:=C==HHV(H,N1) AND REF(C,1)<HHV(H,N1);
K4:=BARSLAST(TJG);
K5:=BACKSET(K1,K4+1);
DRAWSL(K4=0 AND K5=1,C,0,2,0),COLORWHITE,LINETHICK2;
DRAWTEXT(S=1 AND K4=0 AND K5=1,C*0.97,'P'),COLORWHITE;{標示周月開盤價}
YN:=MOD(YEAR,4)==0 AND MOD(YEAR,100)!=0,NODRAW;
DN:=IF(MONTH==1 OR MONTH==3 OR MONTH==5 OR MONTH==7 OR MONTH==8 OR MONTH==10 OR MONTH==12,31,IF(MONTH==4 OR MONTH==6 OR MONTH==9 OR MONTH==11,30,IF(MONTH==2,IF(YN,29,28),0))),NODRAW;
FD:=IF(DAY<REF(DAY,1),DAY,0),NODRAW;
{LD:=IF(DAY>REF(DAY,1) AND DAY>REFX(DAY,1),DAY,0),NODRAW;}
FW:=IF(WEEKDAY<REF(WEEKDAY,1) AND WEEKDAY!=0,WEEKDAY,0),NODRAW;
{LW:=IF(WEEKDAY>REF(WEEKDAY,1) AND WEEKDAY>REFX(WEEKDAY,1),WEEKDAY,0),NODRAW;}
DRAWSL(DAY==FD OR DAY==1,O,0,10,0),COLORMAGENTA,LINETHICK2;
{DRAWSL(DAY==LD OR DAY==DN,C,0,1,0),COLORRED,LINETHICK3,POINTDOT;}
DRAWSL(WEEKDAY==FW OR WEEKDAY==1,O,0,1,0),COLORWHITE,LINETHICK5,POINTDOT;
{DRAWSL(WEEKDAY==5,C,0,1,0),COLORBLUE,LINETHICK5,POINTDOT;}{標示相對量}
P:=IF(上市日期>120,上市日期,120),NODRAW;
買賣差:=買+賣,NODRAW;
最大差:=HHV(買賣差,P),NODRAW;
最小差:=LLV(買賣差,P),NODRAW;
相對差:IF(買賣差>0,買賣差/最大差,-買賣差/最小差)*100,NODRAW;
漲幅:=(C-REF(C,1))/REF(C,1)*100,NODRAW;
量價比:=相對差/漲幅,NODRAW;
A:=MA(C,5),NODRAW;
最大量:=HHV(VOL,P),NODRAW;
相對量:VOL/最大量*100,NODRAW;
三日差:SUM(相對差,3),NODRAW;
三日量:SUM(相對量,3),NODRAW;
五日差:SUM(相對差,5),NODRAW;
五日量:SUM(相對量,5),NODRAW;
十日差:SUM(相對差,10),NODRAW;
十日量:SUM(相對量,10),NODRAW;Y1:=L*0.99,NODRAW;
Y2:=H*1.04,NODRAW;
B:=INTPART(ABS(相對量/10)),NODRAW;
S:=IF(B==10,0,B),NODRAW;
DRAWNUMBER(漲幅>0 AND 量價比>0 AND B!=0,Y1,S),COLORRED;
DRAWNUMBER(漲幅<0 AND 量價比>0 AND B!=0,Y2,S),COLORCYAN;
DRAWNUMBER(量價比<0 AND C>A AND B!=0,Y1,S),COLORGREEN;
DRAWNUMBER(量價比<0 AND C<A AND B!=0,Y1,S),COLORYELLOW;Y3:=L*0.95,NODRAW;
Y4:=H*1.07,NODRAW;
B1:=INTPART(ABS(相對差/10)),NODRAW;
S1:=IF(B1==10,0,B1),NODRAW;
DRAWNUMBER(漲幅>0 AND 量價比>0 AND B1!=0,Y3,S1),COLORLIRED;
DRAWNUMBER(漲幅<0 AND 量價比>0 AND B1!=0,Y4,S1),COLORLICYAN;
DRAWNUMBER(量價比<0 AND C>A AND B1!=0,Y3,S1),COLORLIGREEN;
DRAWNUMBER(量價比<0 AND C<A AND B1!=0,Y3,S1),COLORYELLOW;
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;
?
?
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?