原帖由 大话李白 于 2010-8-11 12:14 发表 - h/ @. {. a; f& h( l. Q3 ~
江恩角度线及原码; k) o9 z% {0 c5 a+ y8 a
1 \- F" J& q3 F
一、原码原理:3 h2 g1 h/ x$ P( y
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
5 ?. v, h' g& ]* L: H8 `1 k, [; I5 z6 m+ w7 o, F
... # e6 ]/ Q' j1 ~3 r/ X
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!1 y6 i6 {1 D3 @* W+ }! ?5 \
{成交堆积}! N$ k: T8 y& U! d" y
a0:=BARSCOUNT(c);
. H) c( @% H( Q" Y' Ea3:=SYSPARAM(3);
' {( I1 k. a+ |2 b h1 U& za2:=SYSPARAM(2);
$ g# p- J6 h( J0 W( p( ua4:=SYSPARAM(4);
w7 o: e5 |8 r- R0 wa5:=SYSPARAM(5);* p$ r2 l# J: n6 }9 O _8 ?
a6:=SYSPARAM(1);
6 k X* K x2 R2 X0 `$ Kn0:=a3-a2;6 s/ h. I# ]/ y% g% R5 ]
nn:=a0-a2;+ L) z: `5 D0 s! r0 I
h1:=(a4-a5)/8;1 H q( J6 @. U2 i8 N4 W$ \& B; I8 B
h2:=h1/4;6 d! u/ d! Q+ u! K" R& b
l1:=llv(l,n0);
0 ]; w1 ?9 ]& i0 p$ Gll2:=l1[a3];
3 R4 z2 O* c* A. F5 m" ly0:=a0>=a2;; a8 h6 e7 z% u# E1 K5 W+ e
vv:=if(y0=1 and a6>=a0,v,0);
. U# i: M; o" S9 F0 _c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);( y" v6 m; E' l. O
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);6 t9 g, I+ C) [; F- W3 w3 O/ g6 x
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);& j2 H2 X: o5 g# K# a5 F6 K" t
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);# Q* P! m7 }# n/ J& T/ ]- J
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);& u5 v/ R! D l r& D4 a/ M
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);" b( L6 H- @9 e/ e8 M
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
& \) X. a" S' T; ]. G- Fc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);* W8 o- P1 L2 G/ K9 w2 |: ~9 b7 ?* _
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);* X9 H0 |# `# x: M/ {( H
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);* ?, }, h6 D( @1 [; m- M# @
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
. u' ^# @6 Y( \1 o% T1 \v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));; O6 a/ p! P3 `( l
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
* D/ w. n% U K' _v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
2 M9 c" z) K5 tv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));$ w3 G- t R$ t% {& Q
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));8 B, i* N( U% X, d& b: H; X" F0 g
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));; R2 J$ r* V7 p9 _6 ^% Y; n
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));) u& v- L! L" x3 r1 G: z8 k
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
4 _% o/ m8 O4 O5 }" W# E3 m0 Yv10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
+ Q4 X3 t% `" i& q8 [av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
0 a2 u! D% ^1 K% U# D* u* g. nx1:=v1/av0>=nn/n0 and nn>=0;
3 y% P( S/ N7 N$ k5 Bx2:=v2/av0>=nn/n0 and nn>=0;
% R7 H( a- g' J, T- Y. g. qx3:=v3/av0>=nn/n0 and nn>=0;: u. N7 N" u9 S9 k
x4:=v4/av0>=nn/n0 and nn>=0;
1 Y6 H7 D& C3 i6 V. c5 ~$ Jx5:=v5/av0>=nn/n0 and nn>=0;
0 }0 H f! m' @! p; A& jx6:=v6/av0>=nn/n0 and nn>=0;
9 C4 v, r( B, ^* F w" l! [x7:=v7/av0>=nn/n0 and nn>=0;7 A1 P/ l, v+ s
x8:=v8/av0>=nn/n0 and nn>=0;3 l ^# ?0 f! @- g- h9 Y; J
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
U! h( S( d2 V$ U" q. D3 OFILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;0 k2 N8 q: q& {9 q9 U+ s' J) U
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;9 I' |: P4 C9 \7 t
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;& E2 G; f* C2 Q! r( i. z& |# ]
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;6 k! e; I* V* O3 R$ @2 o o) U
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;$ ]! r' z2 a6 X; |2 g9 z8 ]: m
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
5 M3 |8 b4 m6 \FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;0 x5 L0 r. c7 ?+ U0 c- D4 I; L$ C$ g
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
& k' c: h# T7 R6 x; r4 gDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;! {# `# G$ @- O( E& w$ B
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
1 @: Z3 c/ t0 f" S" R9 }; U- {DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
6 s2 ]' A: J3 w* R @0 EDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
: a$ ]5 I8 Y# l! J2 j% m0 r) FDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
* x2 V0 i. P A' C; KDRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;( E t$ p- |0 f) Q0 K
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;' ~+ H* m) C) m# p2 B8 `# M$ _
{下降江恩角度线A}+ S+ P I, f& t. l) Q: U- u0 V
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
5 \/ ]* q: a- xDL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
6 ^, |) G% [ f* [( DDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;3 }, v* l* b* }* v$ g- }/ ?
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
2 \. f0 _0 A c/ }9 FDL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;3 W: B, f5 E2 d& ^
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;! L3 H- T4 S$ p' W ^& U
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
2 t- i; ]7 k9 @" }" ^5 sDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
% P# r2 K7 o r* Q+ UDL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;0 E l9 i2 d' m. H# C3 T; b
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;% N Q' e) Y* L" a1 ^6 {- k
{上升江恩角度线A}
8 }! I$ C h+ H( o" MBY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;8 Q; @- Q7 y% o* U" }
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;8 M. H" w" d, l$ c8 f2 Q# p
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
1 Z G e( A" s" A! x8 t7 F) DUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
' D' r5 q1 ?: q3 O& R% i, m+ bUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
0 V6 S3 n) b7 t8 g& F$ JUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;! S3 d" M- u7 r# L6 _/ c
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;- \4 @$ T' q* C" h9 J J1 B
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;& e8 g6 v( o4 T: ?5 G% I
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;' v5 l$ H# i" G8 Y0 r
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
1 \5 A5 a& m+ x w$ ]{上升江恩角度线B}
% D$ A( f1 x6 y& QBY2:=LLV(L,0),PRECISION2;
3 ]6 }; e+ k8 v" S" A2 {UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;" B8 c. d$ Y1 T+ } y
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
4 [9 N# |* u+ m# bUL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;5 a; d& A' ^: @0 V$ a
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
* Q6 Q7 }, v) r& UUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;2 q, H: ?$ Q; X3 O9 q3 x3 J
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
+ s0 j/ G" S8 E4 B/ j8 d' pUL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;. U; d8 v4 f% ?# w6 Q7 j5 ^
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
0 b- v% j6 T, }6 F. n. b, OUL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
6 S' a( D9 a" f0 h( g; k; T! g0 A9 `/ q/ e+ z- C! }" u& Z5 S
* K% A7 e$ r9 d% V- U. o9 _" w/ }7 V
5 A J3 i3 ~2 Q& [( o- K4 L
v5 [ ^2 m$ z8 e3 S* p由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:) w. e" l( p# ~
|