共12 条记录, 每页显示 10 条, 页签: [1] [2]

标题：帮忙看看这个模型

1楼

大灰狼 发表于：2012/9/12 14:35:07

A:=HHV(H,5);
B:=LLV(L,5);
MA1:=MA(CLOSE,5);
KD:=CROSS(CLOSE,REF(A,1));
KK:=CROSS(REF(B,1),CLOSE);
IF(KD) THEN
BEGIN
if HOLDING = 0 then
BEGIN
buy(1,3,MARKET);
MSGOUT(1,'开多');
end
if holding < 0 THEN
begin
sellshort(1,HOLDING,MARKET);
buy(1,3,MARKET);
MSGOUT(1,'平空开多');
end
End

if (KK) then
begin
if HOLDING = 0 then
begin
buyshort(1,3,MARKET);
MSGOUT(1,'开空');
end;
if holding > 0 THEN
begin
SELL(1,HOLDING,MARKET);
buyshort(1,3,MARKET);
MSGOUT(1,'平多开空');
end
end;

在if1209 品种上，直接单步调试，上穿下穿返回的变量都为True

2楼

大灰狼 发表于：2012/9/12 14:39:15

此主题相关图片如下：qq截图20120912143805.jpg

3楼

jinzhe 发表于：2012/9/12 14:57:07

这个是有何思路？

4楼

汪新博 发表于：2012/9/12 15:00:51

思路：穿越前期高点，做多（有多仓不加仓，有空仓，先平空，再做多），反之同理

5楼

汪新博 发表于：2012/9/12 15:03:18

A:=HHV(H,5); //5周期高点
B:=LLV(L,5); //5周期低点
MA1:=MA(CLOSE,5);//没用
KD:=CROSS(CLOSE,REF(A,1));//收盘价（最新价）向上穿越5周期高点
KK:=CROSS(REF(B,1),CLOSE);//收盘价（最新价）向下穿越5周期低点
IF(KD=1) THEN
BEGIN
if HOLDING = 0 then
BEGIN
   buy(1,3,MARKET);
   MSGOUT(1,'开多');
end
if holding < 0 THEN
begin
   sellshort(1,HOLDING,MARKET);
   buy(1,3,MARKET);
   MSGOUT(1,'平空开多');
end
End

if (KK=1) then
begin
if HOLDING = 0 then
begin
  buyshort(1,3,MARKET);
  MSGOUT(1,'开空');
end;
if holding > 0 THEN
begin
  SELL(1,HOLDING,MARKET);
  buyshort(1,3,MARKET);
  MSGOUT(1,'平多开空');
end
end;

6楼

汪新博 发表于：2012/9/12 15:12:39

在线等

7楼

汪新博 发表于：2012/9/12 15:12:50

在线等

8楼

jinzhe 发表于：2012/9/12 15:16:31

穿越前期高点，做多（有多仓不加仓，有空仓，先平空，再做多），反之同理

基本思路是这样的，把条件填进去就行了

if 穿越前期高点 then begin

sellshort(holding<0,0,market);

buy(holding=0,1,market);

end

if 反向操作 then begin

sell(holding>0,0,market);

buyshort(holding=0,1,market);

end

9楼

汪新博 发表于：2012/9/12 15:19:36

那我的写法有问题没

10楼

王锋发表于：2012/9/12 15:36:33

没有找到具体哪根K线有问题的，经过一些修改，让公式输出划线，其实你自己就很容易通过十字光标的移动查出问题来的

A:HHV(H,5); //5周期高点
B:LLV(L,5); //5周期低点
MA1:=MA(CLOSE,5);//没用
KD:CROSS(CLOSE,REF(A,1)),NODRAW;//收盘价（最新价）向上穿越5周期高点
KK:CROSS(REF(B,1),CLOSE),NODRAW;//收盘价（最新价）向下穿越5周期低点
IF(KD=1) THEN
BEGIN
if HOLDING = 0 then
BEGIN
   buy(1,3,MARKET);
   MSGOUT(1,'开多');
end
if holding < 0 THEN
begin
   sellshort(1,HOLDING,MARKET);
   buy(1,3,MARKET);
   MSGOUT(1,'平空开多');
end
End

if (KK=1) then
begin
if HOLDING = 0 then
begin
buyshort(1,3,MARKET);
MSGOUT(1,'开空');
end;
if holding > 0 THEN
begin
SELL(1,HOLDING,MARKET);
buyshort(1,3,MARKET);
MSGOUT(1,'平多开空');
end
end;

共12 条记录, 每页显示 10 条, 页签: [1] [2]