原公式中红色四句改成以下蓝色的四句,K线上下标注的价格就不会太靠近K线了。
) B& T% S. b9 ^# J* K- l( {; {: M! y( Y: ]: ~* z
DRAWNUMBER(HD,H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),PXUP70,COLORCYAN;
/ l: q" @$ o1 v% O nDRAWNUMBER(LD,L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),PXDN70,COLORCYAN;
9 t* F, ?+ A& C) h' R* QDRAWNUMBER(HD,H*(1+0.002),H,2),COLORWHITE,PXUP30,ALIGN0;
. l9 s0 N$ K& ^1 pDRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORWHITE,PXDN30,ALIGN0;. M, }$ U1 r# b, r" u
源码中叠加大盘趋势(下面源码中绿色的)画成了灰色,改成黄色比较醒目一些:
( H; y0 {' C9 J+ X7 j叠1:INDEXC/常数,COLORYELLOW,LINETHICK0;. f, ^ Y# A2 K! ^
PARTLINE(1,叠1),COLORYELLOW;5 k' w. ^$ e6 h. A
常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
, J; w v7 Z8 Z0 U$ m叠2:INDEXC/常数2,COLORYELLOW,LINETHICK0;+ s2 t* C7 T+ f2 W' a
PARTLINE(1,叠2),COLORYELLOW;
4 E5 R$ [8 f' n$ y/ g1 s( t C/ W6 _$ {' E) h
: Z4 f4 P! ?: }* g) v
$ n9 j3 I1 W. k% X源码:
) V$ G7 T! `; iA1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1); D1:=FILTER(C1,3);{高点}+ W: Q# _0 B! O, y; W
A2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3);{低点}% h+ O; p# }1 [
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}
0 u0 V. k" \- e( A3 BH1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;% B+ z$ O+ i9 |) Y5 K
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);
: Q6 r1 Z% Y+ ?* g! o+ j% v0 UX1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
+ h# i# C V; p1 gG1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{过滤后低点}+ x2 Y- ]2 }) L: y
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
: P1 ^: L$ c3 S3 ^X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));7 Q+ J; ` \& P7 B8 h H) D
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{过滤后高点} A# Y/ i- u( U. r7 T
DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT;" u0 U8 S1 V& A7 s, }! `/ U
DRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT;
! I! u5 M9 ^/ k/ |/ rJ1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);
2 \6 j. C- ]/ {$ d# B( jDRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT;
W, U& i9 f! z{以上语句为新结构波浪}
- }) c- a. n# H! T, R: L1 O1 q; L+ S9 e( D! S
A3:=H<REF(H,REF(BARSLAST(HD),1)+1);
& g) D$ b3 W: o. T5 NB3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));4 G; A# t' L. G9 c, G
D3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部长期高点}
3 \3 I9 P% Q6 j# \+ C& KA4:=L>REF(L,REF(BARSLAST(LD),1)+1);- T# Z2 P8 L! |4 r0 v, Y0 X
B4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));0 A, g$ y) z4 i% h5 y9 {; |* `
D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点}
8 V$ Z r* d2 t9 c7 qDRAWICON(HH,H,10),ALIGN2; DRAWICON(LL,L,12),ALIGN1; p1 p5 c% _9 s
H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤,方法同前。只是不用考虑高低点出现在同一K线}' k# A2 y+ m4 ?( `. ?0 p- s
X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));: w' S+ b/ r5 l0 \0 v+ ^# W
G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1),LINETHICK0; {长期低点,也可供引用}
! ]. V; \" r% K5 GL4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;8 l/ X C* j" C' U& Q
X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));4 M+ c( l) t6 d' i3 A
G4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1),LINETHICK0;{长期高点,也可供引用} I& @" u+ \( q/ U
DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1; 6 m( @# T9 A* Q t0 ~! `0 E, }: s
DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线}" y$ k# p( }3 R& h9 a! E
K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);& A- O \9 u) U
DRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN,LINETHICK1; {最后的长期连线,连在收盘价上}
- o# y" m7 h) N) \/ e* G
8 E4 R0 F" @! d{以下是两条趋势线原码}+ ^3 K, w1 [: j4 G" X2 [& B1 C$ D
UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);, c5 C1 r) E+ ]0 P- _+ b* l
VV:=UU>REF(UU,1);8 `& t* {, R8 S5 Y
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
3 c. _1 p: O9 ~3 N( H9 rXX:=WW>REF(WW,1);
' f2 C( S7 v" ZDRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;
) h' q' s. Q( C: h" J: u% r2 s4 X' SUU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);7 ^# Q' f' W2 {- Q
VV2:=UU2>REF(UU2,1);& m( l; S5 I. y
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);( [( f O5 B- j% s4 z5 E) M
XX2:=WW2>REF(WW2,1);
9 y# ?( D& l9 Z X# E! a+ uDRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;
/ K. C2 `% m5 H8 b
+ j1 T9 k5 D6 O7 U9 \3 z3 {1 R+ d E前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3;. I$ u& c! I) x( F1 w
前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3;
$ ~3 ?% s4 u; U前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3;) y6 N2 w/ D, s
前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3;
2 a) V$ U9 D6 Y) p短高:=REF(H,BARSLAST(VV2)),LINETHICK0;0 ]3 [+ M, T- b! G/ @6 u M
短低:=REF(L,BARSLAST(VV)),LINETHICK0;
8 P; H0 B8 e: |" u5 _/ Y短比: (C-短低)/(短高-短低),LINETHICK0;
7 Z7 K1 W7 S5 c5 \+ A8 p/ ?5 f$ k! g* |0 Y: S
{以下语句是大盘趋势叠加}
, ~" I4 y6 _- n n常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV));( K6 M2 ?% M: a, e, ^3 H5 c* _
叠1:INDEXC/常数,COLORGRAY,LINETHICK0;
; g5 U' O' E- a) d. UPARTLINE(1,叠1),COLORGRAY;" n* s5 r5 U% Y# K9 f
常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
$ y6 x. ]! @" p/ k3 R7 V叠2:INDEXC/常数2,COLORGRAY,LINETHICK0;' [$ ^) A! d3 W3 F4 `" T8 W
PARTLINE(1,叠2),COLORGRAY;! J" d6 e8 U' [( n
$ K1 K. f0 u! E& X0 F, t, N
DRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN;/ B! w5 Y; U. s0 n( e* ?; }
DRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN;
1 [5 E q; G* e2 B
9 R/ H% F" }( n- zDRAWNUMBER(HD,H*(1+0.002),H,2),COLORBLUE,ALIGN0;- n1 t/ F& ^8 n
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORBLUE,ALIGN0;
' O) j2 C4 [5 O: b# x" I2 o4 |- u. p
{以下语句为三角形部分}2 F+ _9 f5 m3 f- Q: v5 M
& G- A2 @. a4 H7 ]6 a9 z+ Y/ W/ H2 c2 G
底:REF(L,BARSLAST(VV)),COLORred,LINETHICK2; ) I( C7 ?. C# z9 A, U
頂:REF(H,BARSLAST(VV2)),COLORGreen,LINETHICK2;
( j9 h* @! C: s6 Q! X0 o/ O: W- l3 A" e, }8 N
{下迭三角形:藍色三角形畫完介入}2 S2 C- H- u* I% a+ G# C
StickLine(VV,頂,底,0,0),Colorff6633,linethick3;{}
. y9 p C. a( T1 V8 NDRAWLINE(VV2,H,VV,L,0),Colorff6633,linethick3;{斜}; ]3 K% H! t: a# M5 Z5 P& ?) A: k9 U& o
DRAWLINE(VV2,H,VV,頂,0),Colorff6633,linethick3;{?}
; V+ f4 Y* k, Z# t+ O7 f1 S' ~
- U1 \5 g" U6 s5 {{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜}
/ P# L P6 ~8 p" S{DRAWLINE(c>1,H,VV,頂,0),Colorcyan,linethick2;}{?}
w, \0 V+ Q3 Y, a$ F& K8 c{上漲三角形:紅色三角形畫完出局}
5 L/ _) W) c5 _5 r% r$ _StickLine(VV2 ,頂,底,0,0),Colorred,linethick3;{}6 x% i V% @' X- s1 ]
DRAWLINE(VV,L,VV2,H,0),Colorred,linethick3;{斜}
4 g- P8 n# T0 LDRAWLINE(VV,L,VV2,底,0),Colorred,linethick3;{?};" _: t/ I( o; Y3 H0 y
8 `$ Y& ^* }9 k$ s( K
[ 本帖最后由 恒益 于 2011-1-10 20:31 编辑 ] |