|
k:"kdj.k",linethick,COLORWHITE;
( v/ `, l- w" O$ |( {' G* Bd:"kdj.d",linethick0,COLORYELLOW;5 A0 e% y/ N# L5 s+ u* U
r1:"rsi.rsi1",linethick0,ColorC080FF;6 P1 `2 i5 i; p. z) w; ]- @
r2:"rsi.rsi2",linethick0,ColorFF8080;
8 S/ s* B) C2 W/ J* g) gr3:"rsi.rsi3",linethick0,Color87F8F4;& }; A. @1 ~4 }& E& Z; g
f:"macd.diff",linethick0,Color72C072;
" |, i; n4 \8 J" b* v: T. la:"macd.dea",linethick0,ColorE98210;
$ q1 T' G& }$ \& Tm:"macd.macd",linethick0,COLORWHITE;
, C3 N% c) a: ~3 ?# g# K{以下界说叠加区间(在这里是可见K线的范围)}* b% ^1 b/ s: s" ~5 Z# G. x7 I; c
q:=SYSPARAM(3)-SYSPARAM(2);
) B" V7 h8 `" U4 b$ _: \p:=SYSPARAM(3);9 F6 D; h' X4 o. W% R' X
{以下盘算叠加比和叠加平移量}
/ {& e( e$ [) T! l' r: A% ?{1、叠加字段高度}
* M% [- v, \0 y, a% Hkh:=hhv(h,q);
/ |- S# R, e! ~; SkL:=LLv(L,q);- I7 E6 I* j* J
dh:=hhv(max(k,d),q);
$ R! i8 ?6 g( `& D1 @7 s, tdL:=LLv(min(k,d),q);
* X5 K; @5 }! Umh:=hhv(max(f,a),q);
* `0 W3 C/ M- omL:=LLv(max(f,a),q);6 S4 N1 i9 T9 R
rh:=hhv(max(max(r1,r2),r3),q);
; Q: M$ p; _0 z! d Z/ N3 IrL:=LLv(min(min(r1,r2),r3),q);
+ {& O- O O; L$ r B, i9 T/ g{2、叠加比}/ l4 A! |5 \* M- u* s5 O4 F
bd:=(kh-kL)/(dh-dL)/3;, `& y# j8 |4 N2 N3 l$ F
bm:=(kh-kL)/(mh-mL)/3;) ?, L0 W+ Z( v; g/ ]. d7 c# ^
br:=(kh-kL)/(rh-rL)/3;( H' l' x% s4 m0 ~& K: F
{3、叠加平移量}
* `# \5 ~$ Y, c% _" ?wk:=(kh-kL)/3;
: c; C) M3 n+ S/ @2 o3 rwd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
6 G$ N2 V* d$ i4 P- h( Mwm:=(kh+kL-(mh+mL)*bm)/2;
) o! n' S9 m, \7 _3 [wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
; a! j q* G/ Y- k9 l% T% m{以下画叠加线}
8 p! v, S- P( Q/ j6 D7 R; UPARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;! }+ Q5 L5 v( a
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
" _8 g7 `. Z4 U; tPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;4 i, h& H Z2 P% f" f5 n7 b
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
6 s5 ^* V- N4 R5 Q$ T Z: |$ U: aPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;+ @2 l# W1 q- @% W# {! V" d, p
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;
) C, f2 q' p# v3 u* O4 H rPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;, i0 [( p9 M0 ?. W3 H: r% P) u4 ?* `
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
: O4 Q, V q% X; z+ L1 RSTICKLINE(m |