原帖由 大话李白 于 2010-8-11 12:14 发表 * ]' d! ]% Q w
江恩角度线及原码
' w; y, E5 k5 z: W! V9 _
3 B; _: [; F1 q5 H+ w; L一、原码原理:2 }5 Y1 B# X) T% [% M# L4 i" T7 C
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。3 b% g9 O; r: H, j% Y+ A7 c
1 o/ {$ k" w4 x% a O! j/ k...
+ u$ k# ]$ D! e1 ~2 i) T下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!
% G! g% \" ~- M3 G3 N: k7 I9 q/ `{成交堆积}& |* L8 o+ _2 e) w
a0:=BARSCOUNT(c);6 ~8 Z; I. E+ G& p) a D; K1 j' H
a3:=SYSPARAM(3);
7 _ v; y# k% aa2:=SYSPARAM(2);
2 [4 ^9 i5 a3 `; V. v) E r" Pa4:=SYSPARAM(4);
! W$ H7 D5 e X, H5 Ra5:=SYSPARAM(5); k) ]! L+ Y( I/ |9 V- v& U
a6:=SYSPARAM(1);# b+ H: R- U1 ] r; {' l) d! P
n0:=a3-a2;9 |+ K; K' F& b* x
nn:=a0-a2;
7 u0 O6 g. k$ oh1:=(a4-a5)/8;
" u, v( M: d( \9 h/ t2 p. ?/ Ih2:=h1/4;
# i; z& i" v2 Gl1:=llv(l,n0);
0 Q7 F" j* V& G5 c3 Ull2:=l1[a3];
/ y9 T3 _ w3 n: H4 vy0:=a0>=a2;
3 S8 V, {! t" `: R" [: g" Nvv:=if(y0=1 and a6>=a0,v,0);6 T, g2 Q! V0 B8 H, ^- k
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);( o% s% Q. s: B1 y9 x
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);4 p# V3 G0 N! J1 |
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);* E/ L6 e- M3 i7 D1 }( b/ y' O
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
, M' b; w# H1 S5 @" s6 Z: u& M* `7 rc5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);% t/ t. V6 O" P* V! U* Z
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);' A, o0 O3 a5 O% Y; E+ ~
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
x6 p! j) e, `& t! I( a, yc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
) b" L' J8 M8 j. z3 b# zc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
2 Y. g4 G2 p' [3 ?) `; H+ Tc10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);; L2 @% P" p3 L' H4 {7 }
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));' g* A4 ?0 y, H+ c7 E
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
! z4 e- c$ S- w. o/ d% i7 m5 S1 wv3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
6 D/ Z$ D1 d7 ]) av4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));) j8 g! i. G5 |# |% m
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));' _. |' X8 J2 z: {
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));* b# @& s/ Z% d0 @5 U5 ~3 j( C+ u* U/ u% `
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
% y4 _% a4 A- W1 |v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
9 |% y' i4 J5 @- D+ i. ?v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));% c. k8 z1 V& r0 L
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));8 h3 s1 Z4 Z( Y+ o$ b/ V4 o
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));1 F2 G( B6 ?3 G. R4 q. `! O4 c& k% N
x1:=v1/av0>=nn/n0 and nn>=0;; m* O5 Y' H' Z* T$ ^8 [/ e1 T
x2:=v2/av0>=nn/n0 and nn>=0;- i5 A" J& ~/ k" d5 E
x3:=v3/av0>=nn/n0 and nn>=0;
2 [% r) S! `7 s3 t6 V/ _' `- l2 Mx4:=v4/av0>=nn/n0 and nn>=0;* n& W2 \4 Z' b# S8 g
x5:=v5/av0>=nn/n0 and nn>=0;
7 g9 b$ i# D9 a& S5 Ax6:=v6/av0>=nn/n0 and nn>=0;
3 Z9 J# C' W! s3 Lx7:=v7/av0>=nn/n0 and nn>=0;0 E/ O2 }. _0 G3 E# @& U3 v0 s
x8:=v8/av0>=nn/n0 and nn>=0;& z8 ~) o) x8 y! R) x( ]
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
# v$ v; K: i' F E& f, fFILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
/ E+ P0 _8 @ v0 U6 s. YFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;4 V" }/ `, i* ] n4 z7 F+ i/ J
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
/ Y8 Z8 `- D8 }FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;5 o$ V$ C# s$ f) F q* b
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
; ?2 I9 ]( @! }* H ?1 B: G% F6 GFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;$ f* v* [. [# k3 b8 ?9 a/ o+ d
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
2 p5 w' p2 D; @3 L2 e3 E& vDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;2 P2 _) E K' {: @3 E. q3 q# H5 m
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
. p% O- z# P# F0 m( k! \DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
2 u. P9 h) ] V! l7 X; FDRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;) \" y8 C6 n9 y4 @: w2 l
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
2 s/ m; j4 Q% qDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;; [/ s- u/ u6 z- R( o1 d/ o, T
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;1 I" v; l. V, Q# s3 S6 u
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;4 `6 r4 s) H7 b, b1 r5 ?; Y8 F f
{下降江恩角度线A}
3 J0 b5 s1 |+ O/ j2 }AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
5 E7 g( o8 B* Q, C" _DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
- [- g9 d( h8 N% ^" O$ w% t; FDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;5 I, B& t h; q( C. t& n( q
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;7 n; c6 Z# W0 _ f* i& M$ L
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
, l# Q( {2 I r1 `DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;& `6 g2 t4 y: r n: B" H' K$ q
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;) [4 l7 C! a e, {' `) p
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;7 J4 T |# A( U' \& H! B. ~- T$ `$ A
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
) z- z6 z) w l1 oDL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;+ K- p6 g+ |$ E/ P' C# H5 W8 u
{上升江恩角度线A}
3 {' X5 u( V0 p [+ v& bBY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;0 e: e% K( u6 N4 Y
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
3 S [9 y, p! M5 u" w N/ U0 CUL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
9 W( B/ v7 z" b( j( tUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
. h1 O: ?$ V6 w: f6 LUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;- J* Q6 N# }& N+ ^
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
b0 j( Y7 D" [* K! f: HUL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
7 O) S, i+ [9 l1 o7 |UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;% p3 X/ b6 @0 w; p* |, L
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
. ?1 H6 e4 P/ wUL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
. g* W2 E* ^& ~9 |' Y. U# a c{上升江恩角度线B}
2 W" N) U: w% k4 p3 L7 BBY2:=LLV(L,0),PRECISION2;: Z# N/ B& Z' e7 y5 }' s8 V' V
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
( T ^, ~4 P) L! jUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;" U" h8 W* @" [$ P* a) I* w
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
) q3 G$ T, l7 EUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
; a! G. H# @/ p0 x$ l% v. V. ~UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
( N. t: t% a% C8 i* gUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
4 u# Z, O: g s$ V/ u9 ?$ _UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;, N F5 I3 x! {. e1 K/ W; x" L
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
' W) q4 G& v7 j: Z4 c8 VUL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
3 [* J# d. I2 b" O' K8 B, o$ C9 h Q; j" T9 m( V
" Q t) G0 @* m6 E7 z+ u5 f# u9 Q' V; W3 z" e2 E( s
8 ~% ]4 u* Z$ f, }4 Q7 q3 f
( G) w& P P F# k( b1 ^由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:
" u2 c' m0 H7 K9 C8 c |