CC1:=MA(ABS(REF("AG.OPENINT1##DAY",1)-REF("AG.OPENINT1##DAY",2)),LENGTH);
IF(C>="AG.OPEN1##DAY") THEN
BEGIN
X1:=("AG12$OPENINT"-CC1)/CC1;
X101:=0;
END
IF(C<"AG.OPEN1##DAY") THEN
BEGIN
X1:=0;
X101:=("AG12$OPENINT"-CC1)/CC1;
END
CC2:=MA(ABS(REF("AU.OPENINT1##DAY",1)-REF("AU.OPENINT1##DAY",2)),LENGTH);
IF(C>="AU.OPEN1##DAY") THEN
BEGIN
X2:=("AU12$OPENINT"-CC2)/CC2;
X102:=0;
END
IF(C<"AU.OPEN1##DAY") THEN
BEGIN
X2:=0;
X102:=("AU12$OPENINT"-CC2)/CC2;
END

CONDITION1:=ABS("AG12$OPENINT"-REF("AG12$OPENINT",1))>CC1;

CONDITION2:=ABS("AU12$OPENINT"-REF("AU12$OPENINT",1))>CC2;

XMAX1:=MAX(X1,X2);

CONDITION_BK1:=CONDITION1 AND X1=XMAX1;
CONDITION_BK2:=CONDITION2 AND X2=XMAX1;

IF CONDITION_BK1 THEN
BEGIN
 extgbstringSet('QQSTR','買入，白銀');
 VQQM:=QQMSGX(1,close);
END
IF CONDITION_BK2 THEN
BEGIN
 extgbstringSet('QQSTR','買入，黃金');
  VQQM:=QQMSGX(1,close);
END

問題:

1，在15分鐘線上跑，cc1等等都是空值？

2，為什么QQ上沒顯示（VBA程序已經(jīng)修改完成）？

3，我這個策略是否一定要窗口上跑？

4，程序是否還有其他問題。

付思路：黃金、白銀依據(jù)“開盤價”分多空，如果同為多，在依據(jù)“即時持倉量變化”做買入標志。