打印本文
關(guān)閉窗口
//指標yiyi
inputs:?
? ? ? ? StochLength( 9),?
? ? ? ? SmoothingLength( 3 ),? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ? ? OverSold( 20 ),?
? ? ? ? OverBought( 80 ) ;?
{通過input定義參數(shù)，可以從外部進行更改參數(shù)，參數(shù)在代碼內(nèi)部不能動態(tài)更改}
?
variables:
? ? ? ? var_k( 0 ),? ?//定義K值變量
? ? ? ? var_d( 0 ),? ?//定義D值變量
? ? ? ? var_j( 0 ),? ?//定義J值變量
? ? ? ? var_date(0);
{通過關(guān)鍵字variables聲明變量；value1到value99，condition1到condition99這兩類變量是MC自帶的，不需要聲明就可以使用，前者是數(shù)值變量，后者是布爾變量}
?
if currentbar=1 then
? ? ? ? var_date=date;? //存儲第一根bar的日期
Value1 = Alex_KDJ(stochlength,smoothinglength,var_k,var_d,var_j);? //調(diào)用KDJ函數(shù)
value2=lowest(var_k,40);
value3=lowest(var_d,40);
value4=lowest(var_j,40);
value5=lowest(close,40);
value6=lowest(var_k,80);
value7=lowest(var_d,80);
value8=lowest(var_j,80);
value9=lowest(close,80);
{通過函數(shù)lowest計算最近多少根bar的最小值}
?
condition1=var_k[1]=value2 and var_d[1]=value3 and var_j[1]=value4;
condition2=close[1]=value5;
condition3=var_k[1]=value6 and var_d[1]=value7 and var_j[1]=value8;
condition4=close[1]=value9;
condition5=var_j>var_j[1] and var_j[1]<var_j[2];
condition6=date-var_date>=300;??
{MC沒有存儲股票是否上市多少天的數(shù)據(jù)，但是可以通過第一根bar的日期與最新的日期之差來計算日期天數(shù)}
?
{condition1到condition7分別對應(yīng)您帖子中的6個條件}
Plot1( var_k, "K" ) ;
Plot2( var_d, "D") ;
Plot3( OverBought, "OverBot" ) ;
Plot4( OverSold, "OverSld" ) ;
?
if ((condition1 and condition2) or (condition3 and condition4)) and condition5 and condition6 then
? ? ? ? Alert(text(getsymbolname));??
{條件滿足時發(fā)送警報（返回該股票的名稱），可以在交易追蹤器的“警告”欄位或者通過郵件來查看}
?
?
//函數(shù)Alex_KDJ
input: length(numericsimple), smoothlength(numericsimple), var_K(numericref), var_D(numericref), var_J(numericref);
var: high1(0), low1(0), rsv(0);
?
high1=highest(high,length);
low1=lowest(low,length);
if high1<>low1 then
? ? ? ? rsv=(close-low1)/(high1-low1)*100
else rsv=0;
?
var_k=xaverageorig(rsv,smoothlength);
var_d=xaverageorig(var_k,smoothlength);
var_j=3*var_k-2*var_d;
?
?
?
注意事項：
第一、選股可以使用投資組合回測或者投資組合交易功能進行。
第二、目前關(guān)于分鐘的數(shù)據(jù)可能沒有太長（超過1年），但是日線數(shù)據(jù)是從該股票上市那天的數(shù)據(jù)到當(dāng)前，所以您的選股周期需要使用日線周期。
第三、關(guān)于郵件警告，這個功能，您可以在論壇進行搜索學(xué)習(xí)。
第四、可能沒有將所有的細節(jié)都告訴您，一些問題可以在QQ群進行及時的咨詢。
?
//指標yiyi
inputs:?
? ? ? ? StochLength( 9),?
? ? ? ? SmoothingLength( 3 ),? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ? ? OverSold( 20 ),?
? ? ? ? OverBought( 80 ) ;?
{通過input定義參數(shù)，可以從外部進行更改參數(shù)，參數(shù)在代碼內(nèi)部不能動態(tài)更改}
?
variables:
? ? ? ? var_k( 0 ),? ?//定義K值變量
? ? ? ? var_d( 0 ),? ?//定義D值變量
? ? ? ? var_j( 0 ),? ?//定義J值變量
? ? ? ? var_date(0);
{通過關(guān)鍵字variables聲明變量；value1到value99，condition1到condition99這兩類變量是MC自帶的，不需要聲明就可以使用，前者是數(shù)值變量，后者是布爾變量}
?
if currentbar=1 then
? ? ? ? var_date=date;? //存儲第一根bar的日期
Value1 = Alex_KDJ(stochlength,smoothinglength,var_k,var_d,var_j);? //調(diào)用KDJ函數(shù)
value2=lowest(var_k,40);
value3=lowest(var_d,40);
value4=lowest(var_j,40);
value5=lowest(close,40);
value6=lowest(var_k,80);
value7=lowest(var_d,80);
value8=lowest(var_j,80);
value9=lowest(close,80);
{通過函數(shù)lowest計算最近多少根bar的最小值}
?
condition1=var_k[1]=value2 and var_d[1]=value3 and var_j[1]=value4;
condition2=close[1]=value5;
condition3=var_k[1]=value6 and var_d[1]=value7 and var_j[1]=value8;
condition4=close[1]=value9;
condition5=var_j>var_j[1] and var_j[1]<var_j[2];
condition6=date-var_date>=300;??
{MC沒有存儲股票是否上市多少天的數(shù)據(jù)，但是可以通過第一根bar的日期與最新的日期之差來計算日期天數(shù)}
?
{condition1到condition7分別對應(yīng)您帖子中的6個條件}
Plot1( var_k, "K" ) ;
Plot2( var_d, "D") ;
Plot3( OverBought, "OverBot" ) ;
Plot4( OverSold, "OverSld" ) ;
?
if ((condition1 and condition2) or (condition3 and condition4)) and condition5 and condition6 then
? ? ? ? Alert(text(getsymbolname));??
{條件滿足時發(fā)送警報（返回該股票的名稱），可以在交易追蹤器的“警告”欄位或者通過郵件來查看}
?
?
//函數(shù)Alex_KDJ
input: length(numericsimple), smoothlength(numericsimple), var_K(numericref), var_D(numericref), var_J(numericref);
var: high1(0), low1(0), rsv(0);
?
high1=highest(high,length);
low1=lowest(low,length);
if high1<>low1 then
? ? ? ? rsv=(close-low1)/(high1-low1)*100
else rsv=0;
?
var_k=xaverageorig(rsv,smoothlength);
var_d=xaverageorig(var_k,smoothlength);
var_j=3*var_k-2*var_d;
?
?
?
注意事項：
第一、選股可以使用投資組合回測或者投資組合交易功能進行。
第二、目前關(guān)于分鐘的數(shù)據(jù)可能沒有太長（超過1年），但是日線數(shù)據(jù)是從該股票上市那天的數(shù)據(jù)到當(dāng)前，所以您的選股周期需要使用日線周期。
第三、關(guān)于郵件警告，這個功能，您可以在論壇進行搜索學(xué)習(xí)。
第四、可能沒有將所有的細節(jié)都告訴您，一些問題可以在QQ群進行及時的咨詢。
?
老師辛苦了，日線周期可以了。順便問問這個公式或以后我自己編的公式，可以實現(xiàn)A股的小周期選股嗎？比如1分鐘或5分鐘30分鐘等。
?
小周期選股可以的，但是可能需要將條件6去除掉，因為分鐘數(shù)據(jù)實盤支持1年，模擬盤不到1年時間，分鐘及小時周期數(shù)據(jù)是由1分鐘組合成的。
?
小周期選股可以的，但是可能需要將條件6去除掉，因為分鐘數(shù)據(jù)實盤支持1年，模擬盤不到1年時間，分鐘及小時周期數(shù)據(jù)是由1分鐘組合成的。