原帖由 大话李白 于 2010-8-11 12:14 发表 ![]()
# I+ L/ j6 P& |" c4 l4 `# a/ ~江恩角度线及原码6 c9 h3 n$ U2 `1 v3 o7 U
; Z" J; ~6 ]( C0 {& @( _2 N- ~
一、原码原理:
/ q5 y9 Y- m3 i8 \. b 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
: ~( T; O! H3 h* x3 R! q7 K( j. H2 u; k! y8 l( u- J
... 3 i V! b ^% @" M) \& p
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!
& M. g. j& h) G) L{成交堆积}/ u! Z* m" ~7 w1 h
a0:=BARSCOUNT(c);. r1 s# E7 r" p' i7 f4 S u, G
a3:=SYSPARAM(3);2 R0 a1 a0 e9 O' Q3 Q
a2:=SYSPARAM(2);; n, `/ A+ m0 C2 g
a4:=SYSPARAM(4);8 t8 v- h! C6 b3 F# L; L% k
a5:=SYSPARAM(5);
. X1 T( e2 o9 r& E; y0 |/ S8 oa6:=SYSPARAM(1);
! b# T' c: v+ V/ ~. z& Bn0:=a3-a2;* [- p! i1 \: G9 q) T
nn:=a0-a2;; ^6 Z1 x% N' f2 G3 K
h1:=(a4-a5)/8;
: U' J. E5 ~9 O3 P$ r- Y7 r9 v: h( l: yh2:=h1/4;
& |8 e( w& ~# ?- A1 Y# ]- o4 nl1:=llv(l,n0);, I# f# D5 O* A) k Z/ p: u
ll2:=l1[a3];
) T6 Z( v, P% p+ Py0:=a0>=a2;( r$ H+ \% y4 n- k. \" f* R
vv:=if(y0=1 and a6>=a0,v,0);
}$ i0 z2 G5 Y1 L( y5 ~c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);9 X- M: z5 Z4 X1 ^: T" }
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);6 v" S" {; d6 I1 w+ H, j/ P2 c
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);9 a4 m' ]/ d8 [& e# |/ D
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
: n9 I/ ^! F& Z/ T/ v1 G* E/ kc5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
, f8 R/ s/ [/ r) Mc6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
1 [- o' X# h, o# l z5 zc7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);9 ?* ]6 s) z; J
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
* a" _ H Z+ W/ Nc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);3 O* T. {! R( }- z( Y% F) D
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
- a6 V2 i" {# W. T& lv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));3 Z6 u+ K6 n6 w! U+ e2 c
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
: c4 ~/ [# z! m4 t$ ~v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
. O$ g1 v9 I9 e2 _. Wv4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));0 h6 M( @) j& H; {1 ?4 v) z
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
5 l! ^* ~: z# M- o. L$ @, p/ Dv6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
+ \! y5 w" U! o: S! ]v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));# m) p3 J) G; Y" B
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));8 n2 v5 w4 h0 F* B
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
. s$ {- s h @/ E/ }v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
7 F8 B6 C# l/ C3 h0 R% |av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));+ s3 q& h N) r \7 L
x1:=v1/av0>=nn/n0 and nn>=0;
% }) Q& s3 T: I! g7 s( Q/ ~2 H% ]x2:=v2/av0>=nn/n0 and nn>=0;" R' n: R* I4 Y; V3 O
x3:=v3/av0>=nn/n0 and nn>=0;
$ x$ E; V6 p; ^/ Q( x. Qx4:=v4/av0>=nn/n0 and nn>=0;
$ N, a: j# N3 Z, O% j2 hx5:=v5/av0>=nn/n0 and nn>=0;: _5 m2 X+ K# }' T0 G; K. d/ k
x6:=v6/av0>=nn/n0 and nn>=0;
3 L5 q6 |3 g1 G2 w( Q) |8 v4 T( o' |x7:=v7/av0>=nn/n0 and nn>=0; V2 d2 Y: f9 R
x8:=v8/av0>=nn/n0 and nn>=0;
4 i4 D7 |& p- j0 d9 u/ CFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
: g, ^3 {' N# ?" ~; JFILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
; R' R, Y* g& zFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
l1 i* {4 _1 r' c n5 F1 MFILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;/ z6 g# p7 X& h0 V/ D" S; A3 d
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;! i) v) q0 l3 p6 ^+ |5 h
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;( N& H' d }1 \; v0 Q) e# v
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
: j* {# [5 ^! g- ?% p& l. s& {/ wFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
" l* k- k& v- i4 n2 LDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
7 Y7 ^9 p3 U2 |$ Q, @DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;5 q F5 E. y6 p! S
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;3 z( W6 {: C3 P9 L. Y7 y. L' W
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;2 P4 u6 i: x) ~1 z
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
% W1 H y/ L! i8 u8 H+ NDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;/ Z- l& H I6 U' w4 m' q
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;% B7 F' i# S. A5 k" g8 Q
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;1 c# W6 @' ~8 A' Q v
{下降江恩角度线A}7 }5 `6 ^! j% N. q
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;; B, _5 i& l7 ?7 Q$ M
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;, G: C. U, K& j8 I2 U
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;
7 I' _- |" v- j% W: l! O. }DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;+ |/ X, [7 T/ O' u7 L! R
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
) R6 s3 P$ }/ K7 lDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
) Y7 G) L# `" F' H1 C; ~2 w3 WDL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;( v& A/ ~) c( S2 v4 D
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;; u1 g Q# i8 ^9 P2 I$ b1 g
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;
) c8 O3 I% ]; n: C( m8 o4 u7 eDL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;
! F/ ?' ` G L; m2 {- [{上升江恩角度线A}
/ r ]$ m& d8 {2 O$ q- Q6 q, ~2 bBY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;6 y. p5 V. m. j
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
1 j; L* |' ]) UUL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;5 I& N+ q/ ^. ^- ~# N8 R
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
. n( Z2 P0 n$ i$ s& F) l4 y, SUL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;
1 N% L+ N" M) R% UUL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
5 f1 E _: |' D6 B' ?UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;8 D' ]$ `$ D$ a2 e/ U6 Q* l1 P! @
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
0 N% [$ O% F- S2 K. F- nUL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;0 Z. |- F+ G1 g( M$ l7 R
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT; d; l# D8 \5 w" ]
{上升江恩角度线B}" D; j! Z$ U1 C7 Q
BY2:=LLV(L,0),PRECISION2;
1 P6 C% W6 x2 V Y: U1 UUL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;+ u0 C+ V9 s+ I) V& M( J. S9 e' H' z
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
( m) \, r1 w/ q5 [: h. X' d6 ]' Z6 ~UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
8 r; t6 P" T0 m/ h& JUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
% e5 F+ Y0 q" W0 o( G1 F) {1 f6 nUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;6 z& |, ~* N* D
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;% N& o0 Y1 E P2 ^$ ^0 f" n6 G
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;2 `: T! d m2 T, ?
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;6 W( X, N# J# e- R1 g( a
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; 5 Y5 i- E7 i2 j& n1 N, K5 n" G
. [' N' p9 j) y+ w
+ p. L1 _7 j6 z7 ]# {' D7 v/ T# Z [3 D3 d
3 a( m; {3 n$ Q, O1 Q( C3 S: N* I
0 C- d7 \# _* f7 ~# ` h; }1 K由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:) |. y' S, \6 b5 U# n9 L
|