全局变量使用问题 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

RUNMODE:0;

WARNING_DISABLE:4;

//设置一个等于空值的变量:

NUL:=BARSLAST(CLOSE<-99999999);

//15MIN均线:

REFM5:=STKINDI(STKLABEL,'MYMA.EMA5',0,3,-1);

M5:=(2*C+4*REFM5)/6,COLORRED;

REFM12:=STKINDI(STKLABEL,'MYMA.EMA12',0,3,-1);

M12:=(2*C+11*REFM12)/13,COLORYELLOW;

REFM20:=STKINDI(STKLABEL,'MYMA.EMA20',0,3,-1);

M20:=(2*C+19*REFM20)/21,COLORGREEN;

昨20.12.5:=(REF(M12,1)>REF(M5,1) AND REF(M20,1)>REF(M12,1));

昨12.20.5:=(REF(M20,1)>REF(M5,1) AND REF(M20,1)<REF(M12,1));

前12.20.5昨12.5.20:=(REF(M20,2)>REF(M5,2) AND REF(M20,2)<REF(M12,2) AND REF(M20,1)<REF(M5,1) AND REF(M20,1)<REF(M12,1));

昨空头排列:=昨20.12.5 OR 昨12.20.5 OR 前12.20.5昨12.5.20;

昨5.12.20:=(REF(M12,1)<REF(M5,1) AND REF(M20,1)<REF(M12,1));

昨12.5.20:=(REF(M20,1)<REF(M5,1) AND REF(M20,1)>REF(M12,1));

前5.20.12昨20.5.12:=(REF(M20,2)<REF(M5,2) AND REF(M20,2)>REF(M12,2) AND REF(M20,1)>REF(M5,1) AND REF(M20,1)>REF(M12,1));

昨多头排列:=昨5.12.20 OR 昨12.5.20 OR 前5.20.12昨20.5.12;

5叉12:= CROSS(M5,M12);

12叉5:= CROSS(M12,M5);

多头排列:=M5>M12 AND M12>M20 AND M5>REF(M5,1);

空头排列:=M5<M12 AND M12<M20 AND M5<REF(M5,1);

转上叉位:=(ROUND((66*REFM12-52*REFM5)/14/MINDIFF))*MINDIFF+MINDIFF;

转下叉位:=(ROUND((66*REFM12-52*REFM5)/14/MINDIFF))*MINDIFF-MINDIFF;

持:holding,nodraw;

品种名称:=STKNAME;

品种代码:=STKLABEL;

日期:=CURRENTDATE+1000000;

名日上叉时:=STRCAT(品种名称,STRCAT(日期,'C转上叉时间'));

名日上叉买价:=STRCAT(品种名称,STRCAT(日期,'C转上叉买入价'));//品种名称&日期&'C转上叉买入价';

名日下叉时:=STRCAT(品种名称,STRCAT(日期,'C转下叉时间'));//品种名称&日期&'C转下叉时间';

名日下叉卖价:=STRCAT(品种名称,STRCAT(日期,'C转下叉卖出价'));//品种名称&日期&'C转下叉卖出价';

C上穿转上叉位:=CROSS(CLOSE,转上叉位);

IF REFM5<REFM12 THEN BEGIN

IF C上穿转上叉位 THEN

BEGIN

EXTGBDATASET(名日上叉时,CURRENTTIME);

C转上叉时间:=EXTGBDATA(名日上叉时);

END

IF CURRENTTIME-C转上叉时间>60 OR TIME-CURRENTTIME<60 THEN

BEGIN

BUY(CLOSE>转上叉位,3,LIMITR,CLOSE);

EXTGBDATASET(名日上叉买价,CLOSE);

C转上叉买入价:EXTGBDATA(名日上叉买价),COLORRED;

END

C下穿转下叉位:=CROSS(转下叉位,CLOSE) ;

IF REFM5>REFM12 THEN BEGIN

IF C下穿转下叉位 THEN

BEGIN

EXTGBDATASET(名日下叉时,CURRENTTIME);

C转下叉时间:=EXTGBDATA(名日下叉时);

END

IF CURRENTTIME-C转下叉时间>60 OR TIME-CURRENTTIME<60 THEN

BEGIN

SELLSHORT(CLOSE<转下叉位,5,LIMITR,CLOSE);

EXTGBDATASET(名日下叉卖价,CLOSE);

C转下叉卖出价:EXTGBDATA(名日下叉卖价),COLORCYAN;

END

买开价:IF(HOLDING>0,C转上叉买入价,NUL),COLORRED;

卖开价:IF(HOLDING<0,C转下叉卖出价,NUL),COLORCYAN;

这个语句好像都没起作用呢?

EXTGBDATASET(名日上叉时,CURRENTTIME);
图片点击可在新窗口打开查看

此主题相关图片如下：没起作用.png

主题：全局变量使用问题