原帖由 大话李白 于 2010-8-11 12:14 发表 . H* ?& X& X& a1 u
江恩角度线及原码+ A& M, I4 \9 _, B8 x0 }
+ N( ]4 U- v X# ?1 i. a/ N7 |一、原码原理:
; A3 e9 g: T' z9 X( y 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。$ o, E7 u$ \+ U7 K# f
! h4 i2 v% W V... & t$ N: j. Y) B
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!# ^. r/ \0 g% p" u# V' {* l0 l# j
{成交堆积}; F% _, S" \$ D# W6 q" U: o, c
a0:=BARSCOUNT(c);
2 Z X. ^7 k5 h# h2 p+ I1 `a3:=SYSPARAM(3);! p7 }" }* W4 p/ `4 D/ \
a2:=SYSPARAM(2);
! `6 }! @9 I" L/ O$ `1 d! f% Za4:=SYSPARAM(4);
3 m2 Q0 w; \$ X* h* i# J& ]1 A/ `a5:=SYSPARAM(5);
6 }# g- p- B: k1 j, la6:=SYSPARAM(1);6 m4 a+ [5 N% P( N; }
n0:=a3-a2;+ u' y( i9 S7 Q- ? S- y9 i$ F2 G
nn:=a0-a2;
" J0 B7 Z2 V# q ]h1:=(a4-a5)/8;
2 Q/ r ~- }6 u0 \$ H2 T* Ph2:=h1/4;" n' X; l* V/ i" c1 l& ?2 J' f9 |0 J
l1:=llv(l,n0);
- [& u; L/ P$ r3 o, D1 _ll2:=l1[a3];
1 c8 @. {- T5 p% b& Y9 Yy0:=a0>=a2;
' Q1 M& o% |2 [% X5 ?! h/ Cvv:=if(y0=1 and a6>=a0,v,0);4 ]3 G+ b! Q K5 \ C
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
" E6 H& ?0 l" b& I$ x$ T/ ^7 U; jc2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);# r: @4 r5 M3 L/ B; V5 h- c
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);# |& T+ ]$ {3 f) ~4 d$ A
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);' j3 U& [3 E9 M/ t
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
5 V% v" C& @8 tc6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
- L1 y: h4 V" c: G* P& oc7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
|' u+ U2 t# W% |, P/ Wc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
3 o' [: }9 }" \, Ec9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);4 x: g) R+ E0 ] l
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
2 M, u: z5 u. a0 t8 `. Xv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
6 o; z7 ?' y8 s& J) l4 mv2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));; W. F: K( f0 @( ]' c6 `
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));! u; N5 X2 m0 o8 g; f4 T- B
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
0 v z5 l8 q" v( { G2 bv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2)); R8 K$ G# h8 n2 O6 ]4 c& t8 v ?
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));# v) e2 |( W. n& U
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
3 l3 H7 D7 q8 J) z5 ` c; Q2 Y1 mv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
$ \" A/ P4 g+ g$ lv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));& S3 Q7 K& `* F$ ]6 ?
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
# r- `/ k1 ~6 I% {# Q0 mav0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));* { B% s2 [' Y
x1:=v1/av0>=nn/n0 and nn>=0;+ K7 m) N' O1 Z- P
x2:=v2/av0>=nn/n0 and nn>=0;
: F- r5 X4 v7 H: l) f& zx3:=v3/av0>=nn/n0 and nn>=0;
5 h# i( l( @1 k2 q; \x4:=v4/av0>=nn/n0 and nn>=0;
% t1 l+ ^6 n7 N- T# w/ y! ]" Yx5:=v5/av0>=nn/n0 and nn>=0;
) k0 k6 D3 N/ u" `/ n/ Qx6:=v6/av0>=nn/n0 and nn>=0;% P, J/ J/ J# Z# J4 X- h3 H
x7:=v7/av0>=nn/n0 and nn>=0;
6 v6 m& K4 l) ~# d7 gx8:=v8/av0>=nn/n0 and nn>=0;
4 m" t! h: A% B7 L: JFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
$ X3 H" ^2 z% \5 |- b$ S5 J2 mFILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
1 Q1 @7 A# M$ n) c" i4 lFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
/ M: i6 S. b/ I8 w0 HFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
3 `! k+ ]0 Q$ u% ]* A; UFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;' ?' Z+ D0 X; s. Y
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
; X: l) D2 o; f! FFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
5 i3 Z# p4 {1 ?% SFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;( F" v& q/ t4 K* [5 b0 F. m
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
9 N5 n1 l9 W8 r/ K, c2 N$ IDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
* Q' x5 f3 P/ ^! N3 N- U, iDRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;. e/ p$ z6 u3 m2 _) O4 b0 y
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
+ l. L0 {1 E! Z0 U" M z7 ?& YDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
0 `( ^. X- l+ n# E0 e0 P/ }# yDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00; X1 t! e8 g! W& J
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;4 _" z- J. O3 H
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;/ Y7 i1 A2 U4 ^
{下降江恩角度线A}
$ \6 a& u% O4 K# X6 O! D0 kAY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
7 l, ~5 T+ M& m: @% D6 kDL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
5 f) _$ k$ [0 q" U. }" K# dDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;
# v, S/ \. q0 W) m! Z. nDL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;6 K" t$ M2 F' |& m) Q- Y8 a, C
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
$ c% z) R9 a- VDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;' q/ K1 v4 k- X* \* C. H; d- C7 M" C
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
6 x# }- u. O7 {4 _5 d8 ]DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
% \& N5 k! j0 G1 G0 v7 N. `+ @DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT; ~" G A' Z/ O* B7 V' A
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;. @% A4 e" @6 R8 ^5 k! U
{上升江恩角度线A}- l- j1 K7 R M& v% _
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
6 v9 H6 i: @0 N2 L6 `0 _! o: OUL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
& ?5 d" L- n! V# S5 zUL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
7 q( y: p' g8 oUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
. s9 s+ K3 b7 J! d) ]" y4 ^UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
. N' b) Z" C1 u2 n# c, ]+ ~5 YUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
% D& _# i0 K. ?5 r* ]! I: {UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
) ? `8 h+ \, c( A& HUL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
) X* S0 P3 g0 R0 S6 XUL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;( b1 d* _0 e: j" n( ^$ p7 O
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;& `: E: ~5 B$ R9 H0 {
{上升江恩角度线B}
4 ^( y% @- o B. M I+ U9 x, hBY2:=LLV(L,0),PRECISION2;( R; g- i* X$ ^+ r4 W& R. g
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;+ V( R8 O! E8 R" y" _
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;6 T& Y& P. p+ g! S
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
3 p! e2 B+ N0 k# t# V1 c2 [, L7 PUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;3 \7 h) d$ h& E
UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
2 Y& A3 E9 r9 A( `5 ?UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;& \8 }4 W2 [/ w
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;8 L4 y5 L9 f4 s4 E
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;7 ?, b$ {( x X
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
4 m7 R! q4 x; L/ g& {! F4 g+ h) o! ]) x& n4 Q0 C5 K
' ?8 W% r F6 u
K- D% V. N& Q* h* S7 |4 B* s$ P
* {- |, a/ }+ I9 {4 h
9 y! ]* i# N$ @' O) n由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:/ c2 ?; ^- k7 ~
|