加调用15分钟的收盘价的代码。

代人发帖

期间：加调用15分钟的收盘价的代码。O15:=CALLSTOCK('',vtopen,3,0)；
H15:=CALLSTOCK('',vthigh,3,0)；
L15:=CALLSTOCK('',vtlow,3,0)；
C15:=CALLSTOCK('',vtCLOSE,3,0);

SJ:=1;
HH:=HHV(HIGH,1)/10*SJ+HHV(HIGH,20)/10+HHV(HIGH,20)/10+HHV(HIGH,4)/10+HHV(HIGH,4)/10+HHV(HIGH,80)/10+HHV(HIGH,8)/10+HHV(HIGH,13)/10+HHV(HIGH,80)/10+HHV(HIGH,80)/10;
LL:=LLV(LOW,1)/10*SJ+LLV(LOW,20)/10+LLV(LOW,20)/10+LLV(LOW,4)/10+LLV(LOW,4)/10+LLV(LOW,80)/10+LLV(LOW,8)/10+LLV(LOW,13)/10+LLV(LOW,80)/10+LLV(LOW,80)/10;
H1:=IF(HH<REF(HH,1)&&LL<REF(LL,1)&&REF(OPEN,1)>CLOSE&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HH,2),0);
L1:=IF(LL>REF(LL,1)&&HH>REF(HH,1)&&REF(OPEN,1)<CLOSE&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LL,2),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IF(CLOSE>H2,-3,IF(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
TMP:=K2,LINETHICK2;
ZK:=CROSS(TMP,0);
ZD:=CROSS(0,TMP);
VAR1:=ZD;
VBR1:=ZK ;

IF HOLDING>0 AND VBR1    THEN BEGIN
        SELL(1,SS*1,MARKETR);
END
IF HOLDING=0 AND VAR1    THEN BEGIN
        BUY(1,SS*1,MARKETR);
END

技术009

这个不是昨天 给你处理过了吗。上面的代码还是我之前改的。 你这个需求到底是怎样的啊。不是调用15分钟的数据的吗？

技术009

“就是 ，我可以 在 5分钟 ，小级别上，调用  15分钟 的 数据 。这样  就比较 快了”  没有这回事的哦。如果你是出于这个想法而去改代码的话，我觉得是完全没有必要的。数据调用的快慢和周期并无关联的。

技术009

[PEL] 复制代码

O15:=CALLSTOCK('',vtopen,3,0)；
H15:=CALLSTOCK('',vthigh,3,0)；
L15:=CALLSTOCK('',vtlow,3,0)；
C15:=CALLSTOCK('',vtCLOSE,3,0);

SJ:=1;
HH:=HHV(H15,1)/10*SJ+HHV(H15,20)/10+HHV(H15,20)/10+HHV(H15,4)/10+HHV(H15,4)/10+HHV(H15,80)/10+HHV(H15,8)/10+HHV(H15,13)/10+HHV(H15,80)/10+HHV(H15,80)/10;
LL:=LLV(L15,1)/10*SJ+LLV(L15,20)/10+LLV(L15,20)/10+LLV(L15,4)/10+LLV(L15,4)/10+LLV(L15,80)/10+LLV(L15,8)/10+LLV(L15,13)/10+LLV(L15,80)/10+LLV(L15,80)/10;
H1:=IF(HH<REF(HH,1)&&LL<REF(LL,1)&&REF(O15,1)>C15&&O15>C15&&(HHV(O15,0)-C15)>0,REF(HH,2),0);
L1:=IF(LL>REF(LL,1)&&HH>REF(HH,1)&&REF(O15,1)<C15&&O15<C15&&(C15-LLV(O15,0))>0,REF(LL,2),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IF(C15>H2,-3,IF(C15<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
TMP:=K2,LINETHICK2;
ZK:=CROSS(TMP,0);
ZD:=CROSS(0,TMP);
VAR1:=ZD;
VBR1:=ZK ;

IF HOLDING>0 AND VBR1    THEN BEGIN
        SELL(1,SS*1,MARKETR);
END
IF HOLDING=0 AND VAR1    THEN BEGIN
        BUY(1,SS*1,MARKETR);
END

改的话，没啥问题。但是我前面也说了，这个数据调用和周期没啥关系的。你自行选择吧。

技术009

你不能在金叉死叉判断条件上改，你只能改TMP定义。

TMP:=3*K2,LINETHICK2;
ZK:=CROSS(TMP,0);
ZD:=CROSS(0,TMP);