|
k:"kdj.k",linethick,COLORWHITE;4 S( S- C: A5 o
d:"kdj.d",linethick0,COLORYELLOW;# ^ F: Z6 i. u& k' o
r1:"rsi.rsi1",linethick0,ColorC080FF;6 N$ w4 l K; j* F
r2:"rsi.rsi2",linethick0,ColorFF8080;
: t; K6 e- N0 ]! U" o! B' Jr3:"rsi.rsi3",linethick0,Color87F8F4;: {0 J' i0 [4 r; y! H
f:"macd.diff",linethick0,Color72C072;0 k7 X4 V3 \+ P6 V* y. T
a:"macd.dea",linethick0,ColorE98210;
3 L& `* O: S: B8 ~4 Nm:"macd.macd",linethick0,COLORWHITE; p1 M: v4 a: h) q6 M
{以下界说叠加区间(在这里是可见K线的范围)}6 i; V0 ~" V4 _ j I5 j5 w/ t
q:=SYSPARAM(3)-SYSPARAM(2);
3 @* y2 B8 U: o. h4 @% o' \) m2 Zp:=SYSPARAM(3);
% k3 C5 B7 ^+ ~4 W z" |( M7 U7 J( d4 v{以下盘算叠加比和叠加平移量}
; }: U5 n) `$ d' F3 V2 ~5 Q{1、叠加字段高度}
# R7 |' L6 N4 r1 W8 @kh:=hhv(h,q);
- x% B$ S$ t# t" \kL:=LLv(L,q);, s1 X1 ]5 R( i" ?; L2 f) {
dh:=hhv(max(k,d),q);
: t# ~& p, ]" A. v$ g2 ndL:=LLv(min(k,d),q);
: l8 q3 l2 G. e" f- \/ L+ W/ @mh:=hhv(max(f,a),q);
3 L" ^$ f% x1 J# ~mL:=LLv(max(f,a),q);. q5 a( L' f' W+ b
rh:=hhv(max(max(r1,r2),r3),q);
% j i* G9 p- _1 D, C' vrL:=LLv(min(min(r1,r2),r3),q);
( p# A$ |8 E# w4 @{2、叠加比}7 [' S* @' N' R" O. D2 g4 e, j D
bd:=(kh-kL)/(dh-dL)/3;7 K* f! r9 m" p9 @* j
bm:=(kh-kL)/(mh-mL)/3;
& w2 L! Q$ c" a- Obr:=(kh-kL)/(rh-rL)/3;
+ @1 A( i! p' P0 Y- S5 v{3、叠加平移量}
) b) ^3 x: E3 Uwk:=(kh-kL)/3;% \( J: x, j# V. ]9 u/ \& e( o
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];. w6 f2 a, ]4 _; n+ V
wm:=(kh+kL-(mh+mL)*bm)/2;* z0 o5 G8 W p, ]& Y
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];' a+ r! F3 H$ l( k; `0 y
{以下画叠加线}- Z# K: Z" X! s) z2 @) I5 U) Y
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;6 V0 Z$ V- o% l6 K
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
6 I/ k+ Y$ ~/ uPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;; e+ M* x' [% }1 x" J) U" X8 l
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;/ K z" \3 J9 v0 G. y" q! t8 B
PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;. b2 M( n7 E) Q
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;- ?. T3 {0 J: M) u, `: M+ S
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;9 v' ^% s! o6 O# w1 x# c. w: ]
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;: g' }- C: Q- H/ s0 i
STICKLINE(m |