原帖由 大话李白 于 2010-8-11 12:14 发表 ![]()
* P+ o6 F* T) b2 E% q, l江恩角度线及原码
1 L- x0 W5 G# Q1 y' m% K' \5 Z |' C3 \9 |& c* v
一、原码原理:' h+ }6 C) l2 K( H
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。6 f* e& n7 n- ~) a# x; {
% }7 ` n8 a/ G( F4 H+ c3 P, K
... 9 {" R# q' _" ^3 |: Z; M# x6 g* J0 g% a
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!3 d. g, Z2 ~9 _ {' S& ?6 ]! g( e
{成交堆积}0 G5 f& M: i. _0 j! L) Y
a0:=BARSCOUNT(c);
. R" Y8 O: u. u6 z- I7 ^4 Za3:=SYSPARAM(3);
$ U! }9 u3 u# G! \3 I# s' `* wa2:=SYSPARAM(2);
- k" D0 ^! e& C" y- K( Ha4:=SYSPARAM(4);
- [8 F- i: a6 U! d* Ra5:=SYSPARAM(5);) k0 G! t( H+ k; _! B
a6:=SYSPARAM(1);
( O; M! `6 W) _n0:=a3-a2;$ {; z6 R$ ^+ I4 I$ J# T1 m
nn:=a0-a2;+ c+ ~4 }/ v& r `1 u: f8 |9 U
h1:=(a4-a5)/8;8 [ p! m3 R/ `( |
h2:=h1/4;# ^( v6 r& s) P3 J/ V) _
l1:=llv(l,n0);+ m: V% F4 q4 {' T0 X+ g
ll2:=l1[a3];, s2 Y. i. Y5 k }$ M8 L
y0:=a0>=a2;
' O6 R, v, s+ }% }- a6 Wvv:=if(y0=1 and a6>=a0,v,0);
+ z0 q; t& a/ Y. dc1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);) t2 _0 R( c5 B% J# t' `0 m
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
! v3 [# L& C- ]5 m+ k' Dc3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
7 ]0 O! @- z4 e9 {8 c# B# m, |# tc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
; q& l3 M0 }* f$ z, b& hc5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);& Y$ A* q, y. e6 L+ t9 i+ z2 w
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);( w. |+ D7 N" o1 G* U$ n. y5 b
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);# v* L% z. b. z; c) x! f
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);: P U$ B& q/ |3 H0 P% M- C- B: ?' ~
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
1 |( S: }+ v2 C/ w* uc10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);( |$ z9 c* o8 p+ {
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));7 b6 {% l, @% ?/ m5 C k
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));$ P9 i, X- j+ s: [" `6 h$ |
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
. |8 W/ ] l3 D E7 h/ sv4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));: S. e( z# V! h$ V1 H' W3 y" j
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
1 u$ Z3 P& K7 ^/ C6 a i( G. W& w1 Xv6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));# q& S3 A, ?( d4 j
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
3 F3 m) V& w+ [3 e' K, bv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
% n) e" _7 F0 bv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
7 N% p) g4 Q/ J2 fv10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));& }) A8 A4 T% `& T* c
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));. R, m! n3 I0 {3 K+ l% t
x1:=v1/av0>=nn/n0 and nn>=0;* n& [2 j' ~: U! G7 u# D+ p4 |
x2:=v2/av0>=nn/n0 and nn>=0;7 N* d5 k# _6 Q2 l- e! a( W8 A* k+ h' {
x3:=v3/av0>=nn/n0 and nn>=0;
, W2 p' X+ ^5 Y/ z- j; Ux4:=v4/av0>=nn/n0 and nn>=0;
' e( y( x" K( ^x5:=v5/av0>=nn/n0 and nn>=0;
@& A* m* G" y: o% X4 Bx6:=v6/av0>=nn/n0 and nn>=0; ?6 s& c7 B! h1 J; r; J4 L
x7:=v7/av0>=nn/n0 and nn>=0;* R0 m. U6 P. m) H4 }& b
x8:=v8/av0>=nn/n0 and nn>=0;
( O w" n [5 L" P8 Z$ [FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288; B- ?6 ?0 M- ]( z" G) z
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;6 x% d# C9 D% |* z7 o( v
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
2 b1 l% {7 }( j" I1 C! v. {( I/ lFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;" ]# d8 p& J3 V8 @- Y2 J
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;
# u* W# X1 {) j5 X) R5 RFILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;7 B+ a0 v, K9 B$ W! J
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
7 X% j6 O' B5 \6 VFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;, y( R% x7 C) H
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
7 U d2 }1 s5 k0 _3 UDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
/ o( Y0 y' o" nDRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;! s0 L' t5 ]/ F% X
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
) `7 u% ^, e. `; [5 eDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
5 j8 b- N% h2 U) u8 S/ ~# A6 BDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;/ l A( L B( n8 }
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
: Y. N( G9 k) b! U2 {6 B. `DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;! d- h9 C& w% d( l3 _( A/ S* H
{下降江恩角度线A}
& I+ D1 Z. N+ s6 }AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2; F+ k" P! u+ r) ~9 [+ a
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
# I6 K. |. F# v& wDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;2 Z( ~9 s0 d. h2 K/ e! \
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
' H# }; n& ~9 z# v+ r( @8 \DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;* b: H9 `2 V% a" H3 b& l$ L1 }
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
; k% ?0 P5 ^ x1 v/ G) O2 iDL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
' O2 |2 }* `- |- d! H# EDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
9 f, C1 h. g8 w$ z% B0 HDL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
9 D% p c9 j& s3 ?DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;8 n5 o* K" d6 Z* m
{上升江恩角度线A}9 U- K9 d- l: A- O/ E
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;0 {, f7 J+ E( E# ?& p
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
: t& ^& L0 b9 Y; p$ Y8 fUL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;2 ^/ ^. ?7 g$ V" n; t( n
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
6 d$ h- m" ]+ J4 W ZUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
. {* @2 B9 v+ M$ x& V" ~, |UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;! d: A$ T$ S8 Z5 l# ^3 q
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
. l' O' l( I. |3 R4 a8 y& A; ~# qUL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
! o n4 m5 c+ K U6 V& wUL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;+ [* g5 I, C7 a: W z0 l$ m: g) \
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
& F7 i8 G3 Y4 Y( J: y: b( l8 W0 W{上升江恩角度线B}8 R7 {7 h: B4 j3 ^ [% B
BY2:=LLV(L,0),PRECISION2;
! R4 `' U# \! \2 PUL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
; u6 q d; ^( X, o0 k7 ^4 L3 mUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;1 v" Q7 J+ Q3 V( I$ S
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;- `& W; ?( i e" \
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
3 D$ E- z7 Y+ ^9 i0 T3 r4 \: Z" \UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
3 m! L# e1 W6 ]9 h* `! BUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
5 S: s2 e/ _" u g' o B" t) Z4 W' \UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
( K: h6 n" h# d6 t: CUL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;& c8 O4 n' q' H
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; , f) Y9 V6 h8 _# E
& B6 I% v4 U y. d: F- Y# d) H/ Q: f$ x. ]. h
, @8 b7 j$ ] w3 ~: s! J- N
3 G6 D( ], O" A4 y9 M' [$ c3 c3 I A" u8 G6 r
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:5 N3 V5 t. r- F. F. V
|