相關標簽:

?

主力資金進出的節奏公式 一看就懂！

?

?

原理解析：
量＿價賦值:1 CTKG賦值:1 W賦值:量＿價 EPSL賦值:0.0001 ZZ賦值:(收盤價+最高價+最低價)/3 TJA賦值:ZZ>=收盤價和開盤價的較大值 AND CTKG=1 TJB賦值:ZZ<=收盤價和開盤價的較小值 AND CTKG=1 ZF賦值:如果TJA,返回1,否則返回如果TJB,返回-1,否則返回0 TJ0賦值:TJA OR TJB TJ1賦值:最高價=最低價 AND 收盤價>1日前的收盤價 TJ2賦值:最高價=最低價 AND 收盤價<1日前的收盤價 TJ3賦值:最高價=最低價 AND 收盤價=1日前的收盤價 量_價賦值:如果W=1,返回成交量(手),否則返回成交額(元),STICK,COLOREEFFEE EE賦值:如果TJ1,返回EPSL,否則返回如果TJ2,返回-EPSL,否則返回0 ZL賦值:2*(最高價-最低價)+收盤價-開盤價的絕對值+3*如果TJ3,返回EPSL,否則返回EE的絕對值 JGL_DX賦值:(如果TJ0,返回2/3*(2*收盤價-最高價-最低價)+ZF*收盤價-開盤價的絕對值,否則返回(收盤價-開盤價)+EE)/ZL 買賣差賦值:JGL_DX*量_價,COLOR13AADD,NODRAW 輸出DX%:JGL_DX*100,NODRAW,畫綠色,線寬為0 輸出DX連紅:條件連續成立次數,畫紅色,NODRAW,線寬為0 買盤賦值:量_價*(1+JGL_DX)/2,COLOR1133AA,NODRAW 賣盤賦值:量_價*(1-JGL_DX)/2,COLORFFFF00,NODRAW VAR11賦值:成交量(手)/((最高價-最低價)*2-收盤價-開盤價的絕對值) DDX賦值:買盤-賣盤 MADDX賦值:DDX的5日簡單移動平均*15 輸出DDX1:MADDX的3日[1日權重]移動平均,畫紅色,線寬為1 輸出DDX2:DDX1的3日[1日權重]移動平均,畫綠色,線寬為1 輸出DDX3:DDX2的3日[1日權重]移動平均,畫黃色,線寬為1 相對位置上畫矩形 超B賦值:成交額分檔/10000.0 大B賦值:成交額分檔/10000.0 中B賦值:成交額分檔/10000.0 小B賦值:成交額分檔/10000.0 超S賦值:成交額分檔/10000.0 大S賦值:成交額分檔/10000.0 中S賦值:成交額分檔/10000.0 小S賦值:成交額分檔/10000.0 凈流入賦值:(超B+大B+中B+小B)-(超S+大S+中S+小S),NODRAW 超大單賦值:(超B)-(超S),NODRAW 大單賦值:(大B)-(大S),NODRAW 中單賦值:(中B)-(中S),NODRAW 小單賦值:(小B)-(小S),NODRAW DAZHI賦值:凈流入的絕對值和超大單的絕對值和大單的絕對值和中單的絕對值和小單的絕對值的較大值的較大值的較大值的較大值的最后一日取值設為常數,NODRAW 相對位置上畫矩形 相對位置上畫矩形 相對位置上畫矩形 相對位置上畫矩形 相對位置上畫矩形 當滿足條件到最后交易的周期=1時,在橫軸0.002縱軸0.25位置書寫文字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.002縱軸0.55位置書寫數字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.035縱軸0.555位置書寫數字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.070縱軸0.550位置書寫數字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.106縱軸0.55位置書寫數字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.145縱軸0.55位置書寫數字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.002縱軸1位置書寫文字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.040縱軸1位置書寫文字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.075縱軸1位置書寫文字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.112縱軸1位置書寫文字,畫黃色 當滿足條件到最后交易的周期=1時,在橫軸0.145縱軸1位置書寫文字,畫黃色 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ m.kzuj.com.cn ）

源碼：

?

?

量＿價:=1;
CTKG:=1;
W:=量＿價;
EPSL:=0.0001;
ZZ:=(C+H+L)/3;
TJA:=ZZ>=MAX(C,O) AND CTKG=1;
TJB:=ZZ<=MIN(C,O) AND CTKG=1;
ZF:=IF(TJA,1,IF(TJB,-1,0));
TJ0:=TJA OR TJB;
TJ1:=H=L AND C>REF(C,1);
TJ2:=H=L AND C<REF(C,1);
TJ3:=H=L AND C=REF(C,1);
量_價:=IF(W=1,VOL,AMOUNT),STICK,COLOREEFFEE;
EE:=IF(TJ1,EPSL,IF(TJ2,-EPSL,0));
ZL:=2*(H-L)+ABS(C-O)+3*IF(TJ3,EPSL,ABS(EE));
JGL_DX:=(IF(TJ0,2/3*(2*C-H-L)+ZF*ABS(C-O),(C-O))+EE)/ZL;
買賣差:=JGL_DX*量_價,COLOR13AADD,NODRAW;
DX%:JGL_DX*100,NODRAW,COLORGREEN,LINETHICK0;
DX連紅:BARSLASTCOUNT(DX%>0),COLORRED,NODRAW,LINETHICK0;
買盤:=量_價*(1+JGL_DX)/2,COLOR1133AA,NODRAW;
賣盤:=量_價*(1-JGL_DX)/2,COLORFFFF00,NODRAW;
VAR11:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
DDX:=買盤-賣盤;
MADDX:=MA(DDX,5)*15;
DDX1:SMA(MADDX,3,1),COLORRED,LINETHICK1;
DDX2:SMA(DDX1,3,1),COLORGREEN,LINETHICK1;
DDX3:SMA(DDX2,3,1),COLORYELLOW,LINETHICK1;
DRAWRECTREL(0,250,175,999.4,IF(120,RGB(10,0,0),0));
超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),NODRAW;
超大單:=(超B)-(超S),NODRAW;
大單:=(大B)-(大S),NODRAW;
中單:=(中B)-(中S),NODRAW;
小單:=(小B)-(小S),NODRAW;
DAZHI:=CONST(MAX(ABS(凈流入),MAX(ABS(超大單),MAX(ABS(大單),MAX(ABS(中單),ABS(小單)))))),NODRAW;
DRAWRECTREL(0,CONST(830-(ABS(超大單)*500/DAZHI)),30,935,IF(CONST(超大單)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(35,CONST(830-(ABS(大單)*500/DAZHI)),65,935,IF(CONST(大單)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(70,CONST(830-(ABS(中單)*500/DAZHI)),100,935,IF(CONST(中單)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(105,CONST(830-(ABS(小單)*500/DAZHI)),135,935,IF(CONST(小單)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(140,CONST(830-(ABS(凈流入)*500/DAZHI)),170,935,IF(CONST(凈流入)>0,RGB(255,0,0{255,255,255}),RGB(23,125,255)));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.25,0,'資金搏弈 (萬元)'),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.002,0.55,0,INTPART(超大單)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.035,0.555,0,INTPART(大單)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.070,0.550,0,INTPART(中單)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.106,0.55,0,INTPART(小單)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.145,0.55,0,INTPART(凈流入)),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,1,0,'超大'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.040,1,0,'大單'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.075,1,0,'中單'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.112,1,0,'小單'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.145,1,0,'凈流'),COLORYELLOW;
{T6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),STRCAT('千股千評：',EXTERNSTR(0,1)),'');
DRAWTEXT_FIX(1,0.00,0.00,0,T6),COLOR00FFFF;};DRAWTEXT_FIX(C>O,0.01,0.9,0,' m.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;


?

?

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

?