原帖由 大话李白 于 2010-8-11 12:14 发表 + S; I0 B) |5 o3 s1 B% y; ~
江恩角度线及原码+ d5 R5 y' J& J
- Z* Z3 Z0 N% e) D. J) m! s一、原码原理:
; v8 U$ p; D e3 I% Q 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
/ f' [- h& B& X; ~" M5 ?' }, g1 P; U2 ^- X9 l; A- u
... + h" R% K0 u1 Q
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!9 G4 z1 n( L% ?$ h+ z
{成交堆积}1 ^ m/ u; `& b' I* u
a0:=BARSCOUNT(c);% j p+ Y$ k }# n; o/ a, r+ H
a3:=SYSPARAM(3);1 T, C% d2 K) w4 s6 q$ K
a2:=SYSPARAM(2);. m6 ^/ ~+ u, n S6 H; b! b
a4:=SYSPARAM(4);
+ ?% j' @; D* s, b) f7 K1 e; q/ H( Q3 T' _a5:=SYSPARAM(5);
( L) l- O# D; R* [" Q* o8 ma6:=SYSPARAM(1);
/ Q r9 A2 j; H I# q& qn0:=a3-a2;
) s" t2 c! c7 I8 T7 H( tnn:=a0-a2;
# g$ E+ q& l6 H( E# bh1:=(a4-a5)/8;
- a9 T* q" Q; R9 h# d$ o$ eh2:=h1/4;
8 m5 g& w( q2 s% {: Bl1:=llv(l,n0);
3 a$ {0 E4 w5 O3 vll2:=l1[a3];+ k# [1 r5 C) i' N/ V, ^# e- Z* j
y0:=a0>=a2;
2 I0 M/ n0 r+ C x! P/ lvv:=if(y0=1 and a6>=a0,v,0);
( j Q; W, i% ~+ n& gc1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);2 n Z1 t( U4 U7 H/ ^
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);6 |6 P* [% a4 ^) u6 x9 Q6 Z
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);0 D2 ]8 S+ D- r/ d# S
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
1 @1 c1 b* O. ^; kc5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
7 \9 u( q) x+ t& f- m8 yc6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);- [0 z# K6 w6 T) p6 S
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
: h4 ?" z+ _4 n1 l( T* Lc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
5 M- \+ m6 C5 k- Ic9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);% ?* w5 V0 r/ q% e; C
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);7 g9 D2 E( P- C2 b
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));5 s9 O$ V. F8 C; z( D- G. u
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
) A; F) \9 ~0 G! R) `& u! ev3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));/ m. S Y7 M: R* [* ?% T; k" Z2 l. k: }4 i
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));* |( I, b* t* s8 U
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));; `) I/ ]3 Y, B% v# _' T" C) t
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));! N; g) Z' r' B6 w/ f
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));* G1 i& J# _/ R& r
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
& @" l& Z5 q# v4 ^. |$ f! Nv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
7 k4 f% J, M8 sv10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
W E: g, S0 Z9 H( ?3 pav0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));2 ^5 J! e$ B' p$ P$ ~$ m
x1:=v1/av0>=nn/n0 and nn>=0;: n: \6 Q. e- N# \4 X _
x2:=v2/av0>=nn/n0 and nn>=0;
3 M2 ~# \3 |8 tx3:=v3/av0>=nn/n0 and nn>=0;% z$ I% W4 U7 Y% ?3 }0 Y& y
x4:=v4/av0>=nn/n0 and nn>=0;$ X( C8 a9 A$ U
x5:=v5/av0>=nn/n0 and nn>=0;
+ h0 b4 E1 Z) a5 j" S2 D- e6 Dx6:=v6/av0>=nn/n0 and nn>=0; @4 L- @' r9 q1 g3 b
x7:=v7/av0>=nn/n0 and nn>=0;" n) x" w5 p4 d7 d- e/ \$ w2 d
x8:=v8/av0>=nn/n0 and nn>=0; s8 c# S+ `$ e4 p3 p
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;! b6 W: S! M# H$ q. c
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
$ [( @1 M, Z; O1 c1 {FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
; X P" I+ c* a1 ZFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
* F* @" K, R5 a! b$ mFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;; C* O* Y% v) d n- U5 o6 E
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;0 u) X2 L. U4 z/ X- i( P
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;" k+ E. V }" Y; F5 ~
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
. ?' X- V; z6 P8 [9 XDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
& k5 s i4 |& q, K4 C; gDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
7 D8 F" C( X) B- } v, K8 [* SDRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;1 p$ x: l: l1 `% d
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;: j+ e0 p; W, p8 y h
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;. w8 `5 h3 B, X3 w- }; `5 J
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;; b8 _& P. f F
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;1 y' u/ u0 p7 F3 i! P7 F: C
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;" z4 s0 F7 g4 t/ V
{下降江恩角度线A}
2 c) p% K, \7 X6 x0 XAY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
* N! b& u& Q5 T; ]DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;
/ U' \8 `3 ?1 w0 ^+ TDL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;
5 F% ?% z6 e1 {5 V" ~3 `DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;! q1 g5 \& t, V" K* |
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
. _5 @% z# W( h. {# I! pDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
; \3 H+ n3 { l- B gDL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;4 {9 D6 ?+ [+ ]8 @- J- ]4 X2 x
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;0 B4 `8 \0 f/ X) D9 v
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
! [7 w/ `, G! e1 X. VDL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;3 t3 T* [3 W2 ?' f8 T1 e1 R
{上升江恩角度线A}! {8 ~9 U5 `, X4 T6 I9 j' Z; C
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2; B1 a. ?' @$ `9 C/ k1 {
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;, R" Z9 b; W* m$ V
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
- R3 O( i8 K8 c$ k5 N- {* w. wUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
; f' {8 V$ o; o" _5 @5 \1 gUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;# |8 f, X* a: _
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;1 C$ B* k0 a+ t6 j u0 @
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
7 }9 D: D- }+ |% ZUL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;7 m9 |- ^8 `# n8 T+ u
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;% E$ A% Q7 g7 z: t( w; N# N
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
) M0 ~, v" X" u! s" E$ a. D{上升江恩角度线B}+ z$ U U+ ~5 J2 r& t$ D( f7 @7 g
BY2:=LLV(L,0),PRECISION2;/ m: R% X0 l) `0 a
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;7 W, k* P, v) o( Z" J8 W, T* L
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
7 k- o, m1 L2 N* D2 mUL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
8 X# m5 ~ C \0 S4 ?; DUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
1 ~* A" J4 L+ |# g7 N: \/ A0 pUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
. X, H1 j! w( g, k: B/ fUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;3 I4 h& i5 z) J; W& x e
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;9 J s2 Z& L) J/ ~- ?
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
9 t: T! l& d5 M Z5 x: _. l9 z1 JUL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; % H! U. L2 u; Y9 m2 U0 T. d7 `
, N" U- Z) ~' Z7 t
( u) M8 i/ S, [& p, W! a6 H: {4 x& \; n
6 z/ X4 {5 u6 A+ C8 t' U0 D% q; G, l. h6 Q/ R4 ]
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:
r& N; G% w, ]3 ~# {& N1 A3 ? |