原公式中红色四句改成以下蓝色的四句,K线上下标注的价格就不会太靠近K线了。* c# l. t$ w% [7 x3 v
6 ?" W: {& I8 r4 q3 |DRAWNUMBER(HD,H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),PXUP70,COLORCYAN;
8 E3 Y5 G i9 i6 A$ CDRAWNUMBER(LD,L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),PXDN70,COLORCYAN;
N% \: L- `% v3 F) iDRAWNUMBER(HD,H*(1+0.002),H,2),COLORWHITE,PXUP30,ALIGN0;% @9 V; P# ?( i; l
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORWHITE,PXDN30,ALIGN0;
, s- g) M5 S; q' Z8 q6 }. V源码中叠加大盘趋势(下面源码中绿色的)画成了灰色,改成黄色比较醒目一些:
* p6 X7 Y; s4 }- a叠1:INDEXC/常数,COLORYELLOW,LINETHICK0;; Q) P. G0 O+ S2 \% ]
PARTLINE(1,叠1),COLORYELLOW;' f7 E* ?, p- Z2 t' K
常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
/ X7 j* F) W' U9 c2 L' m2 D7 Y叠2:INDEXC/常数2,COLORYELLOW,LINETHICK0;
2 W5 v. e6 ^8 _* RPARTLINE(1,叠2),COLORYELLOW;
0 K) N" V: q3 L) Z
3 \+ |. l! F, ~5 @& } A/ y* v
- d/ b% |+ M1 o3 g
& Z5 s. Q8 i8 e9 j1 M源码:
$ A8 _# K$ Q8 Y q) `& W( v4 G' YA1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1); D1:=FILTER(C1,3);{高点}
9 J- O- x# B( ?* {# W* R3 l- o; oA2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3);{低点}
+ t' Y5 R# [5 ^/ q$ s- K8 M7 cE1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}
( \# U! l% A a0 Y( UH1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
: N ]7 b. [' a# e% e! H! BL1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);
2 M4 S9 f' L5 u8 K9 D/ t8 l2 _- `( tX1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1)); V! O$ j3 i$ N& w
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{过滤后低点}" {% W( }$ ~* H/ V; \3 y$ n, W8 E
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;/ c# n! e. C6 P9 U
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
3 Y# m7 B0 R. Q6 v( AG2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{过滤后高点}
9 `5 X. Z' O4 b# R. JDRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT;
/ f, @# M+ X5 q# B6 V' ?DRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT;
( ~& G7 ^& d# p: HJ1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);# R9 P( r6 T5 o( `: h3 J( n8 u
DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT;
/ [7 m* O: R! U! E1 w6 n1 @3 X{以上语句为新结构波浪}
1 n" p' g) u- e$ a% b) M+ o: F* `9 C- C7 A! |" I% ?
A3:=H<REF(H,REF(BARSLAST(HD),1)+1);8 s9 o" G0 _- @6 b( C- D
B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));7 d1 v; \" U# D1 S
D3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部长期高点}
+ |- m3 I. p5 X* w- g6 L- rA4:=L>REF(L,REF(BARSLAST(LD),1)+1); I( ^* n5 I: q A6 i2 R d
B4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2)); r. I4 I9 u9 O4 n M
D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点}
3 ?% ^5 o, e; g: f# p8 m# r N& MDRAWICON(HH,H,10),ALIGN2; DRAWICON(LL,L,12),ALIGN1;
7 N5 F9 l' Q/ |" GH3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤,方法同前。只是不用考虑高低点出现在同一K线}8 \- b+ [: v0 ?- R O
X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
; c, ]% B1 {$ M( d7 YG3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1),LINETHICK0; {长期低点,也可供引用}
3 W. c, k5 b, s0 ML4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
! s0 d0 ?; z- e8 r4 @$ T8 fX4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
3 a% z' H( e$ n- B7 ~G4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1),LINETHICK0;{长期高点,也可供引用}
9 K" Y% c( L$ ` ~# S! L DDRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1; 2 n2 m* r$ L: e1 `5 s: s7 y
DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线}
4 D* H( \& f4 h {* GK1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);0 J7 V& d1 J, ?
DRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN,LINETHICK1; {最后的长期连线,连在收盘价上}
4 w+ O' \: p8 y. l/ e7 T' y
- M9 Z6 d1 M. I6 t3 s& A0 X w* j{以下是两条趋势线原码}3 @4 M5 h( {" Y# D
UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);! Y- l; d6 k* N
VV:=UU>REF(UU,1);
9 v- k7 Z F: NWW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
" N2 f8 X; ^* L0 SXX:=WW>REF(WW,1);6 e) }2 Q5 V* B& D: Z# \
DRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;# [& ~0 Z1 H0 g) [- f! l* @; K
UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);) J' w+ Q' W1 q9 Z2 L1 k3 @' [7 X- j
VV2:=UU2>REF(UU2,1);
! t. c5 P4 i; T' R! YWW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
& n9 _9 h: @3 yXX2:=WW2>REF(WW2,1);* C: c3 K3 i9 ~+ Z, K
DRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;
l' h8 p4 [ ?: d
# r" a% @7 i4 e前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3;( x/ B1 f& B$ m+ _
前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3;1 m. [( b3 Z7 c) a
前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3;
7 ^3 ^7 I( C. v/ f) y. r前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3;# e+ l/ z3 z. `( g2 g1 K
短高:=REF(H,BARSLAST(VV2)),LINETHICK0;
* f. ^# V; X5 P; o短低:=REF(L,BARSLAST(VV)),LINETHICK0;
# D& ^& ?4 ?( ^% b: X' T短比: (C-短低)/(短高-短低),LINETHICK0;
1 a% F2 S2 u5 @ d) n' l0 l( T# x" G7 E
{以下语句是大盘趋势叠加}. S7 h4 e. ?+ F2 J% l
常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV));
8 X/ H' ~3 t+ a: V3 K叠1:INDEXC/常数,COLORGRAY,LINETHICK0;
( |- P" q8 J' T2 p7 B( MPARTLINE(1,叠1),COLORGRAY;
2 ~& [& D1 i* P% y$ `, _常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
% d3 D: o- Q& H: D叠2:INDEXC/常数2,COLORGRAY,LINETHICK0;: z) A) Y5 _2 W- j
PARTLINE(1,叠2),COLORGRAY;# G: P* }4 O$ ~' b: n) ?/ s$ d
1 q5 [' p& \ e8 S- V6 EDRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN;0 l' h% f" ~# G( o
DRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN;
% A; K/ w) ^ L3 k, j4 U
1 j' t7 N3 f- J" u5 ?1 n3 yDRAWNUMBER(HD,H*(1+0.002),H,2),COLORBLUE,ALIGN0;; r4 {$ S/ v* q/ G/ J7 y
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORBLUE,ALIGN0;) N9 G9 K7 a3 G. Z' B
+ m0 s) E4 w. v
{以下语句为三角形部分}
& q% h" l. w3 t3 T! `8 a% [
1 t% G; ?1 r x2 S( z9 l底:REF(L,BARSLAST(VV)),COLORred,LINETHICK2;
; D1 C7 i z0 N' t4 i1 L頂:REF(H,BARSLAST(VV2)),COLORGreen,LINETHICK2;& t* a: P- ?8 e! K1 T
; }# V! K' i$ _8 ]
{下迭三角形:藍色三角形畫完介入}
2 P M" W8 c) D( fStickLine(VV,頂,底,0,0),Colorff6633,linethick3;{}
' [ C( z8 a' D4 x$ d: I w0 D3 I" @0 [DRAWLINE(VV2,H,VV,L,0),Colorff6633,linethick3;{斜}0 i1 X- P( z- b$ L& s
DRAWLINE(VV2,H,VV,頂,0),Colorff6633,linethick3;{?}1 C+ z% ~; R* M- Q. k" I
6 T7 b9 N( ~/ r# c
{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜}) [8 q" b$ E! T1 A
{DRAWLINE(c>1,H,VV,頂,0),Colorcyan,linethick2;}{?}9 K# {! G3 U% W/ Y7 z
{上漲三角形:紅色三角形畫完出局}
2 h2 F+ L: z' g7 U2 D' FStickLine(VV2 ,頂,底,0,0),Colorred,linethick3;{}
: k V) [" f8 n K( S. Z6 NDRAWLINE(VV,L,VV2,H,0),Colorred,linethick3;{斜}
9 \: e& v) }% g9 h+ _DRAWLINE(VV,L,VV2,底,0),Colorred,linethick3;{?};
+ M8 N0 F! x3 T# k0 X h; {7 V$ K/ P4 i- F* q& i1 I' R5 e
[ 本帖最后由 恒益 于 2011-1-10 20:31 编辑 ] |