原帖由 大话李白 于 2010-8-11 12:14 发表 ![]()
+ [+ R k7 @ j" i9 p9 B9 h- F# @江恩角度线及原码; ]* o$ \" G& N" U( ]5 `4 s% x
& w, W: N) a/ L* P7 y1 @
一、原码原理:
$ |* C% Z9 v# K8 \* a g 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
. F2 {7 W! }( f. z( B: A4 E! J) R! s# ]; x8 y% i+ I% C% @/ O: J. h
...
9 j, d7 [* r0 m( z" d d& e下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!# N& I! }; c7 m6 g
{成交堆积}' n: G& @6 J3 I- ]/ N S7 F
a0:=BARSCOUNT(c);
' O8 C! c$ f0 e! g1 r* M$ ta3:=SYSPARAM(3);
1 J1 J1 k' s+ i0 y: P$ L. ia2:=SYSPARAM(2);! B, U1 [& p) U2 y2 R: _3 e
a4:=SYSPARAM(4);# H; ]- h: G" ?) x9 i( k* c% ^
a5:=SYSPARAM(5);
' ?. B! U0 C* z% b, N+ L. Ya6:=SYSPARAM(1);9 ]* v( D) g; y1 h# T0 `
n0:=a3-a2;# P- x" h! l/ N6 W" s$ N
nn:=a0-a2;
; J& l6 J2 Y6 G0 ph1:=(a4-a5)/8;1 m$ i2 m! [/ X& f' G% O" e
h2:=h1/4;' h! s# Z% [9 K/ c @! n
l1:=llv(l,n0);
: h, s+ j2 s+ Gll2:=l1[a3];
8 s3 [$ \* E/ y/ {% {y0:=a0>=a2;8 k0 }$ x, Z. u" T
vv:=if(y0=1 and a6>=a0,v,0);" u4 a, u1 @" s) ~3 X: \9 ~' A
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);0 a9 F2 j5 V0 [1 D7 u: g8 t A
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
. s E) K2 x) {& Hc3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);. c% Y* P) f) i
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
- M7 H6 Q- S( }; Xc5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
( Z) e+ \; c; T; nc6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);2 h& X6 z# M* U" a% c
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
! G1 ~4 D- b, R. h: Yc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
$ l- Z- W$ }7 @% Zc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);: u$ v1 o# a* t3 L
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
9 M# Q( Y5 c0 `! x& L7 i3 X7 f% bv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));( O0 ]" o' {3 |5 f; v n
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));! v1 Q8 k- K7 z+ }9 q) B
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));0 C" G: q/ o3 r* h6 v/ h7 O
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));. S8 o: s/ K2 I# h2 l1 @& w
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));) y. x( M5 R' y1 P: A. I7 ^$ n7 [
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));3 r& p% U* ~# P( C2 U. P0 X* J0 v3 h
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
, \# H) z+ B! Qv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
, p9 V) e% r2 y7 P& Zv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));+ e2 N1 H. |# n+ G
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));$ z+ q/ s$ M" ~2 W. ?+ ?4 J
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
9 O( r9 z! G# k+ X( [% }/ Dx1:=v1/av0>=nn/n0 and nn>=0;
$ X. h, `+ |2 Kx2:=v2/av0>=nn/n0 and nn>=0;5 L; }3 _8 i) |/ l& Y5 E
x3:=v3/av0>=nn/n0 and nn>=0; m s3 E& u2 [/ c3 J9 k) d
x4:=v4/av0>=nn/n0 and nn>=0;
3 C) q- J8 K- g$ rx5:=v5/av0>=nn/n0 and nn>=0;
% e( f2 g1 y1 j/ C, W6 }8 V: U# Cx6:=v6/av0>=nn/n0 and nn>=0;1 L6 v1 ]/ o5 n2 Z* ^
x7:=v7/av0>=nn/n0 and nn>=0;5 @# ]) g" } T- n
x8:=v8/av0>=nn/n0 and nn>=0;
: d0 I. F" f# ?8 g' JFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;3 G5 f) z; g+ F$ u/ u+ j0 P/ l, s! _
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;" I8 C* h% c5 ~. K1 I; [6 O
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;4 c8 h4 i4 X' ^
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;7 w5 B3 y1 e3 Y
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;3 z( R" e+ H' V" n, q; x
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
* K! ^" C* `" ?+ i0 k rFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;9 p) x+ F, @" T6 ~# X8 r
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;, C# x9 ^1 q; G" f6 O
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;: ]0 e! G* V3 e. K+ `
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
) I0 p1 H( K# D/ ^9 z* ODRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;' Q2 [8 w# L* n9 e
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
' ^: {$ h( M+ j/ Y$ ]5 t# U/ zDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
. l5 V& ^ b: s. t$ WDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;! ~8 o8 J% n2 k
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;9 b6 V& E, u. j- S# k9 e5 t5 q
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
( o& L4 l) s& l0 d8 n0 v: k{下降江恩角度线A}1 Z3 y* N( k4 W* a3 D O
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
/ F1 Y% N+ y C) F/ |DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
" \$ o" A; y( GDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;1 P" H' \- i0 u3 z
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;6 y3 W2 ]2 ~: w8 l) e& G d9 @1 ]
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;- T+ v0 C$ r+ z6 x8 p o8 s0 y
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;9 K+ V! y' k4 O; M- v0 @
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;; F/ B& z7 ]% F& T
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;5 L$ y- B' C! V1 l# ~8 [
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;( `9 Z* {/ J" _# \
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;6 v% e; o7 j* P
{上升江恩角度线A}
. x9 ^/ s0 n" s+ l/ U; g% {9 x3 j3 BBY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
0 B4 C) k& w+ x; A8 nUL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
1 m: ~: O F# _UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
?) ~6 V( C$ _/ @9 o4 SUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;: ^8 i: Y v. Z) f9 v B9 d
UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
u1 ^4 v1 X% n u6 dUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;" D; Q7 _5 v0 Y) V, }5 t! d( T
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
2 C/ V+ @& A7 X1 @5 Y5 R: EUL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;2 D b, j) q. _* L/ Y M- r# W) ]
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;. \* X7 Y5 x8 X0 F2 _( I
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;, O1 J" _4 p$ L
{上升江恩角度线B}
& R9 E. o7 J' m2 [! UBY2:=LLV(L,0),PRECISION2;! r; o& a6 Y$ B; b
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;6 [. d3 K5 s/ F3 D; i$ l: w3 z, f
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
d" t, }* v) r0 {4 {UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;: L+ C; w Q% g6 ]0 C0 d t ?
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;" e) T6 f0 ?1 d6 q+ ?
UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
; J% y8 [; O) w# J0 y" qUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;: C4 V" x2 }/ {5 k
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
$ x/ @. q8 n8 bUL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
" R q) J; [) t _; NUL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
6 K; M. P& w4 }- d) a
9 Q- f2 x+ w5 [6 J7 [- | z( G- J N- }
. l: `0 a1 z( M! \
6 t; @5 c0 f/ m# g) n7 F4 O
$ g! I% Q9 y; A: r
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:
7 _. I6 C2 U7 P i) V: o. [ |