老師我的一分鐘跨周線KDJ沒有信號？求老師幫改 - TradeBlazer公式 [開拓者 TB]
- 咨詢內(nèi)容：
//------------------------------------------------------------------------
// 簡稱: WeekKdj
// 名稱:
// 類別: 公式應(yīng)用
// 類型: 用戶應(yīng)用
// 輸出:
//------------------------------------------------------------------------
Params
Numeric Length(14);
Numeric SlowLength(3);
Numeric SmoothLength(3);
Vars
NumericSeries HighestValue;
NumericSeries LowestValue;
NumericSeries KValue;
Numeric SumHLValue;
Numeric SumCLValue;
Numeric DValue;
Numeric DateAndTime; //從年月日精確到秒的時間信息
String StrDate; //以日期為標示進行數(shù)據(jù)交換
String StrKValue; //用于存儲上軌數(shù)值的字符
String StrDValue; //用于存儲下軌數(shù)值的字符
Begin
HighestValue = HighestFC(High, Length);
LowestValue = LowestFC(Low, Length);
SumHLValue = SummationFC(HighestValue-LowestValue,SlowLength);
SumCLValue = SummationFC(Close - LowestValue,SlowLength);
If(SumHLValue <> 0)
{
KValue = SumCLValue/SumHLValue*100;
}Else
{
KValue = 0;
}
DValue = AverageFC(KValue,SmoothLength);
PlotNumeric("K",KValue);
PlotNumeric("D",DValue);
PlotNumeric("J",3*KValue - 2*DValue);
PlotNumeric("Ref1",20);
PlotNumeric("Ref2",80);
StrDate=DateTimeToString(Date); //把當前時間信息轉(zhuǎn)化為字符進行保存
StrKValue=Text(KValue); //把上軌的數(shù)值轉(zhuǎn)化為字符，方便數(shù)據(jù)轉(zhuǎn)換
StrDValue=Text(DValue); //把下軌的數(shù)值轉(zhuǎn)化為字符，方便數(shù)據(jù)轉(zhuǎn)換
SetTBProfileString("周K值",StrDate,StrKValue); //把上軌數(shù)值存儲進相應(yīng)字符塊，實現(xiàn)跨圖表調(diào)用
SetTBProfileString("周D值",StrDate,StrDValue); //把下軌數(shù)值存儲進相應(yīng)字符塊，實現(xiàn)跨圖表調(diào)用
PlotNumeric("KValue",KValue,0,White);
PlotNumeric("DValue",DValue,0,Yellow);
End
一分鐘：
// 簡稱: MinuteKdj
// 名稱:
// 類別: 公式應(yīng)用
// 類型: 用戶應(yīng)用
// 輸出:
//------------------------------------------------------------------------
Params
Numeric Length(14);
Numeric SlowLength(3);
Numeric SmoothLength(3);
Vars
NumericSeries HighestValue;
NumericSeries LowestValue;
NumericSeries KValue;
Numeric SumHLValue;
Numeric SumCLValue;
Numeric DValue;
StringSeries strDate;
String StrKValue;
String StrDValue;
NumericSeries WeekKValue;
NumericSeries WeekDValue;
NumericSeries WeekIndex;
Begin
If(Date!=Date[1])
{
strDate = DateToString(Date[1]);
}Else
{
strDate = strDate[1];
}
StrKValue=GetTBProfileString("周K值",strDate);
StrDValue=GetTBProfileString("周D值",strDate);
If(StrKValue!=InvalidString And StrDValue!=InvalidString)
{
WeekKValue=Value(StrKValue); //把字符轉(zhuǎn)化為數(shù)值型
WeekDValue=Value(StrDValue); //把字符轉(zhuǎn)化為數(shù)值型
}Else
{
WeekKValue=WeekKValue[1];
WeekDValue=WeekDValue[1];
}
PlotNumeric("WeekKValue",WeekKValue,0,Red);
PlotNumeric("WeekDValue",WeekDValue,0,Green);
End - TB技術(shù)人員：
為什么我發(fā)表的帖子沒有人回復(fù)啊？
- TB客服： 老師，我想在周線上實現(xiàn)周KDJ金叉買，死叉賣，也就是在每周五收盤前一分鐘判斷是否交易，除了利用一分鐘調(diào)用周KDJ數(shù)據(jù)，還有沒有什么簡單的辦法啊
如果以上指標公式不適用于您常用的行情軟件
或者您想改編成選股公式，以便快速選出某種形態(tài)個股的話，
可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696 進行 有償 改編！
- 上一篇：世界冠軍的資金管理方法
- 下一篇：實盤系統(tǒng)。
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會員登錄/注冊