[原創(chuàng)]老師幫看下，這樣寫圖表程序?qū)幔俊金字塔]

A1:=TIME>=090500&&TIME<101000;
A2:=TIME>=103500&&TIME<112500;
B1:=TIME>=133500&&TIME<145500;
B2:=TIME>=210500&&TIME<232500;
TT:=A1 OR A2 OR B1 OR B2;
//中間條件
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
C1:=BARSLAST(CROSS(DIFF,DEA))>=3;//BARSLAST函數(shù)過濾，避免短時(shí)間段內(nèi)頻繁交易
C2:=BARSLAST(CROSS(DEA,DIFF))>=3;
//交易條件
開多:=TT AND CROSS(DIFF,DEA) AND ref(C1,1);
開空:=TT AND CROSS(DEA,DIFF) AND ref(C2,1);
//交易系統(tǒng)
BUY(開多 and  HOLDING=0,1,market);//交易系統(tǒng)之開多操作
BUYSHORT(開空 and  HOLDING=0,1,market); //交易系統(tǒng)之開空操作

//固定止損部分************************
//多頭止盈
IF C-AVGENTERPRICE>8*MINDIFF THEN BEGIN
SELL(1,HOLDING,MARKET);
END
//多頭止損
IF AVGENTERPRICE-C>4*MINDIFF THEN BEGIN
SELL(1,HOLDING,MARKET);
END
//空頭止盈
IF AVGENTERPRICE-C>8*MINDIFF THEN BEGIN
SELLSHORT(1,HOLDING,MARKET);
END
//空頭止損
IF C-AVGENTERPRICE>4*MINDIFF THEN BEGIN
SELLSHORT(1,HOLDING,MARKET);
END
//收盤前清倉**********************
p2:=if(islastbar,dynainfo(207),time);
if p2>=145800 then
begin
sellshort(holding<0,0,limitr,CLOSE);
sell(holding>0,0,limitr,CLOSE);
end
//其他
r1:=barslast(date<>ref(date,1));
日