您现在的位置:程序化交易>> 期货公式>> 交易开拓者(TB)>> 开拓者知识>>正文内容

老师我的一分钟跨周线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数据,还有没有什么简单的办法啊

 

如果以上指标公式不适用于您常用的行情软件

或者您想改编成选股公式,以便快速选出某种形态个股的话,

可以联系我们相关技术人员 QQ: 262069696  点击在线交流进行 有偿 改编!

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容