金字塔落影模型策略源碼(帶移動止損）

作者：金字塔來源：cxh99.com 發布時間：2012年12月30日

相關標簽:移動止損，atr 移動止損指標，移動止損的應用技巧，mt4移動止損怎么設，移動止損多少合適，智能移動止損，移動止損期指，ea如何設置移動止損，止損策略，

模型策略源碼：

HNL:=IF(HIGH>REF(HHV(HIGH,3),1),LOW,0);
L1:=IF(HNL>REF(L,1),REF(L,1),IF(HNL>REF(L,2),REF(L,2),IF(HNL>REF(L,3),REF(L,3),IF(HNL>REF(L,4),REF(L,4),0))));
L2:=IF(L1>REF(L,1),REF(L,1),IF(L1>REF(L,2),REF(L,2),IF(L1>REF(L,3),REF(L,3),IF(L1>REF(L,4),REF(L,4),0))));
L3:=VALUEWHEN(L2>0,L2);
LNH:=IF(LOW<REF(LLV(LOW,3),1),HIGH,666);
H1:=IF(LNH<REF(H,1),REF(H,1),IF(LNH<REF(H,2),REF(H,2),IF(LNH<REF(H,3),REF(H,3),IF(LNH<REF(H,4),REF(H,4),666))));
H2:=IF(H1<REF(H,1),REF(H,1),IF(H1<REF(H,2),REF(H,2),IF(H1<REF(H,3),REF(H,3),IF(H1<REF(H,4),REF(H,4),0))));
H3:=VALUEWHEN(H2>0,H2);
SEL:=VALUEWHEN((CLOSE>H3 and REF(CLOSE,1)<=H3)or(CLOSE<L3 and REF(CLOSE,1)>=L3),IF(CLOSE>H3 and REF(CLOSE,1)<=H3,1,0));
LINE:IF(SEL=1,L3,H3),COLORblue;

//開倉
long:= line<c and time>091400 and time<150500;
if long then
   begin
   sellshort(holding<0,holding,limitr,c);
   buy(holding=0,1,limitr,c);
   end
//程序化交易 www.tumamayizhan.com
short:=line>c and time>091400 and time<150500;
if short then
   begin
   sell(holding>0,holding,limitr,c);
   buyshort(holding=0,1,limitr,c);
   end

sell(time>151200 and holding>0,0,thisclose);
sellshort(time>151200 and holding<0,0,thisclose);

PARTLINE( line<c, line, colorrgb(255,0,0));
PARTLINE( line>c, line, colorrgb(0,255,0));

DRAWNUMBER(ISLASTBAR,LINE,LINE,0,COLORblue);

{別忘了將本網告訴您身邊的朋友，向朋友傳達有用資料，也是一種人情，你朋友會感謝你的。}

源碼解析：

HNL賦值:如果最高價>昨日3日內最高價的最高值,返回最低價,否則返回0
L1賦值:如果HNL>昨日最低價,返回昨日最低價,否則返回如果HNL>2日前的最低價,返回2日前的最低價,否則返回如果HNL>3日前的最低價,返回3日前的最低價,否則返回如果HNL>4日前的最低價,返回4日前的最低價,否則返回0
L2賦值:如果L1>昨日最低價,返回昨日最低價,否則返回如果L1>2日前的最低價,返回2日前的最低價,否則返回如果L1>3日前的最低價,返回3日前的最低價,否則返回如果L1>4日前的最低價,返回4日前的最低價,否則返回0
L3賦值:VALUEWHEN(L2>0,L2)
LNH賦值:如果最低價<昨日3日內最低價的最低值,返回最高價,否則返回666
H1賦值:如果LNH<昨日最高價,返回昨日最高價,否則返回如果LNH<2日前的最高價,返回2日前的最高價,否則返回如果LNH<3日前的最高價,返回3日前的最高價,否則返回如果LNH<4日前的最高價,返回4日前的最高價,否則返回666
H2賦值:如果H1<昨日最高價,返回昨日最高價,否則返回如果H1<2日前的最高價,返回2日前的最高價,否則返回如果H1<3日前的最高價,返回3日前的最高價,否則返回如果H1<4日前的最高價,返回4日前的最高價,否則返回0
H3賦值:VALUEWHEN(H2>0,H2)
SEL賦值:VALUEWHEN((收盤價>H3 AND 昨收<=H3)OR(收盤價<L3 AND 昨收>=L3),如果收盤價>H3ANDREF(收盤價,1)<=H3,返回1,否則返回0)
輸出LINE:如果SEL=1,返回L3,否則返回H3,畫藍色
開倉LONG賦值: LINE<收盤價 AND 時間>091400 AND 時間<150500
邏輯判斷 LONG THEN   BEGIN   SELLSHORT(HOLDING<0,HOLDING,LIMITR,收盤價)
   BUY(HOLDING=0,1,LIMITR,收盤價)
SHORT賦值:LINE>收盤價 AND 時間>091400 AND 時間<150500
邏輯判斷 SHORT THEN   BEGIN   SELL(HOLDING>0,HOLDING,LIMITR,收盤價)
   BUYSHORT(HOLDING=0,1,LIMITR,收盤價)
   ENDSELL(時間>151200 AND HOLDING>0,0,THISCLOSE)
SELLSHORT(時間>151200 AND HOLDING<0,0,THISCLOSE)
PARTLINE( LINE<收盤價, LINE, COLORRGB(255,0,0))
PARTLINE( LINE>收盤價, LINE, COLORRGB(0,255,0))
當滿足條件是否最后一個周期時,在LINE位置書寫數字