原帖由 大话李白 于 2010-8-11 12:14 发表 ![]()
7 u, \; E: y7 c' f! H江恩角度线及原码
$ K; T7 K" g" h# K: S5 M8 A6 Y4 _ `# H9 d* l) C, {
一、原码原理:! V* L. s, Z( [+ F: O( n6 R; b7 F
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。5 t; Z8 ?3 H. j! E$ S& T \3 p
! F+ t; p* j- X& \6 G" w. ~2 J
... % ]' G/ X1 v: z. d, a1 I1 ~
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!2 m" P/ n8 o) M6 Q
{成交堆积}
: |* t" `0 C. A7 D, Z6 J0 Fa0:=BARSCOUNT(c);9 i: q. v! b" l6 j8 a/ g; p$ g. h
a3:=SYSPARAM(3);
/ \0 S% p4 B5 K3 w+ K! Ba2:=SYSPARAM(2);! [) K- q! S! N4 V
a4:=SYSPARAM(4); W7 {9 \# V" B$ t& v7 Z H4 G
a5:=SYSPARAM(5);
3 y9 p1 N/ n' s. k% K/ Na6:=SYSPARAM(1);" O1 H$ _9 j, ~* K
n0:=a3-a2;
& c" k) c/ g8 C! g$ _5 ynn:=a0-a2;! F) h8 J ]$ ^3 `' Z
h1:=(a4-a5)/8;
2 Z3 T$ K9 C( ~* x3 [h2:=h1/4;
- N# X7 B7 m" z; W/ {l1:=llv(l,n0);/ `6 L* ~, o4 s1 w& P( h
ll2:=l1[a3];* s6 q9 y" r0 @: M/ J" {) w
y0:=a0>=a2;, g5 U- M# t5 o5 k1 K
vv:=if(y0=1 and a6>=a0,v,0);. p. g7 f5 z2 B3 J9 W) d. K
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
( o1 P7 I1 t- ]: Pc2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);9 S1 n+ {- w2 E! R, b) Z' T% S
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
0 M, I7 I/ r; }! tc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);. `1 E: |) E, W h
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);2 y8 M/ _5 S, Q% x6 x1 u2 V
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
; D0 U: v+ n. d) s. `c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
: F( z8 g* w7 ~! I( bc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);/ V5 E+ f2 }& [
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);& Q# m# J: }# l3 n/ Y4 X
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
5 j, ~7 h! I! Rv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));0 a+ N5 m6 ?+ P1 b* }
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
; j9 C) q* v6 m' w. u) x( gv3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));9 c. i, a, m# }$ ]" E
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
7 [/ }) I+ A4 p2 E" G* C% Jv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));+ k9 L8 v2 l* r# U# ~1 a, k: q' p
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
/ ?/ O; Q& s) `- Q, x* \v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
/ o5 u+ u, v! t7 o3 nv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
1 ^! V n3 J. A6 k6 O1 {0 e! Sv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));& d' R/ L' ?8 X8 U; R9 Q/ S
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
+ d. c# N0 S( y8 [av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
/ \+ F0 I% E. e: e& Rx1:=v1/av0>=nn/n0 and nn>=0;9 z, h# p: y8 f
x2:=v2/av0>=nn/n0 and nn>=0;
* J1 W( l5 E7 B7 e' Vx3:=v3/av0>=nn/n0 and nn>=0;
* m( F5 g1 X. Y" F. Ex4:=v4/av0>=nn/n0 and nn>=0;" Z* k; w5 {2 o c( _6 F s
x5:=v5/av0>=nn/n0 and nn>=0;
' O6 r8 k3 l: _9 ix6:=v6/av0>=nn/n0 and nn>=0;" r4 l- Z/ h4 R2 [
x7:=v7/av0>=nn/n0 and nn>=0;
2 q3 _. g+ \. @% G2 I" Mx8:=v8/av0>=nn/n0 and nn>=0;
# T, _& D. r* _% K' zFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
! t# Z6 Y) F2 ^7 @FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
$ H+ g$ `6 Q& n8 r" P* ]FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
; j* L, T+ C9 |/ X, Z& V* G) {& l: ^) tFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;7 T# g9 y! u1 R1 V% L( T
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;/ g( ?: S& B8 @. |5 Q
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
% z" f4 U+ `% fFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
- _& J3 K }1 U4 AFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
% S- h* n/ J. N: M9 R. tDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;) f2 [1 n5 p: T8 Q* n) Q
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;9 `3 R+ }" t) v& j0 C. O+ }3 ?
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;0 k5 V+ n x, s9 K: r
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;/ W5 y. r5 A* F% n% h
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;* t4 ?% X5 k0 L9 [# f
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;6 c: \ b" ]# Y$ T9 X( W* S9 a% G
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
0 y! G& m0 ?0 \! x% d4 sDRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
. b9 v* M0 d$ ?/ K1 I# |* {7 m{下降江恩角度线A}2 [5 C3 R9 d: T# L) m! q" _) \
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
/ i( {! T" G( m! \4 T; W& ~4 S, \DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
; o I5 M5 v$ `2 ^4 d1 L% \DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;! e5 e6 t' b# z: ^/ |
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
6 K5 p# I+ @5 gDL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;0 s% W8 b/ V) Q5 u& B7 A0 Q
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
0 p+ D$ C. \1 ?: {# T' ZDL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
) y3 ~' |7 ~( H9 {3 jDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;0 ?) L9 L$ z' s
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;1 C6 [ E. [, r, }8 M! C/ v
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;; p7 W% U+ d8 x0 C$ w
{上升江恩角度线A}
3 @# o7 a _% p( CBY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;9 _2 ?$ c* x, Q
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;# i7 W) ^3 X$ x7 u
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;( s* _8 H6 [; ^2 [- P1 t
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
! d7 E( E, ^- eUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
3 Z" S0 w' {9 KUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
% k1 A$ M& s. _9 b6 [2 i3 i# ?UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;9 Q8 K8 R% b" U ^4 F4 z
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
' M9 D3 Z$ b( k! z3 rUL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;0 D6 s9 }# c) P3 Y% z
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
# q p' m( d! q) A6 c C0 Y{上升江恩角度线B} }" `# b- Y3 X* @0 f1 V
BY2:=LLV(L,0),PRECISION2;, H( k+ ]# f# r3 T
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
2 Z+ I3 }) R% j: O# w" E3 v" h# IUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;4 [/ q) ]9 u3 ?- X1 i$ ?" C
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;; m6 j9 o/ w! a
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
% ]! g* W( ^3 pUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;) S* q( V& o1 Q/ {: m
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
5 v& E. G0 x" DUL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
- Q7 s) e$ _% R# p/ kUL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
) M3 c( S; j5 H5 G0 TUL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; $ m2 w6 i1 Y8 e2 L4 I
% a4 ?* T) R9 w+ m) \
9 I7 Q+ o6 Y* t
" b' ]) c$ l$ ]- y0 S" v, i+ ^
: `+ Q" ?: u. y7 N. H. B W2 @' R9 T) D8 |# g7 f5 U
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:
* I' x( d$ c9 ^+ P) Y A |