|
k:"kdj.k",linethick,COLORWHITE;2 H& w: W1 H" {* X
d:"kdj.d",linethick0,COLORYELLOW;
}! E+ J3 P( l8 Lr1:"rsi.rsi1",linethick0,ColorC080FF;% y7 R2 Z2 N/ S$ }6 o% @' l
r2:"rsi.rsi2",linethick0,ColorFF8080;( K2 G4 ?+ U5 r( w. v
r3:"rsi.rsi3",linethick0,Color87F8F4;
/ y& ^! g) }+ _4 P7 O9 gf:"macd.diff",linethick0,Color72C072;9 [" K& q, h9 w5 v( U5 \3 T
a:"macd.dea",linethick0,ColorE98210;7 d) ]2 |: p, d* S8 _
m:"macd.macd",linethick0,COLORWHITE;% n6 o H9 h( M/ P
{以下界说叠加区间(在这里是可见K线的范围)}* o: k* E* n; s- g, {! Q
q:=SYSPARAM(3)-SYSPARAM(2);
9 O2 i0 H g% S4 ap:=SYSPARAM(3);
9 u1 n" j6 w) }/ \: I* F{以下盘算叠加比和叠加平移量}
2 M g2 g$ O* i0 G ^ X2 ^{1、叠加字段高度}
) b# A; g" Q. D( s! g5 S0 okh:=hhv(h,q);
8 q0 W" l) _2 z: ^kL:=LLv(L,q);: E; j9 f: ^7 P! F1 D8 V" s
dh:=hhv(max(k,d),q);. v8 P# X: Q7 o+ ?
dL:=LLv(min(k,d),q);
' H$ Q m! f/ m* R1 Amh:=hhv(max(f,a),q);
% E/ \- e) w# \" VmL:=LLv(max(f,a),q);5 Y) z! Y- R, \& m1 R" s8 E- x% O
rh:=hhv(max(max(r1,r2),r3),q);9 e3 I" S3 Y1 H
rL:=LLv(min(min(r1,r2),r3),q);/ E% t, v6 ^& a8 e ]' Y n( r
{2、叠加比}7 }; a! Q+ j- \+ n
bd:=(kh-kL)/(dh-dL)/3;
" N' C2 f. m' b k3 \, K }: s+ obm:=(kh-kL)/(mh-mL)/3;
4 I; O5 D0 J; U$ s3 rbr:=(kh-kL)/(rh-rL)/3;
$ Q# \% B; E! r{3、叠加平移量}
+ C# N0 B: T+ {2 i D# r# k6 zwk:=(kh-kL)/3;
4 [7 o2 ^/ O6 J4 T5 dwd:=(kh+kL-(dh+dL)*bd)/2-wk[p];5 e- y# q z' w0 H
wm:=(kh+kL-(mh+mL)*bm)/2;
- V2 L) e0 K$ x5 n" \# a" w' z7 F/ Ywr:=(kh+kL-(rh+rL)*br)/2+wk[p];
0 i' ~+ X$ m+ o- C# B3 x1 X{以下画叠加线}7 z3 t; a) Y" l( N' X4 v7 S
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;: q2 w5 n% ]6 y: E& A& i. x
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;* q5 \5 a8 O {( N6 l
PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;1 r( t" C1 f: o3 c, f/ x/ Y8 z
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
' y: Q- w; A) N; mPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
; N1 M* H& A& c& GPARTLINE(1,f*bm[p]+wm[p]),Color72C072;
3 r/ B; @. J6 D1 iPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;: y' a( y1 y. N$ O4 H' [9 S3 l7 }
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
. k R& _2 g8 b0 Z$ @) @$ \STICKLINE(m |