|
k:"kdj.k",linethick,COLORWHITE;
9 k7 d+ Q( l' J4 R( [d:"kdj.d",linethick0,COLORYELLOW;: S# D# A7 x" l
r1:"rsi.rsi1",linethick0,ColorC080FF;
, g1 G& h8 V- @$ I" ]r2:"rsi.rsi2",linethick0,ColorFF8080;
3 R7 C5 B! ?6 G$ L- ?9 G# i6 ]" \r3:"rsi.rsi3",linethick0,Color87F8F4;
|& [( T$ H+ Yf:"macd.diff",linethick0,Color72C072;
: I. q/ K' q6 s' q' }a:"macd.dea",linethick0,ColorE98210;
+ l3 j8 v2 u1 x4 F+ H' G& X' b' Dm:"macd.macd",linethick0,COLORWHITE;" t7 u1 f+ _; W; v# f
{以下界说叠加区间(在这里是可见K线的范围)}
+ J9 x0 X. t gq:=SYSPARAM(3)-SYSPARAM(2);7 S+ H2 i( P4 t
p:=SYSPARAM(3);
7 ~) g2 c7 d7 D; M8 | |{以下盘算叠加比和叠加平移量}0 e% r8 a& o$ O+ \5 t- z# R
{1、叠加字段高度}5 H# q( C) P! H7 f
kh:=hhv(h,q);/ r& q: @4 m3 x, e3 c
kL:=LLv(L,q);
/ j& a) S+ B7 X: P5 ddh:=hhv(max(k,d),q);
4 w7 g- A4 m9 Z2 odL:=LLv(min(k,d),q);6 @" V& ~% W% A- Y- I, h7 d% e0 d
mh:=hhv(max(f,a),q);( W& T2 }6 a* f D1 s% n5 U \* {
mL:=LLv(max(f,a),q);% b1 }" v, f9 o/ ^7 Y* s! d
rh:=hhv(max(max(r1,r2),r3),q);
" F) H6 M7 ]- m5 q _rL:=LLv(min(min(r1,r2),r3),q);! W6 L2 q) A( |: Y+ M9 V2 r
{2、叠加比}# i R/ z V! [4 {' t
bd:=(kh-kL)/(dh-dL)/3;
, j0 B ^) @+ d* Z A6 X" Bbm:=(kh-kL)/(mh-mL)/3;. M* C& p, G* R N8 n4 \
br:=(kh-kL)/(rh-rL)/3;4 a* V2 T0 g4 _
{3、叠加平移量}+ H) e: T" B$ c" d; Z @$ b4 Y
wk:=(kh-kL)/3;+ V$ B+ U, Y$ |7 S$ g. G# O
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];. G+ ~8 G# q6 f' W7 W, H* d* h' u
wm:=(kh+kL-(mh+mL)*bm)/2;; m. v: ~ s& ?6 b' T0 T
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
' @) s: K# }6 j+ s{以下画叠加线}( J. q t% G$ c5 D! Z& h
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
1 l1 X2 n% N7 Y5 `) U7 ^, FPARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
: z- k# R* w) J5 T( V. ZPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
- a% }4 H& q b6 c+ K; B* hPARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
& _/ L/ S o: }4 YPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;9 X4 @$ o/ |6 T! \
PARTLINE(1,f*bm[p]+wm[p]),Color72C072; _7 D: K& W9 c% y8 {
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
0 f; ]. E1 R; eSTICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;. Z) U H6 q [+ n
STICKLINE(m |