|
k:"kdj.k",linethick,COLORWHITE;% E# R5 d1 K1 \; w& M
d:"kdj.d",linethick0,COLORYELLOW;- i/ a- G8 m( E
r1:"rsi.rsi1",linethick0,ColorC080FF;
! O; W+ v) i9 Q! ir2:"rsi.rsi2",linethick0,ColorFF8080;
0 L5 X) @( u% Gr3:"rsi.rsi3",linethick0,Color87F8F4;
, b( E0 F% o) u- @0 [0 e" N% of:"macd.diff",linethick0,Color72C072;
; v% \ @4 x! [a:"macd.dea",linethick0,ColorE98210;
9 l- R1 Y% g/ Gm:"macd.macd",linethick0,COLORWHITE;
& A$ R, ^8 R* j Y{以下界说叠加区间(在这里是可见K线的范围)}1 b4 W% X' Z( M* t3 g
q:=SYSPARAM(3)-SYSPARAM(2);* m( B5 `" i y1 n6 n' X1 M
p:=SYSPARAM(3);5 H( H4 l' g- v2 @4 G
{以下盘算叠加比和叠加平移量}
2 O8 b5 ^, _ B) W7 X{1、叠加字段高度}
. a/ Q7 M3 w% p: n: j- lkh:=hhv(h,q);7 W3 _' A1 B U) ]5 T$ w$ h! K" L
kL:=LLv(L,q);
, M$ D& S0 O8 a! d5 wdh:=hhv(max(k,d),q);
' x4 q$ ~2 T GdL:=LLv(min(k,d),q);
# \2 h% Q; I! ~1 Z }; smh:=hhv(max(f,a),q);" P! k/ N* w+ c9 H
mL:=LLv(max(f,a),q);: \! S8 `. H! { w# t& a
rh:=hhv(max(max(r1,r2),r3),q);0 a0 I" |+ o4 [" z
rL:=LLv(min(min(r1,r2),r3),q);
, w/ D1 ~; G) y2 R{2、叠加比}
! D3 g3 _! c2 s& [3 M0 [# S/ ^bd:=(kh-kL)/(dh-dL)/3;( j B) o8 M n" l" ^8 G* X; ^
bm:=(kh-kL)/(mh-mL)/3;" J) B" ]* f* ~
br:=(kh-kL)/(rh-rL)/3;9 s4 t6 [3 ~$ c, h1 V) I& Y& F8 k
{3、叠加平移量}
2 x3 @9 s6 M- u& w% ]wk:=(kh-kL)/3;" u0 B5 Q* _4 j7 Q! c e5 H
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
* A9 j: M4 Z. B wwm:=(kh+kL-(mh+mL)*bm)/2;$ z# I8 v. }! i$ t# m1 M
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
3 t7 }# k/ y" O! O{以下画叠加线}
. I R1 C5 n2 p! F9 @5 uPARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
* ~" Y0 D$ }( `$ N/ bPARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;3 x$ j/ |6 k* F
PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
7 v5 q( `/ l0 q1 f9 [5 u- wPARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;# M5 @& @4 S) B- ]
PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
/ o- s X5 Z. v% X0 WPARTLINE(1,f*bm[p]+wm[p]),Color72C072;9 X$ }- d0 B2 c# \. }# r7 p; W7 X( I
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
/ [3 Q/ \9 I% {7 F. X6 OSTICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
; O, C9 X3 n( w' i% K7 eSTICKLINE(m |