原帖由 大话李白 于 2010-8-11 12:14 发表 1 G8 S; a# H: K; E
江恩角度线及原码8 z$ H+ N* I8 A# o
& I9 n& ]+ X, P一、原码原理:
9 }$ _0 ?$ c; N) l3 Z2 x% m& K2 \ 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
3 e2 _2 h7 H0 ^8 J
8 a1 ?9 b' L' V) ^; r' L3 O2 ]0 |7 S8 J... 7 n1 U8 o( x+ o/ H. S& F% x- d
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧! O7 _5 A& c% L9 n! N2 j
{成交堆积}
. y" C, s4 A. t: B# Ka0:=BARSCOUNT(c);* e' V0 G1 }9 m8 T) M l2 s0 j
a3:=SYSPARAM(3);! w/ U- u) K7 l9 k m, ?
a2:=SYSPARAM(2);
( X U# L, a2 Q6 ya4:=SYSPARAM(4);7 x8 \* R. X6 I& j$ v m" I/ \( D5 h
a5:=SYSPARAM(5);! E- v" N& l, v! F
a6:=SYSPARAM(1);, l, r" D1 _7 F
n0:=a3-a2;" Z. D6 c5 E: l: Q' W1 Z
nn:=a0-a2;! Z+ P3 K% G' s1 {4 ~6 h1 p& `
h1:=(a4-a5)/8;' S0 U/ Z' Q8 k1 G
h2:=h1/4;
! Z" X0 @1 G& ~ E6 a- R, U' G5 Hl1:=llv(l,n0);
) b7 B x" R0 b: All2:=l1[a3]; F( W9 l* W9 ^6 i9 E
y0:=a0>=a2;" H/ i. V) T, ?* a
vv:=if(y0=1 and a6>=a0,v,0);
' u# @6 B9 K2 K. mc1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);3 b& \1 L2 Z% F, T& r
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);! N8 H$ F0 Y- _
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);2 n( z4 d1 J( e9 l
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);! h& s) N1 S1 t1 L, L
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);4 @& R% Z8 y5 c' g" ~6 s' c
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
5 a( m$ T" t& i9 W) {c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
: m) l$ _) v2 Y+ M6 p4 O, s8 nc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
% {; F7 \' t( U) I$ f! I# Cc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
& o- Z0 v/ S2 n2 s* x+ |c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);% V& f/ p" B& V" u2 D
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));0 G9 c. x& Z c
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));" [8 F+ ~, ~9 N
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
) {! r# n. K z0 X: yv4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
9 A) s' ?/ V- N/ _v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
, v8 W% Y3 i4 }( \ }! p, W7 qv6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));( N1 H0 p" f3 s. i/ C' E& k
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
! {, P9 a0 p4 r& e- I2 Kv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
5 D2 [- f3 I$ [+ d9 E u. rv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
& s/ {0 Y5 D/ J( P: u4 U! B ^v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
0 {3 O5 ^& Z! nav0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));" L& V3 N# \0 S3 b
x1:=v1/av0>=nn/n0 and nn>=0;
0 |) F$ T- E+ n2 H# xx2:=v2/av0>=nn/n0 and nn>=0;/ r& k6 F; Z" @8 a( w- h
x3:=v3/av0>=nn/n0 and nn>=0;7 h+ e6 \4 B0 L) x, D7 v
x4:=v4/av0>=nn/n0 and nn>=0;
7 b: z. R" f; v8 r) Bx5:=v5/av0>=nn/n0 and nn>=0;
' U' S9 r8 W5 Z; i4 tx6:=v6/av0>=nn/n0 and nn>=0;
9 z. H5 E0 s% g7 I3 u* U+ r/ ?x7:=v7/av0>=nn/n0 and nn>=0;6 @3 m6 @. y0 T
x8:=v8/av0>=nn/n0 and nn>=0;& |5 U' I- C. _9 w4 D
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;1 B: j+ R/ B5 \, S& @, A
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
f$ ?! f2 Z! m0 pFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
) I4 }; J2 [2 U- `9 JFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
0 \4 Q1 q- E6 D5 {/ LFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;2 p( e, I7 _, p9 C# p9 o; N
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;/ s2 ^) c5 T2 M7 f
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;6 M! {2 x. X: T9 F) e. y
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;) G2 K' b& k. ^
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;3 D4 Y) T% I( G1 E+ G& N" D
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;! W) k. [* I9 F( s) x
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
! \* P9 A4 @) t% L/ K* N3 DDRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
% R. d4 |2 D4 K& [" z( z+ t+ X: oDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
. V9 j$ ~. @4 s# g! PDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
; Z( C. ~7 S0 B; i( X0 RDRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;0 [( U w f- i" p; p8 q- U
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
: ~* ?2 ~1 p ]6 S9 e3 B( d) q4 g% e{下降江恩角度线A}% `4 I; f% k2 I" t
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;. y- J% D7 W9 k. a! H, f
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
: J/ h" d9 C/ TDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;
: Q$ Q7 M, W, n' WDL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;2 E6 R |3 U( ?* w. G
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
5 w9 T7 t* s- m, \& NDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;' e/ I. v6 s# v# S& T+ ~
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;0 P& G/ p9 {- j! b
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;4 e% u' }% x- j2 s$ x4 e' X8 V/ v+ J
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;$ I# Q1 |8 t9 I4 [- d, X
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;
/ H' l/ C% v; O" u9 C+ G{上升江恩角度线A}5 \3 N3 u; u! t% X+ [$ J
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
8 r0 ~( W {, ~6 zUL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;2 w, E3 ^ N5 H
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;3 `9 Y! J% k5 R: f# i0 k/ J$ n d/ j. ~
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;6 b/ Y' P5 Q) D/ p
UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;6 d8 ^7 P8 [2 a
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;6 V5 V' b9 h' w- o" U# F$ e% F
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
2 y# G. a' [( B) QUL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;1 b2 ^- k6 D% B; K: N( u
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;2 Y0 L, T! } F3 X
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;* d- l. v* }$ b0 o2 j0 b0 x
{上升江恩角度线B}
% T/ T9 w4 ?% f! HBY2:=LLV(L,0),PRECISION2;+ H& G; c$ S- N% @
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
5 C3 p6 y4 S' w4 ~0 OUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;. \0 ^! {8 H* U7 o
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;! u/ T: c: x3 C3 e5 _
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;' `9 `: o' ^8 W. p7 A- K
UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;1 n3 ], B3 P! o
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;- g2 v" s4 T' t: M" E
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;. r/ w: v5 A0 U* `# ]
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;7 N" h n+ O0 ]9 ?: e1 G S
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; $ W5 `% N0 J! a* c. O
7 H Z8 y" E4 k$ m# a5 Y6 v! e+ _
% J0 w) Y1 T0 j5 M' [8 x. F D1 N( o. v4 z9 z& m
2 @" \. o; N/ C* w% S' Z
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:
0 v4 U, G( k3 ~( ~ |