|
k:"kdj.k",linethick,COLORWHITE;5 {# f: x( M1 q2 ~% C9 h4 s1 c
d:"kdj.d",linethick0,COLORYELLOW;* ]# M# u- Q! L( V
r1:"rsi.rsi1",linethick0,ColorC080FF;
( ]. O+ G! c; f" f( ?r2:"rsi.rsi2",linethick0,ColorFF8080;
6 C+ C6 Z. a" x# p: h% [r3:"rsi.rsi3",linethick0,Color87F8F4;6 p B# s9 S1 m O! n5 m
f:"macd.diff",linethick0,Color72C072;
" V6 G3 ?1 G* P- F+ @1 V- n% wa:"macd.dea",linethick0,ColorE98210;& t8 A( ^8 A3 [7 l+ b, w- ]7 r& E
m:"macd.macd",linethick0,COLORWHITE;
2 w1 p0 O3 y. X{以下界说叠加区间(在这里是可见K线的范围)}
: r* z) D5 T) v1 c" Oq:=SYSPARAM(3)-SYSPARAM(2);
/ r4 L$ S+ N- R5 kp:=SYSPARAM(3);7 e3 y, x9 F" ?
{以下盘算叠加比和叠加平移量}! ^2 e- h+ a& ^! b9 O6 A& U6 Y# S& ]' B
{1、叠加字段高度}* `3 q3 V/ P8 a! R) g% X: o
kh:=hhv(h,q);8 C2 _$ q% _" T$ Y8 I
kL:=LLv(L,q);
* y# R1 @. @2 ~( z& Q5 Hdh:=hhv(max(k,d),q);
: Y w2 h* h5 FdL:=LLv(min(k,d),q);
' `! |! i1 l3 c5 U) O% W2 ^mh:=hhv(max(f,a),q);, k8 U. M" d. K8 F5 P
mL:=LLv(max(f,a),q);
+ I1 c7 M2 z0 Q: A; e/ U2 v7 T/ r" Trh:=hhv(max(max(r1,r2),r3),q);
. g' z* A3 |6 X2 `" L9 x2 mrL:=LLv(min(min(r1,r2),r3),q);6 P) L) [0 W# i* C9 K! R: |. U- w Q
{2、叠加比}' A8 C9 D/ a. k) w: H# R& c
bd:=(kh-kL)/(dh-dL)/3;
* P; F a3 `+ c5 Fbm:=(kh-kL)/(mh-mL)/3;+ W5 E& t. }) q/ m5 Y/ [
br:=(kh-kL)/(rh-rL)/3;
% l" S, P: h7 X, m; Y{3、叠加平移量}
7 j! m9 q7 F/ _1 L% U$ zwk:=(kh-kL)/3;
4 k* R' s& W+ r6 Twd:=(kh+kL-(dh+dL)*bd)/2-wk[p];; P3 ~! I0 [, B! l E0 p; ?9 q8 B
wm:=(kh+kL-(mh+mL)*bm)/2;
$ N; l. c7 W4 C0 W& ^wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
7 D: d, b$ U5 P* Y* Q{以下画叠加线}
2 W( u" F+ o5 `/ PPARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
8 h. n# h6 R9 ePARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;1 R4 w+ e$ _% z/ Y% E6 r
PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
; t$ q) h- y1 h2 ]PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
+ a: ^. E$ L6 T; aPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;% n R/ }! H3 m, R' A* b
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;
+ T/ e. x8 ? Q7 ~3 `$ CPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;$ B. M; A; ~: g
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;0 _$ s% U2 K7 s, Y' P+ a
STICKLINE(m |