老師我的一分鐘跨周線KDJ沒有信號?求老師幫改 - TradeBlazer公式 [開拓者 TB]
- 咨詢內容:
//------------------------------------------------------------------------
// 簡稱: WeekKdj
// 名稱:
// 類別: 公式應用
// 類型: 用戶應用
// 輸出:
//------------------------------------------------------------------------
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; //以日期為標示進行數據交換
String StrKValue; //用于存儲上軌數值的字符
String StrDValue; //用于存儲下軌數值的字符
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); //把當前時間信息轉化為字符進行保存
StrKValue=Text(KValue); //把上軌的數值轉化為字符,方便數據轉換
StrDValue=Text(DValue); //把下軌的數值轉化為字符,方便數據轉換
SetTBProfileString("周K值",StrDate,StrKValue); //把上軌數值存儲進相應字符塊,實現跨圖表調用
SetTBProfileString("周D值",StrDate,StrDValue); //把下軌數值存儲進相應字符塊,實現跨圖表調用
PlotNumeric("KValue",KValue,0,White);
PlotNumeric("DValue",DValue,0,Yellow);
End
一分鐘:
// 簡稱: MinuteKdj
// 名稱:
// 類別: 公式應用
// 類型: 用戶應用
// 輸出:
//------------------------------------------------------------------------
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); //把字符轉化為數值型
WeekDValue=Value(StrDValue); //把字符轉化為數值型
}Else
{
WeekKValue=WeekKValue[1];
WeekDValue=WeekDValue[1];
}
PlotNumeric("WeekKValue",WeekKValue,0,Red);
PlotNumeric("WeekDValue",WeekDValue,0,Green);
End - TB技術人員:
為什么我發表的帖子沒有人回復啊?
- TB客服: 老師,我想在周線上實現周KDJ金叉買,死叉賣,也就是在每周五收盤前一分鐘判斷是否交易,除了利用一分鐘調用周KDJ數據,還有沒有什么簡單的辦法啊
如果以上指標公式不適用于您常用的行情軟件
或者您想改編成選股公式,以便快速選出某種形態個股的話,
- 上一篇:世界冠軍的資金管理方法
- 下一篇:實盤系統。
相關文章
-
沒有相關內容