
2 D* S8 G: |+ z- \1 N( O. d
3 ~3 y0 g* h4 \% e4 ]$ a+ e* F& x




原帖由 minsdren 于 2010-8-11 14:46 发表- \7 q* F+ I6 P8 |& V5 N! q2 ~. }8 i: [
认真看,还是很实用的。不知道是否可以自定义每周或者每天的点数。这样不是更方便吗
| 函数: | LLV(X,N) |
| 别名: | 最低值) G( R+ ^2 w+ E j; k" S9 j! K+ r |
| 参数: | X为数组,N为计算周期 |
| 返回: | 返回数组 |
| 说明: | 求N周期内X最低值,N=0则从第一个有效值开始。 |
| 示例: | LLV(LOW,25) 表示求25日最低价 |
原帖由 xyzabc 于 2010-8-12 09:01 发表
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORGREEN,LINEDOT;( k- Y* {0 a' s% \5 ~" w6 t
这些都是相同的语句,区别在于斜率不同,顺序的按照8、4、3、2、1、1/2、1/3、1/4、1/8排列,想改倍率的在这里改。
想 ...
原帖由 大话李白 于 2010-8-11 12:14 发表}- k7 F" R ]' g
江恩角度线及原码
' o* [5 ]9 ~- Q+ j5 M
一、原码原理:
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。9 L- W- [( }% Z. i
# n' I: p3 e o; o
...
{成交堆积}/ _( K/ c( q0 P( ~4 `1 Y
a0:=BARSCOUNT(c);/ }+ n9 o( C; E. k/ e; W, }
a3:=SYSPARAM(3);
a2:=SYSPARAM(2);0 w: Y$ _9 [6 ^3 I$ m5 j
a4:=SYSPARAM(4);
a5:=SYSPARAM(5);
a6:=SYSPARAM(1);8 B5 M4 q% X4 F) A( k
n0:=a3-a2;) l4 }/ W$ H2 ]3 q$ o8 p( W
nn:=a0-a2;7 z/ N7 J& p& Q+ Q
h1:=(a4-a5)/8;
h2:=h1/4;
l1:=llv(l,n0);; ^+ w6 `2 r/ Y4 m# }
ll2:=l1[a3];
y0:=a0>=a2;" j, ?# J. D: {; q3 y
vv:=if(y0=1 and a6>=a0,v,0);& L0 f( q' Q) }3 D1 U8 y9 w |
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0); }* f- p8 L& s* v: j
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);0 y2 g) j& X# v2 ~4 {" ^
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);. W( |" m' u$ I' J" ?
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);% N6 r& n' Y6 a( p$ Q+ E
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);7 e$ q' i! t6 r% x5 s# F
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);1 Z) Y. O8 ?0 N1 M/ E( x2 f2 ]0 p
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));' m4 e( n3 E. J, f+ l% P# [; L
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));% p4 P) D, d, r3 A
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));0 G$ F8 G& `+ q! L
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));* j1 |! ?, n- ?: K* L* X2 A/ J
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
x1:=v1/av0>=nn/n0 and nn>=0;' o$ X j( l4 G
x2:=v2/av0>=nn/n0 and nn>=0;
x3:=v3/av0>=nn/n0 and nn>=0;
x4:=v4/av0>=nn/n0 and nn>=0;
x5:=v5/av0>=nn/n0 and nn>=0;
x6:=v6/av0>=nn/n0 and nn>=0;
x7:=v7/av0>=nn/n0 and nn>=0; _9 ~' G5 ~& {, F
x8:=v8/av0>=nn/n0 and nn>=0;/ F7 m) \9 ]& j2 L* t) G4 W0 O/ e
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;. C3 j" Y3 g8 V
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;0 J4 v- p" E( Z9 \4 x) ]
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;! B# p# ~4 ?' V( h5 S; R
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;' w1 @2 z: v) x2 c& u. k: P4 D
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;: m. x* ?5 @% |9 H+ }9 x/ D3 e; X
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;( {' q \" x1 y! ~ S$ @9 f/ ~
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;" P$ o- A4 ]4 x, q( x N! S% |
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;9 S: m3 m& n. I
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;7 [" f* n8 e6 ^1 l# v7 x
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;* M @9 P X i2 Z. S5 H) n, m* A8 F
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;( _7 C# J6 B8 W( f( x
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;9 o0 F5 C6 I* e/ g
{下降江恩角度线A}
AY1:=REF(H,BARSLAST(H=HHV(H,0))),PRECISION2;
DL18:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*8*AY1,0,1),COLORBLUE,LINEDOT;! [3 V; m8 q4 v7 _
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;
DL13:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*3*AY1,0,1),COLORBLUE,LINEDOT;
DL12:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*2*AY1,0,1),COLORBLUE,LINEDOT;
DL11:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*AY1,0,1),COLORBLUE,LINETHICK1;
DL21:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/2*AY1,0,1),COLORBLUE,LINEDOT;
DL31:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/3*AY1,0,1),COLORBLUE,LINEDOT;
DL41:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/4*AY1,0,1),COLORBLUE,LINEDOT;& |) e2 |$ H, x. T; ~
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;9 i0 A* J t( X; } a
{上升江恩角度线A}/ J- r- W5 v& |! {. e
BY1:=LLV(L,BARSLAST(H=HHV(H,0))),PRECISION2;
UL18:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;$ o* z# M: i( a* \: l7 w% d6 `$ s
UL14:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
UL13:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
UL12:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;5 C3 a" X t/ `2 Q) L
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;4 u3 g9 I" s* ]2 Q5 c
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
UL31:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
UL41:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;% ?; R. ?" X: S2 h3 s* E
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
{上升江恩角度线B}3 c! K) n& o2 s
BY2:=LLV(L,0),PRECISION2;4 c( q" d8 e! G3 u2 W' @
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;, c0 U G6 j' f6 }9 e. L, Y$ S
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;: j% x) ?& K# h. s7 U
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;) k8 m* B! ^& B: P e$ y
UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;4 k) a; J9 f6 P: ^! y! I ]
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;

为了大家在短期的波段中能使用到这样的江恩角度线,发一个波段江恩成本角度线公式的原码。
{成交堆积}7 ~7 `4 ^6 r, k3 t
a0:=BARSCOUNT(c);; w# w1 v: H7 `7 v
a3:=SYSPARAM(3);
a2:=SYSPARAM(2);
a4:=SYSPARAM(4);5 _4 [0 m) U3 P9 W) k8 ?
a5:=SYSPARAM(5);- Z3 W) `# S6 @ u" @
a6:=SYSPARAM(1);
n0:=a3-a2;, C2 D7 F4 o% H& H! S
nn:=a0-a2;: N9 N8 ?: s, e: ]2 Y0 ^
h1:=(a4-a5)/8;
h2:=h1/4;
l1:=llv(l,n0);
ll2:=l1[a3];$ H4 o O' }4 b$ V, B# H
y0:=a0>=a2;
vv:=if(y0=1 and a6>=a0,v,0);3 S" L0 |* b4 v0 U+ H
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);6 q- a3 c* Q+ c7 r* ~
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);5 ~0 H" e; O( U. j6 d( o
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);2 h! J: `7 n6 a, V+ W- E' a
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);0 F; t7 Y V3 ?- T) x
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);* v x. \. V* ?6 x6 U
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);1 t( d# V0 c7 ?: W' ~, }
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);4 X1 P e7 Z5 V" O* Z
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));& u1 j, `8 ?, w5 G8 |' p% Z9 a) L
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));4 A0 C4 P: i+ S5 |6 d6 G
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));! U8 \( n7 z: i
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));( ~# M! `6 d! G9 v" ^
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
x1:=v1/av0>=nn/n0 and nn>=0;7 {3 B, F8 F- G* ]
x2:=v2/av0>=nn/n0 and nn>=0;
x3:=v3/av0>=nn/n0 and nn>=0;8 A" ?& f- `; \8 r
x4:=v4/av0>=nn/n0 and nn>=0;( i$ R9 a$ p0 c& H' T( h* r
x5:=v5/av0>=nn/n0 and nn>=0;# Z i- t4 Y# m
x6:=v6/av0>=nn/n0 and nn>=0;
x7:=v7/av0>=nn/n0 and nn>=0;
x8:=v8/av0>=nn/n0 and nn>=0;) o; w0 L% C o) Z
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;& [$ l7 k; |9 k3 U4 r
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;% d2 ?- ]4 F0 [
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;# o- [1 [3 S; c9 W/ w$ w- R
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;( Q( [2 Z9 U$ s- Q
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;- D( D+ M' R1 P; C8 g4 I- g7 [. T
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;6 |2 w! m. d0 ^ s, t8 }3 V4 K
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;0 u: A+ s, t$ u A
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
{江恩下降角度线}3 W, @# o! x+ r/ f# K! Z7 e
AY1:=REF(H,BARSLAST(DATE=P1));! [6 Q" W; N8 s- I& j0 G0 |( E
DOWNLINE18:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01*8*AY1,0,1),COLORGREEN,LINEDOT;1 ]" t3 i# i' N8 U# B* ?* N
DOWNLINE14:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01*4*AY1,0,1),COLORGREEN,LINEDOT;
DOWNLINE13:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01*3*AY1,0,1),COLORGREEN,LINEDOT;$ w7 x. C1 i. G# Q6 J3 m4 ]
DOWNLINE12:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01*2*AY1,0,1),COLORGREEN,LINEDOT;' i4 O1 H3 w& G" I+ l* q3 |
DOWNLINE11:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01*AY1,0,1),COLORGREEN,LINETHICK1;
DOWNLINE21:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01/2*AY1,0,1),COLORGREEN,LINEDOT;: b' G1 |+ u7 u, T5 f. D7 n6 s- q, N. p
DOWNLINE31:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01/3*AY1,0,1),COLORGREEN,LINEDOT;
DOWNLINE41:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01/4*AY1,0,1),COLORGREEN,LINEDOT;: E' X6 F3 @; U# A$ K
DOWNLINE81:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01/8*AY1,0,1),COLORGREEN,LINEDOT;
{江恩下降角度线}+ J. R5 ]9 T$ y0 ?* U T" `
BY1:=REF(L,BARSLAST(DATE=N1));" D% A. Z$ R/ ^' K( q
UPLINE18:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT;
UPLINE14:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;
UPLINE13:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;
UPLINE12:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;! Z% R4 w1 c% q" c
UPLINE11:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;- \ W7 k! |9 _9 W- C" b
UPLINE21:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;
UPLINE31:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01*3*BY1,0,1),COLORYELLOW,LINEDOT;
UPLINE41:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01*4*BY1,0,1),COLORYELLOW,LINEDOT;
UPLINE81:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
参数设置见下图:
[attach]94981[/attach]9 J* I% Z7 _( w. }) w- |. e& i4 r
[attach]94982[/attach]
自2009年08月04日以来的上证江恩角度线如下图:
[attach]94983[/attach]



FU1:POW(SQRT(LLV(L,BARSLAST(DATE=1100702)+1))+0.25,2),COLORWHITE,LINETHICK3;. I1 ?" @# q% x3 p. t
这句原码是找到自2010年07月02日以来的最低价处,以该价位开平方后+0.25后求2次方得到的一个数。原理可能与江恩的开方相类似吧!![]()
然后再编一个自2010年07月02日以来涨幅的排序指标,找到阶段内涨幅最大的和最小的股票。以便观察上面题到的江恩原理的这个横线对涨幅的影响。涨幅排序指标原码如下:
ZQ:=BARSLAST(DATE<=1100702);3 F8 p0 p4 y7 y1 y1 o% M6 s
A:=IF(DATE>=1100702 AND DATE<=1100818,C,0);% S; f& L# p% K2 m8 X) s {
LA:=LLV(A,ZQ);
HB:=HHV(A,ZQ);1 F9 b9 |' ^9 [2 M4 \
阶段涨幅排序:HHV((HB/LA-1)*100,ZQ);* ^/ L3 L+ |+ K. M. j& A
( Y( c4 _% O8 R& V
做好这两个指标后对A股进行排序。前20名和后20名图片如下:

B:=TROUGHBARS(2,16.18,1)=0;! Y3 v! h4 q/ `
UL:=SUM(B,0);% S$ S, d$ P- u
LU:=UL[datacount]-UL+1;, B+ T6 z& p8 n5 T+ E2 f
DA1:=BARSLAST(LU=1 AND REF(LU,1)>1)+1;' ^; r4 g3 d4 r- Z( V
L1:=REF(L,BARSLAST(LU=1 AND REF(LU,1)>1)),PRECISION2;
DA2:=BARSLAST(LU=2 AND REF(LU,1)>2)+1,LINETHICK0;" K4 W. V2 ]" f: x
L2:=REF(L,BARSLAST(LU=2 AND REF(LU,1)>2)),PRECISION2;+ l0 q P4 E' ^6 s S4 j- q" ?) h- `) \
H1:=HHV(IF(LU=2,H,0),DATEL2),PRECISION2;6 _! k4 V4 T$ e# v( O
DATEH1:=BARSLAST(H=H1)+1;$ Z0 w8 P, J( A i
DXL:=LINEVALUE(LU=2 AND REF(LU,1)>2,L,DATEH1=1,H,0,1);
D18:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))/8,0,1),COLORGREEN,LINEDOT;; p3 A1 y3 K7 h% f, e$ h; K
D14:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))/4,0,1),COLORGREEN,LINEDOT;
D13:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))/3,0,1),COLORGREEN,LINEDOT;6 C. L$ ^, h5 Y2 b' }% U
D12:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))/2,0,1),COLORGREEN,LINEDOT;4 U- j6 @$ ^5 R! F. {! w# B9 C' T7 _0 i
D11:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2)),0,1),COLORGREEN,LINETHICK1;* l, `, q9 {9 [7 f6 \5 j
D21:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))*2,0,1),COLORGREEN,LINEDOT;
//D31:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))*3,0,1),COLORGREEN,LINEDOT;
//D41:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))*4,0,1),COLORGREEN,LINEDOT;% o+ _6 N( e6 C" C3 p1 U+ k
//D81:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))*8,0,1),COLORGREEN,LINEDOT;
//临界Z:POW(SQRT(L1)+0.25,2),COLORFF00FF,CIRCLEDOT;* P4 I3 C4 {% S* g/ d
//临界D:POW(SQRT(H1)-0.25,2),LINETHICK0;$ a. ^: E/ c ~* j) g r
//PARTLINE(D11<>0,临界D),COLORBLUE,CIRCLEDOT;
ZXL:=LINEVALUE(DATEH1=1,H,LU=1 AND REF(LU,1)>1,L,0,1);
Z18:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1))/8,0,1),COLORYELLOW,LINEDOT;' y# O$ K# a6 k: O/ d
Z14:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1))/4,0,1),COLORYELLOW,LINEDOT;
Z13:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1))/3,0,1),COLORYELLOW,LINEDOT;) y5 |8 C3 L5 T6 G E1 u
Z12:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1))/2,0,1),COLORYELLOW,LINEDOT;4 u' V( `8 h4 ?
Z11:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1)),0,1),COLORYELLOW,LINETHICK1;
Z21:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1))*2,0,1),COLORYELLOW,LINEDOT;
Z31:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1))*3,0,1),COLORYELLOW,LINEDOT;
Z41:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1))*4,0,1),COLORYELLOW,LINEDOT;/ b. n9 B, d1 K& o
Z81:LINEVALUE(LU=1 AND REF(LU,1)>1,L,REF(LU,1)=1 AND REF(LU,2)=2,REF(L,1)+(REF(ZXL,2)-REF(L,1))*8,0,1),COLORYELLOW,LINEDOT;" d* w7 n) g+ u- h# b, @& i
{成本堆积}
a0:=BARSCOUNT(c);3 ~2 B7 z, t3 ^# h" d9 L
a3:=SYSPARAM(3);& y- T' V6 A1 y! E/ ^+ X
a2:=SYSPARAM(2);2 J; c& B* _7 o5 Q5 M
a4:=SYSPARAM(4);8 }7 L$ w: W: i3 l9 y
a5:=SYSPARAM(5);/ @5 H Z7 h$ q3 h4 `" Z _
a6:=SYSPARAM(1);
n0:=a3-a2;
nn:=a0-a2;9 [3 b; h- J( u& l) G$ @$ p' e* g
h1:=(a4-a5)/8;- _' ]2 v7 x. N9 G2 S. s5 I
h2:=h1/4;
l1:=llv(l,n0); Y9 L/ e. }' U. y4 J z9 x! Z
ll2:=l1[a3];
y0:=a0>=a2;0 x* |# L3 f. f
vv:=if(y0=1 and a6>=a0,v,0);! L- @2 q+ ^( A
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);% @/ ~9 v4 @0 g1 K0 p1 B
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);( Q% Z3 ^0 O. |
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);4 U6 V& T: g/ U' y* P4 ^& H! B5 e4 [
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);3 c, O# f9 c& k
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);5 m7 k7 \/ s2 y7 E
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);! ~% f, {$ C2 v9 _
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));1 g" q4 w6 K9 a! Q& z
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));' A( [+ N( C/ ^9 p/ @
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));: [$ N7 E, e* [2 B9 }6 d8 N
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));: S, x6 ~& l' V- b
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));( O% u& `5 l9 Z
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));* A" u2 c# n+ z, B) S+ H
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));; y' m! h3 v+ v H7 ~
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));+ ?' Z0 p) b, V# a% I1 W
x1:=v1/av0>=nn/n0 and nn>=0;
x2:=v2/av0>=nn/n0 and nn>=0;
x3:=v3/av0>=nn/n0 and nn>=0;
x4:=v4/av0>=nn/n0 and nn>=0;
x5:=v5/av0>=nn/n0 and nn>=0;$ F, ~ k L1 z+ c/ a7 r- e
x6:=v6/av0>=nn/n0 and nn>=0;
x7:=v7/av0>=nn/n0 and nn>=0;
x8:=v8/av0>=nn/n0 and nn>=0;/ i8 r6 y; J3 p
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;4 x* b# l* L! o! {; j$ w, v& z- [
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;" q7 j' g3 M$ d3 c6 e, s
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;$ [' N0 r9 g) A7 g( T' X
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;, z; B4 b) h$ g" x8 ?' H
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-7.05*h1),color003377;% h- _2 _7 t" e* S7 K6 r. C
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;, d0 P! C( e7 F- l
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;% ^, N) ~* j6 z
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;7 c$ i. l3 ^ r1 I
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;& D* I5 i4 \$ t, `- H
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;3 N' J; u3 K3 o; c0 _
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
[attach]95241[/attach]
辛苦了 辛苦了 辛苦了


原帖由 zero-zero 于 2010-8-22 00:34 发表. P6 R/ v& L% d& ]" u* ?; D
建议 是不是 可以 【%】作为斜率呢? 1%0 c. y% b! m& N2 o1 t
4 D2 d: n5 @2 N2 S K
毕竟 指数有几百点时,也有几千点,将来可能有几万点呀?是不是?


原帖由 大话李白 于 2010-8-23 13:30 发表% W Z. R; _: U
书中提到的波动率=(历史最高价-历史最低价)/交易天数。编写成公式原码如下:HV:HHV(H,0),PRECISION2,LINETHICK0;: Q d! E: [& V; o6 D
LV:LLV(L,0),PRECISION2,LINETHICK0;
SUMC:SUM(C>0,0),LINETHICK0;
波动率C:(HV-LV)/SUMC,LI ...

原帖由 大话李白 于 2010-8-23 13:54 发表! u+ ^& n1 ?3 _: q: t2 U/ F
同理,可做出你认为较重要的高低点的江恩角度线。原码及效果图如下。HV:HHV(H,0),PRECISION2,LINETHICK0;
LV:LLV(L,0),PRECISION2,LINETHICK0;# S) d/ p% c( K; q+ H6 M
SUMC:SUM(C>0,0),LINETHICK0;
波动率C:(HV-LV)/SUMC,LINETHICK0;D01 ...
9 t( c' S, |! x6 t$ [; T原帖由 大话李白 于 2010-8-23 13:58 发表
5 q1 M7 J' f- \
& v1 I& C) r0 F; D4 \) z0 O" t
问题来了,到底哪一个是正确的呢?高手们是哪何绘出江恩角度线呢?是根据底点或高点出来后再运行一段时间后绘图。
还是根据波动率从一点引出江恩角度线呢?![]()

原帖由 大话李白 于 2010-8-23 14:17 发表# A% t6 ~ _; r" }6 Z' K
* t3 B( f, m( w1 E* d
第三根对后市的影响效果图:这根个人感觉毫无用处。![]()

- L) z9 x2 q+ @0 w原帖由 cyjawyt 于 2010-8-23 15:13 发表
呵呵,SUMC:SUM(C>0,0)这个貌似不对吧,交易天数个人领悟的是主图显示K线的高点与低点之间的交易天数,即上下两根角度线起点之间的交易日差,不该是所有K线的个数。而楼主的SUMC明显....呵呵,仅个人理解~![]()
原帖由 minsdren 于 2010-8-23 14:35 发表8 F+ f# O3 [4 G f" l% l
文件尺寸: 小于 1472.65625 kb - ~( n+ c4 C! W/ m1 d6 |2 D# b
可用扩展名: gif, jpg, png, rar, txt, php, zip, mid, alg, swf, torrent

这个贴要顶,开放的态度一股清流

辛苦了 辛苦了 辛苦了
心中充满感激^^
- e; Q1 q! O: R, M





| 欢迎光临 【阳光飞狐__与财富同行】 (http://bbs.88158.cn/) | Powered by Discuz! X3.2 |