|
k:"kdj.k",linethick,COLORWHITE;. E. J8 h0 ]5 B3 h
d:"kdj.d",linethick0,COLORYELLOW;5 U& Y7 L$ z0 z1 I/ @
r1:"rsi.rsi1",linethick0,ColorC080FF;: \8 P+ G( i- A0 |/ y( K
r2:"rsi.rsi2",linethick0,ColorFF8080;0 L8 Z8 w5 o% u& V1 z
r3:"rsi.rsi3",linethick0,Color87F8F4;9 o [5 n3 J8 p6 f
f:"macd.diff",linethick0,Color72C072;
; l0 \* R1 P: g+ m3 p- H0 [a:"macd.dea",linethick0,ColorE98210;
( a! V% A6 e, }3 b1 I) R" ?m:"macd.macd",linethick0,COLORWHITE;5 D- |* G8 _8 S) P! d
{以下界说叠加区间(在这里是可见K线的范围)}& W! T9 q! r0 }1 I
q:=SYSPARAM(3)-SYSPARAM(2);, X# S) X' q3 z
p:=SYSPARAM(3);6 U: H5 ?6 C$ O
{以下盘算叠加比和叠加平移量}
( H8 Z. [) ?8 H1 V. \* W9 D{1、叠加字段高度}6 C+ D+ M, R2 N2 c; P& ^2 h5 ^
kh:=hhv(h,q);6 \) ]) k4 f! _1 f# f
kL:=LLv(L,q);
) C! d: S h5 m, a! j; F) |( ?7 Rdh:=hhv(max(k,d),q);
7 J4 y& H7 ~5 S7 r4 udL:=LLv(min(k,d),q);: R3 g" e2 Z, P# }4 p3 m
mh:=hhv(max(f,a),q);
; t2 l- u, {% I7 G& {+ rmL:=LLv(max(f,a),q);
0 n* z1 z9 W, ?+ Q* srh:=hhv(max(max(r1,r2),r3),q);
: r0 ~, f" Z, W( ~! rrL:=LLv(min(min(r1,r2),r3),q);9 C+ e% ^& t: r+ d; @
{2、叠加比}
7 z+ V! [; g0 V( O) g1 f% p+ }bd:=(kh-kL)/(dh-dL)/3;
8 O% \6 I" K; f/ @* e9 obm:=(kh-kL)/(mh-mL)/3;! }: _ H# V1 t5 l/ O; E6 H
br:=(kh-kL)/(rh-rL)/3;
4 z5 n* v1 ~2 }{3、叠加平移量}$ w& M: [: x. l3 |& Y* I" o
wk:=(kh-kL)/3; F# v1 L& f% [. y* t5 l
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
; O7 Y$ `9 L. a: Y/ D; Mwm:=(kh+kL-(mh+mL)*bm)/2;
' F H+ w5 u D$ [6 O3 o1 @wr:=(kh+kL-(rh+rL)*br)/2+wk[p];) i* T/ c) e* M1 F7 t- I
{以下画叠加线}
; o C2 h9 i$ M/ F8 V! V6 n' fPARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;; _8 A, t+ C) ` z6 `; {
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
7 K" U h$ z1 D% D- gPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;4 Y( G$ h) @4 ?# i& a
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;* J; a+ s' z0 d- F& f' v# o) t
PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;' B1 C/ n3 t) B s* ` H
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;
- l3 E* u9 Y7 NPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
. |6 z M0 M( cSTICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;3 w( ~4 {4 ~; q9 f
STICKLINE(m |