原帖由 大话李白 于 2010-8-11 12:14 发表 & l4 i( Q, ]3 `, b* z2 B8 O
江恩角度线及原码" a: _# z5 b a/ W& Y) P
' ^ \* Z- l+ h; m一、原码原理:+ ~: p+ s2 [' U' ^( v: P/ O) V
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
8 }# f t. f7 a& l2 |- M: Q5 u1 ]: i" {! ~' `' {
...
7 P9 w$ Y" P6 M# ]! R0 C下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!+ X x; v$ l- d3 I. S% u
{成交堆积}
2 a5 g& C8 n. d" [a0:=BARSCOUNT(c);/ h! e# \, Y8 } i
a3:=SYSPARAM(3);3 R8 f: y Q4 B" ]3 t# k7 n* o
a2:=SYSPARAM(2);
6 ]8 }3 A* k; q' a9 t5 K$ na4:=SYSPARAM(4);
2 x) k1 b6 T$ f: V: {: z* \a5:=SYSPARAM(5);
, o+ L- \6 b5 `2 O% |a6:=SYSPARAM(1);
+ ]3 S/ m0 C* Q6 Y) N9 ?6 }4 xn0:=a3-a2;) c- o) s g J+ D
nn:=a0-a2;5 E1 c a9 y& v" c/ r3 n$ x3 w2 |* j. d
h1:=(a4-a5)/8;: N9 v5 B0 e3 G3 x' Y
h2:=h1/4;
- g g8 J0 @4 W( Il1:=llv(l,n0);
% m8 y: g( z3 Ull2:=l1[a3];" ]' Z' [7 E8 f# L. l6 k: B- c
y0:=a0>=a2;
% z6 s! f- _8 w5 \2 c# R9 Hvv:=if(y0=1 and a6>=a0,v,0);
0 j9 b5 B9 B5 |, s. dc1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);0 |$ A* r! G% f6 F8 O0 t
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);& {: C, G( ^' G
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
, q3 h8 N+ b! Hc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
: x& M- R5 V& l8 d' hc5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);% Z$ W2 C" c) [5 T$ G$ l
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
0 ~! b4 i; U+ ?0 Vc7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);. E) U. b# e9 }1 L/ L) H3 \
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
# [3 D4 \" B9 w% J: Lc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
4 c4 u. |$ B: v0 L7 Y2 v0 Pc10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
" h7 \& e9 ?8 i- F* f4 b# Hv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
8 G+ G# ^6 K& N/ p/ z# ev2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));% n; v3 P0 {9 [) a" B \
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));7 H) {+ t4 H$ t3 h0 M0 `
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));0 X6 L) f; t! ]8 ?3 s* P
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));' x m! l6 P: v$ H% g; X
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));% I$ r9 c" C+ E6 `" |+ }& r% H
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));% s7 z- p+ k3 x2 X) p% I
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
, U1 ^1 D, a3 `" @, D. e# ~' f4 Rv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
# b; F( F9 n& b8 P) mv10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));" I1 ?" h+ ]% N, {) d" S
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));+ b! t/ }8 ~/ Y0 Y8 B7 n3 [: K+ \
x1:=v1/av0>=nn/n0 and nn>=0;
- ^2 c9 e+ W* W+ J& ~x2:=v2/av0>=nn/n0 and nn>=0;
4 d) ?3 l* J6 ~$ e# R/ a$ kx3:=v3/av0>=nn/n0 and nn>=0;1 e$ ^8 r1 u* [7 i2 k' s7 h8 A
x4:=v4/av0>=nn/n0 and nn>=0;- v( ~1 @2 Y% W: T9 h8 z6 Y
x5:=v5/av0>=nn/n0 and nn>=0;' D4 W; ?9 n" ~3 W+ G( R6 I1 [( t
x6:=v6/av0>=nn/n0 and nn>=0;. u4 A. j- u% g6 t2 G
x7:=v7/av0>=nn/n0 and nn>=0;. v% e6 w, a4 t ~- x; A
x8:=v8/av0>=nn/n0 and nn>=0;; d3 h! i7 b! f# u1 n
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
y; P7 @, I0 r- uFILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
- j: S. t* u5 `! q9 f3 DFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;6 A: _7 Q, d( o. L& `) i8 K1 J
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;+ a0 @0 A& I P- w: L* U3 v( V
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;2 Z7 {2 ^" P* y4 l j. [. v6 a' L
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
" A% m2 [" y/ X3 zFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;# n, z8 A" k+ U* n; F
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
! s4 W I# a4 O0 oDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;/ \; P3 g% y# {
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;9 `& ]1 E/ A) U9 k, z; m
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;7 l" l0 F+ t% ~ |
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
; \9 S W' J$ p; |1 \- Q& kDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
' Z; z% }7 W8 o8 [4 A wDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;" }8 z& ~- e. m: Y. J- J
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;. N; X" e. y: m0 \9 N
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
" D5 Q( V* C( [6 {( N6 Q{下降江恩角度线A}
7 z8 {4 {! ]5 _! c, l$ \2 DAY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;9 g1 m' e) [1 F& o- l0 v1 E
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
( X2 a N& t0 Q; A; J( Q+ zDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;, d) Q0 w9 p! _9 y% A
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;3 Q% m0 H; h- j
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
+ g+ O+ I7 M" ? fDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
$ G/ }1 D) S2 V y8 J- y+ b3 Q! J4 j4 FDL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;6 y Z5 k$ s# F t3 A
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
: ~1 \" [; ?# Z6 j' cDL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
* R- i; ~" y* T9 D1 s2 hDL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;
- ^9 B( u) U$ o6 c7 b{上升江恩角度线A}7 x9 B i- x. W% C6 ^5 X. c
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;7 f9 X5 ^# V7 N5 Q+ k* K: H% l& h s
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;8 [0 s3 H/ A; d+ F$ r
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;) o L# [- c2 a O1 o% y) w3 b' b
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
6 U3 f" p! S9 d4 R& G% {UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
6 D4 e/ U3 D, r) V1 V3 V& [UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
% R0 M8 V8 T$ Q# o8 y, o c9 bUL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;- W- N9 b) s- c: |' U
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
( q' r* J# v7 pUL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
3 U6 d& G3 L3 s7 b6 k0 YUL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
: ^ m6 M S9 e3 a6 ]( o{上升江恩角度线B}' E; ` J- K, Y! [4 d
BY2:=LLV(L,0),PRECISION2;
. p! z; Z, u# J2 VUL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;8 [+ W, V: L4 i t5 T4 I
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;. S% k3 E1 ^5 D
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;# `8 X6 @: W& w
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
% R) h4 _) L# H7 A4 K( PUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;4 e1 I! X( n% d0 o$ W
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
- K$ p( l7 K6 |. zUL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
$ D; b+ B) ^' }6 \ Z5 h9 [7 }UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;( B% X3 g- W1 ^
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; e/ S/ J* ]1 R
3 f- \# ~& p( U" D$ a' ]) @& ?
: s1 f0 z6 O( z# k+ R# B9 b j
: _+ [* o/ L( E; z
[5 c h, M3 Y
! Q2 J$ `0 Z& L1 C5 [由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:, t1 u2 D( [* L. |& V3 A
|