主题：图表程式化

可以，需要使用框架，框架制作流程参考下面链接：

http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=26

 

未定义变量N,K1，K2

交易策略最好是自己写的，不然交易出了问题那么你只能两眼一抹黑了

再次强调走完k线模式不是用代码写出来的，是在图表交易界面上进行设置的

 

input:n(30,1,300,1);
input:k1(19,0,100,1);
input:k2(-10,-100,0,1);

BU:=BARSLAST(CLOSE=HHV(CLOSE,N));

SE:=BARSLAST(CLOSE=LLV(CLOSE,N));
VAR1:=DATE<=20131010;
KK1:=SE;
KK2:=BU;
LM1:=SE*VAR1;
LM2:=BU*VAR1;
OK:=KK1>KK2 AND LM1>LM2;
OK1:=KK1>KK2 AND LM1<LM2;

NOK:=KK2>KK1 AND LM2>LM1;
NOK1:=KK2>KK1 AND LM2<LM1;
STICKLINE(OK1,CLOSE,OPEN,8,0),COLORFF00FF;

STICKLINE(OK1,HIGH,LOW,0,0),COLORFF00FF;
STICKLINE(OK,CLOSE,OPEN,8,0),COLORRED;
STICKLINE(OK,HIGH,LOW,0,0),COLORRED;
DRAWICON(OK AND NOT(REF(OK,1)),LOW-0.02,4);
DRAWICON(NOK AND NOT(REF(NOK,1)),HIGH+0.06,5);

DRAWTEXT(OK AND NOT(REF(OK,1)),LOW-0.02,' 开多');
DRAWTEXT(NOK AND NOT(REF(NOK,1)),HIGH+0.06,' 开空');
STICKLINE(NOK,CLOSE,OPEN,8,0),COLORFF0000;
STICKLINE(NOK,HIGH,LOW,0,0),COLORFF0000;
STICKLINE(NOK1,CLOSE,OPEN,8,0),COLORBLUE;
STICKLINE(NOK1,HIGH,LOW,0,0),COLORBLUE;
M1:=REF(MA(CLOSE,3),3);
M2:REF(MA(CLOSE,25),5),COLORBLUE;
止损止赢:IF(M1>M2,M2,M1),COLORRED;
PARTLINE(止损止赢>REF(止损止赢,1) AND 止损止赢=M2,止损止赢),LINETHICK2,COLORRED;

 

BK:=OK AND NOT(REF(OK,1));
SK:=NOK AND NOT(REF(NOK,1));

 

 

BIAS1 := (HIGH-REF(MA(CLOSE,25),5))/REF(MA(CLOSE,25),5)*100;
BIAS2 := (LOW-REF(MA(CLOSE,25),5))/REF(MA(CLOSE,25),5)*100;

BKT:=BARSLAST(BK);
SKT:=BARSLAST(SK);

SPP:=BKT<SKT AND BIAS1>=K1 AND REF(BIAS1,1)<K1;
BPP:=SKT<BKT AND BIAS2<=K2 AND REF(BIAS2,1)>K2;

SP:=SPP AND COUNT(SPP,BKT)=1;
BP:=BPP AND COUNT(BPP,SKT)=1;

if OK AND NOT(REF(OK,1)) then begin
 sellshort(1,0,market);
 buy(holding=0,1,market);
end

if NOK AND NOT(REF(NOK,1)) then begin
 sell(1,0,market);
 buyshort(holding=0,1,market);
end

如果有不满足的地方，请指出

没有体现出来。。。交易手数是写在代码里面的，在最后那4个下单函数。。。

最后添加的那几句改成 这样

m:=1;

if OK AND NOT(REF(OK,1)) then begin
 sellshort(1,0,market);
 buy(holding=0,m,market);
end

if NOK AND NOT(REF(NOK,1)) then begin
 sell(1,0,market);
 buyshort(holding=0,m,market);
end

修改m:=1;中1

1表示下1手