|
k:"kdj.k",linethick,COLORWHITE;
. M4 P' n; v; g" u5 cd:"kdj.d",linethick0,COLORYELLOW;, m7 L/ p& v- R6 j
r1:"rsi.rsi1",linethick0,ColorC080FF;0 n( C6 r% B3 S% C
r2:"rsi.rsi2",linethick0,ColorFF8080;+ `* R4 H- {2 z. p! h
r3:"rsi.rsi3",linethick0,Color87F8F4;- K/ C" A3 F+ n' n- l5 S* E
f:"macd.diff",linethick0,Color72C072;; g) b+ x; `( }# I
a:"macd.dea",linethick0,ColorE98210;1 H, f7 X% J; ^6 v! `2 n$ o
m:"macd.macd",linethick0,COLORWHITE;# j# G- s% Y4 D$ P3 s, A
{以下界说叠加区间(在这里是可见K线的范围)}
/ `2 ~2 j- c) H" q/ Q) D; Qq:=SYSPARAM(3)-SYSPARAM(2);, V4 t/ L+ [$ i: ~& {
p:=SYSPARAM(3);
" M3 A+ M4 q' f. H2 q{以下盘算叠加比和叠加平移量}
7 A# a+ L& Q) | ^8 k( o{1、叠加字段高度}
4 f4 t% _# M) Wkh:=hhv(h,q);
' @8 @* k' ~+ s# E' n. q+ A$ i- jkL:=LLv(L,q);
1 p8 r2 `1 A, w7 Qdh:=hhv(max(k,d),q);
: N t$ Q( r4 FdL:=LLv(min(k,d),q);
; i! m6 ?* d% {3 s) ^5 Imh:=hhv(max(f,a),q);
3 o1 v9 t5 c6 s+ o P ]mL:=LLv(max(f,a),q);! {8 z5 L2 C* @# j# e# ]" H# _
rh:=hhv(max(max(r1,r2),r3),q);& {, L' K9 j4 W" \
rL:=LLv(min(min(r1,r2),r3),q);, T; a/ ?8 Z4 r O! ]% _
{2、叠加比}7 t7 C; n& B' L f" M
bd:=(kh-kL)/(dh-dL)/3;
/ p2 V6 @9 Z, ~" H5 P7 T: Qbm:=(kh-kL)/(mh-mL)/3;% b# @0 d2 x# a) G& c8 [4 }7 A+ J
br:=(kh-kL)/(rh-rL)/3;
' ?8 E5 l/ g: r' k5 B2 q. k{3、叠加平移量}, Y% K9 B/ Y8 r1 C0 u1 _% \
wk:=(kh-kL)/3;
4 R% `$ Z0 h% p0 @3 o/ Ewd:=(kh+kL-(dh+dL)*bd)/2-wk[p];+ r, d( Q5 L+ _) K/ ~1 x6 j
wm:=(kh+kL-(mh+mL)*bm)/2;
3 q; ?6 m+ u" c% ~8 qwr:=(kh+kL-(rh+rL)*br)/2+wk[p];: w. p3 I0 Z& I, i
{以下画叠加线}( R1 G0 f I3 K+ X' Q$ u
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
% n2 u8 f7 A) V+ W2 hPARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
0 K7 G/ W/ K5 q0 r# OPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;9 Q/ @4 }: R7 F4 H) Z& l) O
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;. F* E7 g; ~1 f( W- ?
PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;( E n& x. e( X0 v4 E
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;
" k+ _) |2 y1 H8 @+ M* k. dPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;* U; X) m- ^1 O& N& S4 E, f
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;% J- c: Y& y2 {% ^6 ^; p! Y% A
STICKLINE(m |