序列变量异常行为(逐K模式下),是什么原因?

hanzi-999

你好! 我测试序列变量的REF能否正常获取,结果发现异常行为(由日志打印数值得出是异常).
我的代码如下:
// version: 0.1

RUNMODE : 0; //指定逐K模式

DBG_PATH := 'D:\'; //调试输出文件路径
DBG_LOG_FILE := DBG_PATH & 'debug_Variable.txt'; //调试输出文件名

VARIABLE : UNINIT_VAL = -99999;
IF BARPOS=1 THEN
BEGIN
        EXTGBDATASET(STKLABEL&'ccd', UNINIT_VAL); //第一根K初始化全局变量值
END

//IF NOT(ISLASTBAR) OR BARPOS < 100 THEN EXIT;


//////////////////////////////////////////////////////////////////
//                  调试输出最新K时间戳相关
//////////////////////////////////////////////////////////////////
reldate := DATE+19000000;  
current_date_str := NUMTOSTR(reldate,0); //日期字符串   
current_time_str := NUMTOSTR(HOUR,0) & ':' & NUMTOSTR(MINUTE,0) & ':' & NUMTOSTR(SECOND,0);  
k_stamp := '[' & current_date_str & ' ' & current_time_str & ']  ';
//////////////////////////////////////////////////////////////////
//                 end of 调试输出最新K时间戳相关
//////////////////////////////////////////////////////////////////

//DEBUGFILE(DBG_LOG_FILE, k_stamp&STKLABEL & ' k_pos:' & NUMTOSTR(k_pos,0),0);

DEBUGFILE(DBG_LOG_FILE, k_stamp&STKLABEL & ' BARPOS:' & NUMTOSTR(BARPOS,0), 0);

CCD := STKINDI('','MARGIN_AMP.DBZ',0,-1,0);
g_ccd := EXTGBDATA(STKLABEL&'ccd');  //取保存的ccd值 即CCD前值
pre_ccd := REF(CCD,1); // 取CCD前值

if g_ccd <> UNINIT_VAL and g_ccd <> pre_ccd then
begin
        //打印异常现象
        DEBUGFILE(DBG_LOG_FILE, k_stamp&STKLABEL & ' CCD:' & NUMTOSTR(CCD,0)& ' pre_ccd:' & NUMTOSTR(pre_ccd,0) & ' g_ccd:' & NUMTOSTR(g_ccd,0) & ' WARNING: pre_ccd <> g_ccd', 0);
end
else begin
        DEBUGFILE(DBG_LOG_FILE, k_stamp&STKLABEL & ' CCD:' & NUMTOSTR(CCD,0)& ' pre_ccd:' & NUMTOSTR(pre_ccd,0) & ' g_ccd:' & NUMTOSTR(g_ccd,0), 0);
end

EXTGBDATASET(STKLABEL&'ccd', CCD); //保存当前CCD值

技术008

你要获取跨周期里上一个数据用CCD1 := STKINDI('','MARGIN_AMP.DBZ',0,-1,-1);
这么写，最后一个参数-1表示偏移

不能用ref写，ref表示当前k的上一个k的跨周期引用

hanzi-999

技术008 发表于 2025-2-28 13:08
你要获取跨周期里上一个数据用CCD1 := STKINDI('','MARGIN_AMP.DBZ',0,-1,-1);
这么写，最后一个参数-1表 ...

1.我这个例子只是测试,比较简单,实际的策略代码中,调用指标取值只是为计算真正的值的准备数据
2.ref在语言说明里就是指,上一根K线的该变量值啊,如果你说的跨周期引用就是这个意思,我要的就是当前K的上一个K的...引用

补充内容 (2025-2-28 13:48):
再次,STKINDI调用公式计算指标值是耗费资源的,既然是序列变量,为什么不能取上一根K的值,而避免重复计算呢?

技术008

你试试看输出time时间呢
本地测试都是正常的

hanzi-999

技术008 发表于 2025-2-28 13:57
你试试看输出time时间呢
本地测试都是正常的

MARGIN_AMP 指标内容:
A:=(C/REF(C,1)-1)*100;
B:=-(REF(C,1)/C-1)*100;

BZJ:=TACCOUNT(41);
T:=REF(C,1)<C;
TK:=IF(T,A,B);
BTK:=TK/BZJ;

DB:=BTK;
DBZ:SUM(DB,0);
KPOS:BARPOS;

技术008

你不要用其他就用time去测试

因为历史走过去后数据量会发生变化可能导致依赖数据量的计算有一定出入
这个没有办法的

hanzi-999

技术008 发表于 2025-2-28 13:57
你试试看输出time时间呢
本地测试都是正常的

1.你这个代码太简单了
2.不是能马上出现 异常(对不上)的情况
我代码全部列出了,测试配置也发你了. 你用我的代码复现下. 我感觉这是个金字塔软件的漏洞

技术008

这个就是数量问题，你可以输出barpos的情况看
这个没办法严格控制，而且你要求的是历史所有数据量，这需要保持跨周期调用的差一点都不行

hanzi-999

hanzi-999 发表于 2025-2-28 14:17
1.你这个代码太简单了
2.不是能马上出现 异常(对不上)的情况
我代码全部列出了,测试配置也发你了. 你用 ...

2.不是能马上出现 异常(对不上)的情况,要跑足够的K线数(达到配置里项的'策略计算K线量' 如860),然后就会复现这个REF(x,1)对不上

技术008

那就是超过数量控制了，导致之前的就没参与进来

这个目前没有办法的，如果你对数量如此铭感目前没有办法