老師我的一分鐘跨周線KDJ沒(méi)有信號(hào)？求老師幫改 - TradeBlazer公式 [開(kāi)拓者 TB]
- 咨詢內(nèi)容：
//------------------------------------------------------------------------
// 簡(jiǎn)稱: 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; //從年月日精確到秒的時(shí)間信息
String StrDate; //以日期為標(biāo)示進(jìn)行數(shù)據(jù)交換
String StrKValue; //用于存儲(chǔ)上軌數(shù)值的字符
String StrDValue; //用于存儲(chǔ)下軌數(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); //把當(dāng)前時(shí)間信息轉(zhuǎn)化為字符進(jì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ù)值存儲(chǔ)進(jìn)相應(yīng)字符塊，實(shí)現(xiàn)跨圖表調(diào)用
SetTBProfileString("周D值",StrDate,StrDValue); //把下軌數(shù)值存儲(chǔ)進(jìn)相應(yīng)字符塊，實(shí)現(xiàn)跨圖表調(diào)用
PlotNumeric("KValue",KValue,0,White);
PlotNumeric("DValue",DValue,0,Yellow);
End
一分鐘：
// 簡(jiǎn)稱: 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ā)表的帖子沒(méi)有人回復(fù)啊？
- TB客服： 老師，我想在周線上實(shí)現(xiàn)周KDJ金叉買，死叉賣，也就是在每周五收盤(pán)前一分鐘判斷是否交易，除了利用一分鐘調(diào)用周KDJ數(shù)據(jù)，還有沒(méi)有什么簡(jiǎn)單的辦法啊
如果以上指標(biāo)公式不適用于您常用的行情軟件
或者您想改編成選股公式，以便快速選出某種形態(tài)個(gè)股的話，
可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696 進(jìn)行 有償 改編！
- 上一篇：世界冠軍的資金管理方法
- 下一篇：實(shí)盤(pán)系統(tǒng)。
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)