VA1:=
HHV
(
HIGH
,
12
)-
LLV
(
LOW
,
26
);
VA2:=
HHV
(
HIGH
,
9
)-
CLOSE
;
VA3:=
CLOSE
-
LLV
(
LOW
,
9
);
VA4:=VA2/VA1*
100
-
70
;
VA5:=(
CLOSE
-
LLV
(
LOW
,
60
))/(
HHV
(
HIGH
,
60
)-
LLV
(
LOW
,
60
))*
100
;
VA6:=(
2
*
CLOSE
+
HIGH
+
LOW
)/
4
;
VA7:=
SMA
(VA3/VA1*
100
,
3
,
1
);
VA8:=
LLV
(
LOW
,
34
);
VA9:=
SMA
(VA7,
3
,
1
)-
SMA
(VA4,
9
,
1
);
VARA:=
IF
(VA9 >
100
,VA9-
100
,
0
);
VARB:=
HHV
(
HIGH
,
34
);
VARC:=
EMA
((VA6-VA8)/(VARB-VA8)*
100
,
13
);
VARD:=
EMA
(
0.667
*
REF
(VARC,
1
)+
0.333
*VARC,
2
);
VARE:=
SMA
(
MAX
(
CLOSE
-
REF
(
CLOSE
,
1
),
0
)/
CLOSE
,
8
,
1
)/
SMA
(
ABS
(
INDEXC
-
REF
(
INDEXC
,
1
))/
INDEXC
,
8
,
1
)*
100
-
25
;
VARF:=
MA
(VARE,
3
);
VAR1:=
HHV
(
HIGH
,
9
)-
LLV
(
LOW
,
9
);
VAR2:=
HHV
(
HIGH
,
9
)-
CLOSE
;
VAR3:=
CLOSE
-
LLV
(
LOW
,
9
);
VAR4:=((VAR2)/(VAR1))*(
100
)-
70
;
VAR5:=((
CLOSE
-
LLV
(
LOW
,
60
))/(
HHV
(
HIGH
,
60
)-
LLV
(
LOW
,
60
)))*(
100
);
VAR6:=((
2
)*(
CLOSE
)+
HIGH
+
LOW
)/(
4
);
VAR7:=
SMA
(((VAR3)/(VAR1))*(
100
),
3
,
1
);
VAR8:=
LLV
(
LOW
,
34
);
VAR9:=
SMA
(VAR7,
3
,
1
)-
SMA
(VAR4,
9
,
1
);
VAR10:=
IF
((VAR9 >
100
),VAR9-
100
,
0
);
VAR11:=
HHV
(
HIGH
,
34
);
B1:=
EMA
(((VAR6-VAR8)/(VAR11-VAR8))*(
100
),
8
);
生命线:
EMA
(VARD,
1
),COLORFF00FF;
B2:
EMA
(B1,
5
),COLORFF7000;
STICKLINE
(B1-B2 >
0
,B1,B2,
2
,
0
),
COLORRED
;
STICKLINE
(B1-B2 <
0
,B1,B2,
2
,
0
),
COLORGREEN
;
ss:=
1
;
if
STKLABEL
=
'RB00'
then
ss:=
3
;
if
STKLABEL
=
'SN00'
then
ss:=
2
;
if
cross
(b1,b2)
then
begin
sellshort
(
1
,
holding
,
market
);
buy
(
holding
=
0
,ss,
market
);
end
if
cross
(b2,b1)
then
begin
sell
(
1
,
holding
,
market
);
buyshort
(
holding
=
0
,ss,
market
);
end