请管理员把文华改写成TB的自动交易公式

期胜

macd背离

A1:=EMA(CLOSE,N1) - EMA(CLOSE,N1*2.618);

期胜

小弟先谢谢了

alex647l

一般不做这种事儿的。。。。LZ自己研究下怎么写吧

蔡宛宏

自己动手 丰衣足食

huise4

Params
        Numeric N(10);
        Numeric N1(10);
Vars
        NumericSeries A1;
        NumericSeries A2;
        Numeric AA;
        Numeric BB;
        Numeric AA1;
        Numeric BB1;
        Numeric M1;
        Numeric M2;
        NumericSeries B1;
        NumericSeries B2;
Begin
        A1 = XAverage(Close,N1) - XAverage(Close,N1*2.618);
        A2 = XAverage(A1, N1*0.618);
        AA = NthCon(CrossOver(A1,A2),1);
        BB = NthCon(CrossOver(A2,A1),1);
        AA1 = NthCon(A1<A2);
        BB1 = NthCon(A1>A2);
        M1 = CountIf(Low<Low[AA+1] && A2>A2[AA+1] && CrossOver(A1,A2),AA1+1);
        M2 = CountIf(High<High[BB+1] && A2<A2[BB+1] && CrossOver(A2,A1),BB1+1);
        B1 = XAverage(Close,N) - XAverage(Close,N1);
        B2 = XAverage(B1,N*0.618);
        ////////////////////////////////
        If(M1==1 && CrossOver(B1,B2))  
        {
                Buy(0,Close);
                //Return;
        }
        If(CrossOver(B2,B1))
        {
                BuyToCover(0,Close);
                //Return;
        }
        If(M2==1 && CrossOver(B2,B1))
        {
                SellShort(0,Close);
                //Return;
        }
        If(CrossOver(B1,B2))
        {
                Sell(0,Close);
                //Return;
        }
End

ggyyff

思路很精妙 第一次见 谢谢分享

道勤

感谢分享

yoyo

huise4 发表于 2011-12-19 12:54
Params
        Numeric N(10);
        Numeric N1(10);

  学习了，呵呵，正是想要的

qyliaowei

学习了，呵呵，正是想要的