|
k:"kdj.k",linethick,COLORWHITE;- `3 [/ E+ V* H; E/ I
d:"kdj.d",linethick0,COLORYELLOW;' R" ^# }/ m' {0 b" e) V
r1:"rsi.rsi1",linethick0,ColorC080FF;% B2 R4 C/ l1 W. i0 g! Q* i& H& n
r2:"rsi.rsi2",linethick0,ColorFF8080;
8 |3 [/ H4 S- W, vr3:"rsi.rsi3",linethick0,Color87F8F4;
* c( M Y- d% z1 q- K. Xf:"macd.diff",linethick0,Color72C072;
' \8 z3 \, \ A Ra:"macd.dea",linethick0,ColorE98210;9 j( N, B3 x% ?1 \
m:"macd.macd",linethick0,COLORWHITE;
1 }( I+ [% z& Z# Y) A0 I0 f" L{以下界说叠加区间(在这里是可见K线的范围)}6 I' \6 J* x# A+ D
q:=SYSPARAM(3)-SYSPARAM(2);
" v* f) C& v( ~0 d$ S0 `3 hp:=SYSPARAM(3);
# Z$ B$ ]4 z/ b9 Q i z7 Z2 |{以下盘算叠加比和叠加平移量}! d5 r: _/ G3 n. z, w
{1、叠加字段高度}. a: l2 O2 T7 l' H6 s& y; u- F0 m, k
kh:=hhv(h,q);5 J: M B/ m9 C! }, j
kL:=LLv(L,q);
2 u2 D5 r, R4 d5 q; B8 ^dh:=hhv(max(k,d),q);
* T! t* H4 N: v5 M7 o5 _1 h% hdL:=LLv(min(k,d),q);2 G$ l4 J0 ^# x4 e; e6 N, n
mh:=hhv(max(f,a),q);
; ^, @0 y3 o1 F6 V k% l5 ^mL:=LLv(max(f,a),q);6 M/ a0 b' w- @
rh:=hhv(max(max(r1,r2),r3),q);* }# c/ S6 j+ A# E1 C- z. t! S1 x0 f
rL:=LLv(min(min(r1,r2),r3),q);
* v, w: z: ~% S+ {, `0 l{2、叠加比}9 a" I/ i4 W( }( ]" ?- k: p! e
bd:=(kh-kL)/(dh-dL)/3;
" v$ d6 O( @6 zbm:=(kh-kL)/(mh-mL)/3;+ y! X, h; ~8 b" Q. y- k
br:=(kh-kL)/(rh-rL)/3;5 q- c& B/ k) C+ v+ n
{3、叠加平移量}. `6 O0 F& i- [6 f9 l9 |- O. |3 g
wk:=(kh-kL)/3;$ O3 @% A# R, f" o9 U5 }- Y
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
+ m$ n! G- Y7 K( G( ?6 g8 i* owm:=(kh+kL-(mh+mL)*bm)/2;. e1 r4 E: H2 g3 ~3 W
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
3 U6 f" j& w9 V' m9 V+ X{以下画叠加线}
4 ^/ }; p$ @& Z1 P; XPARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
1 O0 ^6 }( F6 w" ~/ ]PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;" U/ u0 ?: h# j5 @/ g
PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
# j' H* i, g% n3 L: oPARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;4 t+ ~( ]; G4 R- I N( j
PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;5 Q7 K( |7 J. m( G' b# Z
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;% W% V$ U7 V$ k, W+ H2 ]! u, x' ? T8 v
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;/ s0 h3 a$ c3 j; u" D3 u- f
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;5 C" b0 T4 R8 s5 ?* ?
STICKLINE(m |