攻击量:=((HSL*
0.50
+
REF
(HSL,
1
)*
0.33
)+(
REF
(HSL,
2
)*
0.17
))*
SUM
(
C
,
OPENMINUTES
(
time
))/
OPENMINUTES
(
time
);
攻击量A:=
SUM
(
IF
(
C
>
REF
(
C
,
1
),攻击量*
V
,
0
),
OPENMINUTES
(
time
)),COLOR0000FF,
LINETHICK0
;
攻击量B:=-
SUM
(
IF
(
C
<
REF
(
C
,
1
),攻击量*
V
,
0
),
OPENMINUTES
(
time
)),COLOR00FF00,
LINETHICK0
;
攻击流量:=攻击量A+攻击量B,
COLORSTICK
;
攻击比:=攻击流量/
SUM
(
V
,
OPENMINUTES
(
time
))*
100
,
COLORRED
,
LINETHICK1
;
资金攻击度:=
IF
(攻击比>=
0
,(攻击比+
50
),
100
-
ABS
((攻击比-
50
)));
资金流入:=
SUM
(
IF
(
C
>
REF
(
C
,
1
),
V
,
0
),
OPENMINUTES
(
time
)),
STICK
,
COLORRED
;
资金流出:=-
SUM
(
IF
(
C
<
REF
(
C
,
1
),
V
,
0
),
OPENMINUTES
(
time
)),
STICK
,COLOR00FF00;
资金出入:=资金流入+资金流出,
COLORSTICK
;
资金比:=资金出入/
SUM
(
V
,
OPENMINUTES
(
time
))*
100
,COLOR00FFFF,
LINETHICK1
;
资金流量比:=
IF
(资金比>=
0
,(资金比+
100
)/
2
,
100
-
ABS
((资金比-
100
)/
2
));
DRAWTEXT
(
1
,
0.250
,
0.88
,
0
,
STRCAT
(
STRCAT
(
'【资金流量比】'
,
NUMTOSTR
(资金流量比,
2
)),
'%买'
)),
COLORCYAN
;
DRAWTEXT
(
1
,
0.000
,
0.88
,
0
,
STRCAT
(
STRCAT
(
'【资金攻击度】'
,
NUMTOSTR
(资金攻击度,
2
)),
' %买'
)),
COLORCYAN
;
XG:
HHV
(
H
,
480
),DOTLINE,
COLORRED
;
STICKLINE
(
FILTER
(
CROSS
(
C
,
REF
(XG,
1
)),
10
)
AND
C
>
REF
(XG,
1
),
C
*
0.99
,
C
,
8
,
0
),
COLORGREEN
;
DRAWTEXT
(
FILTER
(
CROSS
(
C
,
REF
(XG,
1
)),
10
)
AND
C
>
REF
(XG,
1
),
C
*
0.99
,
'突破'
),
COLORYELLOW
;
RQ:=
DATETOD1970
(
DATE
)-
DATETOD1970
(
REF
(
DATE
,
DATACOUNT
-
CURRBARSCOUNT
))+
1
;
JY:=
BARSLAST
((RQ-
REF
(RQ,
1
))!=
WEEKDAY
-
REF
(
WEEKDAY
,
1
)
OR
DATACOUNT
-
CURRBARSCOUNT
=
0
)+
1
;
MA1:=
REF
(
C
,JY);
MA2:=
REF
(MA1,JY);
MA3:=
REF
(MA2,JY);
MA4:=
REF
(MA3,JY);
MA5:=
REF
(MA4,JY);
MA6:=
REF
(MA5,JY);
MA7:=
REF
(MA6,JY);
MA8:=
REF
(MA7,JY);
MA9:=
REF
(MA8,JY);
CK:
REFDATE
((
C
+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9)/
10
,
DATE
),COLORAC59FF,
CIRCLEDOT
;
DRAWTEXT
(
ISLASTBAR
,CK,
' 参考线'
),COLOR0000FF;
DIF:=(
EMA
(
CLOSE
,
12
)-
EMA
(
CLOSE
,
26
))+
DYNAINFO
(
3
);
DEA:=
EMA
(DIF,
9
);
MACD1:=
10
*(DIF-DEA);
MACD2:=
EMA
(MACD1,
2
);
STICKLINE
(MACD1>=MACD2
AND
MACD1>=
0
,
DYNAINFO
(
3
),MACD1+
DYNAINFO
(
3
),
0
,
0
),COLOR0000B4;
STICKLINE
(MACD1<MACD2
AND
MACD1>
0
,
DYNAINFO
(
3
),MACD1+
DYNAINFO
(
3
),
0
,
0
),COLOR00B400;
STICKLINE
(MACD1>=MACD2
AND
MACD1<
0
,
DYNAINFO
(
3
),MACD1+
DYNAINFO
(
3
),
0
,
0
),COLOR5151A2;
STICKLINE
(MACD1<MACD2
AND
MACD1<
0
,
DYNAINFO
(
3
),MACD1+
DYNAINFO
(
3
),
0
,
0
),COLOR88743A;
XX:=
SUM
(
AMOUNT
,
BARSCOUNT
(
CLOSE
))/
SUM
(
V
*
100
,
BARSCOUNT
(
CLOSE
));
主力:=
EMA
(
CLOSE
/XX,
20
);大户:=
EMA
(
CLOSE
/XX,
60
);散户:=
EMA
(
CLOSE
/XX,
120
);
底:=
1
;
1.02
,
NODRAW
;高:=
1.03
;
DRAWTEXT
(
CROSS
(主力,
1.02
),
C
*
0.999
,
'-拉升'
),
COLORCYAN
;
DRAWICON
(
CROSS
(主力,
1.04
),
C
,
24
);
DRAWTEXT
(
CROSS
(主力,
1.04
),
C
*
0.999
,
'-冲涨停'
),COLORLIMAGENTA;
A1:=(
VOL
/
CLOSE
)/
3
;
A2:=
SUM
((
IF
(((A1>
40
)
AND
(
CLOSE
>(
REF
(
CLOSE
,
1
)))),A1,
0
)),
0
);
A3:=
SUM
((
IF
(((A1>
40
)
AND
(
CLOSE
<(
REF
(
CLOSE
,
1
)))),A1,
0
)),
0
);
A4:=
SUM
((
IF
(((A1<
40
)
AND
(
CLOSE
>(
REF
(
CLOSE
,
1
)))),A1,
0
)),
0
);
A5:=
SUM
((
IF
(((A1<
40
)
AND
(
CLOSE
<(
REF
(
CLOSE
,
1
)))),A1,
0
)),
0
);
A6:=((A2+A3)+A4)+A5;
A7:=
IF
((
BARSTATUS
=
2
),((
100
*A2)/A6),
0
);
A8:=((
IF
((
BARSTATUS
=
2
),((
100
*A3)/A6),
0
)));
A9:=((
IF
((
BARSTATUS
=
2
),((
100
*A4)/A6),
0
)));
A10:=((
IF
((
BARSTATUS
=
2
),((
100
*A5)/A6),
0
)));
机构买盘:=(A2),
LINETHICK2
;
机构卖盘:=(A3),
LINETHICK2
;
散户买盘:=(A4);
散户卖盘:=(A5);
DRAWTEXT
(
1
,
0.000
,
1
-
0.05
,
0
,
STRCAT
(
STRCAT
(
'【机构买盘】'
,
NUMTOSTR
(机构买盘,
2
)),
'万'
)),
COLORRED
;
DRAWTEXT
(
1
,
0.250
,
1
-
0.05
,
0
,
STRCAT
(
STRCAT
(
'【机构卖盘】'
,
NUMTOSTR
(机构卖盘,
2
)),
'万'
)),COLOR00FF00;
DRAWTEXT
(
1
,
0.500
,
1
-
0.05
,
0
,
STRCAT
(
STRCAT
(
'【散户买盘】'
,
NUMTOSTR
(散户买盘,
2
)),
'万'
)),
COLORRED
;
DRAWTEXT
(
1
,
0.745
,
1
-
0.05
,
0
,
STRCAT
(
STRCAT
(
'【散户卖盘】'
,
NUMTOSTR
(散户卖盘,
2
)),
'万'
)),COLOR00FF00;
H1:=
MAX
(
DYNAINFO
(
3
),
DYNAINFO
(
5
));
L1:=
MIN
(
DYNAINFO
(
3
),
DYNAINFO
(
6
));
P1:=H1-L1;
阻力:=L1+P1*
7
/
8
,
COLORGREEN
;
支撑:=L1+P1*
0.5
/
8
,
COLORMAGENTA
;
DRAWTEXT
(
LONGCROSS
(支撑,
C
,
2
),
C
,
'买'
),
COLORYELLOW
;
DRAWTEXT
(
LONGCROSS
(
C
,阻力,
2
),
C
,
'卖'
),
COLORGREEN
;
量价:=(
VOL
/
CLOSE
)/
3
;
B2:=
SUM
((
IF
(((量价>
0.20
)
AND
(
CLOSE
>(
REF
(
CLOSE
,
1
)))),量价,
0
)),
0
);
B3:=
SUM
((
IF
(((量价>
0.20
)
AND
(
CLOSE
<(
REF
(
CLOSE
,
1
)))),量价,
0
)),
0
);
B6:=B2+B3;DD1:=
1
;比:=B2/B3;
BBB1:=
STRCAT
(
STRCAT
(
'买= '
,
NUMTOSTR
((
100
*B2)/B6,
0
)),
'%'
);
BBB2:=
STRCAT
(
STRCAT
(
'卖= '
,
NUMTOSTR
((
100
*B3)/B6,
0
)),
'%'
);
BBB3:=
STRCAT
(
STRCAT
(
'差= '
,
NUMTOSTR
((
100
*(B2-B3))/B6,
0
)),
'%'
);
DRAWTEXT
(DD1=
1
,
0
,
0.70
,
0
,BBB1),
COLORRED
;
DRAWTEXT
(DD1=
1
,
0
,
0.75
,
0
,BBB2),
COLORGREEN
;
DRAWTEXT
(DD1=
1
,
0
,
0.80
,
0
,BBB3),COLOR00FFFF;