|
k:"kdj.k",linethick,COLORWHITE;* O% s7 r# z7 @
d:"kdj.d",linethick0,COLORYELLOW;+ A7 P# D. d, W5 W, c9 D, r
r1:"rsi.rsi1",linethick0,ColorC080FF;
! ^5 R+ j. N# a {# r4 v) E; O) Ir2:"rsi.rsi2",linethick0,ColorFF8080;
/ R) r5 f% k$ c; mr3:"rsi.rsi3",linethick0,Color87F8F4;) ]6 @% Q/ ]! `8 s3 Q7 q+ u
f:"macd.diff",linethick0,Color72C072;
( D$ ?" x# }3 z2 l; Ba:"macd.dea",linethick0,ColorE98210;* [' H: j1 f8 O( @2 G
m:"macd.macd",linethick0,COLORWHITE;/ j9 n( I7 B! |2 M! w4 Y
{以下界说叠加区间(在这里是可见K线的范围)}
+ o( f3 D5 `+ `9 o2 nq:=SYSPARAM(3)-SYSPARAM(2);
0 [* L/ U4 f% x( e% V+ N; lp:=SYSPARAM(3);/ E3 \ U+ Q; D3 g6 B
{以下盘算叠加比和叠加平移量}
1 i0 e' k d1 _2 N- g% _9 C b{1、叠加字段高度}- a: J! y8 a7 q# d, v; ^: c
kh:=hhv(h,q);
A E8 `9 p: Y( ]kL:=LLv(L,q);
' Q$ y* L/ x3 P' q; P" D" j; Ddh:=hhv(max(k,d),q);! S( y1 F3 c- o& I6 k- G
dL:=LLv(min(k,d),q);
7 \, H* S6 \. c9 B5 Y2 r$ P1 X5 b& w. jmh:=hhv(max(f,a),q);1 U. z1 V, q" d o& @2 |6 d
mL:=LLv(max(f,a),q);5 _$ M9 i& S! W* T ^
rh:=hhv(max(max(r1,r2),r3),q);$ s0 \4 |* T- i
rL:=LLv(min(min(r1,r2),r3),q);5 S* V- f& u7 K, q; C" A5 a# i
{2、叠加比}
) ^- P, _' U" ~- z7 {) E& ?+ Ubd:=(kh-kL)/(dh-dL)/3;" a' e" Q% p& M% E
bm:=(kh-kL)/(mh-mL)/3;( a4 Z$ n! N4 S, ^0 s+ \
br:=(kh-kL)/(rh-rL)/3;8 Q* M6 e- c; T
{3、叠加平移量}
9 D U6 b \) P2 L6 Nwk:=(kh-kL)/3; b; X/ h% X' S: m0 i% k! Q- M
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];0 w3 h% G% o$ Q" Z: Z
wm:=(kh+kL-(mh+mL)*bm)/2;; q, h4 W7 @8 r4 G% A7 y8 d
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];; s# \) f& i7 m" M$ f* k7 @
{以下画叠加线}) {& m" }7 Y- V4 ~
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;* [1 w1 P0 D& g
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
. ~+ H0 d, t& d! L! j! QPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;* _# h7 T2 s/ A5 Y# P
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;' T5 s. f1 B# l. y/ { o4 k
PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
+ S) A! v/ J: A6 A( GPARTLINE(1,f*bm[p]+wm[p]),Color72C072;
i c6 L" H/ t8 u: JPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;" B; T( n* W/ L8 k& v1 g# j: U9 r v
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
1 U+ X' d! Y( y, PSTICKLINE(m |