相關標簽:

?

?

原理解析：
VAR1賦值:1日前的最低價 VAR2賦值:最低價-VAR1的絕對值的3日[1日權重]移動平均/最低價-VAR1和0的較大值的3日[1日權重]移動平均*100 VAR3賦值:如果收盤價*1.2,返回VAR2*10,否則返回VAR2/10的3日指數移動平均 VAR4賦值:38日內最低價的最低值 VAR5賦值:38日內VAR3的最高值 VAR6賦值:如果90日內最低價的最低值,返回1,否則返回0 VAR7賦值:如果最低價<=VAR4,返回(VAR3+VAR5*2)/2,否則返回0的3日指數移動平均/618*VAR6 VAR8賦值:((收盤價-21日內最低價的最低值)/(21日內最高價的最高值-21日內最低價的最低值))*100 VAR9賦值:VAR8的13日[8日權重]移動平均 輸出底線:0,COLOR00FFFF 輸出主力吸貨:VAR7,COLOR0000FF 輸出吸籌1:當滿足條件VAR7時,在0和VAR7位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR0000FF 輸出吸籌2:當滿足條件VAR7時,在0和VAR7位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR6600FF 輸出吸籌3:當滿足條件VAR7時,在0和VAR7位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORBB00FF 輸出吸籌4:當滿足條件VAR7時,在0和VAR7位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF00FF 輸出吸籌5:當滿足條件VAR7時,在0和VAR7位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFF33FF 輸出吸籌6:當滿足條件VAR7時,在0和VAR7位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF66FF 輸出吸籌7:當滿足條件VAR7時,在0和VAR7位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFF99FF 輸出風險:VAR9的13日[8日權重]移動平均的向上舍入,線寬為2,畫綠色 輸出漲跌:3*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*100的5日[1日權重]移動平均-2*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*100的5日[1日權重]移動平均的3日[1日權重]移動平均的5日簡單移動平均,線寬為2,畫紅色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.weiqiv.net.cn '),畫紅色

?

?來源:程序化99（ www.weiqiv.net.cn ）

源碼：

?

?

?

VAR1:=REF(LOW,1);
VAR2:=SMA(ABS(LOW-VAR1),3,1)/SMA(MAX(LOW-VAR1,0),3,1)*100;
VAR3:=EMA(IF(CLOSE*1.2,VAR2*10,VAR2/10),3);
VAR4:=LLV(LOW,38);
VAR5:=HHV(VAR3,38);
VAR6:=IF(LLV(LOW,90),1,0);
VAR7:=EMA(IF(LOW<=VAR4,(VAR3+VAR5*2)/2,0),3)/618*VAR6;
VAR8:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
VAR9:=SMA(VAR8,13,8);
底線:0,COLOR00FFFF;
主力吸貨:VAR7,COLOR0000FF;
吸籌1:STICKLINE(VAR7,0,VAR7,6,0),COLOR0000FF;
吸籌2:STICKLINE(VAR7,0,VAR7,5,0),COLOR6600FF;
吸籌3:STICKLINE(VAR7,0,VAR7,4,0),COLORBB00FF;
吸籌4:STICKLINE(VAR7,0,VAR7,3,0),COLORFF00FF;
吸籌5:STICKLINE(VAR7,0,VAR7,2,0),COLORFF33FF;
吸籌6:STICKLINE(VAR7,0,VAR7,1,0),COLORFF66FF;
吸籌7:STICKLINE(VAR7,0,VAR7,0,0),COLORFF99FF;
風險:CEILING(SMA(VAR9,13,8)),LINETHICK2,colorgreen;
漲跌:MA(3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*
SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1),5),LINETHICK2,colorred;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.weiqiv.net.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?