相關標簽:

?

?

原理解析：
R賦值:((收盤價 - 9日內最低價的最低值)/(9日內最高價的最高值 - 9日內最低價的最低值))*(100) K賦值:R的3日指數移動平均 D賦值:K的3日指數移動平均 陡峭度賦值:如果(收盤價的有效數據周期數>7),返回(100)*((收盤價的7日簡單移動平均)/(7日內收盤價的7日簡單移動平均的最低值)-1),否則返回1 N賦值:如果(陡峭度>0.35),返回6,否則返回65 VAR1賦值:((-((100)*(N日內最高價的最高值 - 收盤價))/(N日內最高價的最高值 - N日內最低價的最低值))) VAR1A賦值:((-((100)*(N日內最高價的最高值 - 收盤價))/(N日內最高價的最高值 - N日內最低價的最低值)) + 100) 獲利盤賦值:(以收盤價計算的獲利盤比例)*(100) 獲利線賦值:獲利盤的7日線性回歸預測值 線賦值:(VAR1A的7日線性回歸預測值)*((日期 < 20070110)) 滿倉賦值:((線 > 1日前的線) AND (線 < 25) AND (統計5日中滿足(線>1日前的線)的天數 = 1) AND 如果(N=6),返回(獲利盤<60),否則返回(獲利盤<40) AND (統計20日中滿足(獲利線>20)的天數 > 0))*(40) 當滿足條件滿倉時,在0和40位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR008000 當滿足條件滿倉時,在45位置書寫文字,畫白色 輕倉賦值:如果(獲利盤>=60)AND(線>1日前的線)AND(1日前的線<20)AND(線<40)AND(統計5日中滿足(線>1日前的線)的天數=1)AND(1日前的N=6),返回1,否則返回0 當滿足條件輕倉時,在20和D位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLORFF00FF 當滿足條件輕倉時,在45位置書寫文字,COLORFF00FF 出擊賦值:線上穿20 AND 如果(統計3日中滿足K上穿D的天數=1)AND(D<40),返回1,否則返回(線>D)OR(K>D)AND(D<60) AND 如果(N=6),返回(獲利盤<70),否則返回(獲利盤<40) AND (統計20日中滿足(獲利線>20)的天數 > 0) 當滿足條件出擊時,在0和50位置之間畫柱狀線,寬度為3,1不為0則畫空心柱.,COLOR44BB00 當滿足條件出擊時,在55位置書寫文字,畫紅色 輸出進一:線上穿D AND (D > 30) AND (D > 1日前的D) AND (D < 80) 輸出進二:線上穿獲利線 AND (D > 30) AND (獲利線 > 25) AND (D > 1日前的D) 低進賦值:如果進一AND(D>獲利線),返回進二,否則返回進一 當滿足條件低進時,在30位置書寫文字,畫白色 當滿足條件低進時,在20和30位置之間畫柱狀線,寬度為3,1不為0則畫空心柱.,COLOR000080 當滿足條件進二時,在50位置書寫文字,COLOR800080 當滿足條件進二時,在30和50位置之間畫柱狀線,寬度為3,1不為0則畫空心柱.,畫黃色 狂喜賦值:(30)*(VAR1上穿(-2)) 當滿足條件狂喜時,在0和20位置之間畫柱狀線,寬度為3,1不為0則畫空心柱.,畫黃色 當滿足條件狂喜時,在(-5)位置書寫文字,畫黃色 狂喜過望賦值:(50)*((VAR1 = 0)) 恐慌賦值:(20)*(VAR1 < -94) 當滿足條件恐慌時,在0和(-20)位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORC1C1C1 當滿足條件恐慌時,在(-25)位置書寫文字,COLORC1C1C1 極度恐慌賦值:(-40)*(VAR1 = (-100)) 當滿足條件極度恐慌時,在0和(-40)位置之間畫柱狀線,寬度為7,1不為0則畫空心柱.,COLOR800000 當滿足條件極度恐慌時,在(-45)位置書寫文字,畫綠色 半倉賦值:(30)*(VAR1上穿(-94) AND (統計5日中滿足恐慌的天數 > 0) AND (N = 1日前的N) AND 如果(N=6),返回(獲利盤<60),否則返回(獲利盤<40) AND (統計20日中滿足(獲利線>20)的天數 > 0)) 當滿足條件半倉時,在0和30位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLORFFFF00 當滿足條件半倉時,在35位置書寫文字,COLORFFFF00 加倉賦值:(30)*(K上穿20 AND (統計5日中滿足半倉的天數 > 0)) 當滿足條件加倉時,在0和20位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,COLOR808080 當滿足條件加倉時,在25位置書寫文字,COLOR808080 背離賦值:(統計2日中滿足恐慌的天數 > 0) AND (收盤價 < 1日前的收盤價) AND (VAR1 > 1日前的VAR1) 當滿足條件背離時,在0位置畫1號圖標,COLORFFFFFF TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

?

R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
K:=EMA(R,3);
D:=EMA(K,3);
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
N:=IF((陡峭度 > 0.35),6,65);
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))));
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100);
獲利盤:=(WINNER(CLOSE))*(100);
獲利線:=FORCAST(獲利盤,7);
線:=(FORCAST(VAR1A,7))*((DATE < 20070110));滿倉:=((線 > REF(線,1)) AND (線 < 25) AND (COUNT((線 > REF(線,1)),5) = 1) AND IF((N = 6),(獲利盤 < 60),(獲利盤 < 40)) AND (COUNT((獲利線 > 20),20) > 0))*(40);
STICKLINE(滿倉,0,40,5,0),Color008000;
DRAWTEXT(滿倉,45,'滿倉'),colorwhite;
輕倉:=IF((獲利盤 >= 60) AND (線 > REF(線,1)) AND (REF(線,1) < 20) AND (線 < 40) AND (COUNT((線 > REF(線,1)),5) = 1) AND (REF(N,1) = 6),1,0);
STICKLINE(輕倉,20,D,4,1),ColorFF00FF;
DRAWTEXT(輕倉,45,'輕倉'),ColorFF00FF;

出擊:=CROSS(線,20) AND IF((COUNT(CROSS(K,D),3) = 1) AND (D < 40),1,(線 > D) OR (K > D) AND (D < 60)) AND IF((N = 6),(獲利盤 < 70),(獲利盤 < 40)) AND (COUNT((獲利線 > 20),20) > 0);
STICKLINE(出擊,0,50,3,1),Color44BB00;
DRAWTEXT(出擊,55,'出擊'),colorred;
進一:CROSS(線,D) AND (D > 30) AND (D > REF(D,1)) AND (D < 80);
進二:CROSS(線,獲利線) AND (D > 30) AND (獲利線 > 25) AND (D > REF(D,1));
低進:=IF(進一 AND (D > 獲利線),進二,進一);
DRAWTEXT(低進,30,'低進'),colorwhite;
STICKLINE(低進,20,30,3,1),Color000080;
DRAWTEXT(進二,50,'高進'),Color800080;
STICKLINE(進二,30,50,3,1),coloryellow;
狂喜:=(30)*(CROSS(VAR1,(-2)));
STICKLINE(狂喜,0,20,3,1),coloryellow;
DRAWTEXT(狂喜,(-5),'要漲停'),coloryellow;
狂喜過望:=(50)*((VAR1 = 0));
恐慌:=(20)*(VAR1 < -94);
STICKLINE(恐慌,0,(-20),5,0),ColorC1C1C1;
DRAWTEXT(恐慌,(-25),'恐慌'),ColorC1C1C1;
極度恐慌:=(-40)*(VAR1 = (-100));
STICKLINE(極度恐慌,0,(-40),7,1),Color800000;
DRAWTEXT(極度恐慌,(-45),'極度恐慌'),colorgreen;
半倉:=(30)*(CROSS(VAR1,(-94)) AND (COUNT(恐慌,5) > 0) AND (N = REF(N,1)) AND IF((N = 6),(獲利盤 < 60),(獲利盤 < 40)) AND (COUNT((獲利線 > 20),20) > 0));
STICKLINE(半倉,0,30,4,1),ColorFFFF00;
DRAWTEXT(半倉,35,'半倉'),ColorFFFF00;
加倉:=(30)*(CROSS(K,20) AND (COUNT(半倉,5) > 0));
STICKLINE(加倉,0,20,6,1),Color808080;
DRAWTEXT(加倉,25,'加倉'),Color808080;
背離:=(COUNT(恐慌,2) > 0) AND (CLOSE < REF(CLOSE,1)) AND (VAR1 > REF(VAR1,1));
DRAWICON(背離,0,1),ColorFFFFFF;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?