ma1:=
ema
((
open
+
2
*
close
+
high
+
low
)/
5
,
3
);
ma2:=
ema
((
open
+
2
*
close
+
high
+
low
)/
5
,
8
);
ma3:=
ema
((
open
+
2
*
close
+
high
+
low
)/
5
,
18
);
ma4:=
ema
((
open
+
2
*
close
+
high
+
low
)/
5
,
34
);
A:=
ATAN
((MA1/MA4-
1
)*
100
)*
180
/
3.1415926
;
VAR1:=(
2
*
CLOSE
+
HIGH
+
LOW
+
3
*
OPEN
)/
7
;
高抛:
80
;
VAR2:=
LLV
(
LOW
,
34
);
VAR3:=
HHV
(
HIGH
,
34
);
K:
EMA
((VAR1-VAR2)/(VAR3-VAR2)*
100
,
13
);
D:
EMA
(K,
3
);
低吸:
20
;
强弱分界:
50
;
VAR4:=
IF
(
CROSS
(K,D),
45
,
20
);
VAR5:=
IF
(
CROSS
(D,K),
55
,
80
);
B:=
ATAN
((K/D-
1
)*
100
)*
180
/
3.1415926
,
NODRAW
;
kd:=A>=
2
and
B>=
0
;
pd:=B<
0
AND
A<=
0
;
kk:=A<=-
2
and
B<=
0
;
pk:=A>=
0
;
手数:=
5
;
TBUY
(kd,
1
,
lmt
,
DYNAINFO
(
29
));
TSELL
(pd,
0
,
lmt
,
DYNAINFO
(
32
));
TBUY
(kk,
1
,
lmt
,
DYNAINFO
(
32
));
TSELL
(pk,
0
,
lmt
,
DYNAINFO
(
29
));
ct:
CURRENTTIME
;
if
(ct>=
142900
and
ct<=
142910
)
or
(ct>=
225900
and
ct<=
225910
)
or
(ct>=
022900
and
ct<=
022910
)
then
begin
tsell
(
1
,
0
,
mkt
);
tsellshort
(
1
,
0
,
mkt
);
end