等级: 超级版主
- 注册:
- 2021-5-18
- 曾用名:
|
期间:加调用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
|
|