公式模型编写问题提交-[求助]这个公式写出来错误在哪里，请指教金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [求助]这个公式写出来错误在哪里，请指教  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=52018)

--  作者：Leslie
--  发布时间：2013/5/14 21:06:57
--  [求助]这个公式写出来错误在哪里，请指教
LOWV:=LLV(LOW,N);
HIGHV:=HHV(HIGH,N);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,M);
K:=EMA(RSV,M);
D:=MA(K,M);
A1:=K<=20 AND D<=20 AND CROSS(K,D);
B1:=K>=70 AND D>=70 AND CROSS(D,K);
D1:=K>=70 AND D>=70 AND CROSS(D,K);
D2:=K<=30 AND D<=30 AND CROSS(K,D);
IF HOLDING=0 THEN BEGIN
   IF A1 THEN BEGIN
   buy(A1,1);
   SELL(D1,0,CLOSE);
   END
   IF B1 THEN BEGIN
   BUYSHORT(B1,1);
   SELLSHORT(D2,0,CLOSE);
   END
END

--  作者：kmyym
--  发布时间：2013/5/14 22:47:07
--

LOWV:=LLV(LOW,N);
HIGHV:=HHV(HIGH,N);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,M);
K:=EMA(RSV,M);
D:=MA(K,M);
A1:=K<=20 AND D<=20 AND CROSS(K,D);
B1:=K>=70 AND D>=70 AND CROSS(D,K);
D1:=K>=70 AND D>=70 AND CROSS(D,K);
D2:=K<=30 AND D<=30 AND CROSS(K,D);
IF HOLDING=0 THEN BEGIN
IF A1 THEN BEGIN
buy(1,1);
END
IF HOLDING>0 THEN BEGIN
SELL(D1,0,CLOSE);
END
IF HOLDING=0 THEN BEGIN
IF B1 THEN BEGIN
BUYSHORT(1,1);
END
IF HOLDING<0 THEN BEGIN
SELLSHORT(D2,0,CLOSE);
END
END
END

--  作者：RogarZ
--  发布时间：2013/5/15 0:59:24
--

看 BUY sell 交易函数的说明