|
k:"kdj.k",linethick,COLORWHITE;
* i- ], r: B' h9 N* u: md:"kdj.d",linethick0,COLORYELLOW;
, ^5 z9 F) u( Zr1:"rsi.rsi1",linethick0,ColorC080FF;
7 F: d3 G# j5 P7 u# m, j8 br2:"rsi.rsi2",linethick0,ColorFF8080;3 Q& N, ]/ V8 p W
r3:"rsi.rsi3",linethick0,Color87F8F4;8 |- P4 [0 m4 P( H3 G1 T
f:"macd.diff",linethick0,Color72C072;2 m- Q& T" _* n: y& |
a:"macd.dea",linethick0,ColorE98210;
2 N: w' M, v, qm:"macd.macd",linethick0,COLORWHITE;
6 L. _1 s/ b+ |' x{以下界说叠加区间(在这里是可见K线的范围)}) o% q- f2 A+ O- F
q:=SYSPARAM(3)-SYSPARAM(2);2 B6 t( H) I. [) ? ^# o+ Z" ~
p:=SYSPARAM(3);9 @! ?7 F4 C' e6 x
{以下盘算叠加比和叠加平移量}& y! s2 z- x% q9 W' i# l
{1、叠加字段高度}) R2 ]0 S) D% G3 x
kh:=hhv(h,q);
$ S9 ?+ g5 \6 z9 j, t6 f) ?kL:=LLv(L,q);8 ^! O5 T3 x ]% q6 D
dh:=hhv(max(k,d),q);- Z8 Z$ t+ s$ e! _) C
dL:=LLv(min(k,d),q);
0 O9 w: h; a5 h1 p3 g& T2 Xmh:=hhv(max(f,a),q);
5 K/ X6 M3 O) F( HmL:=LLv(max(f,a),q);
- M6 b1 J8 T! E j" qrh:=hhv(max(max(r1,r2),r3),q);- |3 |# Q, ^0 u5 p* T- C% `, Y
rL:=LLv(min(min(r1,r2),r3),q);* |; F: _/ M/ W" z( _, ^* u' Q
{2、叠加比}1 A- `* P6 ?! z! O/ b
bd:=(kh-kL)/(dh-dL)/3;4 m; w* j) C4 O: r! ~; X$ C
bm:=(kh-kL)/(mh-mL)/3;( o9 M- r1 B1 E9 C7 o* l0 K: C, s
br:=(kh-kL)/(rh-rL)/3;" F" L7 T' N" F
{3、叠加平移量}+ }. O- w8 p. Q9 @5 ^# b5 x0 k
wk:=(kh-kL)/3; n$ `8 g8 V4 K/ E, K! f
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
" x- h! K& s, L! qwm:=(kh+kL-(mh+mL)*bm)/2;
+ j9 F _8 J9 Fwr:=(kh+kL-(rh+rL)*br)/2+wk[p];& n8 z1 _+ s; ?) m6 ]
{以下画叠加线}& G0 C* ?, ]2 |) s7 k& Y0 {' m; }: t
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;9 B& k% U6 L8 o
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;; c; Y2 B+ V$ w- b. K
PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;6 g, d0 B! V& S2 k- d" {. i- C. F: V
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
7 b! L. @1 ~& m& dPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
7 F+ |+ d/ S% m$ g* F/ y' v" {PARTLINE(1,f*bm[p]+wm[p]),Color72C072;
. T1 ^5 U1 s5 p8 B% j5 QPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;; q" ]) p+ h2 j& [$ |
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
! V- L! e, Z+ ~STICKLINE(m |