原公式中红色四句改成以下蓝色的四句,K线上下标注的价格就不会太靠近K线了。) K. q) P8 S+ }, o a1 r* s5 X
+ R, j6 u0 F/ ~DRAWNUMBER(HD,H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),PXUP70,COLORCYAN;
1 }9 M+ S! N- o4 K) b' ~, wDRAWNUMBER(LD,L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),PXDN70,COLORCYAN;" M) J! R1 g9 ^# o
DRAWNUMBER(HD,H*(1+0.002),H,2),COLORWHITE,PXUP30,ALIGN0;/ g8 U- \7 ^1 t9 \* x
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORWHITE,PXDN30,ALIGN0;# z! a" [8 T/ c/ `3 X
源码中叠加大盘趋势(下面源码中绿色的)画成了灰色,改成黄色比较醒目一些:* Z C2 R4 M7 w
叠1:INDEXC/常数,COLORYELLOW,LINETHICK0;
* B+ q7 |+ \5 ]4 ~4 o# YPARTLINE(1,叠1),COLORYELLOW;# T. @, ^8 U/ f& ~
常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
( ?6 P1 o" C4 f7 E5 Y3 P叠2:INDEXC/常数2,COLORYELLOW,LINETHICK0;
6 p4 }3 C9 }3 J) t* r, r: k0 i- nPARTLINE(1,叠2),COLORYELLOW;$ m3 n. Y# L! i3 ?1 r0 t
& x, O/ B1 `1 {$ }
! T, ]- b0 \/ s9 {0 i
4 y$ C& g6 F* Q5 M源码:9 c I: n, G9 J0 A# X' k5 e
A1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1); D1:=FILTER(C1,3);{高点}
' A( N% f: a3 R1 F! [- oA2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3);{低点}$ Q0 U# H" n4 z1 l' `1 Q1 G
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}. t& Z& k% b1 T, i5 |: {9 Z
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
, o, \/ e; G7 R5 AL1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);" `9 @; s B% w% a3 y$ f' ~
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));& |3 _; u2 y5 r* p m
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{过滤后低点}% p% h. I! W9 B5 J; v
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;6 S9 W$ R0 Z/ ^! z* K* z( [
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
& N' H1 i w0 Y- u4 a9 eG2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{过滤后高点}
9 X/ |/ ~/ y: H6 @DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT;
+ t7 d* h" G0 T9 fDRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT;
& B; t5 n, S3 }! I z1 j% C# _J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);
; u6 ~# g* Y5 R! n+ p# K0 GDRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT;
2 J' X. w7 m$ Y! V# Z' Z: o{以上语句为新结构波浪}
* _( i) }9 ^* p9 V0 W) |
! A) e' z* O$ D" u z2 n" {$ I) JA3:=H<REF(H,REF(BARSLAST(HD),1)+1);; ~' e# J' Y. _: z. ?7 C
B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));
2 n: f: R0 T7 j8 gD3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部长期高点}2 b' o* ^' A0 o* M5 R+ E) i2 s6 h) v
A4:=L>REF(L,REF(BARSLAST(LD),1)+1);
/ D0 G6 i: S( x0 r9 wB4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));
, H2 _6 [+ g! l4 |. k/ e0 S" JD4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点}
5 P1 Y5 K2 F: |" a0 P( A! sDRAWICON(HH,H,10),ALIGN2; DRAWICON(LL,L,12),ALIGN1;- P5 I) A2 y) z. C, i, L5 C" d
H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤,方法同前。只是不用考虑高低点出现在同一K线}
2 r9 I' L L) _# OX3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));+ _$ J7 l% ?) q) P% `. I
G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1),LINETHICK0; {长期低点,也可供引用}
1 { I2 y0 q) ~" N+ `" BL4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
3 A2 F* A, T) r! X2 {( aX4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
9 m* W1 H# c* I0 ]" hG4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1),LINETHICK0;{长期高点,也可供引用}0 A3 ~; }' _1 {5 K6 k; W+ n6 z! P$ L
DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1; ) x8 B7 m, S3 j& F
DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线}
6 k: Q3 P& C T7 Y' c, a# dK1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);
Y$ i [8 E1 M8 C1 S) c. uDRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN,LINETHICK1; {最后的长期连线,连在收盘价上}
/ U8 c9 u! A4 E# l* U! z% n1 i% r( B+ v6 z2 Q/ }- S5 z
{以下是两条趋势线原码}
/ I( l" l" t7 Y8 S+ wUU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);* G. r) ?9 ^, z7 V- \" {$ A3 D/ m
VV:=UU>REF(UU,1);3 Z& A. E4 P2 w+ q: o
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
3 ^. ^0 P2 t/ Q' j" s9 hXX:=WW>REF(WW,1);
, ?- y6 U8 G0 YDRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;
5 h; g O1 f. g' c" Y! C, WUU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);: ^$ G7 x" L w, ?
VV2:=UU2>REF(UU2,1);) Q" f5 H4 T+ {/ Z" e0 O
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);+ r- H/ o$ Y6 P2 M5 A6 l; v$ {
XX2:=WW2>REF(WW2,1);7 T; n$ U- g" O# {7 ]& H4 b0 d
DRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;
8 O8 T& S7 V+ p* E; e. n: Z1 U3 C4 C/ W' m1 H8 s% \
前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3;
& A4 N# a# { @前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3;
# s0 z, y" O" b前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3;
9 H; Y& s! Z3 A8 T) B0 F v/ G" C前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3;
; |' J9 ^: J. q5 _& p/ W% l- y l短高:=REF(H,BARSLAST(VV2)),LINETHICK0;0 T% J4 V& w) M# N7 A# J2 ]4 X; e1 c
短低:=REF(L,BARSLAST(VV)),LINETHICK0;
: \& D _1 w8 Q3 ^' R& ^( m短比: (C-短低)/(短高-短低),LINETHICK0;
8 x0 {8 _& q c$ X; I
) E) H4 R4 i; z2 L" k% b( [{以下语句是大盘趋势叠加}) {3 R: r0 B# ^; Y# m! L( z! }
常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV));3 X. `& ^7 m- {8 b/ H' \
叠1:INDEXC/常数,COLORGRAY,LINETHICK0;9 a( A) w* ]+ H. U C
PARTLINE(1,叠1),COLORGRAY;
7 Q+ r& I& C; V; J* e( F' U常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));" M$ n! [8 T0 s5 w$ |
叠2:INDEXC/常数2,COLORGRAY,LINETHICK0;+ ^4 ]+ `3 M) ?8 U/ J8 K/ I" R7 Q
PARTLINE(1,叠2),COLORGRAY;* i# o/ Z) K2 c9 R1 z
) Y) y: E4 w& x) \
DRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN;
2 G4 C8 Y& w$ jDRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN;0 ?2 |+ K0 E1 e4 A
* d& O) E% }3 c! b! J& c; F, S9 WDRAWNUMBER(HD,H*(1+0.002),H,2),COLORBLUE,ALIGN0;/ `9 [* s2 L- U4 l/ O8 u- j
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORBLUE,ALIGN0;/ |- A* N, F& ~* Q" J% ~
% H0 X- F) i, k8 K1 g) Y{以下语句为三角形部分}
: o3 p& ~ Q/ x5 S- x# }, v; a5 J" K3 }# U$ x
底:REF(L,BARSLAST(VV)),COLORred,LINETHICK2;
4 y; n: C& j6 E% F! b, W6 x頂:REF(H,BARSLAST(VV2)),COLORGreen,LINETHICK2;
) W8 Q% M# a4 }/ t7 O. N* H- e: a& I: l/ \8 E. W; t M3 Z4 _
{下迭三角形:藍色三角形畫完介入}
+ b* `1 _2 X t) ]+ QStickLine(VV,頂,底,0,0),Colorff6633,linethick3;{}
% k. M7 f! k. |+ g% f6 ZDRAWLINE(VV2,H,VV,L,0),Colorff6633,linethick3;{斜}
* E/ X! |! l' ?1 D, p8 c* vDRAWLINE(VV2,H,VV,頂,0),Colorff6633,linethick3;{?} j+ J$ U* C% A2 T6 |
$ O( C4 M: N3 z+ {7 i* C! t
{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜}
" t4 f0 A: S4 H{DRAWLINE(c>1,H,VV,頂,0),Colorcyan,linethick2;}{?}
. G+ ]' _2 @: f/ C# @1 y{上漲三角形:紅色三角形畫完出局}
, P! L: b0 y% h4 h# D$ B L! x0 N. vStickLine(VV2 ,頂,底,0,0),Colorred,linethick3;{}
7 c2 \* H) N8 B- l( HDRAWLINE(VV,L,VV2,H,0),Colorred,linethick3;{斜} t5 N- P2 m, {! k3 v5 G8 ^% n
DRAWLINE(VV,L,VV2,底,0),Colorred,linethick3;{?};
; j( \3 U$ J, U; F
& a2 n- C- C) g[ 本帖最后由 恒益 于 2011-1-10 20:31 编辑 ] |