|
k:"kdj.k",linethick,COLORWHITE;
' ^* @3 ]2 D6 g, l8 sd:"kdj.d",linethick0,COLORYELLOW;; Z5 V" E; r: ~
r1:"rsi.rsi1",linethick0,ColorC080FF;! o" n) V7 k6 h8 d" Y# y$ A
r2:"rsi.rsi2",linethick0,ColorFF8080;
. n% C1 [% |/ t/ b+ g* Dr3:"rsi.rsi3",linethick0,Color87F8F4;( @) I& y; D, L
f:"macd.diff",linethick0,Color72C072;
. @9 {6 V6 h4 q3 p( p2 Za:"macd.dea",linethick0,ColorE98210;
6 S/ O# L# X! P j) `, \m:"macd.macd",linethick0,COLORWHITE;
/ ? M3 n4 ~2 \3 w E" P( O& ~ _{以下界说叠加区间(在这里是可见K线的范围)}
. k/ G6 A- j. L9 ]q:=SYSPARAM(3)-SYSPARAM(2);
% x2 }1 ~ @/ e+ Gp:=SYSPARAM(3);7 [6 h/ j6 U! h0 ^
{以下盘算叠加比和叠加平移量}
9 |! G0 y9 e7 S# L. S9 t K{1、叠加字段高度}3 o/ _: y0 W8 b$ @- J
kh:=hhv(h,q);
9 H# b8 Y, R6 X2 M3 NkL:=LLv(L,q);
* m% b. i3 A' M, E6 @4 l7 b0 Z. r, vdh:=hhv(max(k,d),q);* o$ d2 g- c7 y G: R
dL:=LLv(min(k,d),q);- l' |, y/ n& d
mh:=hhv(max(f,a),q);9 T- j' d' ?3 t8 z8 E' A- V- A7 o
mL:=LLv(max(f,a),q);
7 P6 c1 g0 [. r9 nrh:=hhv(max(max(r1,r2),r3),q);
. f6 P. o: p3 K/ N! mrL:=LLv(min(min(r1,r2),r3),q);: i) M" T1 o5 k6 X" Q
{2、叠加比}
, B$ v; L+ c# w. a3 Nbd:=(kh-kL)/(dh-dL)/3;
- E/ ^5 `. R7 K! Fbm:=(kh-kL)/(mh-mL)/3;7 x7 e1 L6 w8 n$ o- F/ E3 \3 \
br:=(kh-kL)/(rh-rL)/3;
# s; j6 F! ]2 x8 q: J; o, l' c{3、叠加平移量}6 z* k" D; _% w% N/ j# u
wk:=(kh-kL)/3;
* [ U+ ~; q1 O0 z* j Fwd:=(kh+kL-(dh+dL)*bd)/2-wk[p];1 U9 A$ B) v* }$ G4 h& J
wm:=(kh+kL-(mh+mL)*bm)/2;
( A8 b' o$ M' t$ j2 mwr:=(kh+kL-(rh+rL)*br)/2+wk[p];0 ^" M' _* f0 m4 e
{以下画叠加线}$ t7 _/ J5 R/ l( `" w
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
$ e) M: I2 B/ _, b! c4 ~7 jPARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
; s8 g) D8 s; b1 y; |: j2 [PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;+ G- X b$ h+ n6 N, _6 W9 C6 m
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
1 r6 H* s4 r# u* R9 u' \PARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
2 n- x. |/ p5 u( D+ _PARTLINE(1,f*bm[p]+wm[p]),Color72C072;/ T. O z4 o' }* i
PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
/ h {; U/ {. j. F7 ]7 p VSTICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;& @& I& E# B# b2 F
STICKLINE(m |