两仪四象TS进场代码

feijian0000

N1=10，N2=10
......................................................................
if(currentbar>maxlist(N1,N2)+1) then begin
  if Summation(absvalue(close-close[1]),N1)<>0 then begin
EF=maxlist(highest(close,N1)-Lowest(close,N1),absvalue(close-close[N1]))/Summation(absvalue(close-close[1]),N1);
  end;
EFMA=Average(EF,N1);
MER=IntPortion(N1-(EFMA-0.5)*N2);
LY=Summation((close-close[1])*Volume,MER);
LYSX=Average(LY,N1);
end;

messagelog("LYSX",LYSX);
messagelog("EF",EF);

if (time>=opentime+maxlist(N1,N2)+1 and time<lasttime and marketposition=0 and tradeNumber<maxtime ) then
        begin
                if LYSX>0 then begin
                buy 1 share next bar at Open;
                end;
                if LYSX<0 then begin
                sellshort 1 share next bar at Open;
                end;
               
               
        end;

期市劫匪

这样都行。厉害

ggyyff

擦 跪了

zyqh888

麻烦那位高人帮忙转换成TB的代码...

醒客老罗

晕！

迎风尿十丈

哈哈哈
源码
//------------------------------------------------------------------------
// 简称: lysx
// 名称: lysx
// 类别: 公式应用
// 类型: 用户应用
//------------------------------------------------------------------------

Params
    Numeric n1(10);
    Numeric n2(10);
Vars
Numeric mer;
           NumericSeries ef;
             NumericSeries efma;
                   NumericSeries ly;
                     NumericSeries lysx;
                NumericSeries aa;          

Begin
        aa = Summation(Abs(c-c[1]),n1);
        ef = Max(highest(close,N1)-Lowest(close,N1),abs(close-close[N1]))/Summation(abs(close-close[1]),N1);
        efma = AverageFC(ef,n1);
        mer = IntPart(N1-(EFma-0.5)*N2);
        ly = Summation((close-close[1])*Vol,MER);
        lysx = AverageFC(ly,n1);
       
PlotNumeric("lysx ",lysx);

PlotNumeric("mer",mer);       
PlotNumeric("ef",ef);       
        PlotNumeric("efma",efma);
                If(aa[1]!=0&&lysx[1]>0&&marketposition==0);
                Buy(1,open);
                If(aa[1]!=0&&lysx[1]<0&&marketposition==0);
                sellshort(1,Open);
       
        if (marketposition==1&&lysx[1]<0)
        {
                Sell(1,Open);

        }
        if (marketposition==-1&&lysx[1]>0)
        {BuyToCover(1,Open);
       
        }
End

//------------------------------------------------------------------------
// 编译版本        GS2010.12.08
// 用户版本        2012/09/24 19:20

// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

hdh4638

天啊，我放进去一下亏光了！楼上的怎么编的

迎风尿十丈

牛x
期待高手来编

cui53228

只有开仓部分啊，剩下的呢？

迎风尿十丈

拿分