原帖由 大话李白 于 2010-8-11 12:14 发表 2 \* b8 A( Q0 F j* S& [
江恩角度线及原码, d7 R; `0 ?' m% x
' @1 G4 M# U7 W7 a6 b3 z1 s. q
一、原码原理:
: T! v6 x9 n+ k F( ^" a3 t 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。) S8 q9 U9 L$ ?3 O& ?8 q) z
* I: r% @' f% z" N; n$ L( G1 u... * ]+ ]* W' \! Z `) B
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!1 s* k7 S1 @& b! m, O3 V( U
{成交堆积}. g& u" m0 v/ s; _6 P
a0:=BARSCOUNT(c);$ c$ u4 W: J/ s; @+ v6 T
a3:=SYSPARAM(3);2 @: B% j; i' J/ U" t
a2:=SYSPARAM(2);' A3 }0 k# Q6 w4 n
a4:=SYSPARAM(4);3 t8 q9 m% f" Q9 |+ c8 x8 c7 s/ \0 P& {3 P
a5:=SYSPARAM(5);
4 P( B! j. K& s5 A! Y ]a6:=SYSPARAM(1);% J* `4 L I+ }2 F
n0:=a3-a2;+ J4 j0 j a9 i
nn:=a0-a2;6 d+ W2 [/ [- J& A( c8 a( ~
h1:=(a4-a5)/8;
0 X0 G" b5 X( M, \# }7 I7 ~$ z: Ih2:=h1/4;7 k/ X0 ]0 z( D& {
l1:=llv(l,n0);
: }5 R- c/ D8 P' s9 E) Nll2:=l1[a3];
+ S2 P% Q% Y% |4 v* l- Sy0:=a0>=a2;
" Q; a7 ^8 X- _( m7 z: Ivv:=if(y0=1 and a6>=a0,v,0);" P' ~ `3 [0 J1 B9 a
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
* {) l( F; H6 L+ k5 B/ Jc2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
) I: z" l: Q. jc3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
4 @- J2 O; {0 ^$ V+ I# T# uc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);$ X$ {: m. g& b/ l" j
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);1 S# h8 ?5 \1 G
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);. k! ^5 |( w' t! C0 ^
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
4 V4 k8 R% Q9 F A1 B: Oc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);: f' { h' ^# s5 n0 Z
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);" q, ~/ i0 [: `8 w. C/ B% B1 c. z
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
1 Y, |% j* l) B4 }! Tv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));' a, R j- I. f
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
( e! p8 E. q; y+ u' Bv3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));8 T# ? G5 a- I9 N& A
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
@4 C! p1 C9 x: @* x3 e5 ~, Sv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
% J) A: l3 N' w# E& T" P# A+ d: g6 \v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
# e a1 P7 w8 L# N' ]% h* `v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));" g% J2 D2 B% [! P- ?6 m
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));; ]+ o3 w0 C5 ^2 g/ f+ g7 L
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
+ B) n) r' l+ V2 [) K. f5 v, Av10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));& ^9 i' v+ x, m9 O$ _, ^9 k" z
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
9 }# Z" e J1 A+ w7 Fx1:=v1/av0>=nn/n0 and nn>=0;
$ ?' \, {4 I# ]x2:=v2/av0>=nn/n0 and nn>=0;; c! `' }3 M$ V5 d3 ^
x3:=v3/av0>=nn/n0 and nn>=0;
# N m. y0 v- gx4:=v4/av0>=nn/n0 and nn>=0;. W% Q* y# |: a* k l
x5:=v5/av0>=nn/n0 and nn>=0;
1 y' z6 k0 B( K1 e; [x6:=v6/av0>=nn/n0 and nn>=0;
! O) D3 G. g, u( W: j- ux7:=v7/av0>=nn/n0 and nn>=0;) S# m& {3 b. x% Y
x8:=v8/av0>=nn/n0 and nn>=0;
* R+ Y% j! e$ _- L% r, |FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;4 s- e' v9 i; y' r
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
% Q; w) b. M0 k+ ~FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
5 `- |6 g/ ~& g! |/ ]6 l$ y% o' D2 oFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;/ i8 M8 n4 G0 F) X& W
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;
0 ?+ w" x( w: B. Q, F f. ]' vFILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
# |2 H- C$ k6 T$ f$ iFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
+ N' k5 w. o9 `) x" a5 T! {& {. G KFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;- Y6 L/ F! ?) ]9 T
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
* o- d9 T8 i% a3 M9 _, I3 aDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;/ u: |* {) B" j$ K z- @7 m
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;7 z4 d, ]0 o7 }( S: c5 Z- o% d+ N
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;2 V, o# W' f/ k) P* v6 U
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;# g" O+ R# X9 \; U. t) `/ P
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
: k3 f7 }8 D: } i4 Q0 l( _DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
3 N7 t* F: q; b; s) a7 ^DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;! v" u' [/ Z; V+ }4 T
{下降江恩角度线A}
5 W; u2 p6 B: b2 O. ~AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2; I2 m4 M# _/ d" E. F5 I
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;: H+ R* M/ @1 ^& N( y
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;) m Z5 K) ?& y2 H
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
. l! k7 h6 V7 S5 ], @1 ?$ l9 HDL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;5 W# H' N. ]' R; D( h3 o
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
( P9 m1 |. W6 O$ z6 x( YDL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
( j7 b, l7 d" t: V' p o* ]DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;" V6 g9 z! ~! x" B2 b, `
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;# z+ N& \' _ E
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;7 p' W( |0 y( n }! E7 A) T8 K
{上升江恩角度线A}
, n6 j2 N8 |7 d4 \8 N& |( ABY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
7 v. e% h \4 C* k* U3 J* p% YUL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;( l" N4 s6 E% F) W+ \
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;: W( {7 z7 R$ o! _/ H1 p3 ~
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
" `5 |& b3 j1 M+ q$ e0 [UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
3 g+ G+ Q! J) k0 K+ LUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
6 c2 N N# o' V9 \/ n. yUL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
& N8 a' _1 g- A; }! iUL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;6 m/ Q- O1 r2 L& ? t
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;5 O% e* z7 g3 e3 g4 i1 I
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
& R7 p; A# s# e# t{上升江恩角度线B}
' O3 ?8 O$ n1 L& _4 Q0 X7 e1 jBY2:=LLV(L,0),PRECISION2;" z9 z8 h6 d% ?+ l. B2 ^& n
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
: I( K* h9 _3 M1 Q& [7 l$ G( h. b6 wUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
/ B* D' Z+ a3 fUL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;1 `' b( @! t# |% v
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
$ M' @$ x. o# x7 X2 W' }UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
5 r& L0 z- r1 H2 Z. u$ gUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;8 K- b- B! k- l
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;/ L) n+ e6 X5 M
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;& A$ m6 {- X1 M. r& J; x
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
+ `( d* b% i+ A
: \/ o3 ^5 v; _4 d6 y
& `+ \6 n$ ?2 D" H; z5 c3 g3 D! r
0 e$ ^! V8 M4 t% Y; h% y, F3 R1 D$ a6 b; \4 z( m; o- w
) S% i. } X) [由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:: y' ]' x, |& F
|