|
k:"kdj.k",linethick,COLORWHITE;
5 J" ?2 z/ j5 Yd:"kdj.d",linethick0,COLORYELLOW;! i6 b1 S6 a- W/ m! G
r1:"rsi.rsi1",linethick0,ColorC080FF;
+ g* O* q- |5 e7 h, Vr2:"rsi.rsi2",linethick0,ColorFF8080;; q2 |. `# b8 s' f& L0 S) f
r3:"rsi.rsi3",linethick0,Color87F8F4;
) T; s4 G" C4 @1 X Uf:"macd.diff",linethick0,Color72C072;. U1 ?; N5 @1 a$ d9 Z1 V
a:"macd.dea",linethick0,ColorE98210;& O E' B8 C; M" @4 p1 ~% z
m:"macd.macd",linethick0,COLORWHITE; d+ s& t' s1 I8 ~4 ^3 x) n
{以下界说叠加区间(在这里是可见K线的范围)}( a/ U7 F. @( C) s9 i! u5 }" X0 d
q:=SYSPARAM(3)-SYSPARAM(2);
! x* M6 F/ ]* S: V" a, B, ap:=SYSPARAM(3);$ s7 [) v( J( T' J& x% t9 |
{以下盘算叠加比和叠加平移量}6 o" X( G1 A* |$ l/ I6 V1 c
{1、叠加字段高度}
6 d6 T: d+ U5 [8 L% v" t4 pkh:=hhv(h,q);$ _( x9 a, _3 c& S. y8 o! C+ \
kL:=LLv(L,q);
1 l$ q7 C" i* H; @& M+ P$ ]dh:=hhv(max(k,d),q);7 i2 g7 k1 `8 d/ M) u
dL:=LLv(min(k,d),q);
" l9 ?6 \) y ?mh:=hhv(max(f,a),q);" t- @3 ~6 c" `$ ^
mL:=LLv(max(f,a),q);+ Z: F' P1 S R5 n% I8 ^. h$ W# ?
rh:=hhv(max(max(r1,r2),r3),q);
! f+ W |5 s- J3 ?1 drL:=LLv(min(min(r1,r2),r3),q);% K i: Q+ t: H: H( k: z
{2、叠加比}% ]+ F2 u) v/ ^* P- g; F
bd:=(kh-kL)/(dh-dL)/3;
+ I' h. z$ l- k0 p$ s, Cbm:=(kh-kL)/(mh-mL)/3;
; p" F; Z" y" O/ tbr:=(kh-kL)/(rh-rL)/3;
! e8 u( ]; X8 L) W# p* z{3、叠加平移量}
7 \7 L1 m0 K3 l$ d( H& Cwk:=(kh-kL)/3;
/ ~6 y) d% F; |6 E" C) Ewd:=(kh+kL-(dh+dL)*bd)/2-wk[p];) N+ g @7 i* D ^
wm:=(kh+kL-(mh+mL)*bm)/2;
! K9 o# p% x) Y% q* I# ]) C* Vwr:=(kh+kL-(rh+rL)*br)/2+wk[p];
9 P, X; T# ?5 g{以下画叠加线}
7 w) H8 F& {5 [, @2 q( j' QPARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
9 t* K$ {3 y8 B# UPARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
# r* h: |9 l- NPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
2 T4 q5 o& I& y8 zPARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
5 d: X# M% g3 }- E j. q2 } l- d( h; @PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
: j* l, ~% _- Q& E5 h3 B; JPARTLINE(1,f*bm[p]+wm[p]),Color72C072;/ V K" B4 X* h" ]/ c
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;% A0 r( X! |: k2 t9 B! O
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;( a% f0 o8 C/ I2 d5 B/ S. R3 R( M! S) @
STICKLINE(m |