老師，

     你好，能否幫忙看看我這段代碼錯(cuò)誤在哪里？怎么修改都沒(méi)有信號(hào)發(fā)生?謝謝。

variable:Rsum=0;  //Rsum紅柱總和
variable:Rlong=0;  //Rlong最長(zhǎng)紅柱
variable:Rhigh=0;   //Rhigh紅柱區(qū)域最低價(jià)

//MACD指標(biāo)

P:=26;
S:=12;
M:=9;

DIFF := EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  := EMA(DIFF,M);
macd := 2*(DIFF-DEA);

Rnum:=barslast(ref(macd<0,1) and macd>0);//綠轉(zhuǎn)紅
Rbnum:=barslast(ref(macd>0,1) and macd<0);//紅轉(zhuǎn)綠

if ref(macd,1)<0 and macd>0 then
begin
 Rsum:=0;    //紅柱開(kāi)始，清0
 Rlong:=0;    //紅柱開(kāi)始，清0
 Rhigh:=HIGH;  //紅柱開(kāi)始，初始化
end

if macd>0 then
begin
 Rsum:=Rsum+macd;                                    //累加
 if abs(macd)<abs(Rlong) then Rlong:=macd；//如果紅柱更長(zhǎng)，則記錄
 if HIGH>Rhigh then Rhigh:=HIGH;                         //如果價(jià)格更高，則記錄
end

rnumb:=max(Rnum,Rbnum)+1;
rcon1:=abs(Rsum)<abs(ref(Rsum,rnumb));//面積小于前一波--面積沒(méi)創(chuàng)新低
rcon2:=abs(Rlong)<abs(ref(Rlong,rnumb));//柱子長(zhǎng)度小于前一波----長(zhǎng)度沒(méi)創(chuàng)新低
rcon3:=Rhigh<ref(Rhigh,rnumb);//價(jià)格小于前一波-----價(jià)格創(chuàng)新低

//當(dāng)紅柱開(kāi)始收縮時(shí)（牛市即將結(jié)束，可能反轉(zhuǎn)向上（或高位盤(pán)整）），如果出現(xiàn)低背離，則少量建倉(cāng)

if all(macd>0,3) and ref(macd,1)>macd and ref(macd,1)>ref(macd,2) then
begin
 if rcon1 and rcon2 and rcon3 then buyshort(1,1,market);//低背離，面積沒(méi)創(chuàng)新低,長(zhǎng)度沒(méi)創(chuàng)新低,價(jià)格創(chuàng)新低
end

//紅柱消失、綠柱開(kāi)始放出時(shí)（上漲行情（或高位盤(pán)整）已經(jīng)結(jié)束），如果出現(xiàn)低背離，則加倉(cāng)
if ref(macd>0,1) and macd<0 then
begin
    if rcon1 and rcon2 and rcon3  then 加:buyshort(1,1,market);//低背離，面積沒(méi)創(chuàng)新低,長(zhǎng)度沒(méi)創(chuàng)新低,價(jià)格創(chuàng)新低
end

if abs(macd)<abs(Rlong) then Rlong:=macd；//如果紅柱更長(zhǎng)，則記錄
這一句看你的意思應(yīng)該是

if abs(macd)>abs(Rlong) then Rlong:=macd；//如果紅柱更長(zhǎng)，則記錄

謝謝老師，