zdiff:=stkindi('','macd.diff',0,7,-1);
zmacd1:=stkindi('','macd.macd1',0,7,-1);
zmacd2:=stkindi('','macd.macd1',0,7,-2);
15ma10:=stkindi('','ma.ma1',0,3,-1);
15ma20:=stkindi('','ma.ma2',0,3,-1);
15ma40:=stkindi('','ma.ma3',0,3,-1);
15ma60:=stkindi('','ma.ma4',0,3,-1);
这些东西在后台引用，能正常起作用吗
zdiff:=stkindi('','macd.diff',0,7,-1);
BIAS1:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
15ma10:=stkindi('','ma.ma1',0,3,-1);
15ma20:=stkindi('','ma.ma2',0,3,-1);
15ma40:=stkindi('','ma.ma3',0,3,-1);
15ma60:=stkindi('','ma.ma4',0,3,-1);
15jxh:=15ma20>15ma40 and 15ma40>15ma60 and 15ma10>15ma20;
15jxl:=15ma20<15ma40 and 15ma40<15ma60 and 15ma10<15ma20;
rma20:=stkindi('','ma.ma2',0,6,-1);
rma40:=stkindi('','ma.ma3',0,6,-1);
rma60:=stkindi('','ma.ma4',0,6,-1);
rjxh:=rma20>rma40 and rma40>rma60;
rjxl:=rma20<rma40 and rma40<rma60;
ma40:=ma(c,40);
ma60:=ma(c,60);
H10:=REF(HHV(H,10),1);
L10:=REF(LLV(L,10),1);
duo: zdiff>0 and rjxh and 15jxh and bias1<=w and c>h10 and c>o ;
kong:zdiff<0 and rjxl and 15jxl and bias1>=-w and c<l10 and c<o;
手数:CEILING(5000/15ATR/MULTIPLIER/4),NODRAW;
if duo and extgbdata(stklabel+'nn1')=0 then begin
tbuy(1,手数,mkt);
buy(1,手数,marketr);
extgbdataset(stklabel+'nn1',1);
end
DEBUGFILE('D:\调试日志.txt',stklabel+'nn1%.2f',extgbdata(stklabel+'nn1'));
s:=ref(15atr,tenterbars);
if kong and extgbdata(stklabel+'mm1')=0 then begin
tbuyshort(1,手数,mkt);
buyshort(1,手数,marketr);
extgbdataset(stklabel+'mm1',1);
end
DEBUGFILE('D:\调试日志.txt',stklabel+'mm1%.2f',extgbdata(stklabel+'mm1'));
s:=ref(15atr,tenterbars);
if l<=tENTERPRICE-z*s and tENTERBARS>0 and extgbdata(stklabel+'nn1')=1 and tbuyholding(1)>0 then begin
tsell(1,holding,mkt);
extgbdataset(stklabel+'nn1',0);
end
DEBUGFILE('D:\调试日志.txt',stklabel+'nn1%.2f',extgbdata(stklabel+'nn1'));
if h>=tENTERPRICE+z*s and tENTERBARS>0 and extgbdata(stklabel+'mm1')=1 and tsellholding(1)>0 then BEGIN
tsellshort(1,holding,mkt);
extgbdataset(stklabel+'mm1',0);
end
DEBUGFILE('D:\调试日志.txt',stklabel+'mm1%.2f',extgbdata(stklabel+'mm1'));
if hhv(h,tenterbars+1)>tENTERPRICE+k*s and l<ma60 and tENTERBARS>0 and extgbdata(stklabel+'nn1')=1 and tbuyholding(1)>0 then begin
tsell(1,holding,mkt);
end
DEBUGFILE('D:\调试日志.txt',stklabel+'nn1%.2f',extgbdata(stklabel+'nn1'));
if llv(l,tenterbars+1)<tENTERPRICE-k*s and h>ma60 and tENTERBARS>0 and extgbdata(stklabel+'mm1')=1 and tsellholding(1)>0 then BEGIN
tsellshort(1,holding,mkt);
end
DEBUGFILE('D:\调试日志.txt',stklabel+'mm1%.2f',extgbdata(stklabel+'mm1'));
if ma40<ma60 and extgbdata(stklabel+'nn1')>0 and holding=0 then begin extgbdataset(stklabel+'nn1',0);
end
DEBUGFILE('D:\调试日志.txt',stklabel+'nn1%.2f',extgbdata(stklabel+'nn1'));
if ma40>ma60 and extgbdata(stklabel+'mm1')>0 and holding=0 then begin extgbdataset(stklabel+'mm1',0);
end
DEBUGFILE('D:\调试日志.txt',stklabel+'mm1%.2f',extgbdata(stklabel+'mm1'));