|
k:"kdj.k",linethick,COLORWHITE;
8 O$ E( V% K1 ?d:"kdj.d",linethick0,COLORYELLOW;
1 w9 E* l2 d( l/ @r1:"rsi.rsi1",linethick0,ColorC080FF;* ~+ Q: ~3 l: w/ J/ _' a
r2:"rsi.rsi2",linethick0,ColorFF8080;: i7 |4 H+ ~) C, Q
r3:"rsi.rsi3",linethick0,Color87F8F4;8 u1 [+ R d9 {# `4 d
f:"macd.diff",linethick0,Color72C072;& |: j& D5 ]6 a! G
a:"macd.dea",linethick0,ColorE98210;7 O5 h1 u# x8 a& k' d6 Y5 `
m:"macd.macd",linethick0,COLORWHITE;6 c3 i5 o( M/ Y
{以下界说叠加区间(在这里是可见K线的范围)}
9 F: x- A1 s7 {5 Kq:=SYSPARAM(3)-SYSPARAM(2);1 j8 ~, ~4 C [' {. r
p:=SYSPARAM(3);
9 q d+ }0 W5 X1 _{以下盘算叠加比和叠加平移量}
9 A K/ g; d$ [{1、叠加字段高度}
+ `' e) h. d1 m4 ?2 F9 Ikh:=hhv(h,q);
0 t& g2 G0 F) ~$ v: ~, }# dkL:=LLv(L,q);
! I) h$ s) ~8 }0 ]$ E R8 Idh:=hhv(max(k,d),q);
% n: y. u2 [1 a9 X, ]1 k8 Q% QdL:=LLv(min(k,d),q);
/ o' Y& f4 H' ?. x8 Nmh:=hhv(max(f,a),q);# J0 O( m" d; L+ t7 [2 t+ K( ?9 H
mL:=LLv(max(f,a),q);$ P( _( @& M& i, K0 P
rh:=hhv(max(max(r1,r2),r3),q);1 u- q. l$ B1 l! b0 }2 {/ `
rL:=LLv(min(min(r1,r2),r3),q);
% S3 x" \+ I l/ _5 F{2、叠加比}
& h4 x- H7 J/ O1 u9 f qbd:=(kh-kL)/(dh-dL)/3;
5 u9 o7 B8 G. }4 M' P9 h/ }bm:=(kh-kL)/(mh-mL)/3;% R0 ]) z0 j2 G& ?! L
br:=(kh-kL)/(rh-rL)/3;
) f# w7 T: O/ J% V{3、叠加平移量}4 W6 `: m1 Z3 U: R+ q8 F3 H
wk:=(kh-kL)/3;
[3 U# x+ t x, `wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
/ J+ d9 A2 N0 M; L2 Nwm:=(kh+kL-(mh+mL)*bm)/2;
8 d$ L6 U. J6 E1 lwr:=(kh+kL-(rh+rL)*br)/2+wk[p];
" o, p: j7 |, g5 [4 x+ A{以下画叠加线}( y7 w4 P% Z5 s+ w
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;3 m" q( ?* i- `, J& ~/ D# G
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
- ?3 C' H$ x; E4 Y7 f# M: Y" ~! P6 @PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
! s6 ~0 E8 u% z5 U1 T6 q# y0 aPARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;0 {) l2 E% z; o* {, [1 ^
PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
: z' U; r4 r& r7 GPARTLINE(1,f*bm[p]+wm[p]),Color72C072;
/ t0 h9 u: {$ m6 Z- V# RPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
/ L- ]; F! z, j# x5 C# _STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
- d! F$ L+ y& A% d5 X1 [8 b: dSTICKLINE(m |