[/p]
[p=
18
,
null
, left]
INPUT
:SS(
1
,
1
,
100
,
1
);
N:=
BARSLAST
(
DATE
<>
REF
(
DATE
,
1
));
REF_H:=
CALLSTOCK
(
''
,
VTHIGH
,
6
,-
1
);
REF_L:=
CALLSTOCK
(
''
,
VTLOW
,
6
,-
1
);
REF_C:=
CALLSTOCK
(
''
,
VTCLOSE
,
6
,-
1
);
DAY_H:=
HHV
(
H
,N+
1
);
DAY_L:=
HHV
(
L
,N+
1
);
PIVOT:=(REF_H+REF_L+REF_C)/
3
;
R3:=REF_H+
2
*(PIVOT-REF_L);
R2:=PIVOT+(REF_H-REF_L);
R1:=
2
*PIVOT-REF_L;
S1:=
2
*PIVOT-REF_H;
S2:=PIVOT-(REF_H-REF_L);
S3:=REF_L-
2
*(REF_H-PIVOT);
KCKD:=
HOLDING
=
0
AND
C
>R3;
KCKK:=
HOLDING
=
0
AND
C
<S3;
PKKD:=
HOLDING
<
0
AND
DAY_L<R1
AND
C
>R2;
PDKK:=
HOLDING
>
0
AND
DAY_H>S1
AND
C
<S2;
空仓开多:
BUY
(KCKD,SS,
MARKETR
);
空仓开空:
BUYSHORT
(KCKK,SS,
MARKETR
);
IF
PKKD
THEN
BEGIN
平空:
SELLSHORT
(
1
,
HOLDING
,
MARKETR
);
反手开多:
BUY
(
1
,SS,
MARKETR
);
END
IF
PDKK
THEN
BEGIN
平多:
SELL
(
1
,
HOLDING
,
MARKETR
);
反手开空:
BUYSHORT
(
1
,SS,
MARKETR
);
END
IF
(
ISLASTBAR
AND
T0TOTIME
(
TIMETOT0
(
CLOSETIME
(
0
))-
60
)<=
DYNAINFO
(
207
))
OR
(
TIME
=
CLOSETIME
(
0
)
AND
NOT
(
ISLASTBAR
))
THEN
BEGIN
SELL
(
1
,
HOLDING
,
MARKET
);
SELLSHORT
(
1
,
HOLDING
,
MARKET
);
END