原帖由 大话李白 于 2010-8-11 12:14 发表 5 a, i2 J6 ?. c" C; k
江恩角度线及原码
1 E' T) v k1 W* O6 i4 k
- \1 B) G3 ~4 M# u4 p$ E一、原码原理:' U) ?3 m- Q: F0 r; V
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
G- x1 D1 s$ n9 ]; X( r5 {; Y
% O* `* t2 D6 I: I9 U...
8 S, i3 E1 e( L s下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!
1 Z* X- |2 ]- w+ Q{成交堆积}
. H( b. v M" K% N3 Q, sa0:=BARSCOUNT(c);, E/ S& L$ E# Y( b$ c) i' q
a3:=SYSPARAM(3);' g# R- i5 \& N
a2:=SYSPARAM(2);5 p0 F( E9 Y+ c0 v' X1 F( f9 e; J0 W
a4:=SYSPARAM(4);
, G, N# O: ~3 m1 ~- \. l- La5:=SYSPARAM(5);
( C, W' X, r- S& }" Q( m7 P' q- Ya6:=SYSPARAM(1);
9 ~0 y' | g6 t; D* s. Wn0:=a3-a2;
0 q: ~8 v8 z" a3 _# P: f. Mnn:=a0-a2;1 J. w* e0 o1 K# [# O: z
h1:=(a4-a5)/8;
m: L3 B! G% q& qh2:=h1/4;7 ?8 |, R- f7 Z) o1 ~; @4 R
l1:=llv(l,n0);8 K4 m. k% P0 n) Y- C: g
ll2:=l1[a3];
2 f$ X" R4 ~5 b' C4 Y0 m# V' ry0:=a0>=a2;
" j' F* \( F6 U) Mvv:=if(y0=1 and a6>=a0,v,0);
, d. z: ^9 p, _7 X" Uc1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
! y2 p* F# a$ j- o9 w1 Pc2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
' G5 C3 B; g' t4 B$ o( B" H/ U. Ac3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);" I P* Q& T; w) j/ J
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);& H2 O% ]5 A. O' k
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);/ F6 m3 |- {! K; K) z
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);$ _2 z& F$ a. M2 i- O
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);) e- ~6 m, A' N
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
9 d2 |9 j! p0 {8 I8 k9 ]6 kc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);$ r8 M8 h4 g" b
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);" l+ O m$ x+ n: V9 q# m' y/ c! C5 N
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));7 j! [# O S+ i" I
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
$ n4 g7 M$ n# u j& h. Q- _9 u; jv3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
0 ~' P2 B, ^. T- P/ n ^v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
8 g; v4 r; ?; D1 L/ z: H, s6 vv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));, D9 Y) _3 H; ?0 m
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
" ]9 _9 A" s o2 N! I' v/ u0 }# Qv7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
7 r! m* |. \8 E( L+ `* xv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));6 i5 v" }) b) |, X. }* U6 w
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
9 }6 z5 ]- {7 _: W$ s/ t" y9 Yv10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
A# x/ n0 g- d. Kav0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));! v" ]# [. J* O
x1:=v1/av0>=nn/n0 and nn>=0;
! O5 Q. W6 s/ bx2:=v2/av0>=nn/n0 and nn>=0;" ]4 Q$ Q, U5 r# q- ^6 p
x3:=v3/av0>=nn/n0 and nn>=0;2 N7 G; _8 U+ k* ]8 b3 ]$ s
x4:=v4/av0>=nn/n0 and nn>=0;$ A- _, t4 n: W: ~
x5:=v5/av0>=nn/n0 and nn>=0;
/ ~* {# d+ a+ w5 ^x6:=v6/av0>=nn/n0 and nn>=0;
) x* \! f! @; F9 Fx7:=v7/av0>=nn/n0 and nn>=0;; f* }- t9 }1 i6 e! N
x8:=v8/av0>=nn/n0 and nn>=0;
" B, _/ a# d: v, Q+ x" SFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;3 W7 c) {/ U3 b
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
( Z, n/ @7 w8 E( B P, z' t0 sFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
4 p8 W9 x9 ?, B: p( e) [FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
( U2 B1 T5 W- ?! q0 n9 D1 _, }! yFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;
. x4 o$ [/ X' sFILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
# g' x8 S; O) x2 bFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;' l0 K2 Z9 J; @/ m0 c" I
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377; e& H) s# @& `/ |# n# `1 j' w
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
; H2 a* D8 c% ~4 sDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;+ Y4 h3 f$ r, X) n
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
/ [3 I* B2 @& v7 s, V) R$ @DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
" `: [5 \* n8 x- s# F: m8 s# GDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;' [' T. G" h1 @2 U5 k; g8 w
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;1 r& U, |0 n* r2 d* |
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
4 Y* h, A. Q! g) V! KDRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
) H9 \2 \) v: q L{下降江恩角度线A}
! J; F6 m+ m- [8 y6 {- ~1 B \AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
5 Y! ]# C. d' d P& d; ^DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;9 T7 a9 k. N. c b) ]5 J6 H4 g
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;
$ t( ]; t B A' y3 t0 ?DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
8 {- b- R. I( M+ F. i1 oDL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;. r; ?) ?8 g# H# Z
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;* f3 E, H: N! N8 O8 r- T: c5 r# }
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;* ]7 _/ Y9 E" H+ p( I9 O' v( Z5 |4 i0 d
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
' Z9 i! f) R1 |% W- `* O$ [DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
% r% t( H2 O( _4 E0 `' S3 sDL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;+ h; A* F( I: z$ ^$ Z" A
{上升江恩角度线A}7 V, a5 K9 R ^" S' F; \1 a- T* t
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
# \( H! E& h: w' c) @UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT; X- v9 j6 k9 ^, Y) {
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
' n& x5 L. T w! E8 RUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
`: O/ @0 s6 S( j9 R' }UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;" H2 ~/ w3 n+ ]
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;2 n) O! K* `! o& r) w
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;* L5 }; J9 x8 ]: \* L/ x' ]
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;0 x$ k+ l* j+ B$ D, s
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
4 C2 k8 O* G# N& R! J- s5 @( L" c7 CUL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;' J" u4 z) L0 V
{上升江恩角度线B}+ x, J$ T* G! d+ _2 [
BY2:=LLV(L,0),PRECISION2;
: C; T0 }4 f1 s* k' KUL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
- k: c2 _- C, n& Y% o& XUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
x0 C6 d6 ^$ B$ K+ P' U5 aUL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
$ l* m* p! P6 C7 a8 [! `+ sUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
; V/ t2 I6 [5 O; V4 j9 aUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;" v% F& v( [' p# }) V- ^ s
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
, |5 G, |/ e& S- AUL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;7 ]- Z4 g6 ^7 V, s6 Y- W
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;0 O, c9 O- }! v& J2 E
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
. ^% Q' W% m/ t F( S
" B \* U$ h' M2 }( t! @1 A7 a
) E! m1 E( G Y3 R* ~) y' Y; n7 }+ s' i" u& z; P
5 ^! N$ d S3 [- Y! F
( p' C3 T- V% b% A7 K由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:1 f7 f5 f' Q U9 G3 j2 Y8 c( N
|