原帖由 大话李白 于 2010-8-11 12:14 发表 ![]()
1 \9 U4 s& o/ L6 i. n6 A. {江恩角度线及原码+ [1 X2 Y/ ~3 g6 ?4 ` B7 n
0 L$ j9 \: E" O) g
一、原码原理:
3 e0 T2 j3 Y/ _1 g9 b 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。7 l. u; P1 P- Y; P3 n
# G- Y/ m4 ]6 n% w
... . ]! ]; |! i9 d8 }7 b
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!! J, o4 K0 I _7 j+ I- J
{成交堆积}
+ l4 C0 |. T6 Ka0:=BARSCOUNT(c);
; A" L" w( B& U* B* x6 V% a9 N. Ya3:=SYSPARAM(3);
4 l/ O0 w' H9 ]3 Oa2:=SYSPARAM(2);
2 f! T/ L/ `( X9 Na4:=SYSPARAM(4);, _' G; ^8 K! Z% |
a5:=SYSPARAM(5);
9 }) E9 ?/ x) L# O; D9 d/ B# Ia6:=SYSPARAM(1);
/ c# k" l: s; mn0:=a3-a2;
# J, ]1 ~' T7 g: N5 M1 ~4 |nn:=a0-a2;: j* e( h7 M) g4 d& B' L0 x4 i
h1:=(a4-a5)/8;
; @) R& d5 _2 ?7 hh2:=h1/4;! d( F( b \8 `! T9 [) J
l1:=llv(l,n0); A) e. q/ Z5 q& s
ll2:=l1[a3];
, J+ W7 Q" v( f1 e* }4 s- ?9 Z- Iy0:=a0>=a2;
9 v- B) I; i0 T, e" Q vvv:=if(y0=1 and a6>=a0,v,0);
4 {& _( X5 t) E+ ?c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
/ ]/ a. [! E! }8 ~% ~# \% {! xc2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
4 X& o! K- J* r- G. tc3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);7 m; V: h6 O' W
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);. f/ j! O7 C( G6 ?/ `1 P: O
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0); d5 l/ j& m" |( C; S0 y, l( B
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);# q0 G8 Q! Y) G, H7 c; m4 f( w8 g
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
4 D& L% d9 g! rc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
# e6 W$ S2 N/ M2 J+ Sc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
' |( I9 ^- F- B2 b/ J0 ]6 lc10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
6 p3 X1 O8 n, L7 Rv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
% h6 K3 W( }2 w Uv2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));+ B' p2 f. f8 h* t9 s3 {2 ~
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
: ?& p, ^$ B" i; |# uv4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));1 D2 X$ j3 }4 W: ^) Y+ l! j. \
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
- Q; I, y- j: J G$ | Av6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2)); l! P5 _/ B+ D
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
/ o; d% T4 _) r2 x' O5 Nv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
9 P" S1 r' w) v0 J( E& ev9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
0 { B- L$ l! A" @v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
* L0 t# u" B7 t; L7 }; ]. q3 N1 L7 oav0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));: n5 G% c4 ? `% I2 W# y
x1:=v1/av0>=nn/n0 and nn>=0;
& y8 H: v5 M8 _x2:=v2/av0>=nn/n0 and nn>=0;3 P2 q5 d. V; j2 i5 z5 q6 M
x3:=v3/av0>=nn/n0 and nn>=0;
% {3 {$ z7 d, @/ gx4:=v4/av0>=nn/n0 and nn>=0;) s% w2 \2 L# t9 h2 n! R
x5:=v5/av0>=nn/n0 and nn>=0;2 F# L2 d) P" T, H! M c
x6:=v6/av0>=nn/n0 and nn>=0;% M- N t2 x) w1 P3 ~
x7:=v7/av0>=nn/n0 and nn>=0;; [. a, j( C' q3 I3 h4 D1 a7 T; i% r
x8:=v8/av0>=nn/n0 and nn>=0;
. f4 `5 z7 j) z5 AFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;- e3 |9 i; @1 h* T% x) S6 ~5 r
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;+ K) z( `) N; s: ^4 C% w0 b; L+ P
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
0 k4 K( h ]- {" j1 lFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;0 g' Q; `" H9 S0 S8 I M ]
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;8 _! v' p. {2 a& S0 p2 u
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;! [, n% h O' M# @$ A% c
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
* D9 V, r; \7 DFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
# l5 f- G7 i, D8 }! V' yDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
' D, i* z! D- I" g% }% c+ MDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;0 u& h# K/ j9 Q4 A5 P$ s2 s
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;# v. j4 r$ V! q' g1 D
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
) J7 W$ @4 G! D" rDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
0 O4 c+ }+ f/ i' }DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;* C6 p/ t- S* X. O( v
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
; B: l3 Q# }' {: S) }* [! mDRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
, d5 d+ `7 h' C0 r# F- Q$ F( k{下降江恩角度线A}
+ ]# I; J$ S5 @7 @; U3 A6 PAY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
- h; B! m! L1 D( O9 UDL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;- C9 O4 _& J8 p, X1 }: g! H( u
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;. U0 C H- u- D* H
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
% \5 w7 S* h. j# L% D6 H' V! ]DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;+ z2 ?8 n% `" r, ^1 D# V- r
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;' r) I, [# q, ^9 d
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;# p8 G* y% Y/ P5 @$ n1 c
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
$ g# U( \2 A. P+ c/ uDL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
% _: a6 y7 g/ x, b( g7 ]DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;
, x% X$ ?9 C0 i9 A' U{上升江恩角度线A}
( i% Z% h8 l D# ABY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;( P/ w9 }% @' F+ ^
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;1 g6 W( J2 a* X
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;; W, }) J" M* ~: x
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
8 O0 ]: ]. D9 |* u$ M+ Y UUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
, B& A! v* L! D, Z- gUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
) ^$ e, o1 v$ \; `/ ?, wUL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;( Y, E% l6 v2 c* Y- s$ u
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
+ c d7 X% a' \1 |UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
3 [7 _' X( a5 A7 W! n9 Z1 h6 MUL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
. a4 T( [+ q3 O( H. x5 R6 R8 o5 [{上升江恩角度线B}+ B' A/ C; @! P0 e) j. Z
BY2:=LLV(L,0),PRECISION2;4 y O( W6 q B) b
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
4 P' I" `8 Y( Q( A7 B d# U2 EUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
+ l, b0 ~* b- D/ e! XUL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;! S: b& H8 d9 t
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
% R) x5 y1 Y' @- U7 V$ fUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
- O) @+ q0 n% i# a0 l" k+ w" ^' b, w; gUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
, Z3 X8 j8 t1 \UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
1 m) U9 y. h& H& _- W. `UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
/ B# S( ?5 f; [UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
& H$ A, e1 f$ I
* h6 i( g) g( e1 R8 u/ i3 A5 o6 _7 F& s; E: e
. V; p S$ [! V2 y( R! |
# k! Y& N5 m1 u, W! J8 P
9 G& @7 ?/ \! `. w! Q- A由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:
2 T8 I/ s5 X5 O' y. C. Q& W" \ |