|
k:"kdj.k",linethick,COLORWHITE;7 p$ w1 b @, u4 A2 V
d:"kdj.d",linethick0,COLORYELLOW; \7 |: X% h1 M6 h
r1:"rsi.rsi1",linethick0,ColorC080FF;
2 ]: v5 ~# O: rr2:"rsi.rsi2",linethick0,ColorFF8080;
! G/ x) f, w6 q% Z& }r3:"rsi.rsi3",linethick0,Color87F8F4;2 ]6 u9 y3 p* [% R
f:"macd.diff",linethick0,Color72C072;5 j' M: L0 F o/ X( `3 }2 W
a:"macd.dea",linethick0,ColorE98210;
?7 s; M" k, |8 j5 I! ^m:"macd.macd",linethick0,COLORWHITE;
7 X; c8 p! s" ~' e5 V! R{以下界说叠加区间(在这里是可见K线的范围)}+ @* |5 R2 Z. q
q:=SYSPARAM(3)-SYSPARAM(2);
. O" i5 L& u0 dp:=SYSPARAM(3);* @1 M: \. u* V* f
{以下盘算叠加比和叠加平移量}
( p. g1 \! A, F{1、叠加字段高度}
2 {8 F2 w. \! w! Xkh:=hhv(h,q);+ G: |( ]2 V: c8 v4 \ i' ?! y( `
kL:=LLv(L,q);
; I/ f/ @$ f7 |5 d7 n* b$ b; Q: ndh:=hhv(max(k,d),q);, Y6 v/ U, f9 L. v6 V
dL:=LLv(min(k,d),q);: H, L8 {7 w' @) {/ ^- |2 {
mh:=hhv(max(f,a),q);+ U; Z& k/ k$ g$ O, z1 K, q' L
mL:=LLv(max(f,a),q);3 I4 s% H6 U/ i, X+ @/ w1 s! Q" d
rh:=hhv(max(max(r1,r2),r3),q);+ b i; s5 _" P, n1 A1 g
rL:=LLv(min(min(r1,r2),r3),q);
! [9 n# B7 X! t2 f{2、叠加比}
, ?2 K! h. h6 Kbd:=(kh-kL)/(dh-dL)/3;
: _; M3 \- t6 _$ u5 nbm:=(kh-kL)/(mh-mL)/3;
3 Y7 i& S* j1 f+ g5 U& H. x Fbr:=(kh-kL)/(rh-rL)/3;
+ I2 ~- r% I. H- i' p{3、叠加平移量}7 g! N `" v( K w: i7 V
wk:=(kh-kL)/3;
_* r8 D5 Y) o* ?5 dwd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
+ Y* }. R' l* awm:=(kh+kL-(mh+mL)*bm)/2; m, k# w3 W& l$ P
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];! }: F5 ^' f# `2 C4 [! _( U7 R
{以下画叠加线}3 y7 {* w0 P4 ^3 z5 W4 P9 f$ n
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;8 t0 b) m9 }6 T8 F# A- }+ X
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;# I) L. y( C* O$ c6 u
PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;& \+ C5 l0 c' w
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
k0 m7 L# \& O2 C0 t# Q5 JPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;$ U' s I( i9 K/ q3 w) V- h
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;# `7 b7 u, l8 ~# A
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
e2 |) @- h T4 A% i: {STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
5 [# r" N4 N6 `! }" |- N0 n) mSTICKLINE(m |