原公式中红色四句改成以下蓝色的四句,K线上下标注的价格就不会太靠近K线了。
* h& D- ^9 {1 t' S( G* {7 V! A( V+ t
" |5 m6 o. C3 D: F9 HDRAWNUMBER(HD,H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),PXUP70,COLORCYAN;
& g7 Q7 d& O+ b( T' E2 GDRAWNUMBER(LD,L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),PXDN70,COLORCYAN; ^$ i1 K7 W& ]8 X# s! _2 K
DRAWNUMBER(HD,H*(1+0.002),H,2),COLORWHITE,PXUP30,ALIGN0;3 P0 h) {4 N1 j) F
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORWHITE,PXDN30,ALIGN0;
# r) o I8 w% i9 A; `源码中叠加大盘趋势(下面源码中绿色的)画成了灰色,改成黄色比较醒目一些:+ U$ |' {* t! h
叠1:INDEXC/常数,COLORYELLOW,LINETHICK0;3 H M1 R5 b2 D% ?4 y; {4 i
PARTLINE(1,叠1),COLORYELLOW;
5 E0 _. J. I0 G1 X; r常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
7 {8 @. p2 Y/ @/ K! E. p) Q5 D叠2:INDEXC/常数2,COLORYELLOW,LINETHICK0;
1 W1 F9 }7 X4 h4 E& ^# WPARTLINE(1,叠2),COLORYELLOW;
) Y( g9 M& ?7 _3 T( [) S' d V* C, k' m8 f
. H; ~1 J5 A' W9 r! o6 \6 [& q) j1 f% X0 a
源码:
9 Y: H1 ^5 G+ E3 F7 MA1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1); D1:=FILTER(C1,3);{高点}
, z2 i) X, R& I0 cA2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3);{低点}' B) J( V) [, d& u* m
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}) n' w4 a8 U( i6 D/ _( x4 A
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;# f/ \0 d6 V" O* E# I x; X
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);+ b- A% i. H6 o; x
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));/ J- i P7 }+ @
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{过滤后低点}# L1 T; f' m$ q4 M; U% A
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
* c! Y* h8 B5 i) _; I! ]X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
- w! e, r$ s& K) mG2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{过滤后高点}
: Y( R. M- w; H2 g- \! ?DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT;
0 G# G+ j+ g$ LDRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT;! W9 d }6 r, c6 i# Y
J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);
3 M! \% V9 V9 L* H9 K6 [( [: ~6 G+ qDRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT;. f9 d( i: F$ y5 G
{以上语句为新结构波浪}
2 |" J3 l2 N; o- i3 R1 S
/ D8 L* e& P* L) ~8 {A3:=H<REF(H,REF(BARSLAST(HD),1)+1);9 T8 s$ H; a- Q7 z/ u
B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));/ _& ?8 h5 k. J
D3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部长期高点}; A9 V& \+ ?) o+ @1 J) f
A4:=L>REF(L,REF(BARSLAST(LD),1)+1);: V& J- Y, s1 z$ M! H9 b2 J
B4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));% w' F2 d7 x. a3 c7 ^; t
D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点}
y& X% C7 G0 l' L' `DRAWICON(HH,H,10),ALIGN2; DRAWICON(LL,L,12),ALIGN1;6 I, x4 \8 D8 Y9 e" m$ }
H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤,方法同前。只是不用考虑高低点出现在同一K线}. k( m2 U# z- ~' I, t$ S3 `
X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));& F+ D% s/ j# S) A2 s! J" P: \
G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1),LINETHICK0; {长期低点,也可供引用}
' l l- U/ B5 t" L+ zL4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
8 x% R% {# L# K/ w1 \1 S2 _X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));+ r/ g7 W! c' S% ~3 D- D) B; w3 s3 i6 p
G4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1),LINETHICK0;{长期高点,也可供引用}4 B) U" e; G! U; x- E; R
DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1; }& H5 p& t( |+ p1 X
DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线}
& C, o1 Q. ]8 y; |0 V5 _; n) MK1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);
7 @' v: ?- B9 @DRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN,LINETHICK1; {最后的长期连线,连在收盘价上}
7 o; U2 M3 G0 R1 l' L, w! `& R8 G$ d; J" j9 }
{以下是两条趋势线原码}
: ]- B/ ?" ^. ~# J) C* q# jUU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);/ m' H9 a. z5 g
VV:=UU>REF(UU,1);, B* k5 @0 E! p, y* R1 H
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
3 T9 c( P4 |7 {$ _XX:=WW>REF(WW,1);
- ^0 l. A, x0 i' i* s+ K7 SDRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;
; f i0 j$ F+ Q" i& S2 U% a* jUU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);) i" z1 E: h1 L; i# ]3 ^
VV2:=UU2>REF(UU2,1);7 O, I3 q0 c0 H Z
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);, F4 S( n- E( r4 y# A, s. H
XX2:=WW2>REF(WW2,1);
& ^8 i" h" ~ QDRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;
) X2 |2 Z7 s6 c* Y0 h3 Z V; @9 X& G. w. |$ W' p3 V
前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3;
4 p% T+ X0 _8 p( d前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3;
8 Z1 ~. t8 y& K前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3;
4 ^9 O* ?8 Q5 S7 i5 s2 {前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3;
7 U0 D# ?2 ?1 Q! _6 l) C7 O# p短高:=REF(H,BARSLAST(VV2)),LINETHICK0;6 @$ t- _3 c& U! ?: @& |5 V! ^& |
短低:=REF(L,BARSLAST(VV)),LINETHICK0;
3 W; M$ r- k6 W% H短比: (C-短低)/(短高-短低),LINETHICK0;; n' e+ x+ {# C# a$ n+ p- K) n
8 u9 D$ {" | I/ o0 s9 c5 E
{以下语句是大盘趋势叠加}
+ q3 a- g: T, s* j4 R2 R常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV));2 u$ d% \3 ~' H) ^2 y
叠1:INDEXC/常数,COLORGRAY,LINETHICK0;
4 ?( w' C2 ]" N2 |$ LPARTLINE(1,叠1),COLORGRAY;
! p- J8 `" k- Q9 _7 C. E T/ V常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
8 y# ]7 }0 j) u0 x- S2 S6 k1 Q叠2:INDEXC/常数2,COLORGRAY,LINETHICK0;
! W2 O# i, H% S" U- E: j# B0 E* k9 pPARTLINE(1,叠2),COLORGRAY;# U- t" @' y/ g. y0 P- B
7 c y1 ]$ @. C1 g8 J5 I6 ODRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN;
! H1 ?% g* A+ i. }% `( r" N! [DRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN;9 r* C$ |$ P @2 o4 t- U$ o
! D' S: p9 n1 Z8 }
DRAWNUMBER(HD,H*(1+0.002),H,2),COLORBLUE,ALIGN0;
) a3 U7 Z+ C2 F3 vDRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORBLUE,ALIGN0;
4 L/ E6 A/ C( Y% G7 p# G7 q: ^9 L- ]- o: h! U4 G
{以下语句为三角形部分}
2 `* D I5 f- p( k, |% E) u6 ]" E( r/ X+ f
底:REF(L,BARSLAST(VV)),COLORred,LINETHICK2;
* j. g- ]2 N' i( E b4 G7 `/ B頂:REF(H,BARSLAST(VV2)),COLORGreen,LINETHICK2;
5 r) v# n q" B2 f* L- h
2 B' K# B8 n/ K- p{下迭三角形:藍色三角形畫完介入}: O" u% @3 n" l8 J/ q2 V
StickLine(VV,頂,底,0,0),Colorff6633,linethick3;{}1 K, \0 \+ ^. t% B
DRAWLINE(VV2,H,VV,L,0),Colorff6633,linethick3;{斜}
8 j" E# a/ L2 t$ C }6 J4 P% ^DRAWLINE(VV2,H,VV,頂,0),Colorff6633,linethick3;{?}
9 D1 F: Y( ^' M, z( o) x6 A' `. K2 F- D1 t3 a
{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜} u1 E) }+ T" y1 `* T2 l7 R' D
{DRAWLINE(c>1,H,VV,頂,0),Colorcyan,linethick2;}{?}
1 L$ y- l5 [2 n, g: d{上漲三角形:紅色三角形畫完出局} g' e; M" `+ p! P+ q5 C2 d
StickLine(VV2 ,頂,底,0,0),Colorred,linethick3;{}
( t. F$ d8 l) F3 \; |- dDRAWLINE(VV,L,VV2,H,0),Colorred,linethick3;{斜}" Q t3 r5 m* E& |; g
DRAWLINE(VV,L,VV2,底,0),Colorred,linethick3;{?};) i# C, ~1 n r/ B6 E2 \- \0 H
" a. ?: i6 v+ F$ _' n[ 本帖最后由 恒益 于 2011-1-10 20:31 编辑 ] |