DS:=NEWHBARS(HIGH,1);
DN:=IFELSE(BARPOS=DS,1,DS);
DM:REF(DN,DN)+DN,NODRAW;
HH:=IFELSE(BARPOS<4,CLOSE,REF(HIGH,DM));
KD:=CLOSE>LLV(HH,DS);
KS:=NEWLBARS(LOW,1);
KN:=IFELSE(KS=BARPOS,1,KS);
KM:REF(KN,KN)+KN,NODRAW;
LL:=IFELSE(BARPOS<4,CLOSE,REF(LOW,KM));
KK:=CLOSE<HHV(LL,KS);
ENTERLONG:=KD;
EXITLONG:=KK;
TD:=BARSLAST(ENTERLONG)+1;
TK:=BARSLAST(EXITLONG)+1;
A:=REF(IFELSE(TD<TK,HHV(LL,TD),LLV(HH,TK)),1);
多空线:A,COLORRED,LINETHICK2;
DRAWCOLORLINE(CLOSE<多空线,多空线,COLOR00FF00,COLORRED),LINETHICK2;
CROSS(C,多空线),BPK;
CROSSDOWN(C,多空线),SPK;
AUTOFILTER;
文华公式能否改为金字塔公式可用，谢谢
以下代码适用于图表程序化。
DS:=NEWHBARS(HIGH,1);
DN:=IF(BARPOS=DS,1,DS);
DM:REF(DN,DN)+DN,NODRAW;
HH:=IF(BARPOS<4,CLOSE,REF(HIGH,DM));
KD:=CLOSE>LLV(HH,DS);
KS:=NEWLBARS(LOW,1);
KN:=IF(KS=BARPOS,1,KS);
KM:REF(KN,KN)+KN,NODRAW;
LL:=IF(BARPOS<4,CLOSE,REF(LOW,KM));
KK:=CLOSE<HHV(LL,KS);
开多:buy(holding=0 and kd,1,market);
//ENTERLONG:=KD;
平多:sell(holding>0 and kk,holding,market);
//EXITLONG:=KK;
TD:=ENTERBARS+1;
TK:=EXITBARS+1;
A:=REF(IF(TD<TK,HHV(LL,TD),LLV(HH,TK)),1);
多空线:A,COLORRED,LINETHICK2;
//DRAWCOLORLINE(CLOSE<多空线,多空线,COLOR00FF00,COLORRED),LINETHICK2;
//上面这个函数无法直接转换，需要用2个线的变色来间接实现
green:if(CLOSE<多空线,多空线,drawnull),colorgreen;
red:if(not(CLOSE<多空线),多空线,drawnull),colorred ;
if CROSS(C,多空线) then
begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);
end
if CROSS(多空线,c) then
begin
sell(holding>0,holding,market);
buyshort(holding=0,1,market);
end