相關標簽:

?

?

原理解析：
AA賦值:成交量(手)/((最高價-最低價)*2-收盤價-開盤價的絕對值) 買量賦值:如果收陽線,返回AA*(最高價-最低價),否則返回如果收陰線,返回AA*((最高價-開盤價)+(收盤價-最低價)),否則返回成交量(手)/2,線寬為0,畫紅色 賣量賦值:如果收陽線,返回0-AA*((最高價-收盤價)+(開盤價-最低價)),否則返回如果收陰線,返回0-AA*(最高價-最低價),否則返回0-成交量(手)/2,線寬為0,畫青色 進出量賦值:買量+賣量,COLOR00FFFF 當滿足條件進出量<0時,在0和進出量位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF6600 當滿足條件進出量<0時,在0和進出量位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF9900 當滿足條件進出量<0時,在0和進出量位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLORFFCC00 當滿足條件進出量<0時,在0和進出量位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,畫青色 當滿足條件進出量>0時,在0和進出量位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR000099 當滿足條件進出量>0時,在0和進出量位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000CC 當滿足條件進出量>0時,在0和進出量位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR0000FF 當滿足條件進出量>0時,在0和進出量位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORCC66FF N賦值:5 M賦值:13 輸出N日內凈流入:進出量的N日累和,線寬為2,畫綠色 輸出流入:如果N日內凈流入>1日前的N日內凈流入,返回N日內凈流入,否則返回無效數,畫紅色,線寬為2 輸出連紅天:條件連續成立次數 輸出M日內翻紅天:統計M日中滿足進出量>0的天數,畫紅色 輸出走熊天:條件連續成立次數,畫青色 輸出走牛天:條件連續成立次數,畫紅色 輸出強勢天:條件連續成立次數 輸出弱勢天:條件連續成立次數 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
買量:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),LINETHICK0,colorred;
賣量:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),LINETHICK0,colorcyan;
進出量:=買量+賣量,COLOR00FFFF;
STICKLINE(進出量<0,0,進出量,4,0),COLORFF6600;
STICKLINE(進出量<0,0,進出量,3,0),COLORFF9900;
STICKLINE(進出量<0,0,進出量,1.5,0),COLORFFCC00;
STICKLINE(進出量<0,0,進出量,0.5,0),colorcyan;
STICKLINE(進出量>0,0,進出量,4,0),COLOR000099;
STICKLINE(進出量>0,0,進出量,3,0),COLOR0000CC;
STICKLINE(進出量>0,0,進出量,1.5,0),COLOR0000FF;
STICKLINE(進出量>0,0,進出量,0.5,0),COLORCC66FF;
N:=5;
M:=13;
N日內凈流入:SUM(進出量,N),LINETHICK2,colorgreen;
流入:IF(N日內凈流入>REF(N日內凈流入,1),N日內凈流入,DRAWNULL),colorred,LINETHICK2;
連紅天:BARSLASTCOUNT(進出量>0);
M日內翻紅天:COUNT(進出量>0,M),colorred;
走熊天:BARSLASTCOUNT(N日內凈流入<0),colorcyan;
走牛天:BARSLASTCOUNT(N日內凈流入>0),colorred;
強勢天:BARSLASTCOUNT((N日內凈流入>REF(N日內凈流入,1))>0 AND N日內凈流入>0);
弱勢天:BARSLASTCOUNT((N日內凈流入<REF(N日內凈流入,1))>0 AND N日內凈流入<0);
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?