原帖由 大话李白 于 2010-8-11 12:14 发表 ![]()
5 A4 g2 [& p! ]4 `. r# A江恩角度线及原码* m$ k0 k8 E& i8 z$ b0 P
) ]* ^, W9 f) z$ Y6 E8 z一、原码原理:* Q5 r7 _2 x) u* r3 r
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。
+ w- u$ d8 `% M6 b
, G' r. R7 q9 A S... $ @; q; R7 Z3 |7 E6 M$ q- p
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!
, B( ]' i4 o7 }1 R& I$ i* N3 [{成交堆积}* r+ P0 P6 \( s6 P% _) W0 r3 U
a0:=BARSCOUNT(c);9 q( k; Y4 m/ y. |+ x+ L+ s
a3:=SYSPARAM(3);9 L) O/ A% I7 F, o
a2:=SYSPARAM(2);
8 @( T2 @* |2 P5 |+ s/ La4:=SYSPARAM(4);
& G5 y5 i$ A9 o* B8 z& w9 J! ^a5:=SYSPARAM(5);( z0 B* v) Y) h2 Q- k8 E5 |
a6:=SYSPARAM(1);! V) e" {( N: }: a: ` K7 x
n0:=a3-a2;
+ t7 J0 x& x( l' x% X+ D* F& Pnn:=a0-a2;, |) p S- o0 `4 r/ y
h1:=(a4-a5)/8;
; G! e- }% m$ A/ mh2:=h1/4;, ]2 ^* ^% N, Z
l1:=llv(l,n0);
9 m4 o/ z9 z z. {& oll2:=l1[a3];( v/ R2 }' x6 s' v% c
y0:=a0>=a2;/ p4 S2 S; S* n1 b
vv:=if(y0=1 and a6>=a0,v,0);
$ T; x, d. K( C1 Qc1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
5 D& N4 ` I6 x9 s0 Sc2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);6 h1 n) J' k2 m/ T7 u3 Z: C
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);6 P% m1 Z% x' P( u2 S5 B
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);* m, B1 }% B$ ~/ f. j- j/ i( m$ n
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
7 l. B( d6 z. o5 J" O& ?c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
3 Q' w- [) K8 T3 y( N+ C2 Jc7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0); W1 ]4 D( j9 S
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
# y) z& L$ J0 P% O i2 v+ e" jc9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
5 i: N: R' p( [0 D. |/ [0 T( ?c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
6 h z( p* f. R5 J, _9 Hv1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));2 S; h4 C6 P, }! M# x3 ?9 [
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
- R0 Z' o% [2 h- c9 Ev3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));$ K2 `# A) ?+ y' ~' ]; e, B
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
5 e0 x5 J" o0 P: {9 g: y# S& Rv5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));) _9 |( Q4 b0 T6 n0 m9 L
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));. k0 {5 i* b: f7 Q% \
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
: q, j( f2 K' @8 z1 Xv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
5 B& | K7 W3 M2 X+ B# {" K& s8 iv9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));+ _( u& g3 M C }- P
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));0 {" I# T0 S }) L, M0 A
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
" K& l& _$ a g x8 ?( ax1:=v1/av0>=nn/n0 and nn>=0;: F3 V' [' W* x5 q& Z, |
x2:=v2/av0>=nn/n0 and nn>=0;
& O7 ^: ^6 p" x: C. ex3:=v3/av0>=nn/n0 and nn>=0;
/ w" K3 k$ Y9 wx4:=v4/av0>=nn/n0 and nn>=0;
5 _5 {4 X: k2 Q6 }x5:=v5/av0>=nn/n0 and nn>=0;9 _" k2 R# i/ k/ y1 _
x6:=v6/av0>=nn/n0 and nn>=0;# [" d1 ]" E( `" ^3 u
x7:=v7/av0>=nn/n0 and nn>=0;
& q; _! g5 y* K2 s# F7 x0 }5 Gx8:=v8/av0>=nn/n0 and nn>=0;
' I) l+ C, }* A5 F1 w/ _3 ]4 D4 oFILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
/ |2 y" A# L4 ?2 I; XFILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
) d9 F- q, j4 N& V/ m- dFILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
+ ?4 G3 H, v X. F: i) _FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;2 v& G: w1 Y# O) F
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;
" g& _/ u& \" ?9 FFILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
5 K$ @; v1 E$ N) ~) E' w% ?4 g' w: |FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
) z7 d5 n, M W+ w7 n0 d8 Y/ mFILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
$ ~" o& D1 |3 v9 D \! }- bDRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;, j% L/ O( h# d w. s" u
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
9 n6 ~# `0 O2 @( t+ n' EDRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
) d0 C( W) |/ C9 WDRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;4 ^" U9 b5 j' D+ F4 K& a% t
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
2 H5 p* S I4 h, p& c/ ?4 u6 NDRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;2 Y( I, O& ^- E: b$ s0 j' ]
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
+ D6 ?3 l- }/ ]4 H$ JDRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;) _6 |) F6 y- Y* i
{下降江恩角度线A}2 l9 W M$ Q; U! T$ _: C
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
( W: G7 {6 N! a5 t, NDL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;4 @5 t7 O; U5 }. V* ~1 K) J. @- D
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;: T: `% A/ m3 ?3 s, y, u' D3 b; c
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
. \: ]$ H; }" s9 LDL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
' U1 c/ c; Q+ g* j9 x# v; |8 n QDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;: n$ m, n8 X1 b* [2 K; L" m
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
. z" C- d' ~/ h1 F# Y1 e/ f5 B- cDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;: {( B6 i2 V% S. K
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;( M; P' e0 n2 j. u
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;8 r; g9 ?) P# r) X- J( }# B% y* _0 l
{上升江恩角度线A}
. G3 `; B) H. H4 y2 H" KBY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
5 x2 E1 b% x0 `% Y4 U4 |1 H% uUL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
+ e( Q( r4 N+ M6 O# _( ~: fUL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
# O' y1 h& ^8 M5 P r7 [' bUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
0 j5 \$ d. M: C7 l1 c+ T$ ?UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;( k5 ?1 a2 H, g, d% i5 {* z
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
% R! J& {8 Y, B3 C$ ~$ M$ n- |UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
$ w+ Z" P4 q. D; P) l K2 E! nUL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;" Y! }7 |! d% G: r
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
+ d) g6 P/ X" z# }UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
: l9 X9 { l) { [+ U0 o6 h+ J{上升江恩角度线B}
' v% X0 z8 z$ H O3 ?BY2:=LLV(L,0),PRECISION2;6 G" U) g/ k- P% t; A
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;+ d8 k, Z2 x. `# U" s) L% @
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;. k4 K* D3 D, P# G* d
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
, e1 k/ h9 R# g% f; ^: wUL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
5 O h6 c8 U4 ~4 X t, EUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
2 p" }3 H/ V# G4 mUL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;! ~. W! T% a* {; n7 J
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;0 p* X# K& n* J0 j; `: [% p1 c7 Y
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
, W! z& Q; n! ^" }+ Z( W9 gUL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT; 2 V0 f! {9 `9 Q6 R8 n
' p1 \7 I" B# a7 q0 v: O
1 V( i6 o/ x! y6 V* a! s$ Y# ]/ Q7 v5 S+ m( h. H
& ~" u3 P+ i3 w, c% u& P5 n7 Z$ @1 H+ J5 P- M" o/ \* O6 K1 O" X4 o% O
由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:+ q. W$ ?% i) W; ~) k! p$ Z l$ B
|