加调用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

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

哄哄

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);


K:=CALLSTOCK('',ZK,3,0)；
D:=CALLSTOCK('',ZD,3,0)；


VAR1:=D;
VBR1:=K ;

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老师  您好 。我 这样 改  15分钟 的 数据 调不出。

哄哄

好的 。我看到 老师 帮我改的了。感谢 老师

哄哄

TMP:=K2,LINETHICK2;
ZK:=CROSS(TMP,0);
ZD:=CROSS(0,TMP);
  老师 您好 。我想 把 这个 值 放大 3倍。您 看 是在  TPM乘以3  放大 ，还是  在 ZK和ZD上 放大。感谢 老师 帮我 调下

哄哄

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;老师  还是 在 这里 加个  倍数

哄哄

老师 在哪里 加 方便 。老师 就帮我 加下。感谢

技术009

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

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

哄哄

好 的 。感谢 老师。 666