A00:=
0
;
VARIABLE
:A01:=
0
,A02:=
0
,A03:=
0
,A04:=
0
,A05:=
1
,A06:=
0
,A07:=
0
,A08:=
0
,A09:=
0
,A10:=
0
,A11:=
0
,A12:=
0
,A13:=
0
,A14:=
0
,A15:=
0
,A16:=
0
,A17:=
0
,A18:=
0
,A19:=
0
,A20:=
0
,A21:=
0
,A22:=
0
,A23:=
0
,A24:=
0
,A25:=
0
,A26:=
0
,A27:=
0
,A28:=
0
,A29:=
0
,A30:=
0
,A31:=
0
,A32:=
0
,A33:=
0
,A34:=
0
,A35:=
0
,A37:=
0
,A38:=
0
,A39:=
0
,A40:=
0
,A41:=
0
,A42:=
0
,A43:=
0
,B01:=
0
,B02:=
0
,A44:=
HIGH
,A45:=
LOW
,A46:=
HIGH
,A47:=
LOW
,JZ:=
OPEN
,ZXJZ:=
0
,NN:=
0
,FDXS:=
1
;
KXS:=
TODAYBAR
;
DAYOPEN:=
VALUEWHEN
((
DATE
<>
REF
(
DATE
,
1
)),
OPEN
);
JZ:=
REF
(DAYOPEN,(KXS -
1
));
GD:=
MA
(
HIGH
,
1
);
DD:=
MA
(
LOW
,
1
);
ZXTJ0:=(
COUNT
((((GD - JZ) >
21
)
OR
((JZ - DD) >=
13
)),
3
) >=
6
);
ZXTJ:=(
COUNT
(ZXTJ0,KXS) >=
1
);
参数转换:=ZXTJ;
TZZQ:=
1000
;
B03:=
REF
(
MA
(
TR
,
29
),
0.1
);
C01:=
DATE
;
B04:=
1
;
A16:=(((
10
*
10
) *
10
) *
5
);
A03:=
6
;
A04:=
1
;
B09:=
50
;
A21:=
0
;
C02:=
IF
(ZXTJ,
1.01
,
1.01
);
A19:=
0.6
;
C03:=
IF
(ZXTJ,
12.6
,
9.9
);
A17:=
6
;
NN:=
ENTERBARS
;
FDYK:=
REF
(
OPENPROFIT
,
1
);
FDDS:=(
INTPART
((FDYK /
300
)) / B04);
OTIME:=(
OPENTIME
(
1
) + (A21 *
100
));
CTIME:=(
CLOSETIME
(
0
) - (A03 *
100
));
C05:=((
TIME
>= OTIME)
AND
(
TIME
<= CTIME));
ZHKX:=
IF
(
ISLASTBAR
,
DYNAINFO
(
207
),
TIME
);
TQXD:=(
TIME0
-
TIMETOT0
(ZHKX));
KXSJ:=(B09 - TQXD);
D02:=(
EMA
(
HIGH
,
11
) -
EMA
(
HIGH
,
21.6
));
D03:=
EMA
(D02,
0.1
);
D04:=(
2
* (D02 - D03));
D07:=(
EMA
(
LOW
,
12
) -
EMA
(
LOW
,
22
));
D08:=
EMA
(D07,
9
);
D09:=(
2
* (D07 - D08));
D10:=
MA
(((D04 *
2
) + D02),
1
);
D11:=
MA
(D10,
2
);
D12:=
MA
(((D09 *
2
) + D07),
1
);
D13:=
MA
(D12,
2
);
E01:=(
SLOPE
(
HIGH
,
2
) *
5
);
E02:=(
SLOPE
(
LOW
,
2
) *
5
);
JYCS:=
TOTALDAYTRADE
;
E12:=(
ASSET
-
REF
(
ASSET
,(
BARSLAST
((
DATE
<>
REF
(
DATE
,
1
))) +
1
)));
E14:=
REF
(E12,
1
);
IF
(E12 =
0
)
THEN
BEGIN
A14:=
0
;
END
IF
(ZXTJ =
0
)
THEN
BEGIN
END
IF
(ZXTJ =
1
)
THEN
BEGIN
DRAWTEXTEX
(
1
,
1
,
20
,
5
,
''
);
END
IF
(E12 <= (-(A31) * B04))
THEN
BEGIN
A14:=-(
1
);
C06L:=
1
;
DRAWTEXTEX
(
1
,
1
,
120
,
990
,
'大学士-祝您投资顺利!'
),
COLORWHITE
;
END
IF
(E12 >= (A35 * B04))
THEN
BEGIN
C02:=(C02 *
0.75
);
DRAWTEXTEX
(
1
,
1
,
120
,
900
,
'大学士-祝您投资顺利!'
),
COLORWHITE
;
END
倒计时:=TQXD;
XDSJ:=B09;
A46:=((
MA
(
HIGH
,
6
) + (
REF
(
HIGH
,
1
) + ((
0.1
/ C02) + A11))) /
2
);
A47:=((
MA
(
LOW
,
6
) + (
REF
(
LOW
,
1
) - ((
0.1
/ C02) + A11))) /
2
);
FDXS:=
IF
((NN <= TZZQ),
2
,(
1
+ (FDDS *
0.015
)));
F01:=((D10 - D11) * C02);
F02:=((D12 - D13) * C02);
B01:=((D10 > D11)
AND
(F01 >= FDXS));
B02:=((D12 < D13)
AND
(F02 <= -(FDXS)));
IF
(
BARPOS
=
1
)
THEN
BEGIN
A43:=
0
;
END
A07:=
IF
(
ISLASTBAR
,
15
,
0.1
);
A08:=
IF
(
ISLASTBAR
,
15
,
0.1
);
IF
(((A43 =
0
)
AND
(
BARPOS
>
1
))
AND
(
HIGH
>
LOW
))
THEN
BEGIN
JGK:=A47;
SHORT:=(
LOW
<= (JGK +
0.2
));
JGD:=A46;
LONG:=(
HIGH
>= (JGD -
0.2
));
LONGZS:=(A17 * B03);
IF
((((((LONG
AND
(SHORT =
0
))
AND
(A14 >=
0
))
AND
C05)
AND
(
HOLDING
=
0
))
AND
(
TIME
>
91400
))
AND
((A15 >=
0
)
OR
(
EXITBARS
>=
3
)))
THEN
BEGIN
A01:=
IF
((
OPEN
> JGD),(
OPEN
+ (A07 *
MINDIFF
)),(JGD + (A07 *
MINDIFF
)));
A开多:
BUY
(
1
,B04,
LIMITR
,A01,
1
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\A开多.wav'
);
A43:=
1
;
N:=B03;
A00:=
1
;
A09:=
ENTERPRICE
;
A06:=(A09 - LONGZS);
END
JGK:=A47;
SHORT:=(
LOW
<= (JGK +
0.2
));
SHORTZS:=(A17 * B03);
IF
((((((SHORT
AND
(A14 >=
0
))
AND
(
TIME
>
91400
))
AND
C05)
AND
(A43 =
0
))
AND
(
HOLDING
=
0
))
AND
((A15 <=
0
)
OR
(
EXITBARS
>=
3
)))
THEN
BEGIN
A01:=
IF
((
OPEN
< JGK),(
OPEN
- (A07 *
MINDIFF
)),(JGK - (A07 *
MINDIFF
)));
A开空:
BUYSHORT
(
1
,B04,
LIMITR
,A01,
1
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\A开空.wav'
);
A43:=-(
1
);
N:=B03;
A00:=
1
;
A09:=
ENTERPRICE
;
A06:=(A09 + SHORTZS);
END
GOTO
CONTINUELINE@;
END
IF
(((A43 =
1
)
AND
(
BARPOS
>
1
))
AND
(
HIGH
>
LOW
))
THEN
BEGIN
DRLC:=A47;
LONGX1:=(
LOW
< (DRLC +
1
));
IF
((LONGX1
AND
(A00 =
0
))
AND
B02)
THEN
BEGIN
A02:=
IF
((
OPEN
< DRLC),(
OPEN
- (A07 *
MINDIFF
)),(DRLC - (A07 *
MINDIFF
)));
D平多:
SELL
(
1
,B04,
LIMITR
,A02,
1
);
A43:=
0
;
A15:=
0
;
JGK:=A47;
SHORT1:=(
LOW
<= JGK);
IF
((((((SHORT1
AND
(A15 <=
0
))
AND
(A14 >=
0
))
AND
C05)
AND
(A43 =
0
))
AND
(
HOLDING
>=
0
))
AND
(A15 <=
0
))
THEN
BEGIN
A01:=
IF
((
OPEN
<
IF
((A15 =
0
),DRLC,A06)),(
OPEN
- (A07 *
MINDIFF
)),(
IF
((A15 =
0
),DRLC,A06) - (A07 *
MINDIFF
)));
D开空:
BUYSHORT
(
1
,B04,
LIMITR
,A01,
1
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\D开空.wav'
);
A43:=-(
1
);
A00:=
1
;
N:=B03;
A09:=
ENTERPRICE
;
A06:=(A09 + (A17 * N));
END
END
LONGX2:=(
LOW
< A06);
IF
((LONGX2
AND
(
HOLDING
>=
0
))
AND
(A00 =
0
))
THEN
BEGIN
A02:=(
MIN
(
OPEN
,A06) - (A08 *
MINDIFF
));
平多S:
SELL
(
1
,B04,
LIMITR
,A02,
1
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\平多S.wav'
);
A43:=
0
;
A15:=-(
1
);
JGK:=A47;
SHORT1:=(
LOW
<= JGK);
IF
((((((SHORT1
AND
(A15 <=
0
))
AND
(A14 >=
0
))
AND
C05)
AND
(A43 =
0
))
AND
(
HOLDING
>=
0
))
AND
(A15 <=
0
))
THEN
BEGIN
A01:=
IF
((
OPEN
<
IF
((A15 =
0
),DRLC,A06)),(
OPEN
- (A07 *
MINDIFF
)),(
IF
((A15 =
0
),DRLC,A06) - (A07 *
MINDIFF
)));
C
开空:
BUYSHORT
(
1
,B04,
LIMITR
,A01,
1
);
A43:=-(
1
);
A00:=
1
;
N:=B03;
A09:=
ENTERPRICE
;
A06:=(A09 + (A17 * N));
END
END
IF
((C06L
AND
(
HOLDING
>=
0
))
AND
(A14 <
0
))
THEN
BEGIN
平多Z:
SELL
(
1
,B04,
marketr
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\停盘.wav'
);
A43:=
0
;
A14:=-(
1
);
END
IF
(TQXD <= XDSJ)
THEN
BEGIN
平多T:
SELL
(
1
,B04,
marketr
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\平多t.wav'
);
A43:=
0
;
A14:=
0
;
A15:=
0
;
END
IF
((A43 =
1
)
AND
(
HIGH
> A09))
THEN
BEGIN
A09:=
HIGH
;
A06:=(A09 - (C03 * N));
END
END
IF
(((A43 = -(
1
))
AND
(
BARPOS
>
1
))
AND
(
HIGH
>
LOW
))
THEN
BEGIN
KTLC:=A46;
SHORTX1:=(
HIGH
> (KTLC -
1
));
IF
((SHORTX1
AND
(A00 =
0
))
AND
B01)
THEN
BEGIN
A02:=
IF
((
OPEN
> KTLC),(
OPEN
+ (A07 *
MINDIFF
)),(KTLC + (A07 *
MINDIFF
)));
C
平空:
SELLSHORT
(
1
,B04,
LIMITR
,A02,
1
);
A43:=
0
;
A15:=
0
;
JGD:=A46;
LONG1:=(
HIGH
>= JGD);
IF
((((((LONG1
AND
(A15 >=
0
))
AND
(A14 >=
0
))
AND
C05)
AND
(
HOLDING
<=
0
))
AND
(A15 >=
0
))
AND
(A43 =
0
))
THEN
BEGIN
A01:=
IF
((
OPEN
>
IF
((A15 =
0
),KTLC,A06)),(
OPEN
+ (A07 *
MINDIFF
)),(
IF
((A15 =
0
),KTLC,A06) + (A07 *
MINDIFF
)));
C
开多:
BUY
(
1
,B04,
LIMITR
,A01,
1
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\C开多.wav'
);
A43:=
1
;
A00:=
1
;
N:=B03;
A09:=
ENTERPRICE
;
A06:=(A09 - (A17 * N));
END
END
SHORTX2:=(
HIGH
> A06);
IF
((SHORTX2
AND
(
HOLDING
<=
0
))
AND
(A00 =
0
))
THEN
BEGIN
A02:=(
MAX
(
OPEN
,A06) + (A08 *
MINDIFF
));
平空S:
SELLSHORT
(
1
,B04,
LIMITR
,A02,
1
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\平空S.wav'
);
A43:=
0
;
A15:=
1
;
JGD:=A46;
LONG1:=(
HIGH
>= JGD);
IF
((((((LONG1
AND
(A15 >=
0
))
AND
(A14 >=
0
))
AND
C05)
AND
(
HOLDING
<=
0
))
AND
(A15 >=
0
))
AND
(A43 =
0
))
THEN
BEGIN
A01:=
IF
((
OPEN
>
IF
((A15 =
0
),KTLC,A06)),(
OPEN
+ (A07 *
MINDIFF
)),(
IF
((A15 =
0
),KTLC,A06) + (A07 *
MINDIFF
)));
D开多:
BUY
(
1
,B04,
LIMITR
,A01,
1
);
A43:=
1
;
A00:=
1
;
N:=B03;
A09:=
ENTERPRICE
;
A06:=(A09 - (A17 * N));
END
END
IF
((C06L
AND
(
HOLDING
<=
0
))
AND
(A14 <
0
))
THEN
BEGIN
平空Z:
SELLSHORT
(
1
,B04,
marketr
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\停盘.wav'
);
A43:=
0
;
A14:=-(
1
);
END
IF
TQXD <= XDSJ
THEN
BEGIN
平空T:
SELLSHORT
(
1
,B04,
marketr
);
PLAYSOUND
(
1
,
'D:\Weisoft Stock\WAV\平空t.wav'
);
A43:=
0
;
A14:=
0
;
A15:=
0
;
END
IF
((A43 = -(
1
))
AND
(
LOW
< A09))
THEN
BEGIN
A09:=
LOW
;
A06:=(A09 + (C03 * N));
END
END
CONTINUELINE@;