老师我的一分钟跨周线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数据,还有没有什么简单的办法啊
如果以上指标公式不适用于您常用的行情软件
或者您想改编成选股公式,以便快速选出某种形态个股的话,
- 上一篇:世界冠军的资金管理方法
- 下一篇:实盘系统。
相关文章
-
没有相关内容