

[0 U4 v R* ?! I# H1 m




原帖由 minsdren 于 2010-8-11 14:46 发表3 O3 F, }0 m# p) ~0 O3 n4 K$ t
认真看,还是很实用的。不知道是否可以自定义每周或者每天的点数。这样不是更方便吗
| 函数: | LLV(X,N) |
| 别名: | 最低值 |
| 参数: | X为数组,N为计算周期: i6 y: ]. g: h2 T |
| 返回: | 返回数组 |
| 说明: | 求N周期内X最低值,N=0则从第一个有效值开始。 |
| 示例: | LLV(LOW,25)8 m0 c/ b7 x# X: z) {" ^ 表示求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;
这些都是相同的语句,区别在于斜率不同,顺序的按照8、4、3、2、1、1/2、1/3、1/4、1/8排列,想改倍率的在这里改。
想 ...
原帖由 大话李白 于 2010-8-11 12:14 发表
江恩角度线及原码5 t' V/ b, B0 D. M0 w7 t) {2 K
一、原码原理:
根据一日跌一点、一周跌一点、一月跌一点......总之一个周期跌一点(百分之一点哟~)的理论编写而成。这个原理是否正确,我尚不知,听大家都这样说,我就这样编了。 q4 Z+ ?( \% b
. l0 m6 y0 t# G& u6 |% i0 p
...
{成交堆积}0 q* _- n+ c5 @7 o5 S* J' T: U) r
a0:=BARSCOUNT(c); z6 L8 |- L' e3 }
a3:=SYSPARAM(3);# \. @- V7 a j; u- z, z
a2:=SYSPARAM(2);
a4:=SYSPARAM(4);, x( u. p+ L5 z7 p
a5:=SYSPARAM(5);. x9 _+ H4 G2 b7 L
a6:=SYSPARAM(1);
n0:=a3-a2;/ N6 ^0 C6 z) y8 Z3 g" u2 ~
nn:=a0-a2;" |: y4 ]5 H: a& V$ {' {$ R0 f
h1:=(a4-a5)/8;
h2:=h1/4;$ A4 m/ ?& Y8 S& W7 h! r
l1:=llv(l,n0);+ v8 [5 G/ Y3 Y% I' v
ll2:=l1[a3];
y0:=a0>=a2;
vv:=if(y0=1 and a6>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);. p( K9 A& a1 a
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);1 B; m0 p" g* O% G0 m
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);# D5 X* R! Q. e, D- R* q8 u
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);3 |$ m; g- w( v" a0 Y$ U3 R
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);) r% U" K/ E7 ?6 k
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);& R/ B3 f* \- j" [
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2)); |& h4 i; D. _8 r* h
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));" }. [% D/ o& A: b! l0 A7 u- n
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));8 S7 C2 X7 S; x
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));) `6 m* ^% O, S! E; R0 u* }% q$ \
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));6 u' m: Y0 y/ Z l9 e
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));. p9 {) {3 c6 N" o8 ?
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));( C+ h! L# g+ T. a9 z3 f
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)))))))));6 }7 F3 o! \/ o
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;- n7 m) e! Z4 K! p' f
x5:=v5/av0>=nn/n0 and nn>=0;7 j9 E1 c6 B) j+ L: W8 P
x6:=v6/av0>=nn/n0 and nn>=0;
x7:=v7/av0>=nn/n0 and nn>=0;: j6 R* ]1 n# f g! n. b. Y
x8:=v8/av0>=nn/n0 and nn>=0;
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;5 `6 Z/ t9 N( X4 }" B) p$ g2 _
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;' K* v% _& q9 J2 X3 {$ @6 p
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;( I8 f) f: x9 U, c" p
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;/ k, Q' x+ c" d1 R
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-5.05*h1),color777700;" ?. C0 b/ G7 n0 q/ Y/ s& R
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-6.05*h1),color804000;- {% h. H3 ?7 i# p
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;9 \( C6 ?) n+ y5 e W
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;; M! }$ O# A+ b G' z, g
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
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;, H6 j+ R0 z! k
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;- Q( V2 L1 R$ ` B) e2 ~4 [: p
{下降江恩角度线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;
DL14:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01*4*AY1,0,1),COLORBLUE,LINEDOT;; x% u K- t' J3 a
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;! v/ p% V( _8 f5 M* q( ^5 `# D
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;
DL81:LINEVALUE(H=HHV(H,0),AY1,REF(H,1)=HHV(H,0),AY1-0.01/8*AY1,0,1),COLORBLUE,LINEDOT;
{上升江恩角度线A}
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;" R: r" J0 G& ^+ S% E8 |) b
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;
UL11:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
UL21:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*2*BY1,0,1),COLORYELLOW,LINEDOT;: a2 {0 U3 g& R9 I
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;
UL81:LINEVALUE(L=BY1,BY1,REF(L,1)=BY1,BY1+0.01*8*BY1,0,1),COLORYELLOW,LINEDOT;
{上升江恩角度线B}, G1 _; y7 A: L9 }- q8 q
BY2:=LLV(L,0),PRECISION2;6 g: z9 a/ Q, e) M+ [; a3 P
UL118:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*8*BY2,0,1),COLOR006699,LINEDOT;
UL114:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*4*BY2,0,1),COLOR006699,LINEDOT;: e9 g- n- F5 L( w; S, x: H' w
UL113:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*3*BY2,0,1),COLOR006699,LINEDOT;
UL112:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*2*BY2,0,1),COLOR006699,LINEDOT;9 ]+ {3 f* [2 y* T9 y: J5 y
UL111:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01*BY2,0,1),COLOR006699,LINETHICK1;2 _6 N9 D0 g2 x4 ^# Q
UL121:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/2*BY2,0,1),COLOR006699,LINEDOT;8 }& g) A: T- i* M. t n2 K3 I' @
UL131:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/3*BY2,0,1),COLOR006699,LINEDOT;; W: F9 |8 ~1 \, n
UL141:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/4*BY2,0,1),COLOR006699,LINEDOT;5 i3 X* ?* a/ c5 Y, H" R
UL181:LINEVALUE(L=BY2,BY2,REF(L,1)=BY2,BY2+0.01/8*BY2,0,1),COLOR006699,LINEDOT;

为了大家在短期的波段中能使用到这样的江恩角度线,发一个波段江恩成本角度线公式的原码。
{成交堆积}
a0:=BARSCOUNT(c);
a3:=SYSPARAM(3);
a2:=SYSPARAM(2);
a4:=SYSPARAM(4);+ O2 A, `$ B1 i+ h
a5:=SYSPARAM(5);7 s2 g1 q9 C- H( L1 m5 _/ F
a6:=SYSPARAM(1);8 J- ^0 e& g7 ?0 y1 M6 n& {2 D! N
n0:=a3-a2;! P- X# q0 G: w' l' ?
nn:=a0-a2;
h1:=(a4-a5)/8;
h2:=h1/4;7 ]' B" p4 L$ W4 [. V* [, h, M+ _: I, g
l1:=llv(l,n0);7 X8 u# D' o# t5 M
ll2:=l1[a3];
y0:=a0>=a2;0 x7 K0 c9 S, z: w8 I. O
vv:=if(y0=1 and a6>=a0,v,0);. Z- V# C7 S: a! {
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);% a! p& f& _4 U0 `+ K: i2 j/ X0 k
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);0 m+ F" k( U# o6 I2 _
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);+ o4 a" X( |: N; r2 R1 a: ~
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
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);# {2 S" S1 Y7 p. j$ N
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));7 L2 f5 T1 O" B1 x u1 ^# B
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));3 |" f1 z8 I: R
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));7 A9 Z% c6 Y+ P6 n% o2 Z
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));+ u5 H8 G# S N& p# l; M5 Y, ~' j
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));) h) F$ R# t) m6 d) S% e% S4 |
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2)); J# N" i, u3 \" T9 l* r2 X' y- Y% Z% \! m
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));7 \) s7 s8 W; N) M1 s e0 J
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));1 r2 d% [7 o* T# t# Y$ S' u
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));2 ~- U) i% h3 i8 O
x1:=v1/av0>=nn/n0 and nn>=0;
x2:=v2/av0>=nn/n0 and nn>=0;* Y" b1 W$ D* t- {% j/ A. y
x3:=v3/av0>=nn/n0 and nn>=0;
x4:=v4/av0>=nn/n0 and nn>=0;: j+ `& T1 x+ d& B# i& b
x5:=v5/av0>=nn/n0 and nn>=0;
x6:=v6/av0>=nn/n0 and nn>=0;
x7:=v7/av0>=nn/n0 and nn>=0;
x8:=v8/av0>=nn/n0 and nn>=0;
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;: p+ \& a% k( {! y- o
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;, D( j0 \3 ^. E& s) U0 E( }" [
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;+ W" e1 M4 }/ G9 y7 _
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;1 S8 v; K& q9 i" b- e
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;8 s# i& t8 ]4 ^. L" d& B/ G* [- ?
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;# j1 g/ v1 j( ?8 c8 a V
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
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;' @4 {0 O* N' b( r0 `
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;) }7 h1 P2 o" i
{江恩下降角度线}
AY1:=REF(H,BARSLAST(DATE=P1));/ S' W# G- }( t8 p9 W/ o; s! q% h4 Y
DOWNLINE18:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01*8*AY1,0,1),COLORGREEN,LINEDOT;6 j! [0 A! U) @. y2 v! A
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;
DOWNLINE12:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01*2*AY1,0,1),COLORGREEN,LINEDOT;
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;# R, V$ p' Y* ]7 G% s
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;0 O1 x& R2 s- P# }( f- i: H8 y
DOWNLINE81:LINEVALUE(DATE=P1,AY1,DATE=P2,AY1-0.01/8*AY1,0,1),COLORGREEN,LINEDOT;! h4 s: N+ ^, N9 i; }& f5 H
{江恩下降角度线}
BY1:=REF(L,BARSLAST(DATE=N1));- O e# }* u" L/ x2 K, r
UPLINE18:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01/8*BY1,0,1),COLORYELLOW,LINEDOT; M' E3 v6 h; H9 V3 O7 ?4 z
UPLINE14:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01/4*BY1,0,1),COLORYELLOW,LINEDOT;8 `! J, n ]* z8 S
UPLINE13:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01/3*BY1,0,1),COLORYELLOW,LINEDOT;# e: F# l K6 x$ q7 E0 M8 ]
UPLINE12:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01/2*BY1,0,1),COLORYELLOW,LINEDOT;# \7 A" A: B1 K6 |
UPLINE11:LINEVALUE(DATE=N1,BY1,DATE=N2,BY1+0.01*BY1,0,1),COLORYELLOW,LINETHICK1;
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;7 @) Z* z9 _4 w6 m& t
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]
6 h# ~7 o! A( C- K V6 c7 c
[attach]94982[/attach]
自2009年08月04日以来的上证江恩角度线如下图:: S5 t B" v! W, }6 M/ h
[attach]94983[/attach]



FU1:POW(SQRT(LLV(L,BARSLAST(DATE=1100702)+1))+0.25,2),COLORWHITE,LINETHICK3;5 ]* l4 r0 T2 l: }
这句原码是找到自2010年07月02日以来的最低价处,以该价位开平方后+0.25后求2次方得到的一个数。原理可能与江恩的开方相类似吧!![]()
然后再编一个自2010年07月02日以来涨幅的排序指标,找到阶段内涨幅最大的和最小的股票。以便观察上面题到的江恩原理的这个横线对涨幅的影响。涨幅排序指标原码如下:
ZQ:=BARSLAST(DATE<=1100702);8 T; E7 C6 [! a7 M& c% p+ {+ n
A:=IF(DATE>=1100702 AND DATE<=1100818,C,0);+ P$ K5 P' h% q9 M. l
LA:=LLV(A,ZQ);
HB:=HHV(A,ZQ);, F) i' K w" n* t8 x$ t0 |
阶段涨幅排序:HHV((HB/LA-1)*100,ZQ);
( p9 e1 G; x9 c0 i, [" A `, c$ i
做好这两个指标后对A股进行排序。前20名和后20名图片如下:

B:=TROUGHBARS(2,16.18,1)=0;
UL:=SUM(B,0);
LU:=UL[datacount]-UL+1;
DA1:=BARSLAST(LU=1 AND REF(LU,1)>1)+1;
L1:=REF(L,BARSLAST(LU=1 AND REF(LU,1)>1)),PRECISION2;
DA2:=BARSLAST(LU=2 AND REF(LU,1)>2)+1,LINETHICK0;4 R. E' V( M: }
L2:=REF(L,BARSLAST(LU=2 AND REF(LU,1)>2)),PRECISION2;
H1:=HHV(IF(LU=2,H,0),DATEL2),PRECISION2;
DATEH1:=BARSLAST(H=H1)+1;0 O: |2 w7 G- e' g$ t: [8 ~
DXL:=LINEVALUE(LU=2 AND REF(LU,1)>2,L,DATEH1=1,H,0,1);$ R# U% h7 d; l$ ~
D18:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))/8,0,1),COLORGREEN,LINEDOT;
D14:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))/4,0,1),COLORGREEN,LINEDOT;) L; l( \! U# E! E
D13:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))/3,0,1),COLORGREEN,LINEDOT;
D12:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))/2,0,1),COLORGREEN,LINEDOT;) r% E) K+ j: f9 [- \
D11:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2)),0,1),COLORGREEN,LINETHICK1;
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;- P% U' ~/ G5 _7 I z0 O
//D41:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))*4,0,1),COLORGREEN,LINEDOT;! w. t$ N5 c! b/ t
//D81:LINEVALUE(DATEH1=1,H,DATEH1=2,REF(H,1)-(REF(H,1)-REF(DXL,2))*8,0,1),COLORGREEN,LINEDOT;/ k9 `9 O/ E; x, H+ m0 e
//临界Z:POW(SQRT(L1)+0.25,2),COLORFF00FF,CIRCLEDOT;
//临界D:POW(SQRT(H1)-0.25,2),LINETHICK0;1 }2 G# m2 G% y
//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;
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;7 q9 ^4 x' S4 b% `' ~
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;
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;
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;" M9 X' D# Y4 G) G1 @
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;, U5 c4 i% i1 I+ y) W
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;% w+ M4 Y9 r7 ]' m8 i' B
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;) ~" P4 P3 Q$ {- c4 E; f1 t0 O
{成本堆积}
a0:=BARSCOUNT(c);
a3:=SYSPARAM(3);* C% G( X h8 u6 t1 S
a2:=SYSPARAM(2);
a4:=SYSPARAM(4);' p: ^7 @4 a5 { ~& m! q5 A
a5:=SYSPARAM(5);
a6:=SYSPARAM(1);
n0:=a3-a2;
nn:=a0-a2;) Q8 z- ? ]) d4 W
h1:=(a4-a5)/8;
h2:=h1/4;: |$ u. M& G) X M3 a( ?' o) h1 {
l1:=llv(l,n0);
ll2:=l1[a3];7 X5 C2 V1 p$ S* \
y0:=a0>=a2;7 B: s: Q4 L9 Y. H4 @3 H$ N3 d
vv:=if(y0=1 and a6>=a0,v,0);
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);8 R( g: l6 [8 M, v* c3 j$ z5 Z
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);! K0 J- Z6 E$ M8 j: q3 A
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);( B0 ]* i/ _1 M k+ W; C
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);" x+ O5 K% H3 \
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));/ W& p1 p- [% y, J$ f- C
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));7 J# f7 {$ s6 y1 J/ W) P
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));/ R! {. B! t( u( {$ w, E! z5 m2 s5 G
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));% ~$ @/ d) _; B( i
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)))))))));5 t+ O# w2 C6 b0 `
x1:=v1/av0>=nn/n0 and nn>=0;( I! U$ E% k# k7 p; C
x2:=v2/av0>=nn/n0 and nn>=0;0 } E" f$ E' A R3 I
x3:=v3/av0>=nn/n0 and nn>=0;
x4:=v4/av0>=nn/n0 and nn>=0;3 M+ y0 M% ?+ I; D
x5:=v5/av0>=nn/n0 and nn>=0;
x6:=v6/av0>=nn/n0 and nn>=0;: y! c! z0 `- |& r
x7:=v7/av0>=nn/n0 and nn>=0;, X6 [4 U9 K2 D( y* `% \
x8:=v8/av0>=nn/n0 and nn>=0;
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-0.05*h1),Color002288;& K( I5 w0 f& X; e
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-1.05*h1),Color806000;4 }; o2 f' F( D
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-2.05*h1),Color808300;9 V0 V8 S. z' y* u u; ^
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-3.05*h1),Color883D88;+ `; F: n9 v9 V4 U5 ?
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-4.05*h1),Color006868;" T: {( x+ z/ ]6 W. Z0 u
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;3 p; R# k& q4 w
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;3 {4 e- n3 d* ^7 q: E6 _
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
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;1 U7 M1 s9 K( }, w+ \3 i
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;* v4 p% |: Q8 f& n. b. q
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 发表# S/ c! g1 @. u) g& @3 }* J/ r
建议 是不是 可以 【%】作为斜率呢? 1%
毕竟 指数有几百点时,也有几千点,将来可能有几万点呀?是不是?


原帖由 大话李白 于 2010-8-23 13:30 发表
书中提到的波动率=(历史最高价-历史最低价)/交易天数。编写成公式原码如下:HV:HHV(H,0),PRECISION2,LINETHICK0;
LV:LLV(L,0),PRECISION2,LINETHICK0;: p: ~4 G: N# k7 P. B: Y' W
SUMC:SUM(C>0,0),LINETHICK0;
波动率C:(HV-LV)/SUMC,LI ...

原帖由 大话李白 于 2010-8-23 13:54 发表& L$ z, P9 L2 U4 J8 A) K$ I/ @
同理,可做出你认为较重要的高低点的江恩角度线。原码及效果图如下。HV:HHV(H,0),PRECISION2,LINETHICK0;7 x7 ]' P" Y( ~* d4 J
LV:LLV(L,0),PRECISION2,LINETHICK0;; [1 e! I* o$ \: E+ {2 q* d8 Y
SUMC:SUM(C>0,0),LINETHICK0;
波动率C:(HV-LV)/SUMC,LINETHICK0;D01 ...
9 z. O$ r3 \9 { E/ d! d) Z5 ^原帖由 大话李白 于 2010-8-23 13:58 发表8 @0 c1 c/ h9 h. L6 f" k
问题来了,到底哪一个是正确的呢?高手们是哪何绘出江恩角度线呢?是根据底点或高点出来后再运行一段时间后绘图。0 o' |5 T# b1 P" c4 E+ l7 q! H
还是根据波动率从一点引出江恩角度线呢?![]()
原帖由 大话李白 于 2010-8-23 14:13 发表3 D( D- W5 `) R. b0 Z' Y
首先请版主原谅没在一个贴内贴完所有的图,因为无法批量上传附件。5 r+ ]+ C& G* E' w- W7 [
第一根对后市的影响效果图:


原帖由 cyjawyt 于 2010-8-23 15:13 发表# H( b) E4 J- A. ^% {* ]
呵呵,SUMC:SUM(C>0,0)这个貌似不对吧,交易天数个人领悟的是主图显示K线的高点与低点之间的交易天数,即上下两根角度线起点之间的交易日差,不该是所有K线的个数。而楼主的SUMC明显....呵呵,仅个人理解~![]()
原帖由 minsdren 于 2010-8-23 14:35 发表! U( a+ `, I a9 C9 _( f; k
文件尺寸: 小于 1472.65625 kb 0 [' o' ?# I, n0 v2 ~5 M( m1 C3 X
可用扩展名: gif, jpg, png, rar, txt, php, zip, mid, alg, swf, torrent

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

辛苦了 辛苦了 辛苦了
心中充满感激^^







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