原帖由 大话李白 于 2010-8-11 12:14 发表 ; O) h5 A0 w5 l. ]2 A6 {; t
江恩角度线及原码
& U' [# I; e% E5 h
7 Y+ [! f; o$ p! ?4 w8 Q8 L4 r一、原码原理:% _- X; C& ]! D& ^) H. p i
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
# J, M! K5 t% E3 ~) D9 [: i) i8 L( D- z4 z! s; p9 B
... 0 ^9 u( i2 `( d' D1 R, m: W
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!8 N& m1 s& _( a! D' l# z# g
{成交堆积}9 P$ V+ Q% t1 [3 E
a0:=BARSCOUNT(c);
5 S* A! A: Y1 T5 \4 L+ l! La3:=SYSPARAM(3);
; B. D) w) h/ l9 ]: N# @! Qa2:=SYSPARAM(2);) N" w; I, X2 G* k
a4:=SYSPARAM(4);+ R# Y) ^/ n# ]. s6 |/ _* d ?
a5:=SYSPARAM(5);3 v0 Q, W1 G! k% s# [8 F( q4 A
a6:=SYSPARAM(1);
9 @- f4 p# \5 ]- ]0 w4 t# X) un0:=a3-a2;. Q2 A- R/ F: J) m
nn:=a0-a2;
& K3 j% y- M* S- Y. ]h1:=(a4-a5)/8;8 M F# |2 c5 U7 z* P
h2:=h1/4;8 S& W0 o! P* R0 c. f: H& k
l1:=llv(l,n0);4 Q5 \ N! c! e' q9 c0 F
ll2:=l1[a3];, ~& A6 j" y2 N/ v7 P9 n% K Z
y0:=a0>=a2;& w( W( @+ A6 \5 d, K
vv:=if(y0=1 and a6>=a0,v,0);
% [: k! U$ p* Hc1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);: |& X+ m# H! }4 ^ S+ Y3 N
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
& y. ^' X; j8 c! W0 Z1 c' Cc3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
: Q: z- ~4 S J" Mc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);/ o/ w: I8 @# y# a! O! k) O
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);$ l* ^( @+ I0 k# ?+ l
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);: f, o% g* P% I: ]/ W
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
) S. n* b" E% u0 {9 r3 w# Oc8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
1 g- N# N+ Q! kc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);! \. x" k2 u) W- w& Z- `, r+ x) {
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);% }1 s6 i8 a; ~3 s n! @7 R' h7 y
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));! n0 _0 e9 `& R+ Y4 M/ M
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
$ z# u+ g. ^+ S _$ G4 Hv3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
% f1 K8 X6 E4 ~6 G" Ov4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
8 V( _' x! V9 ?5 p' Xv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
+ {+ Q3 ~. \$ N3 p( rv6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
+ X% x- I3 N0 G, P8 Dv7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
8 p# r: ~0 n% Q- q9 x$ f( U9 Wv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));1 d! ~; W8 M+ ]% o) ]4 x
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
6 ]8 z2 v% l" c) M/ H* Y& u8 R$ ]+ Lv10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
. r: c/ f1 g& q, n) d4 Q3 J |, Iav0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
% o5 Q; n; C+ N" ], qx1:=v1/av0>=nn/n0 and nn>=0;- d9 n2 M1 P- K" `" v9 s8 ~
x2:=v2/av0>=nn/n0 and nn>=0;
; S0 F' @* B6 Y/ K; |2 Lx3:=v3/av0>=nn/n0 and nn>=0;
9 h" z' q" \, a6 lx4:=v4/av0>=nn/n0 and nn>=0;
) w0 o( K" ]6 F& M# Ux5:=v5/av0>=nn/n0 and nn>=0;
$ d5 l- A2 y$ U8 I' ]! e; Vx6:=v6/av0>=nn/n0 and nn>=0;" ^- a- z' T6 S3 p
x7:=v7/av0>=nn/n0 and nn>=0;! G5 T) s1 j0 w, y
x8:=v8/av0>=nn/n0 and nn>=0;4 w/ F/ l( P7 f
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;5 c4 z, p$ r/ R$ l0 R1 s' _* ~/ z" Z
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;9 P% _% \2 P: E7 x- E
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;( u6 M% [' R. @* D! u9 Q4 h
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
* k5 t$ Q3 u- v0 S, d# D0 Z! V( ?, tFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;+ k& v" Z) L; I: f8 ~# d
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
+ I; C9 C2 F+ Z( y- i" DFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;1 B- n- p* J' d4 P
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;0 O% D9 o n% _: b& i
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;9 m. A; A3 C* V3 f/ ~3 `
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
1 b% u9 a3 R8 O; d6 c5 @% `: {* `DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;# U/ @/ ~& i+ a/ ^9 g9 q9 a1 ~
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;( @7 f$ _+ A3 x7 Z) b
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
- ?% s2 P7 P* a! B& JDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
& G/ @3 t3 V" _, ~4 h. {DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
, y) n1 c0 B2 _DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
k0 m; r$ B1 n& ]! ?1 f) X7 [{下降江恩角度线A}$ J' \7 b( T; L* `. [- h
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;1 Z* H( \5 A& p N+ K! V/ D, e
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;. L, P0 K& |; V# ~& q4 _
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;, n5 n t7 j* ]/ @7 x$ L
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
1 v( O% R+ K, T$ @' S+ \; iDL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;9 P; X/ j6 z+ Q) G% a% R
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
( q$ e, R& P; [; p' vDL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
( j, {% L. s( cDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
" {- L; M, z1 q, a/ |9 RDL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
+ s& e, s1 A% d4 a8 U7 @DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;
7 r5 k4 J* o# D6 w! T1 J2 v{上升江恩角度线A}0 A1 R1 R6 ~ ^" C
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
& g g% x" f! T$ O9 C' A2 AUL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;, e, P9 Q2 H) \6 E* L* E. n
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;+ W6 h% t! D, q( r% f9 N3 a
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;8 X4 I: ]2 }. X, ~+ v/ o, Y# L: C
UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;+ {' f6 s( h, @! g. G* j
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
' g8 o+ M$ V$ ?# T' I6 D7 {UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;& I7 A& ^+ @1 r/ X: x) y A8 [" r
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
; g# k" b) M$ z. M. X: Q) oUL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;! B2 H0 L9 V1 ^. J
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
4 f! C3 s# p! U8 Z4 S) q" Z) Q1 A{上升江恩角度线B}% |( s9 M6 x5 q
BY2:=LLV(L,0),PRECISION2;, A6 K3 G7 j: a" `! j: k( @* a# f
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
0 ~6 X9 w" D- {5 Y+ ]/ y3 gUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
7 z H, }6 O' j! \UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
4 @: r: z$ {' v* j% ^7 ?1 DUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;0 ]: {& G) g9 H/ e' e7 A# I- T
UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
* O$ A ^, o1 R* B5 t2 KUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;
; Z1 g! J+ Y9 o9 a1 b2 DUL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
1 B0 Q& k: n2 R Z5 fUL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;/ U* R3 d6 W7 W/ S" ]3 n' p
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
* n+ ?/ A" V* G2 d
8 p+ t" q; ~% x! {* z4 }. }( w' H" U# O7 |" G5 O: T6 R) G2 L
( M+ B: [( u, F/ i, m! q6 J% V- _! C! \2 A6 M! z, X# T3 y- `) |
- }2 m$ u1 X5 U& H
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:9 V$ X/ j3 T. h2 D! B' K0 E
|