原帖由 大话李白 于 2010-8-11 12:14 发表 ![]()
' q- t7 o; D6 s& a0 k( y$ `江恩角度线及原码
Z6 b2 [0 V6 @, _* |$ g6 v4 Z4 e) z9 ?2 M; q* m
一、原码原理:
( d5 \- b$ ^+ D2 o+ a 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。 } O4 l Z4 d, i3 t. K
6 x+ p7 o7 G* {3 l1 i' y5 q8 y" X
...
: g( K. n, |7 V8 S5 d下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!
3 s+ R: K& p' N* k0 @% U{成交堆积}7 p7 N9 r) g' ]$ H, T& b+ L
a0:=BARSCOUNT(c);4 N4 B* `* v" D2 Q
a3:=SYSPARAM(3);9 P) u% [ ]* A! C
a2:=SYSPARAM(2);
. L2 ]0 b9 {& X: N7 f8 k5 s+ da4:=SYSPARAM(4);
% [! P1 q( w! l! F- }a5:=SYSPARAM(5);
1 p3 @' `" G" b1 Xa6:=SYSPARAM(1);
3 m$ |4 n. c( G: dn0:=a3-a2;
- }# a o4 P0 e8 D+ inn:=a0-a2;2 n( f. U: W: D7 p" b+ ~
h1:=(a4-a5)/8;; J& A1 U: u, \. w
h2:=h1/4;) o( e5 p1 Q3 l7 g* Q# M
l1:=llv(l,n0);
/ u, W% q5 r/ v7 ell2:=l1[a3];
9 g' E. I' B( I, k, {( |% \3 Ey0:=a0>=a2;
; y6 D% t7 n Z. ?vv:=if(y0=1 and a6>=a0,v,0);
' P) U; C: G5 sc1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
8 a8 p6 j1 A* v0 P9 I( Bc2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);; } P& F( I! [6 l( B
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
9 _* t) f3 `: y0 M. z9 x) Lc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
% @5 c* e" S/ @+ Q+ Dc5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
! u/ _; N6 R A& U0 L8 _5 x. }c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
/ p0 J+ b8 F: ^; Sc7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);1 U! v! l% k G8 A) i
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);" t/ q1 `) U" D, X& t+ J2 d
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);- O+ a8 N& ~3 M3 f6 L& Q6 k
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
( {- @& W2 B' k8 T9 R; fv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
$ F3 i& W: O5 n" i# O# Cv2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
- s7 m( {" L$ O+ ?# Dv3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));7 z$ n- v4 y" e* s
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
- V# y5 b& l, |9 iv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));+ o% i% F! p4 R
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
' @1 D1 F$ w" x0 yv7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));5 P9 G' {2 e! i8 h2 ~8 S9 q
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
) P8 D. w: N( u3 W7 uv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));* l3 m3 p. }" {9 h* W& X! h( N5 ]
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
$ I i8 o0 w1 l( U4 x+ x# kav0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
% q; u- z/ U: O1 Wx1:=v1/av0>=nn/n0 and nn>=0;
. ~* D% @) N$ g4 W. R" f+ \x2:=v2/av0>=nn/n0 and nn>=0;
* |( |6 `. c! |6 ix3:=v3/av0>=nn/n0 and nn>=0;4 z7 C9 {- y3 t' Z7 k( {
x4:=v4/av0>=nn/n0 and nn>=0;+ v8 K% p* v2 s, S5 `. \
x5:=v5/av0>=nn/n0 and nn>=0;
( A/ x) h) N5 kx6:=v6/av0>=nn/n0 and nn>=0;
4 K2 h9 i. k/ Ex7:=v7/av0>=nn/n0 and nn>=0;
/ S+ T w6 j' V& L4 ^' _8 Hx8:=v8/av0>=nn/n0 and nn>=0;
0 D/ X( P! ?0 h/ w5 mFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
, q `/ }2 D" E+ Z. B* ~3 S9 }* _FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
5 h- D5 H% W1 _. R n2 G. KFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;* Y- ?6 [) N4 \% Y% |5 X5 p
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;+ C7 a5 w8 e4 a, Z; f
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;8 S& z3 P1 K' h& X) M& t& o
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
7 @& _- S( @. t/ x+ e' i3 OFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
$ z1 v: a5 Y/ j3 x0 M6 vFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;, }/ Z% w8 @- K5 X" t) N
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;. Y, T* U+ I1 E6 U6 b) H' I, d
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
5 z( F4 H, q. UDRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;, v2 \7 ~$ M3 d2 M. n3 V" ^! M
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;6 ?3 [4 O; ~# V' |7 Q
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;: {! [& ^8 Z/ K
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;. T2 w$ I' k4 g; F$ t
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;5 t5 l$ y8 n/ F j
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;$ a! R: I- H: s4 ~
{下降江恩角度线A}
& _( m2 K) a. c4 F vAY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
( D$ Z- ?7 r k' UDL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
4 I! K% b; b% r( O# k$ O/ n. o% gDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;/ h* y7 X, x) ~0 L
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;3 T s8 R0 U; { J9 ^
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
1 e/ b6 _8 D% kDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
' a$ j! C4 s# ^ v% N5 j4 i, `DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
0 k; _2 X4 Q! _! ]$ xDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
8 c% B" f) ^) `7 u }9 A& ]4 y. JDL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
; }5 G. K+ H% pDL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;- L9 @7 P3 G4 }0 H- h
{上升江恩角度线A}, _- r R0 i( e0 d i7 A/ m
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;' j* u9 N! F$ n5 r0 |' v0 _0 g
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;( G: X4 F+ k: r: a
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;* l( c+ D4 b! H9 _
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
6 r! S! f# z* d( w8 n* J& J* gUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;- L4 x j6 l) _3 o) |
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1; O/ ^, z# H; Y9 T0 A) q
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;' f2 V( j: x" v7 J: p8 A
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;. s" `) U! F/ U: }
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
+ \1 i% {$ q7 N3 S) VUL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;# R5 E2 y3 q% k$ a% U, }. z
{上升江恩角度线B}
3 v8 H) n& g* b5 o- Q* d {BY2:=LLV(L,0),PRECISION2;5 `. p- v% o1 J, r8 w
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;* u$ l: E) ~7 `6 J4 |
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
* I6 ?# K+ g8 ?2 oUL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
+ W$ p' G# X4 @4 A1 uUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
$ p/ k* T. E& LUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;- {. a- n! Q; W% k
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
1 ^7 R3 k, u- X8 t, r& z/ zUL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;0 [$ O" U- Q: I( i" m) ^
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;) w$ j8 t+ @. @( q8 L0 z: i. o) N
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
0 @$ i2 O8 r R4 T! e
# L/ b( Q5 ]* j% p
& q# Z8 K* n4 O- Z6 K" [. u2 ~& C) O& l; u$ {" W+ I5 Q
7 K" ]. D. I2 `$ M7 v
2 \0 M, r$ F& v! o- p" z由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:/ W9 }9 w8 k- I) n5 p) J1 Y/ L/ w
|