原帖由 大话李白 于 2010-8-11 12:14 发表 , r2 { `% m! Z8 j0 X R
江恩角度线及原码
# i8 ~: p" O5 O; H2 W) ^8 e5 T3 g/ f$ g' F
一、原码原理:; O7 l6 ]$ Q+ }" a& W9 \: O
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。& ]' C+ p9 K+ i: B8 S- I* C# i
7 E3 P( G3 q1 U7 k8 o) K
... 8 F5 h5 R$ [( {
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!2 Y( ~# Z% U% U+ Y5 ?7 M
{成交堆积}
; O" v3 v& Q' L$ E) T9 ?- Pa0:=BARSCOUNT(c);0 T6 J1 N) u/ s/ w5 L( Q. ^
a3:=SYSPARAM(3);9 z- S( @5 ^. b0 r
a2:=SYSPARAM(2);# }3 L6 h: v" w6 }
a4:=SYSPARAM(4);
; V1 V+ Z9 Z, m4 g; [9 U$ O5 Pa5:=SYSPARAM(5);
3 {. t( R D0 \6 Q7 b: D! Ga6:=SYSPARAM(1);* F$ @6 F4 N7 t8 V) d% g2 u% t
n0:=a3-a2;
1 K& v: }' [; E8 [5 Z# M" m; [2 [2 Bnn:=a0-a2;7 I: a# p7 w# ~: l. n% i
h1:=(a4-a5)/8;& J1 w! d% V( j3 x8 W! T. f
h2:=h1/4;0 K4 _5 w1 a4 H) V) p8 o
l1:=llv(l,n0);
! Q% w' a! N mll2:=l1[a3];) s3 ~9 N3 {& t& w
y0:=a0>=a2;: n _+ M1 }& {- U; b1 [1 `
vv:=if(y0=1 and a6>=a0,v,0);
; _8 I% m! Y& \c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);4 M( T4 l7 r/ B& K
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);, Z/ N- x/ x @
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
4 l+ F9 U7 P r z/ [& Bc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);7 t1 c* M5 {* _; ^. S0 k
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
! ?' b# M3 V8 o! g3 Vc6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);- N9 Z7 E5 S1 {
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);/ v7 ?! G+ K O3 M
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);1 m3 f$ u5 g& O/ H- R P- }
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);9 s; z2 _' A9 w* [# u
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);+ B& P, K9 X1 t' t
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
7 {& i1 J' V- O* bv2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
& n9 ?# E( F- T# |, }: s/ }v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));, {6 ~! S) n) t. x8 z* `! ]
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
1 O( B8 N" E8 r7 d8 Pv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
# k# N' \" s& _( c8 S" f8 A; sv6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));0 s- J2 h- X0 W/ @2 B
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
7 {* X a- ~0 i' I' U8 w. ?v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
. w1 U8 z* r3 q+ p7 W6 C8 h8 f) Bv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
6 Z: {1 K* x& B/ }# `6 u1 P( ov10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
% l, @2 x+ w& @/ S1 `av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));# f: ?# D# v" D& i4 @# W1 v
x1:=v1/av0>=nn/n0 and nn>=0;- m9 r& R, V' S2 G3 n/ O; ]
x2:=v2/av0>=nn/n0 and nn>=0;6 ^# f: s6 C" }% X# C8 d' x& T
x3:=v3/av0>=nn/n0 and nn>=0;
2 @7 B* [, e! _1 Z* [7 lx4:=v4/av0>=nn/n0 and nn>=0;
3 O& M$ ]" s m9 b2 Fx5:=v5/av0>=nn/n0 and nn>=0;' B3 H- w2 A6 ~" X' r
x6:=v6/av0>=nn/n0 and nn>=0;! Q+ \! e; |# T! s
x7:=v7/av0>=nn/n0 and nn>=0;
2 b, w! ], b1 ~* F. T, Xx8:=v8/av0>=nn/n0 and nn>=0;
1 T0 x9 p9 O5 q1 H$ ]- N6 uFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288; M. W& c6 X# c
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
6 R' g& ^" t+ ?6 D% m# M0 EFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;" }! i+ T9 D* K3 u) L
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
7 X$ s4 c$ {. pFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;9 d- H' W( ?. q
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;( L; s! s. K' }, @, k' f
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;# i8 h- {! a; T
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;# t% p8 H5 W' d
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
) ~; g1 B8 M) [7 RDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
& R9 s! n) _/ \& w1 MDRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
( d0 o; e1 `0 k2 IDRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;8 z4 o; e/ a1 T( w+ Z, ?7 h
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;" N) Z* V, r6 |$ A; M
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
$ Y/ W9 z I- |$ \! BDRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
# o H' X% T8 m4 K1 S1 u3 rDRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;, E- r( b, h' ?1 A: S3 c2 D ]
{下降江恩角度线A}2 e5 i* z! [% [+ x; n1 K
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
; V/ ^" r+ a' L% G: iDL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;0 e0 O2 F1 ~7 r# c+ S6 g- g3 |
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;$ X2 L j+ G0 v6 C
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;4 L& }* r9 T: E/ a {
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
$ h8 v) F( o3 p1 {! i2 a$ {DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;: C9 h) B; i7 D/ Y! s, T
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;# n, \* q) n5 `! l+ f6 R7 ~
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
_4 e4 Y- O6 U5 t" V/ dDL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
# r) b* W; d7 T/ ^DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;1 S; T; n5 W- m* n8 t
{上升江恩角度线A}, N/ W; W1 M# R; Q! S# X
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;) X7 p( p( t) G7 u9 b5 B- \
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;# H: e0 j/ a# u) k" v
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
, ~7 Q& q V$ i1 }UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
: g4 a; ?# i& qUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;2 ?5 g+ |2 b5 Z+ Y0 v* a( s
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;2 D3 W: d/ u l0 r% h* m# v6 W# v+ Z
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
, ~, s" |: {! K0 o# S8 Y* G9 WUL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
4 S* K" u# S: {; e# kUL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;9 w% Q( j% ^( r+ A+ p1 n
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;) `; f. b Z3 _; L' R! C0 v3 A* j
{上升江恩角度线B}5 G v8 u5 P( o
BY2:=LLV(L,0),PRECISION2;
+ O! C- F: e( P ?6 V# c* V. ~UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;- ?$ J$ U1 o$ x- _) |
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
7 i8 ]/ j' g0 a: P( Q8 ~UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;, P: z6 w% h" |* R* C
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT; B0 \( g2 I: ]" X
UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
$ @ ^* ~- X; a) kUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
2 }4 b# ~" C: C' @2 [UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
& A" D: o ?. [# {4 z* `3 v( f/ N8 ZUL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
5 f% J% g* S8 N, u# b/ wUL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; . u7 M9 B5 K3 B+ R9 e
8 g3 ^2 ?3 `2 B- t
. R/ l( ^( O) l/ v
# b" h, t' k3 c1 D) C6 K H+ a/ C% v6 y* b
?# D7 W: s7 G6 h6 A
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:1 U) T3 v: `5 w( o$ y% H: P
|