求教老师发单 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

如何能做到，开仓是K线走完确认发单，平仓是K线中满足条件平仓？

看 http://www.weistock.com/bbs/dispbbs.asp?boardid=10&Id=9439没有看懂，老师能直接指点一下吗？谢谢

源码如下：

HH1:=IFELSE(H<REF(H,1)&&REF(H,1)<REF(H,2),REF(H,2),0);
LL1:=IFELSE(L>REF(L,1)&&REF(L,1)>REF(L,2),REF(L,2),0);
HH2:=VALUEWHEN(HH1>0,HH1);
LL2:=VALUEWHEN(LL1>0,LL1);
K1:=IFELSE(CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0));
K2:=VALUEWHEN(K1<>0,K1);

//交易条件

if K2<=0 then begin
sellshort(holding<0,holding,marketr);
buy(holding=0,holding,marketr);
end
if K2>0 then begin
sell(holding>0,holding,marketr);
buyshort(holding=0,holding,marketr);

end

VARIABLE:nb=0,mb=0,ns=0,ms=0;
h1:=hhv(h,enterbars+1);
l1:=llv(l,enterbars+1);
zuidab:=h1-enterprice;
zuidas:=enterprice-l1;
if zuidab>=10*mindiff and zuidab<20*mindiff then nb:=1;
if nb=1 and 2*(h1-c)>=zuidab and holding>0 then begin
sell(1,0.75*holding,marketr);
nb:=0;
end
if zuidab>20*mindiff  then mb:=1;
if mb=1 and 5*(h1-c)>=2*zuidab and holding>0 then begin
sell(1,0.75*holding,marketr);
mb:=0;
end

if zuidas>=10*mindiff and zuidas<20*mindiff then ns:=1;
if ns=1 and 2*(c-l1)>=zuidas and holding>0 then begin
sellshort(1,0.75*holding,marketr);
ns:=0;
end
if zuidas>20*mindiff  then ms:=1;
if ms=1 and 5*(c-l1)>=2*zuidas and holding>0 then begin
sellshort(1,0.75*holding,marketr);
ms:=0;
end

if K2<=0 then begin
sellshort(holding<0,holding,marketr);
buy(holding=0,holding,marketr);
end
if K2>0 then begin
sell(holding>0,holding,marketr);
buyshort(holding=0,holding,marketr);
end

http://www.weistock.com/bbs/dispbbs.asp?BoardID=10&ID=151891&skin=0

看这个例子写的很清楚的，您先看下如果还是不会改的话再帮您改写。

这个例子和刚刚的不一样。我修改如下，老师看看可以吗？这样修改的话，是选择，固定时间发单吗？

HH1:=IFELSE(H<REF(H,1)&&REF(H,1)<REF(H,2),REF(H,2),0);

LL1:=IFELSE(L>REF(L,1)&&REF(L,1)>REF(L,2),REF(L,2),0);

HH2:=VALUEWHEN(HH1>0,HH1);

LL2:=VALUEWHEN(LL1>0,LL1);

K1:=IFELSE(CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0));

K2:=VALUEWHEN(K1<>0,K1);

//交易条件

VARIABLE:nb=0,mb=0,ns=0,ms=0;

h1:=hhv(h,enterbars+1);

l1:=llv(l,enterbars+1);

zuidab:=h1-enterprice;

zuidas:=enterprice-l1;

if zuidab>=10*mindiff and zuidab<20*mindiff then nb:=1;

if nb=1 and 2*(h1-c)>=zuidab and holding>0 then begin

sell(1,0.75*holding,marketr);

nb:=0;

end

if zuidab>20*mindiff then mb:=1;

if mb=1 and 5*(h1-c)>=2*zuidab and holding>0 then begin

sell(1,0.75*holding,marketr);

mb:=0;

end

if zuidas>=10*mindiff and zuidas<20*mindiff then ns:=1;

if ns=1 and 2*(c-l1)>=zuidas and holding>0 then begin

sellshort(1,0.75*holding,marketr);

ns:=0;

end

if zuidas>20*mindiff then ms:=1;

if ms=1 and 5*(c-l1)>=2*zuidas and holding>0 then begin

sellshort(1,0.75*holding,marketr);

ms:=0;

end

if ref(K2,1)<=0 then begin

sellshort(holding<0,holding,marketr);

buy(holding=0,holding,marketr);

end

if ref(K2,1)>0 then begin

sell(holding>0,holding,marketr);

buyshort(holding=0,holding,marketr);

end

是的，使用固定时间间隔，对于你希望走完k的条件，直接引用上一根已经走完k的信号。

现在这么改，不止盈了，是怎么回事？就是一下代码不运行了

VARIABLE:nb=0,mb=0,ns=0,ms=0;

h1:=hhv(h,enterbars+1);

l1:=llv(l,enterbars+1);

zuidab:=h1-enterprice;

zuidas:=enterprice-l1;

if zuidab>=10*mindiff and zuidab<20*mindiff then nb:=1;

if nb=1 and 2*(h1-c)>=zuidab and holding>0 then begin

sell(1,0.75*holding,marketr);

nb:=0;

end

if zuidab>20*mindiff then mb:=1;

if mb=1 and 5*(h1-c)>=2*zuidab and holding>0 then begin

sell(1,0.75*holding,marketr);

mb:=0;

end

注释下你的4个if条件分别要表达什么意思

主题：求教老师 发单

主题：求教老师发单