以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  策略编写求助区  (http://222.73.7.161/bbs/list.asp?boardid=11)
----  编写求助  (http://222.73.7.161/bbs/dispbbs.asp?boardid=11&id=183891)
--  作者：an8885
--  发布时间：2021/1/13 13:58:07
--  编写求助


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;

文华公式能否改为金字塔公式可用，谢谢
--  作者：FireScript
--  发布时间：2021/3/1 16:11:39
--  
 以下代码适用于图表程序化。


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