|
k:"kdj.k",linethick,COLORWHITE;- N0 k. I& |, O0 }5 u/ C5 l
d:"kdj.d",linethick0,COLORYELLOW;
& V# T" w8 n& X; V9 w0 Tr1:"rsi.rsi1",linethick0,ColorC080FF;
+ q% A9 P8 E' w6 u8 rr2:"rsi.rsi2",linethick0,ColorFF8080;6 x) J8 @; ]5 n6 `' @6 E' W, L2 C
r3:"rsi.rsi3",linethick0,Color87F8F4;
8 ]+ Z. j' N+ b$ u) of:"macd.diff",linethick0,Color72C072;! v/ }6 @; `' y/ C; [
a:"macd.dea",linethick0,ColorE98210;
3 ^0 u! ~" [3 C- y' r% g3 ~0 ]m:"macd.macd",linethick0,COLORWHITE;
2 S1 n9 r% t5 W3 ?{以下界说叠加区间(在这里是可见K线的范围)}; g0 H' r+ x8 M; h- v
q:=SYSPARAM(3)-SYSPARAM(2);
! e( d5 G- ^! X1 Wp:=SYSPARAM(3);
, p _+ W. [( w t+ r( Y- ]{以下盘算叠加比和叠加平移量}
- K; P% l; S, S' K/ l. S{1、叠加字段高度}
$ |3 m* Z8 N; n) Nkh:=hhv(h,q);
0 g/ m/ m" B% \" s3 F& ikL:=LLv(L,q);2 u& E5 H% O# l( q
dh:=hhv(max(k,d),q);
}+ n% k; h+ b: H3 s, J; tdL:=LLv(min(k,d),q);
5 R) X4 Q: q, B# C$ [, ]# z: \mh:=hhv(max(f,a),q);7 R& k* R+ e/ _9 H$ D4 [: h+ S
mL:=LLv(max(f,a),q); ^- f! C* G& x
rh:=hhv(max(max(r1,r2),r3),q);7 r3 {; L! b/ q" R+ I q
rL:=LLv(min(min(r1,r2),r3),q);$ R7 s# s. G4 v9 J" I
{2、叠加比}
' N8 N4 e" N3 W. g1 pbd:=(kh-kL)/(dh-dL)/3;9 {, M- w, T, I" Q/ s8 M2 o
bm:=(kh-kL)/(mh-mL)/3;
/ j+ e0 s% R8 ` l9 i2 Pbr:=(kh-kL)/(rh-rL)/3;
: }; @ Z% B: ]# t/ c* g{3、叠加平移量}0 u/ Q" Z0 [ d5 r" a0 u
wk:=(kh-kL)/3;
% H8 O; w- k0 j3 k8 N. Hwd:=(kh+kL-(dh+dL)*bd)/2-wk[p];$ c) [5 V9 o: f( u+ j
wm:=(kh+kL-(mh+mL)*bm)/2;- x) S% Q. b' V: ~# \; h
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
# t& i! T; F3 m. {7 o{以下画叠加线}% K8 V# Y9 R, s, f; X
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
, p$ D# S" u* _2 G& FPARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
6 i2 m. K c0 |6 e% FPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
2 O3 G7 R4 p1 L# c. r, |1 iPARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
- A2 M, f- H) w, ?/ zPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
k# j1 Z+ B- p/ O" W Y9 pPARTLINE(1,f*bm[p]+wm[p]),Color72C072;
: f& h6 G: T; ^! h# e5 U- M; mPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;: v; c5 v) q' ^
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;3 \! @1 q* a* q6 t0 y, }# z
STICKLINE(m |