variable
:maxp:=
0
;
variable
:minp:=
0
;
MA25:
MA
(
C
,
25
);
DK:=
IF
(
OPEN
<MA25
AND
CLOSE
>MA25,
1
,
0
);
KK:=
IF
(
OPEN
>MA25
AND
CLOSE
<MA25,
1
,
0
);
IF
DK
THEN
BEGIN
多开:
BUY
(
1
AND
HOLDING
=
0
,
1
,
MARKET
);
DRAWICON
(
1
,
low
,
4
);
END
if
holding
>
0
and
h
>maxp
then
maxp:=
h
;
IF
MAXP>
AVGENTERPRICE
*
1.02
AND
(MAXP-
C
)/(MAXP-
AVGENTERPRICE
)>=
0.65
then
begin
回撤多平:
sell
(
1
,
holding
,
market
);
END
IF
KK
THEN
BEGIN
空开:
BUYSHORT
(
1
AND
HOLDING
=
0
,
1
,
MARKET
);
DRAWICON
(
1
,
high
,
5
);
END
if
holding
<
0
and
LOW
>minp
then
minp:=
LOW
;
if
MINP<
AVGENTERPRICE
*
0.98
AND
(
C
-MINP)/(
AVGENTERPRICE
-MINP)>=
0.65
then
begin
回撤空平:
SELLSHORT
(
1
,
holding
,
market
);
END
DEBUGFILE
(
'D:\记录\TEST.TXT'
,
'开仓后最大值%.2f'
,MAXP);
DEBUGFILE
(
'D:\记录\TEST.TXT'
,
'开仓后最小值%.2f'
,MINP);
if
time
=
30000
or
time
=
190000
then
begin
收盘平多:
sell
(
1
,
holding
,
market
);
收盘平空:
sellshort
(
1
,
holding
,
market
);
end