TB再学习

sandboy2005

首先跑马圈地一块，完成一列项目，让自己的投资操盘再升级一下
未改变前的状况：自己公司现在有5名主要独立操盘手在分别负责自己公司分配下来的帐号，大约各自手头上有5-12个帐号，这些主要是客户理财型，不包括客户自己操作的，5名的操盘风格不尽相同
希望改变后的样子：运用自动化交易，一个交易员可以操作50个帐号，风格相当持有同样的持仓
愿望要有才会实现

系统的两个目的
1.发现机会
2.处理风险与羸利

[ 本帖最后由 sandboy2005 于 2010-5-9 17:54 编辑 ]

TB839295651

sandboy2005

If  ( ( Date!=Date[1]  &&  High  ==  Low  )  || Q_Last == 0 )   Return

sandboy2005

ZIG 含ZIG族未来函数：Zig zig(K,N): 价格之字N%转向,k=0,1,2,3 (开,高,低,收)
PEAK 含ZIG族未来函数：Peak peak(K,N,M): 第前m个zig转向波峰值
PEAKBARS 含ZIG族未来函数：PeakBars peakbars(K,N,M): 前m个zig转向波峰到当前的周期数。
TROUGH 含ZIG族未来函数：Trough trough(K,N,M):前m个zig转向波谷值。
TROUGHBARS 含ZIG族未来函数：TroughBars troughbars(K,N,M): 前m个zig转向波谷到当前的周期数。
BACKSET 含BackSet未来函数 BACKSET(X,N):向前赋值。若X非0,则将当前位置和前面共N个周期的数值设为1。

sandboy2005

貌似简单的策略，但很难写，求教高手！
百分比转向交易系统，从低点上涨百分之N做多，一直持有到从高点下跌百分之N平仓，并反手开空。
本人用金字塔编了一个指标，源码如下，开拓者也学了半年了，但编这个还是很困难，求教各位高手了！

参数N默认值：1
ZX:ZIG(4,N);
Z1:=PEAKBARS(4,N,1)+1;
Z2:=TROUGHBARS(4,N,1)+1;
HH:=HHV(HIGH,Z2)*(1-N*0.01);//多头止损线
LL:=LLV(LOW,Z1)*(1+N*0.01);//空头止损线
DRAWSL(HH>=REF(HH,1) AND HH>=TROUGH(4,N,1),HH,0,1,0,COLORMAGENTA,1);//画多头止损线
VERTLINE(HH>REF(HH,1) AND HH>=TROUGH(4,N,1),HH,REF(HH,1),COLORMAGENTA,1);//画多头止损线
DRAWSL(LL<=REF(LL,1) AND LL<=PEAK(4,N,1),LL,0,1,0,COLORGREEN,1);//画空头止损线
VERTLINE(LL<=REF(LL,1) AND LL<=PEAK(4,N,1),LL,REF(LL,1),COLORGREEN,1);//画空头止损线

sandboy2005

while(Low <= preEntryPrice - 0.5*N) // 以最低价为标准，判断能进行几次增仓
{
myEntryPrice = preEntryPrice - 0.5 * N;
preEntryPrice = myEntryPrice;  //注意这个地方PreEntryPrice=PreEntryPric-0.5*N 为什么不可以这样写呢
SellShort(TurtleUnits,myEntryPrice);
SendOrderThisBar = True;
     }

sandboy2005

求个while循环的代码。 明天的作业。。。 0分
标签：
回答：1   浏览：406   提问时间：2008-11-25 20:13
有个题目 如下：
现在有水缸可装50升水， 里面已经有15升水了。
每次挑可挑5升水。 请问要挑多少次才能挑满？
提示：1用整行变量warter表示水缸里的水int warter=15
2 用整行变量i表示挑水的次数 int i=0
3 分析循环条件（水少于50） 循环操作（水增加5升 挑水次数增加1次）
4 要 套用while循环 写出代码
对你们来说 应该很简单 JAVA循环入门的题目而已
麻烦你们了。。。 谢谢

sandboy2005

Vars
    BoolSeries LastTradeLoss(false);
begin
    If(CurrentBar==0)
         LastTradeLoss = false;
    else
         LastTradeLoss = LastTradeLoss[1];

      If(BuyCon)
      {
            If(LastTradeLoss )
               Buy(2,.....);
            else
               Buy(1,.....);            
       }
   
       If(SellCon)
       {
            If(Positionprofit < 0)
               LastTradeLoss  = true;
           else
             LastTradeLoss = false;

           sell(........);
        }
end

sandboy2005

Vars
    NumericSeries conFailureCnt(0);
Begin
    If(BarStatus==0)
    {
        conFailureCnt = 0;
    }else
    {
        conFailureCnt = conFailureCnt[1];
    }

    YourBuyCon = ?
    YourSellShortCon = ?
    If(YourBuyCon&&MarketPosition==0)
   {
        If(conFailureCnt > 3)
        {
              Buy(2,NextOpen,True);
        }else
        {
              Buy(1,NextOpen,True);
        }
    }

    If(YourSellShortCon&&MarketPosition==0)
    {
        If(conFailureCnt > 3)
        {
              SellShort(2,NextOpen,True);
        }else
        {
              SellShort(1,NextOpen,True);
        }
    }

    YourSellCon = ?
    YourBuyToCoverCon = ?
    If(MarketPosition==1 && YourSellCon)
    {
           If(PositionProfit < 0)
           {
                 conFailureCnt = conFailureCnt  + 1;
            }else
           {
                 conFailureCnt = 0;
           }

          sell(....);
    }


     If(MarketPosition==-1 && YourBuyToCoverCon )
    {
           If(PositionProfit < 0)
           {
                 conFailureCnt = conFailureCnt  + 1;
            }else
           {
                 conFailureCnt = 0;
           }

          BuyToCover(....);
    }

End

sandboy2005

//------------------------------------------------------------------------
// 简称: ceshi
// 名称:
// 类别: 交易指令
// 类型: 多头建仓
// 输出:
//------------------------------------------------------------------------

Params


Vars
        NumericSeries L1;
        NumericSeries L2;
        NumericSeries l30;
        NumericSeries h30;
        Numeric MyOffset;

Begin

        L1 = XAverage(close,5);                               //5bar均线
        L2 = XAverage(close,30);                                //30bar均线
        H30=Highest(high,30);                                        //30bar最大值
        L30=Lowest(low,30);                                        //30bar最小值        
        MyOffset = MinMove*PriceScale;                //预防滑点
        
//----初始化全局变量        
        If(GetGlobalVar(1) == InvalidNumeric || CurrentBar==0 ) SetGlobalVar(1,0);
        If(GetGlobalVar(0) == InvalidNumeric || CurrentBar==0 ) SetGlobalVar(0,0);

//---多头买入---5均线上穿30均线多头开仓
        If(CrossOver(l1,l2) &&  GetGlobalVar(1)==0 && A_TotalPosition==0)               
        {
                    A_SendOrder(Enum_Buy,Enum_Entry,1,Q_askprice+ MyOffset);         
                        SetGlobalVar(1,1);
        }

//---空头买入---5均线下穿30均线多头开仓，全局变量GetGlobalVar(1)
        If(CrossUnder(l1,l2) && GetGlobalVar(1)==0 && A_TotalPosition==0)
        {
            A_SendOrder(Enum_Sell,Enum_Entry,1,Q_BidPrice- MyOffset);
                        SetGlobalVar(1,1);
        }
               
//---多头加仓---30bar最低值上移，全局变量GetGlobalVar(0)
        if(A_BuyPosition>0 && l30>l30[1] && GetGlobalVar(1)==1 && GetGlobalVar(0)==0)
        {
                    A_SendOrder(Enum_Buy,Enum_Entry,1,Q_askprice+ MyOffset);
                        SetGlobalVar(0,1);        
        }
//---空头加仓---30bar最高值下移，全局变量GetGlobalVar(0)
        if(A_SellPosition>0 && h30<h30[1] && GetGlobalVar(1)==1 && GetGlobalVar(0)==0)
        {
            A_SendOrder(Enum_Sell,Enum_Entry,1,Q_BidPrice- MyOffset);

                        SetGlobalVar(0,1);        
        }        
//---多头平仓---5bar均线下穿30bar均线或者收盘价跌穿30bar最小值
        
        If((CrossUnder(l1,l2) || close<l30) && A_BuyPosition>0 && GetGlobalVar(1)==1 && GetGlobalVar(0)==1 )
        {
                        A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Q_BidPrice- MyOffset);
                        SetGlobalVar(1,0);
                        SetGlobalVar(0,0);
        }

//---空头平仓---5bar均线上穿30bar均线或者收盘价上穿30bar最大值

        If((CrossOver(l1,l2) || close>h30) && A_SellPosition>0 && GetGlobalVar(1)==1 && GetGlobalVar(0)==1)
        {
                        A_SendOrder(Enum_Buy,Enum_Exit, A_SellPosition, Q_askprice + MyOffset);   
                        SetGlobalVar(1,0);
                        SetGlobalVar(0,0);
        }

End

//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2010/03/30 11:34
// 版权所有        robbiey
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------