|
k:"kdj.k",linethick,COLORWHITE;" n) i8 G9 Y8 k T1 ~* S
d:"kdj.d",linethick0,COLORYELLOW;' t! V x' G8 L; W1 m4 o: R! d
r1:"rsi.rsi1",linethick0,ColorC080FF;; }4 ?- o0 g3 b! `/ Y
r2:"rsi.rsi2",linethick0,ColorFF8080;
$ Y3 V% r+ n2 y# X- c2 lr3:"rsi.rsi3",linethick0,Color87F8F4;
+ j2 R: h$ F! ef:"macd.diff",linethick0,Color72C072;, w( {; U) M1 X2 P, H5 T8 Z
a:"macd.dea",linethick0,ColorE98210;
$ B. d9 |4 @2 B) qm:"macd.macd",linethick0,COLORWHITE;
0 s$ ]9 R. X( [! H) @1 c{以下界说叠加区间(在这里是可见K线的范围)}* m- B6 H9 l/ @ d) H( X4 T+ O
q:=SYSPARAM(3)-SYSPARAM(2);
* C3 \: S1 W7 R6 r" hp:=SYSPARAM(3);/ R3 |; a2 s- F. {! X
{以下盘算叠加比和叠加平移量}
. m! A& [8 f- g4 }+ c2 B{1、叠加字段高度}% ^* Z3 Q' i# q# `3 S& b: y7 I2 `. ~! z- i0 m
kh:=hhv(h,q);3 f' O8 x0 `$ A+ Z3 O
kL:=LLv(L,q);
3 i$ V, w* E6 h. f: y3 Ydh:=hhv(max(k,d),q);
* G7 Z5 \8 _, Y& AdL:=LLv(min(k,d),q);
! h9 V- s: r1 `/ D9 c" X9 r4 ~mh:=hhv(max(f,a),q);- I4 V" W$ x3 g3 A) g' I3 K8 ^% ]+ F
mL:=LLv(max(f,a),q);0 [9 p R- f U' C* ^7 S
rh:=hhv(max(max(r1,r2),r3),q);; N, W3 i2 M1 Z1 Q$ k! T$ W; S
rL:=LLv(min(min(r1,r2),r3),q);! D) T9 C( f" |9 D8 N
{2、叠加比}$ Y5 \, z" s% Y5 c$ d$ o
bd:=(kh-kL)/(dh-dL)/3;
( h& s0 c7 {9 {3 j$ D. Rbm:=(kh-kL)/(mh-mL)/3;
+ n3 ]7 X, j4 o' y4 {3 \br:=(kh-kL)/(rh-rL)/3;' g; I3 i7 P$ T0 U- |' o H* l
{3、叠加平移量}9 ~ D6 h- R! g' q o" i* u
wk:=(kh-kL)/3;& m9 A+ H. Q3 L8 @8 o
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];3 }% l9 z! O# l( c, N8 B1 C
wm:=(kh+kL-(mh+mL)*bm)/2;) A! H, b" Z q$ x
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];2 R4 n2 x4 C+ [, h* ?+ k
{以下画叠加线}
% }$ W, `% X5 a3 K7 X/ kPARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
: [& M' Z/ h+ W* bPARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
) c& _2 Q8 ~; S' o' J$ ]: MPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
- k6 }, g) i7 t2 t9 ~( }PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
3 M, Q) K) c/ |% X: h0 A5 _PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;% t6 v8 j6 `3 `- Z. C! S' D
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;
" a: {$ c: i8 [1 s. y3 ]PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;4 [0 B# d- @" s7 D% F
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;3 l8 u0 G, k. D9 `& M C% X
STICKLINE(m |