|
k:"kdj.k",linethick,COLORWHITE;% m1 X6 n# i9 i2 @* d
d:"kdj.d",linethick0,COLORYELLOW; G8 o! }0 L4 u; N7 A! x' r
r1:"rsi.rsi1",linethick0,ColorC080FF;
6 q5 t* z) s7 J; Sr2:"rsi.rsi2",linethick0,ColorFF8080;+ ]% {9 ?2 M1 T7 W/ Z! i2 b e
r3:"rsi.rsi3",linethick0,Color87F8F4;, c9 z$ z* R: Z8 _) h
f:"macd.diff",linethick0,Color72C072;! O6 V7 L9 M+ e9 Q4 c9 O
a:"macd.dea",linethick0,ColorE98210;
. J5 Q5 U6 w8 |4 ]% Lm:"macd.macd",linethick0,COLORWHITE;5 J" Y& g5 o6 o/ X; ?, D# l
{以下界说叠加区间(在这里是可见K线的范围)}
* @1 \# t: x4 s" xq:=SYSPARAM(3)-SYSPARAM(2);
& F, @0 m* q/ `p:=SYSPARAM(3);) N1 h! R& `) t+ g1 O
{以下盘算叠加比和叠加平移量}; O( e) k( _) |* [: K. V
{1、叠加字段高度}7 l) Y* V6 q( I8 L% _: o
kh:=hhv(h,q);8 v7 v; {) L% {% ?/ U/ O+ t$ q& q; m
kL:=LLv(L,q);
$ F( S- y }2 ]( A: bdh:=hhv(max(k,d),q);
1 w7 i: x, o2 S, D( d( L% AdL:=LLv(min(k,d),q);1 F$ @2 ~4 ?5 V; y- H: G
mh:=hhv(max(f,a),q);+ ?/ K4 l% d8 Y+ s
mL:=LLv(max(f,a),q);
; W" l i* r/ p+ T9 R" T; U$ r7 grh:=hhv(max(max(r1,r2),r3),q);0 w; @$ Y8 f# \) D- X+ {2 R+ z x
rL:=LLv(min(min(r1,r2),r3),q);
6 W5 s3 S% A u6 ~" B: n{2、叠加比}+ | [) G; I+ h
bd:=(kh-kL)/(dh-dL)/3;
$ `& h( W4 u, w sbm:=(kh-kL)/(mh-mL)/3;
4 ~6 _7 V- Z# O9 L" Q& g; |4 Jbr:=(kh-kL)/(rh-rL)/3;" j5 b, J* U1 g& K7 c+ T! R/ j
{3、叠加平移量}9 f# B" C) |9 |
wk:=(kh-kL)/3;
6 P& W5 U& F( V6 dwd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
8 z6 L8 | Y" u7 uwm:=(kh+kL-(mh+mL)*bm)/2;2 f! \0 R) x8 U& ?* r6 ] ]5 ]3 }
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];; x) o! K) L8 E4 w- g
{以下画叠加线}
0 w4 j7 k# q% \! r5 F2 KPARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
: `7 O7 @8 X6 mPARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
l6 T8 x/ S- V oPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
5 [/ ] N0 b2 k) d- W( `7 KPARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
# k; h n4 }) T$ V2 _" F' {6 zPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
% ?4 D# ?2 a p- i; g- \. QPARTLINE(1,f*bm[p]+wm[p]),Color72C072;; H2 h9 n+ _$ V$ u) Y
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
/ D! n ? @* A# c9 m9 x. `STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;1 w0 A# J" C& K
STICKLINE(m |