如何利用 for 循环执行一共策略多次

600317

您好，在 for 循环 怎么运行一个策略多次，因为每次循环，同一个策略里得参数不同。

资深技术02

交易语句后面加这个函数就行了，这个只能后台使用图表不支持的

600317

//开多参数循环
VARIABLE:KZYDD_ARRAY[2]:=0;
KZYDD_ARRAY[1]:=0.008;
KZYDD_ARRAY[2]:=0.001;

count1 := 0;
数量:=1;

FOR index1=1 TO UBOUND(KZYDD_ARRAY) DO
BEGIN
        val1:=KZYDD_ARRAY[index1];
        KZYDD := val1;
        count1:=count1+1;

        IF 开空条件 AND HOLDING=0 THEN BEGIN
                开空:BUYSHORT(1 ,1,NEXTOPEN);
        END

        //跌破持仓价格直接止损
        IF  C  > (AVGENTERPRICE+ AVGENTERPRICE * KZYDD) and HOLDING < 0 THEN BEGIN
                               空止损:SELLSHORT(HOLDING < 0 ,1,NEXTOPEN);
        END               

        IF 平空条件 and HOLDING < 0 THEN BEGIN
                               平空:SELLSHORT(HOLDING < 0 ,1,NEXTOPEN);
        END       

        持仓 :HOLDING,NODRAW;
        交易次数:TOTALTRADE;
        收益率:RETURNRATE;
       
        DEBUGFILE('c:\stock\2023.log', ' 第'+NuMTOSTR(count1,0) + '次 =%.4f',RETURNRATE);
END


上面这样得循环。 循环2次的 收益率:RETURNRATE; 怎么都是一样的呢。

资深技术02

图表不支持循环里面的，必须要加allowrepeat函数才行，这个函数只能在后台使用
图表策略不支持的

600317

资深技术02 发表于 2023-9-4 09:12
图表不支持循环里面的，必须要加allowrepeat函数才行，这个函数只能在后台使用
图表策略不支持的

改成了后台的也不行呢。

资深技术02

后台你加了那个函数可以重复报单的啊
收益率:RETURNRATE;这个是图表收益率

后台没有收益率这个函数的

600317

600317 发表于 2023-9-4 09:24
改成了后台的也不行呢。

VARIABLE:KZYDD:= 0；//空止盈低点

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=2*(DIF-DEA);

开空条件：= CROSS(DIF,DEA);
平空条件：= CROSS(DEA,DIF);

//开多参数循环
VARIABLE:KZYDD_ARRAY[2]:=0;
KZYDD_ARRAY[1]:=0.002;//只能调用一次
KZYDD_ARRAY[2]:=0.1;//0.1

日期:=DATE + 19000000;
时间:=time;
time1:=NUMTOSTR(时间,0);

count1 := 0;
数量:=1;

if (ISLASTBAR) >0 THEN begin
FOR index1=1 TO UBOUND(KZYDD_ARRAY) DO

//FOR NUM=1 TO 2 DO
BEGIN
        val1:=KZYDD_ARRAY[index1];
        KZYDD := val1;
        count1:=count1+1;
//////----------------------------------------------
        IF 开空条件 AND THOLDING=0 THEN BEGIN
                开空:TBUYSHORT(1 ,1,MKT), ALLOWREPEAT;
               
        END
       
        //跌破持仓价格直接止损
        IF  C  > (TAVGENTERPRICE+ TAVGENTERPRICE * KZYDD) and THOLDING < 0 THEN BEGIN
                               空止损:TSELLSHORT(THOLDING < 0 ,1,MKT), ALLOWREPEAT;
        END               

        IF 平空条件 and THOLDING < 0 THEN BEGIN
                               平空:TSELLSHORT(THOLDING < 0 ,1,MKT), ALLOWREPEAT;
        END       

        持仓:THOLDING,NODRAW;
       
        //if  NUMTOSTR(日期,0) ='20230901' and time1 ='190000' THEN BEGIN
                DEBUGFILE('c:\stock\2023-1.log', '第' + NUMTOSTR(count1,0) + '次 '+ NUMTOSTR(KZYDD,4)+ '|'+ NUMTOSTR(日期,0) +' =%.4f',TASSET);
        //END;
       
        //交易次数:TOTALTRADE;
        胜率:TPERCENTWIN;

END

END
                       
       

资深技术02

电话我把
021-20339087