|
k:"kdj.k",linethick,COLORWHITE;
0 }1 {" S/ A4 H/ f, d$ S1 ad:"kdj.d",linethick0,COLORYELLOW;
& m; ?$ K' A5 }7 Z! Cr1:"rsi.rsi1",linethick0,ColorC080FF;
% \9 n; w& q& B. E- Ir2:"rsi.rsi2",linethick0,ColorFF8080;1 |# T7 e8 t5 O3 M4 I9 n; a$ M
r3:"rsi.rsi3",linethick0,Color87F8F4;
- n1 ?+ Y3 ?8 Gf:"macd.diff",linethick0,Color72C072;
1 t5 S3 x ]7 [* i p$ i Ya:"macd.dea",linethick0,ColorE98210;
8 N# S/ E: ?; H2 _% Z& t3 }m:"macd.macd",linethick0,COLORWHITE;
5 G- k6 S v2 v% u; a{以下界说叠加区间(在这里是可见K线的范围)}
9 H# B& t1 {& x1 uq:=SYSPARAM(3)-SYSPARAM(2);
* a B/ A5 E# jp:=SYSPARAM(3);
( [7 ]3 c- y8 H L1 s3 v4 D; \8 n{以下盘算叠加比和叠加平移量}$ _; }* b* k( j
{1、叠加字段高度}: {# _9 {+ Q F0 P0 e% A
kh:=hhv(h,q);
# O- _5 C, l- o1 VkL:=LLv(L,q);. N: @ w# I5 `& s' B- A. h
dh:=hhv(max(k,d),q);
5 w$ p* t! I* s" U- _* A" H- AdL:=LLv(min(k,d),q);
7 ?& [& r; E; x# s. Smh:=hhv(max(f,a),q);: i; [2 @* X, ^0 b
mL:=LLv(max(f,a),q);
! b( r1 o: m+ S$ w4 _) k, }! hrh:=hhv(max(max(r1,r2),r3),q);3 Q2 f9 S. t+ I8 _
rL:=LLv(min(min(r1,r2),r3),q); S6 o6 B5 b& i4 d: z
{2、叠加比}
$ R/ h4 E# S/ U( Vbd:=(kh-kL)/(dh-dL)/3;2 _0 Q- v0 P$ E2 J- q8 J
bm:=(kh-kL)/(mh-mL)/3; C- r- g9 ]! N& z% T! k
br:=(kh-kL)/(rh-rL)/3;0 M1 ^2 V7 V$ G
{3、叠加平移量}/ E0 P; W! v2 ] ], Y, i. W9 A6 c
wk:=(kh-kL)/3;; V' d; s' ?3 [, o8 q- V" C
wd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
7 Y9 ?$ c5 w/ ]# M: Fwm:=(kh+kL-(mh+mL)*bm)/2;2 _" Q! }* S1 L* @% d, R
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
; P( E- E% D9 C: L N{以下画叠加线}% |$ p$ r5 ?& t* }
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;/ n$ v# p2 {/ h
PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;
) S' Y, Q; ~- o: c3 I: WPARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;6 X4 p/ }/ z) A0 d4 n2 T {
PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
) E) M" q- t" v6 F: C1 RPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;, W" m- B( S8 W" `- `: t7 e
PARTLINE(1,f*bm[p]+wm[p]),Color72C072;
7 [$ Z$ b% h7 \ K2 G+ rPARTLINE(1,a*bm[p]+wm[p]),ColorE98210;. _4 d& t) c* l, K& c
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;2 |- l6 i+ [4 r" _+ r+ q
STICKLINE(m |