分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册

软件名称:[B]TB顺势指标交易策略源码[/B]
软件类型:国产软件
运行环境:Win2000/WinXP/Win2003/WinVista
软件语言:简体中文
授权方式:共享软件
软件大小:0 Bytes
官方主页:Home Page
更新时间:2013-03-08 07:04:31
软件简介:

  • 源码内容:




    //------------------------------------------------------------------------
    // 简称: CCIapply
    // 名称: 顺势指标
    // 类别: 公式应用
    // 类型: 用户应用
    // 来源: WW.CXH99.COM
    //------------------------------------------------------------------------

    Params
        Numeric Para1(10);
        Numeric Para2(5);
            Numeric Length(14);
            Numeric AvgLength(9);
    Vars

            Bool Condition1;
            Bool Condition2;       
            Bool PreBreakoutFailure;
            NumericSeries TmpValue;
            Numeric Mean( 0 );  
            Numeric AvgDev( 0 );
            Numeric Counter( 0 ) ;
            NumericSeries CCIValue(0);  
            NumericSeries CCIAvg;
            Numeric ExitLowestPrice;              
                    Numeric myEntryPrice;                   // 开仓价咯
               Numeric myExitPrice;    // 平仓价咯
            NumericSeries preEntryPrice(0);               // 前一次开仓的价咯

    Begin
           
           
            TmpValue = High + Low + Close;
            Mean = AverageFC( TmpValue, Length ) ;
           
            AvgDev = 0 ;
            for Counter = 0 to Length - 1
            {
                    AvgDev = AvgDev + Abs( TmpValue[Counter] - Mean ) ;
            }
            AvgDev = AvgDev / Length ;
           
            if( AvgDev == 0)
                    CCIValue = 0;
            Else
            CCIValue = ( TmpValue - Mean ) / ( 0.015 * AvgDev ) ;        //求CCI值       
            CCIAvg = AverageFC(CCIValue, AvgLength );
           
             If(BarStatus == 0)
        {
                    preEntryPrice = InvalidNumeric;
                    PreBreakoutFailure = false;
            }       

                   
            Condition1 =CCIValue>=CCIAvg&&CCIValue[1]<CCIAvg[1];
            Condition2 = CCIValue<=CCIAvg&&CCIValue[1]>CCIAvg[1];
           
            If(Condition1)
            {
                    if (MarketPosition==-1)
                    {
                    myExitPrice=c;
                    Commentary("myExitPrice="+Text(myExitPrice));
                    BuyToCover(1,c);
                    }
             if (MarketPosition==0)
                    {
                            myEntryPrice=Data0.close;
                            Commentary("myEntryPrice="+Text(myEntryPrice));
                            Buy(1,close);
                    }
            }
           
            If(Condition1)
            {
                    If(MarketPosition==1)
                    {
                    myExitPrice=c;
                    Commentary("myExitPrice="+Text(myExitPrice));
                    Sell(1,c);
                    }
                    If (MarketPosition==0)
                    {
                            myEntryPrice=Data0.close;
                            Commentary("myEntryPricePrice="+Text(myEntryPrice));
                            SellShort(1,close);
                    }
            }
    End

    //------------------------------------------------------------------------
    // 编译版本        GS2010.12.08 CXH99.COM
    // 来源:  www.70822.com
    // 版权所有        guitar1234
    // 更改声明        TradeBlazer Software保留对TradeBlazer评台
    //                        每一版本的TrabeBlazer公式修改和重写的权利
    //------------------------------------------------------------------------

[url=http://www.70822.com/soft/sort013/sort083/down-59416.html]TB顺势指标交易策略源码[/url]

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明:本站所有股票公式软件资料均网上公开收集,如侵权请联系删帖。站内所有广告,均与本站无关!
Copyright © 2003-2024 70822.Com. All Rights Reserved .
页面执行时间:62.50000 毫秒