|
k:"kdj.k",linethick,COLORWHITE;
2 }4 u% l: ?. X! R& _0 N1 p& Y0 _d:"kdj.d",linethick0,COLORYELLOW;
" J7 W# D8 N! yr1:"rsi.rsi1",linethick0,ColorC080FF; Y; H% `- d( y, n+ K9 ~* d" m
r2:"rsi.rsi2",linethick0,ColorFF8080; S# ^8 R3 w' u
r3:"rsi.rsi3",linethick0,Color87F8F4;
0 n, P0 j& y( V) of:"macd.diff",linethick0,Color72C072;7 e' ` r6 e3 B6 A8 Z+ {
a:"macd.dea",linethick0,ColorE98210;: [$ j9 ]# g/ P
m:"macd.macd",linethick0,COLORWHITE;" B" U5 J; U4 ~8 B- y* w, ?; n
{以下界说叠加区间(在这里是可见K线的范围)}
* P7 C% k |: \ P* h. B. pq:=SYSPARAM(3)-SYSPARAM(2);
, t1 e$ ]- I6 k8 S* H5 Q$ Op:=SYSPARAM(3);, }: H2 K7 u8 L; T- F. R. ?+ V
{以下盘算叠加比和叠加平移量}6 B5 N( X5 u% y# {: E
{1、叠加字段高度}- T$ ^3 A+ d" _0 q5 B+ O* M
kh:=hhv(h,q);
. M" Q R8 L3 @8 a; G- Z% skL:=LLv(L,q);- F; A$ Y {) i1 L1 v6 l
dh:=hhv(max(k,d),q);
/ I4 h- j0 O3 k. rdL:=LLv(min(k,d),q);
% |" K- L2 i# E/ k' ]: ]; \6 xmh:=hhv(max(f,a),q);
# `0 _' R/ g% r7 o0 L! imL:=LLv(max(f,a),q);% l+ g+ w! N1 {
rh:=hhv(max(max(r1,r2),r3),q);
6 H% x3 T, e' ?* k. \rL:=LLv(min(min(r1,r2),r3),q);
; F7 D* v- }1 t1 J& U4 ?{2、叠加比}
1 |: |8 ^; [+ t' a* Kbd:=(kh-kL)/(dh-dL)/3;( I5 j$ a% w* [" o( k& m6 P" G
bm:=(kh-kL)/(mh-mL)/3;
, b. s2 T% Z+ [6 z9 C# W9 {br:=(kh-kL)/(rh-rL)/3; O o5 j" P# v) y
{3、叠加平移量} B a6 z' N' B! S7 W% V+ u, o
wk:=(kh-kL)/3;
" \: ^# M# H2 y* D: xwd:=(kh+kL-(dh+dL)*bd)/2-wk[p];
% h* O) h, h8 h, M5 Hwm:=(kh+kL-(mh+mL)*bm)/2;5 w) T' ^! T9 F& z# N) C
wr:=(kh+kL-(rh+rL)*br)/2+wk[p];
+ F2 E4 b$ e. a5 E{以下画叠加线}' v m# k5 ]% F
PARTLINE(1,k*bd[p]+wd[p]),COLORWHITE;
) F( A' `* V$ ]PARTLINE(1,d*bd[p]+wd[p])COLORYELLOW;6 Q& [4 {" ?9 E
PARTLINE(1,r1*br[p]+wr[p]),ColorC080FF;
+ C% k7 } J6 d; n) @PARTLINE(1,r2*br[p]+wr[p]),ColorFF8080;
: s( U' y+ [' ?* S6 g+ U8 QPARTLINE(1,r3*br[p]+wr[p]),Color87F8F4;
/ q0 G8 U2 J7 v5 iPARTLINE(1,f*bm[p]+wm[p]),Color72C072;
7 v, [: ?( C% r- O; o0 @0 [# E8 _PARTLINE(1,a*bm[p]+wm[p]),ColorE98210;
7 V0 B' u: @7 }2 H/ M0 S3 W+ zSTICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;4 ?: b* V% j7 t7 R0 V' G
STICKLINE(m |