以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  求老师把指标信号改成自动化反手交易  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=141836)
--  作者：zurich
--  发布时间：2016/10/26 13:03:01
--  求老师把指标信号改成自动化反手交易

指标源码如下：

NN:=DATE<>REF(DATE,1);
BARNUMBER1:=BARSLAST(NN)+1;
BARNUMBER2:=50;
MAH1:=WMA(H,BARNUMBER1),LINETHICK2,COLORGREEN;
MAL1:=WMA(L,BARNUMBER1),LINETHICK2,COLORRED;
MAH2:WMA(H,BARNUMBER2),LINETHICK2,COLORMAGENTA;
MAL2:WMA(L,BARNUMBER2),LINETHICK2,COLORMAGENTA;


IF(MAH2>=REF(MAH2,1),MAH2,DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(MAL2>=REF(MAL2,1),MAL2,DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(MAH2<REF(MAH2,1),MAH2,DRAWNULL),COLORCYAN,LINETHICK2;
IF(MAL2<REF(MAL2,1),MAL2,DRAWNULL),COLORCYAN,LINETHICK2;

DRAWTEXT(MAH2>=REF(MAH2,1) AND MAL2>=REF(MAL2,1) AND (REF(MAH2,1)<=REF(MAH2,2) OR REF(MAL2,1)<=REF(MAL2,2)),L*0.999,\'短多B\'),COLORRED;

DRAWTEXT(MAH2<=REF(MAH2,1) AND MAL2<=REF(MAL2,1) AND (REF(MAH2,1)>=REF(MAH2,2) OR REF(MAL2,1)>=REF(MAL2,2)),H*1.001,\'短空S\'),COLORGREEN;
--  作者：jinzhe
--  发布时间：2016/10/26 13:11:17
--  

NN:=DATE<>REF(DATE,1);
BARNUMBER1:=BARSLAST(NN)+1;
BARNUMBER2:=50;
MAH1:=WMA(H,BARNUMBER1),LINETHICK2,COLORGREEN;
MAL1:=WMA(L,BARNUMBER1),LINETHICK2,COLORRED;
MAH2:WMA(H,BARNUMBER2),LINETHICK2,COLORMAGENTA;
MAL2:WMA(L,BARNUMBER2),LINETHICK2,COLORMAGENTA;


IF(MAH2>=REF(MAH2,1),MAH2,DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(MAL2>=REF(MAL2,1),MAL2,DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(MAH2<REF(MAH2,1),MAH2,DRAWNULL),COLORCYAN,LINETHICK2;
IF(MAL2<REF(MAL2,1),MAL2,DRAWNULL),COLORCYAN,LINETHICK2;

DRAWTEXT(MAH2>=REF(MAH2,1) AND MAL2>=REF(MAL2,1) AND (REF(MAH2,1)<=REF(MAH2,2) OR REF(MAL2,1)<=REF(MAL2,2)),L*0.999,\'短多B\'),COLORRED;

DRAWTEXT(MAH2<=REF(MAH2,1) AND MAL2<=REF(MAL2,1) AND (REF(MAH2,1)>=REF(MAH2,2) OR REF(MAL2,1)>=REF(MAL2,2)),H*1.001,\'短空S\'),COLORGREEN;

if MAH2>=REF(MAH2,1) AND MAL2>=REF(MAL2,1) AND (REF(MAH2,1)<=REF(MAH2,2) OR REF(MAL2,1)<=REF(MAL2,2)) then begin
 sellshort(1,0,market);
 buy(holding=0,1,market);
end

if MAH2<=REF(MAH2,1) AND MAL2<=REF(MAL2,1) AND (REF(MAH2,1)>=REF(MAH2,2) OR REF(MAL2,1)>=REF(MAL2,2)) then begin
 sell(1,0,market);
 buyshort(holding=0,1,market);
end