原帖由 大话李白 于 2010-8-11 12:14 发表 ! p H* O1 t8 ^: W+ C4 T) X+ O% k
江恩角度线及原码7 {+ T6 b" Z$ d4 C2 P! [
, z B3 r6 |. `6 R' c一、原码原理:' r9 O: K) B* S
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。. v4 X& @0 b6 Q9 m; H
2 Q$ s' W. k+ \: K# C5 b$ s
...
* e; ~" u" z! D7 [/ s下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!
0 M+ r* ` [# C: k) P7 v{成交堆积}
' ^/ m: a8 X# h- wa0:=BARSCOUNT(c);
# ?% Y8 U7 _9 }. L9 ea3:=SYSPARAM(3);6 e0 q- s9 S( S" n, i/ l* d
a2:=SYSPARAM(2);% l3 r( B: B( B$ S9 F
a4:=SYSPARAM(4);
4 ]$ i" O. v8 \* @/ s6 Ca5:=SYSPARAM(5);- m% |2 E9 W! Z- R, y. r
a6:=SYSPARAM(1);# E9 f! g/ i, v6 z! G9 `6 x
n0:=a3-a2;
* {4 c A! [* n) d- [nn:=a0-a2;- c" E, ?" L$ Y1 w# _6 d
h1:=(a4-a5)/8;$ G4 [( A0 _# ~9 C! r
h2:=h1/4;
; K( o+ Z( `/ b0 U U C( t+ Ll1:=llv(l,n0);
$ g$ {/ ?$ w0 ^7 j/ G* z, F- x/ _3 Xll2:=l1[a3];! t& S2 L/ L, G& p* P3 O, y
y0:=a0>=a2;
" G G8 N/ k" ~8 w8 M$ y3 H+ Zvv:=if(y0=1 and a6>=a0,v,0);0 J) L7 P+ ^, s: C7 R: L
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
8 a; U H1 u$ M9 n: Ac2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
* Y8 ^2 d+ m2 X0 q- ?, }/ zc3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
* T1 G- |/ N6 [! W) q# p+ nc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);) W& q0 B* h, F9 I( X6 r+ d+ g
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
$ K) M. k" p% Yc6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
! @+ V+ K- M% M0 N, v Y- ?9 \. @4 l. Bc7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);$ i) |& R/ d4 ~' p
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);4 y, k( @! P: i- E' u$ R
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
, F# L9 I9 Q5 s' }. bc10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);3 ]% @# G$ W- G* u$ u. ~# }
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
) f# f2 a+ ~6 y* z/ j& U8 N8 Lv2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));1 S9 j2 X( K4 Q, N% d0 G
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
: V+ ]) {" R- B7 O" S+ {! s& y7 Ov4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
! U( l; Q! E) fv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
# f# N4 U( O: \ D! y9 q0 [v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));: Z- i1 V3 r8 l. @" C, E4 a
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
. ?1 y0 ^3 ~2 D. u' lv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));3 q1 S0 w, Z5 A
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));& e5 V1 z, ?% O8 W e
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));! f; u, A2 G; N3 w
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
# g4 P3 U0 F2 q. ?* tx1:=v1/av0>=nn/n0 and nn>=0;* h' D j E, \# I
x2:=v2/av0>=nn/n0 and nn>=0;
" I! D# A- h) Q8 F7 Nx3:=v3/av0>=nn/n0 and nn>=0;
^& W, ?& O9 F" p; x6 O( nx4:=v4/av0>=nn/n0 and nn>=0;
. h* {4 W6 F7 W7 o6 Kx5:=v5/av0>=nn/n0 and nn>=0;! U5 d l5 | i3 Q5 p; M0 q6 Z
x6:=v6/av0>=nn/n0 and nn>=0;) t! s) @* z7 ?% F; |! z; Q
x7:=v7/av0>=nn/n0 and nn>=0;: A6 U* h8 {3 R! V% N
x8:=v8/av0>=nn/n0 and nn>=0;. N! {+ A; S w1 a- ]% M$ O1 M
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
- s; Q1 ^3 l' q# \- vFILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
- S, x9 D9 c9 E. G" v( DFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
* b% _( {' }6 U A# zFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
# _4 I0 m6 [+ r& D2 I& XFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;: J' t) K/ E, Z# \9 o* i2 b
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;/ x( U( q$ v& p; `
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;9 W4 e n$ {7 M( t' f4 ~8 E
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
& y, K4 u$ L; V/ fDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;% f: |& n+ R3 V" p1 _
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
1 U3 I3 d( f$ o% D. z/ zDRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
0 j: C5 `! g" S$ x4 i. r2 P$ f# }DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;8 n2 m# i1 k/ \/ P; R1 C! l7 w
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;" w- N+ H6 y: ^8 A+ b- i" Y
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
& E, l0 y- j" v, z- pDRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;/ T/ ` y d9 t# X W
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
- D& W3 ], @ Q+ |4 j, u5 x{下降江恩角度线A}
/ F% i( }( z+ \: Y3 Y: ^3 @" sAY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
7 u' M, k* Z2 ?; LDL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
) W% r" W! w3 ` [DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;: J4 r! h8 G( e0 y+ J1 M8 Y
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;" x4 T7 Z' m- r% V0 S7 R
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;$ w" c1 q& b; k+ q* I' @' ?+ u
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;& Q/ v- F9 [6 n! I4 }0 ]& }
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;; g4 k" q: C3 a8 ]5 p% J6 Z
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;1 q: Y$ O3 K" q, e9 }
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;8 j D; ^7 r* ]9 A& a
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;1 b1 o( o7 ?7 i. }6 S' s3 q
{上升江恩角度线A}2 W( V/ J% f, R4 L" H7 O
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
$ ~" D/ K% K+ ?9 ?1 ?- |5 tUL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
- ^" p. R# ^5 j5 EUL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
3 ]- ]0 w8 ?: h8 r$ }UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
. ~$ \' M0 c+ ~& \UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT; x) c! b% Q' H7 k3 \; D
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
( M/ l; P4 E# `, X/ X! AUL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;3 I" b. O& G1 k( X% Z
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;0 x7 `5 ^7 `- X; n( o7 i% p! o( H
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;+ Q" W0 j2 M$ e1 Y J8 S
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
4 ~: L* X2 w3 z9 A2 ], @. A8 z5 D{上升江恩角度线B}6 o/ `! a' T5 s( Z1 R1 A
BY2:=LLV(L,0),PRECISION2;
# r$ _# Y0 R8 N) t: oUL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
E; ` J3 g4 o, K! @0 |UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
/ M) }6 A' f4 }/ `UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;! ]. w# U- [, Y1 s, W( s# h1 i
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
; o1 [& } k8 U5 H6 t( zUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
7 w8 i! h+ E* G( V3 O% fUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
) M4 h: H, I6 v* e; `' NUL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;- g$ [. S0 t, b9 d1 Z
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;2 X: T" j( b& L4 R1 F
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
2 N' d. r1 p/ V
! U& @4 S. c) f& x# J: b* ?/ c" `! S8 v8 F
A# _: r7 G, Q* f
3 b Y' r3 P7 y0 K+ ?& P
" ^: o- \; I4 r" `由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:& x8 X) q+ _4 l% `% Q9 L
|