原帖由 大话李白 于 2010-8-11 12:14 发表 $ c9 o7 M! }" `, c7 }; ?
江恩角度线及原码7 f! p, e4 M" z, q$ P
/ k+ c5 F" r& P一、原码原理:4 ` z: I' b* E( r% p3 G7 d: |0 X
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。5 C4 ~/ s3 j; t' ?+ w+ B( x
% {6 H3 Q. ]3 l- t...
5 S4 B/ R! @( L下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!. O2 g1 m* n* O4 J' @8 S
{成交堆积}1 D% V( _$ w" c
a0:=BARSCOUNT(c);3 @$ g- M( N; Y0 q9 j0 P
a3:=SYSPARAM(3);' r0 c* S8 d. r) |* `* d8 D
a2:=SYSPARAM(2);
. H9 ?' [" \( s! @% m1 i& F \& Oa4:=SYSPARAM(4);4 ]. s* ^) P% N2 d! X' Y/ {- O6 L
a5:=SYSPARAM(5);
$ O# v; z+ u5 m6 K! S% B8 d3 \a6:=SYSPARAM(1);$ I) e$ E0 q3 D5 z- Y. ?- S1 c) ]0 }
n0:=a3-a2;
8 f1 T$ V+ o- W$ ]$ `nn:=a0-a2;3 e1 q7 P& i. V3 V2 b I
h1:=(a4-a5)/8;
5 o( _1 v/ U, p! z; ^, w1 ~h2:=h1/4;6 ?) O/ ]4 ?; D
l1:=llv(l,n0);1 z" C8 M1 Z- I4 \0 v; I" ^8 }
ll2:=l1[a3];
: @/ y1 y. @* F8 x* ?' J/ ky0:=a0>=a2;8 v, c( ^ D& J
vv:=if(y0=1 and a6>=a0,v,0);
0 ]9 [5 R: o( r+ G! [+ [c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);+ N8 p! {; R }3 j- i& Q
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);6 l* ~5 c3 w5 O8 g: q
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);/ d. T% H1 x2 `% p' p9 n
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
! B5 t3 h8 b& r4 _, o7 sc5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);4 L4 y+ |% T. H
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);$ a8 ^5 J/ @' g1 X
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
% z& p( f( r+ x) L* E1 wc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
$ J! q; m) J% O5 a: t) jc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
* Q2 ^* y7 D$ u3 Z0 z! M) Yc10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
( h) ^. T7 X9 bv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));4 y( o6 w/ K( x2 a9 Y
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));, B0 W* r% h' o3 D2 E9 G
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));; k& N/ q' h9 L9 s: i
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
/ f) z/ x) p1 G) C# T S- ^4 l: av5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));0 y( I6 a& C6 {9 C) z/ F
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));% o& W) E; \2 r% ^! v% Y ?2 S
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
3 J2 t6 B' f# b8 s# \5 g7 Tv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));/ v, ~% `% q" M9 S! J
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
) ^- f1 J% T; m6 Y3 g; cv10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
/ F( l/ J9 o7 R' ?2 F4 a- Zav0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));% ?; e" a. `! P$ t
x1:=v1/av0>=nn/n0 and nn>=0;
8 x$ M+ h1 g! f& g. ax2:=v2/av0>=nn/n0 and nn>=0;
4 R9 ]' a# g% [, J5 Y" B2 ]- Ex3:=v3/av0>=nn/n0 and nn>=0; A+ ^ |# o- ^9 k
x4:=v4/av0>=nn/n0 and nn>=0;
# E$ d; q. ]4 ~/ O6 cx5:=v5/av0>=nn/n0 and nn>=0;
2 f, a7 G; @$ [( R3 bx6:=v6/av0>=nn/n0 and nn>=0;
3 D9 w0 H. j" K! j0 kx7:=v7/av0>=nn/n0 and nn>=0;3 l5 f2 f: p) v' I( |
x8:=v8/av0>=nn/n0 and nn>=0;' b" z' q$ g+ J" k* d( k! G
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;1 X- x @; O# |5 o
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;8 z4 u8 F# b3 \2 I t
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;+ T( u5 \# P9 U# P
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
! r$ f. Q T9 \3 f6 @+ T" aFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;0 u* M8 c) t/ W
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
) {$ c ?7 Q$ I) BFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
( o- j& S( ~' A1 |0 n0 x& v. k) ]+ tFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;6 c+ | Y/ n A
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
( t% n9 x5 B% u7 w; P) ^DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
: |3 y1 m( V7 c1 t, }+ uDRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
. K; v5 X; J7 `. ~DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;0 K) a: P1 p" A: G: R6 K
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
0 M' g V, G0 SDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
# }: w4 o: ~0 \: N+ N9 BDRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;# \3 r' H) p% L( w, o4 B
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
2 W* @! S, y8 n) f{下降江恩角度线A}5 K' F+ V2 ?% Z8 _! Z- l
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
- \' z1 `/ H4 vDL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;% \" H+ z) Y; I0 m8 f- q+ q3 W
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;" z- F+ G4 l" p4 f: I- K
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
& x. t4 J9 ]9 c8 d/ y6 n- JDL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
' ~* ~) H$ ^: lDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;+ k" D# u4 z" D1 F
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
6 O$ l1 j% J9 F: T0 X- y( }, qDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;/ f7 s1 x' C0 n' L( \
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
) w3 Z- j* c s) `, ^- TDL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;4 y% B& }; H% y% Q; W$ D; T
{上升江恩角度线A}# u, y$ z$ D+ |0 s, P- l6 ~2 T
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
* G: ?( N+ q' K5 aUL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;0 r4 ]5 M& o: w3 j: J. G8 v
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
* m( Y* h% u' P8 F E# i) q) lUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
$ ~6 s& P$ q* e* uUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
/ w) G; {4 k- {: o% f5 [) i2 ^+ YUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
# t! ~' }6 [! b1 S& |( kUL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;& z5 k$ C E Z9 P5 y
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;3 c x& l5 X% @' w
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;* b; p3 F' \ o
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;# ^7 ]8 {6 t1 c6 f: c
{上升江恩角度线B}
( {( f8 r$ t2 l4 tBY2:=LLV(L,0),PRECISION2;
: I2 I$ Z4 B& B0 ^. bUL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
, o% f, k; T/ {, G- }) g# wUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;3 t, K; q7 l4 ~; q; Q* Y, R0 H
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
7 R) F& S1 E2 B; @( n WUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
/ d, \# h% J# _UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
, h. Z* n. q. v5 H6 ]UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
2 \- F2 w/ C: h5 g% y+ u4 |UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
+ a d4 Q, b7 U2 v+ KUL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
, q) G+ a, V! p t* xUL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; * n5 h4 s8 |! `# p2 s
/ o8 h5 J3 \! b. b
' S# j" M+ T$ w3 v8 {8 S) T2 `, t" h7 i) ^( t4 e0 [1 m/ x, P( ]
" B7 Z1 D9 u2 c% R3 e* Z9 `9 ], l; q" P/ s
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:
- c! K( ~/ E3 c' ?; N2 [3 P$ [. z6 o |