原帖由 大话李白 于 2010-8-11 12:14 发表 ![]()
( m) E( _1 }$ ]7 L# `. [江恩角度线及原码- I4 w9 ^, p! V' [8 N5 d& [: w7 d
. o5 _" P! Z4 A* J, u
一、原码原理:
# a6 k$ x4 t. g# F r 根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。% a8 y* u* l K1 a3 R
8 Z) ~* s5 i# S3 ?0 W7 i... z2 c% n1 M3 |2 ~ V
下面的原码是今天加了个成交堆积原码的公式,大家用着玩吧!
) [( t! `4 `" E" |{成交堆积}
8 n7 E6 j4 z' ?9 p; ?a0:=BARSCOUNT(c);6 n& e' N+ c- m) e' c( W1 ^1 C
a3:=SYSPARAM(3);
( p' m; ?- A; t: \a2:=SYSPARAM(2);
( b* p, e2 k3 s7 f/ La4:=SYSPARAM(4);7 r+ ~! q# ^% A, g
a5:=SYSPARAM(5);
8 m3 [* s' W" K5 l, z4 ~; D* R, aa6:=SYSPARAM(1);
7 y3 I' o1 p/ H8 mn0:=a3-a2;# J1 X' {4 w \, }0 S
nn:=a0-a2;4 H: i' c+ W) O6 n3 B. [
h1:=(a4-a5)/8;
) w; V+ E; y" D, xh2:=h1/4;# r8 k+ A. v( @7 \' Z' Q
l1:=llv(l,n0);5 c5 H8 M0 g& g1 Z0 \
ll2:=l1[a3];3 O9 Q7 ]' h: ^4 p9 x3 o
y0:=a0>=a2;
1 i3 {* c r. Z+ w) Tvv:=if(y0=1 and a6>=a0,v,0);
! z. p3 s2 p' Z4 e& ?( k$ k5 e* [c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
& I' }4 W* n3 L* s5 j8 u" Qc2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);% d' F2 a/ H' s
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
% ]7 Q" `. j/ d# S" xc4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);, _7 ~: h o6 r7 P; A% t7 P
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
$ E% X* y+ ^/ X6 f! `c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
$ M7 c* U' @9 J kc7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);) `/ S) [" Q) V u: f
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);2 K+ `% X! p/ p( c
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);5 F/ x4 T7 r! ]0 |1 S/ } P) x
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);# | K. D; s H. C( z3 g
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));+ R# @5 X5 U. e3 f
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
) n3 Z9 r8 o4 e% cv3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));- N( f0 H: c9 ^' N) f7 k4 A8 K
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));/ \- |9 _/ i- ?
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
4 q, E3 R, l* ]7 u3 z: @' H4 Z- jv6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
5 j& S' T- H) H& D% o6 Uv7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
: H7 w4 v( p: Q; i8 L& c3 s" qv8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));& T0 {9 p, \! }+ b& H3 i8 P
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
) g4 J4 W3 ^& Q: Vv10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));5 l9 H2 K& a8 I; p% j# p
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
: R- r- W; {! `4 a9 M" o/ Fx1:=v1/av0>=nn/n0 and nn>=0;" F6 y+ E6 o7 W5 U7 L" G
x2:=v2/av0>=nn/n0 and nn>=0;
2 G% w4 E$ s1 cx3:=v3/av0>=nn/n0 and nn>=0;: B% j- z. s& B i+ j
x4:=v4/av0>=nn/n0 and nn>=0;
* u2 o. B& N% o! V% D& {* sx5:=v5/av0>=nn/n0 and nn>=0;
* M5 |( u; q* k# g0 f, ^0 J j% xx6:=v6/av0>=nn/n0 and nn>=0;
9 B; y4 ~/ h3 q g& Q# ?x7:=v7/av0>=nn/n0 and nn>=0;
# I2 X4 B" [) X [! n# Fx8:=v8/av0>=nn/n0 and nn>=0;" s- b6 m' s! p9 ^, d! s4 U
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;$ Y$ a& P7 Z! |7 _2 i! [
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
) _9 }) L* o. n" ]6 }FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;, H+ v5 a# m7 |. [- p) _- w. R
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
+ K7 _& R$ o9 |- S2 I* u8 WFILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;
+ @0 c. @4 j2 G% U7 P7 sFILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
7 m# O- z$ p Q! l1 T) H4 SFILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;8 i+ H3 d- X' [9 `9 g
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;+ I9 n9 ~- [6 S& X; k& z
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
8 u5 [4 e8 Y5 M7 b% DDRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;6 K" ^, s5 W& M7 A
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;' S. W- `5 p- o6 S; Z6 n6 G
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
B3 g' h! c4 x; q, T% UDRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;! {* r' x) u4 @1 q% m
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;. ^; t3 X( K n2 D1 s
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;: |2 k4 {2 l8 C8 b* t; H
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
) R+ S( f C( d{下降江恩角度线A}! @- C1 l5 q( j; N; m
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;4 v. k9 y! ^! g) Q) y: A$ o
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;- f* A; Q8 [: Z: h
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;
0 T& ^" D9 r- } x& j3 fDL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
C4 `( R. |/ U, ~! C1 ]* R c4 DDL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
+ N, u ?: D i3 b6 q; IDL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;* w; p0 t p% k7 {) i0 p! o
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
6 t u# E& Y0 }$ e, z* B5 mDL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;( w, {8 u8 S: ~1 _$ G
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;/ p+ R4 R4 H6 f, _: z: p
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;
* y; \3 F( \% q( o{上升江恩角度线A}+ `, n9 @ i. n9 R1 C' w# T( r
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;" r U3 b' p0 |
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
& i! h- o2 R! Q1 m# @4 P$ ZUL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
7 t2 t- k) I+ t- fUL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;9 S3 R/ X# u; |; C0 V/ q
UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;) Z6 h0 R. `, [6 E9 r. X; U: [- b
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;$ J% r6 |2 T3 F; x4 u0 |) a
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;8 Z- t( g" L0 b: V& J: o
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;' O: _: Y2 N& A& y" h% L# s! F- J
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
% O' W; X* Q+ b8 F8 _. q% i% vUL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;/ h+ X. |* b4 M+ x+ ^" h
{上升江恩角度线B}% _ V& s8 ]/ s/ B% j. ^7 T
BY2:=LLV(L,0),PRECISION2;
0 ?9 ]4 J. }7 k6 AUL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
- j y5 }: o* {0 x% b zUL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;2 O% m4 c+ r3 r- E2 C
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;3 K7 y1 s8 E9 E: a3 K
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;
- X; j4 g1 y* T+ d) ?* iUL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;7 ^! V: X, i" T$ m6 v
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;$ k$ l- f% |8 t7 _4 {! r
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;4 u& T8 C& A/ K: \7 E
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;9 @: o; O" Q' D; C
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;
) L% _8 {: s0 f! p1 \: D; S! ` y p8 f( s- q$ W9 O u* g$ N& x
% G: F9 d1 K' f# q7 M
1 ~9 ?3 _8 K6 O: V- [
/ L4 N* z# e; M% V# Q4 q
8 R, j c. u9 N7 N由下图可知,大盘自3181.66以来,目前在DL81线上展开整理。成交密集区上沿2644,贴图如下:' \" w( p0 z9 M* p* g
|