TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));//真实波幅
ATR:=MA(TR,26); //求26个周期内真实波幅的简单移动平均
TC:=1;
MTC:=4;
HH:=HV(H,20);
LL:=LV(L,20);
CROSS(C,HH)&&ISLASTBK=0&&ISLASTSK=0&&BARPOS>=26,BK(TC);//最新价超过20周期的最高值，首次买入开仓，手数为TC手
CROSS(LL,C)&&ISLASTBK=0&&ISLASTSK=0,SK(TC); //最新价跌破20周期的最低值，首次卖出开仓，手数为TC手
C>=BKPRICE+0.5*ATR&&BKVOL<MTC&&ISLASTBK,BK(TC);//价格在上次开仓的基础上上涨0.5倍ATR，在手数不超过4倍TC的时候，买入加仓TC手
C<=SKPRICE-0.5*ATR&&SKVOL<MTC&&ISLASTSK,SK(TC);//价格在上次开仓的基础上下跌0.5倍ATR，在手数不超过4倍TC的时候，卖出加仓TC手
C<=(BKPRICE-2*ATR)&&BKVOL>0,SP(BKVOL);//最新价小于开仓价减去2倍的ATR，止损平仓
C>=(SKPRICE+2*ATR)&&SKVOL>0,BP(SKVOL); //最新价大于开仓价加上2倍的ATR，止损平仓
CROSSUP(H,HV(H,10))&&SKVOL>0,BP(SKVOL);//最高价上穿10周期最高价，平仓
CROSSDOWN(L,LV(L,10))&&BKVOL>0,SP(BKVOL); //最低价下穿10周期的最低价，平仓
TRADE_AGAIN(10);
以上是文华的海龟，下面我改成金字塔
ATR:=MA(TR,26); //求26个周期内真实波幅的简单移动平均
TC:=1;
MTC:=4;
HH:=REF(HHV(H,20),1);
LL:=REF(LLV(L,20),1);
IF TYPE(1)=0 AND TYPE(3)=0 AND BARPOS>=26 THEN BEGIN
BUY(C>HH,TC,THISCLOSE);//最新价超过20周期的最高值，首次买入开仓，手数为TC手
BUYSHORT(C<LL,TC,THISCLOSE); //最新价跌破20周期的最低值，首次卖出开仓，手数为TC手
END
IF TYPE(1)=1 AND HOLDING<MTC THEN BEGIN
BUY(C>=ENTERPRICE+0.5*ATR,TC,THISCLOSE);//价格在上次开仓的基础上上涨0.5倍ATR，在手数不超过4倍TC的时候，买入加仓TC手
END
IF TYPE(1)=3 AND ABS(HOLDING)<MTC THEN BEGIN
BUYSHORT(C<=ENTERPRICE-0.5*ATR,TC,THISCLOSE);//价格在上次开仓的基础上下跌0.5倍ATR，在手数不超过4倍TC的时候，卖出加仓TC手
END
IF HOLDING>0 THEN BEGIN
SELL(C<=ENTERPRICE-2*ATR,0,THISCLOSE);//最新价小于开仓价减去2倍的ATR，止损平仓
END
IF HOLDING<0 THEN BEGIN
SELLSHORT(C>=ENTERPRICE+2*ATR,0,THISCLOSE); //最新价大于开仓价加上2倍的ATR，止损平仓
END
上面这个完全跑不通，是不是说明TYPE(1)=1不是（ISLASTBK 上一个交易信号是BK则返回1（Yes），否则返回0（No））
TYPE(1)=3也不是（ISLASTSK 上一个交易信号是SK则返回1（Yes），否则返回0（No））)
加好友 
发短信
Post By：2018/6/3 17:46:25 Post IP：112.28.173.68[只看该作者]
