原帖由 大话李白 于 2010-8-11 12:14 发表 8 m0 \2 I( K- R5 a
江恩角度线及原码
/ ]2 c ^" A) ? Z0 A
4 A; U# b1 c% ^* ~! V- t0 m$ t一、原码原理:
% g( V0 }2 L9 g 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
2 X# T3 D# h O, e3 d' p. M% i5 G2 P1 H7 N$ t
... : k& @/ k R/ b& X
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!
$ D! Q, ?0 P. j; V; \{成交堆积}9 P9 D9 }# ]/ m% W( ~
a0:=BARSCOUNT(c);: E5 Y+ Q1 b6 h. c
a3:=SYSPARAM(3);
: u. q8 ~* m7 V; p& S0 z7 Ha2:=SYSPARAM(2);
F0 g$ y3 m$ P6 }+ e6 ?( ]% U$ va4:=SYSPARAM(4);8 W c ^6 j" H# `8 T- s' d
a5:=SYSPARAM(5);
: h' `2 P G8 ~" B; t2 G" T$ K% Ka6:=SYSPARAM(1);5 a2 o P6 R F, X
n0:=a3-a2;
. x- J' ^( @0 f" K( Rnn:=a0-a2;# [/ i1 N/ L( |4 ^# R( i* q
h1:=(a4-a5)/8;5 w/ ^" K2 p) L! e! O, `
h2:=h1/4;
2 i. C$ x! C2 x A8 h* Nl1:=llv(l,n0);7 Q4 _: h3 K: \$ B* e, i! w
ll2:=l1[a3];
& X9 Q# K& ~ V6 c& X8 J' f iy0:=a0>=a2;) l# r" p; I1 h% a
vv:=if(y0=1 and a6>=a0,v,0);' m+ g' g/ N; A3 ]6 D/ m0 A
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);9 p/ Z( f. m% h2 r3 w9 o5 c1 V" V
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);) C* O1 L G3 O
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);0 y' Q" d! O. i y
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);0 n( L- N6 }; c
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);% P' ~; G+ \/ ?+ l/ L4 g* R
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);7 G3 f5 P5 C& r
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
0 A2 B" y3 N# c. {0 x9 o6 c7 mc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);: m+ k2 z @7 B7 b T) m0 D
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
) R' Y! p g5 g# X tc10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
* D) o. e& s& _! U% zv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));4 } x8 W0 I- @4 r0 u4 E* S
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));" ?/ s" t( a" R: i! x" K
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));6 }* @; {6 P6 B
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
y2 x9 `3 r$ _9 ]v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
4 x$ O2 }3 B, W' Dv6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
! v7 ~2 V) c0 r8 _- @v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));8 @6 c+ i" P( _7 k
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
1 Q5 N( s. d9 H( P b3 Ev9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));5 `, b" a2 Y8 `: ^! w$ e
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));- ^- F& B- w( p5 l
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));; p; R, v# G3 Q5 q) T
x1:=v1/av0>=nn/n0 and nn>=0;" p A- V) _' g, V; |
x2:=v2/av0>=nn/n0 and nn>=0;3 @5 K8 k3 Z2 ~% u8 R. |& ^
x3:=v3/av0>=nn/n0 and nn>=0;8 X4 i. w1 o1 u# J
x4:=v4/av0>=nn/n0 and nn>=0;
7 N1 u( Y0 a% J% j6 F& }0 Ex5:=v5/av0>=nn/n0 and nn>=0;
: ]' F+ t/ V, @( r7 xx6:=v6/av0>=nn/n0 and nn>=0;
' S9 Q, O" w3 P/ bx7:=v7/av0>=nn/n0 and nn>=0;
! X# T- }. e' T# T" t8 wx8:=v8/av0>=nn/n0 and nn>=0;
: F2 ^4 z& T# [0 q+ }$ S% q: U4 EFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;" D5 U' E4 E2 q$ `" S3 z
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;$ [! f1 l. V# _" Y; x6 k7 H
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
) n2 R9 F* `5 J3 i, tFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
6 ]" L* D# P+ ~FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;
" i2 t" Z7 O3 w/ ~$ ^0 ]FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;6 T: F- ]. O/ F0 ]' u
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
; m1 A- |5 {6 ~6 G4 D. zFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
. {0 U; F1 W: i6 EDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;( y& z) n6 L' ]/ T4 a
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;/ l+ l/ Q. R! n$ c# \; u1 e" |
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
) s9 [% ]6 n- C# ~9 iDRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;! @7 d' J0 e2 L' z( e# }
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;. W G. {* K+ L! @
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
2 f" z, F; d' @" S) ]* dDRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
0 {1 C( Z/ H2 ^6 _0 c! yDRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;1 q |5 y- t/ I: H! ~) p" X
{下降江恩角度线A}/ A7 [: k: K S& }- M$ Q
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
* L( x# _& N% w1 y& [DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;! Q$ `+ F& {$ _, j
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;6 s) y* ~8 }1 e+ }5 L: p
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;$ q* y! i" y# O' B* t3 |
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
4 _* G x0 I2 D% ]: i: XDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;* z Y8 Z( ~3 V8 o4 J3 E
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
* Z; C8 W2 k3 n! ^+ X+ L: hDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
* g G- ~5 \4 Q7 f" G5 PDL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;0 f# M! D( p) a5 H2 }9 i
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;0 v- N M; t( t
{上升江恩角度线A}
! n4 D8 G' s) O% a+ M. BBY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
; G5 V7 E. j" l# ?/ P+ ^UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
7 D- o# K3 j, N7 z( T8 ]UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;- a, i0 w! A) F. k: Q* g: b8 }# i
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;8 A h1 Y0 p8 @2 ~ {( r( a8 a1 ~" @
UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
1 x, B9 l2 h, p* dUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;6 g/ H& @" C' o# y9 v' Z
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;$ k2 O4 u! r! i+ n/ x. v
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
5 a+ v' k5 F3 A! EUL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
5 k) o; ]2 a) W; X* {8 uUL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;2 E( I# C8 Y K1 v$ D& _
{上升江恩角度线B}
6 p( H8 e. N5 n9 W, @2 C' ]* {1 WBY2:=LLV(L,0),PRECISION2;
* ~ _" y1 A4 f, `UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
0 Z+ T" k& l5 wUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
* |! ?. d; a+ F QUL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
; L# e. D. P- i/ ?; ` @- V5 i/ W: wUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;) A0 m! Z5 p9 ^3 A. ]6 S3 }% v
UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
: u4 @+ y' y' |2 p( z* I, N$ nUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;$ C# S/ z; h% j/ s( l* _5 m
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;9 `/ Y; o, Z3 ^5 ^" |
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;+ V% b/ C/ P, _" m8 v
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
0 L* s) N) ^% K6 i: z
$ V" B3 _3 p: H+ \. I. y
9 k7 Y% Y) M% ` m* i
; [" m+ S- O' F/ X1 u B+ w/ c( w: S) t, h7 S. j& @# x& F$ s
6 \) H$ t. }% D, M& f. ]% s由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:
3 @2 a6 p2 c7 F5 Q- z3 V4 Q% k |