以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  求指标转成自动买卖  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=143355)
--  作者：zurich
--  发布时间：2016/11/24 11:32:12
--  求指标转成自动买卖
F:=2/(1+P);
S:=2/(Q+1);
J:DMA(CLOSE,POW(ABS(CLOSE-REF(CLOSE,N))/SUM(ABS(CLOSE-REF(CLOSE,1)),N)*(F-S)+S,2)),LINETHICK0;
B:=J-REF(J,1);
ST:=STD(B,N)*K/100;
DN:=BARSLAST(B<0);
UN:=BARSLAST(B>0);
T:=IF(J-REF(J,DN)>ST,2,IF(REF(J,UN)-J>ST,1,0));
PARTLINE(T=2,J,COLORred,2,0),COLORblue,LINETHICK1;//多单开仓
PARTLINE(T=1,J,COLOrGREEN,2,0),COLOryellow,LINETHICK1;//空单开仓
PARTLINE(T=0,J,COLOrBLUE,1,0),COLOrgreen;//震荡
图片点击可在新窗口打开查看此主题相关图片如下：看看.png
图片点击可在新窗口打开查看
R:=ISLASTBAR();
--  作者：jinzhe
--  发布时间：2016/11/24 13:04:43
--  

F:=2/(1+P);
S:=2/(Q+1);
J:DMA(CLOSE,POW(ABS(CLOSE-REF(CLOSE,N))/SUM(ABS(CLOSE-REF(CLOSE,1)),N)*(F-S)+S,2)),LINETHICK0;
B:=J-REF(J,1);
ST:=STD(B,N)*K/100;
DN:=BARSLAST(B<0);
UN:=BARSLAST(B>0);
T:=IF(J-REF(J,DN)>ST,2,IF(REF(J,UN)-J>ST,1,0));
PARTLINE(T=2,J,COLORred,2,0),COLORblue,LINETHICK1;//多单开仓
PARTLINE(T=1,J,COLOrGREEN,2,0),COLOryellow,LINETHICK1;//空单开仓
PARTLINE(T=0,J,COLOrBLUE,1,0),COLOrgreen;//震荡
if t=2 then begin
 sellshort(1,0,market);
 buy(holding=0,1,market);
end

if t=1 then begin
 sell(1,0,market);
 buyshort(holding=0,1,market);
end