有请会飞狐公式的朋友，好消息！！！

logoslogos

这个是经典的清扬公式，公式统计了高低，底高之间的天数， 请修改公式，我需要统计高-低，低-高的差值，并标注在图上，最好显示在二值之间或高低数值边上，。
- C+ [8 i- b- ~7 }/ V根据BAYer的理论，他说股票的每个波动规律都是固定，一旦找到个股的波动规律，你就有福了。我希望各位利用这个清扬波浪，和BAYER的理论一起发财，呵呵。
, G7 |% [" o" q4 W! |关于BAYER的理论，有兴趣的话，我在详细说说。先谢谢公式高人了。。。嘻嘻嘻。。。

- y4 v  o( }" b( S[ 本帖最后由 logoslogos 于 2011-1-10 17:04 编辑 ]

logoslogos

A1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1); D1:=FILTER(C1,3);{高点}
1 {$ @( ]. A# i) e* n5 O4 uA2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3);{低点}
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);
1 X  d. d* g8 I  s; @* p) y  XX1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{过滤后低点}
! o( F/ s: h# u& U( dL2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
/ y7 s+ H' `1 O0 ~7 l. P/ ^3 AG2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{过滤后高点}
DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT;
5 g) X% i9 |$ q' R# w3 `7 g# M! pDRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT;
$ e+ F( n7 ?' i$ X" i0 Z5 p4 lJ1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);
- M. [. ]9 I  g# |; [+ i* \# A8 oDRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT;
. }4 a! e& g# f& s* y5 g{以上语句为新结构波浪}

5 _' L- p9 T; j0 nA3:=H<REF(H,REF(BARSLAST(HD),1)+1);
# J9 o# o; n7 s" o. b+ ~" k! HB3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));
  T$ }& Y5 O3 [0 p- KD3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部长期高点}
# S! L6 f' v4 ^: xA4:=L>REF(L,REF(BARSLAST(LD),1)+1);
. h8 n. X6 ^9 k" `. oB4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));
' M* u/ ]: n8 N3 c# e7 t' FD4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点}
DRAWICON(HH,H,10),ALIGN2; DRAWICON(LL,L,12),ALIGN1;
H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤，方法同前。只是不用考虑高低点出现在同一K线}
X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
# z: P$ Z: {/ eG3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1),LINETHICK0; {长期低点，也可供引用}
L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
+ }/ n1 [0 s- p: T% L+ ?X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
+ d9 p8 U7 _' x1 n" S  x  w4 fG4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1),LINETHICK0;{长期高点，也可供引用}
DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1;
5 X9 c5 q* `8 L: M. I9 VDRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线}
! c- d& l+ W% i3 a. eK1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);
2 L$ Y, S0 W& H# u0 z. CDRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN,LINETHICK1; {最后的长期连线，连在收盘价上}

0 d7 I( p2 \1 F{以下是两条趋势线原码}
3 ^2 T- o) O/ rUU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
( k6 q. z+ Y7 `/ b( y. sVV:=UU>REF(UU,1);
/ R* P/ h( g" T, R, |3 h# d) @# u* d1 vWW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
5 ^. {0 b: ^( Y) c9 `. r2 x4 V3 ?XX:=WW>REF(WW,1);
' L7 j! R8 T! SDRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;
UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
* K, O5 D* V8 @- v) C; ~+ aVV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
/ w$ p/ Y; L! _* SXX2:=WW2>REF(WW2,1);
8 r* q% j8 q" X1 n  XDRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;

! Q4 p  J# d! u5 l5 A; L前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3;
1 a+ U7 y2 X) H5 m" r* W9 d. E前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3;
/ j6 N! y) b; k1 p1 X3 k1 V! F+ q3 B前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3;
前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3;
短高:=REF(H,BARSLAST(VV2)),LINETHICK0;
* c4 s' }# ?: {0 w短低:=REF(L,BARSLAST(VV)),LINETHICK0;
短比: (C-短低)/(短高-短低),LINETHICK0;
$ s2 Y0 Z0 f8 W8 ?
4 V" o" k- s, M4 q{以下语句是大盘趋势叠加}
常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV));
2 e  e( T6 i% w0 m+ D: x' x; x叠1:INDEXC/常数,COLORGRAY,LINETHICK0;
4 g# l/ c9 \3 k+ O9 @3 Y) Q8 SPARTLINE(1,叠1),COLORGRAY;
常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
  k; a9 N7 b1 n: r叠2:INDEXC/常数2,COLORGRAY,LINETHICK0;
0 U6 r1 u' b7 t% Z1 @7 MPARTLINE(1,叠2),COLORGRAY;
& H; E+ _% P) c* T
DRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN;
DRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN;
& [6 w5 V, W! a
. T) W9 b2 d& K* I3 J* qDRAWNUMBER(HD,H*(1+0.002),H,2),COLORBLUE,ALIGN0;
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORBLUE,ALIGN0;

. ^7 F2 ~! M: v- r5 o; e' z{以下语句为三角形部分}

7 I5 _6 n3 C2 K& }) F  |/ j8 A& J底:REF(L,BARSLAST(VV)),COLORred,LINETHICK2;
頂:REF(H,BARSLAST(VV2)),COLORGreen,LINETHICK2;

' E4 F' u* A2 @& P{下迭三角形：藍色三角形畫完介入}
StickLine(VV,頂,底,0,0),Colorff6633,linethick3;{}
DRAWLINE(VV2,H,VV,L,0),Colorff6633,linethick3;{斜}
6 ]5 L" t& @4 d! C* p! i8 [DRAWLINE(VV2,H,VV,頂,0),Colorff6633,linethick3;{?}
9 ?5 i5 c& ~! f
( {8 b/ S6 u1 @4 b+ ?{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜}
" k* {# h% j$ z{DRAWLINE(c>1,H,VV,頂,0),Colorcyan,linethick2;}{?}
{上漲三角形：紅色三角形畫完出局}
0 m0 e9 ^" S3 @8 s/ m$ VStickLine(VV2 ,頂,底,0,0),Colorred,linethick3;{}
DRAWLINE(VV,L,VV2,H,0),Colorred,linethick3;{斜}
DRAWLINE(VV,L,VV2,底,0),Colorred,linethick3;{?};

ycng

加这8行
a1:=ref(h,barslast(hd));
* H* q% W1 F7 y, N8 ka2:=ref(L,barslast(Ld));
drawnumber(ld,a2*0.95,(a1-a2),2),colorred;
7 A7 g: X; r3 F/ Pdrawnumber(hd,a1*1.05,(a1-a2),2),colorwhite;
a11:=ref(h,barslast(hz));
5 K7 k2 D  L5 \9 O  s5 |6 pa22:=ref(L,barslast(Lz));
  c2 {3 _, X: Y+ e* W9 M# adrawnumber(Lz,a22*0.87,(a11-a22),2),coloryellow;
' x" ~, |' e* Odrawnumber(hz,a11*1.13,(a11-a22),2),coloryellow;

! F" B; n- c4 M: h9 [[ 本帖最后由 ycng 于 2011-1-10 18:03 编辑 ]

axcqy

axcqy

原帖由 logoslogos 于 2011-1-10 17:01 发表
) ^, o7 L% ?, I5 p, s这个是经典的清扬公式，公式统计了高低，底高之间的天数， 请修改公式，我需要统计高-低，低-高的差值，并标注在图上，最好显示在二值之间或高低数值边上，。
  B. Q% K( h, ^; E根据BAYer的理论，他说股票的每个波动规律都是固定，一 ...

很不错的指标; 把字改为白色好看一点

mcwhmm

恒益

原公式中红色四句改成以下蓝色的四句，K线上下标注的价格就不会太靠近K线了。

' l/ ~& ~' g/ q+ ODRAWNUMBER(HD,H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),PXUP70,COLORCYAN;
DRAWNUMBER(LD,L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),PXDN70,COLORCYAN;
8 N$ ]8 _  e% g% b4 hDRAWNUMBER(HD,H*(1+0.002),H,2),COLORWHITE,PXUP30,ALIGN0;
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORWHITE,PXDN30,ALIGN0;
源码中叠加大盘趋势（下面源码中绿色的）画成了灰色，改成黄色比较醒目一些：
( _9 V8 F' l# b) e+ u( S叠1:INDEXC/常数,COLORYELLOW,LINETHICK0;
4 g& M8 }9 U1 e! Y* CPARTLINE(1,叠1),COLORYELLOW;
5 X; [* C7 ?; }2 b' N. p5 @常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
2 [" Y7 s/ @0 h2 i/ T叠2:INDEXC/常数2,COLORYELLOW,LINETHICK0;
9 ?, U5 `. J8 S& ZPARTLINE(1,叠2),COLORYELLOW;

( t7 [- m# O% P8 U& x
/ s9 ^; l" K" y
源码：
) |3 {1 l: g' U0 _7 sA1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1); D1:=FILTER(C1,3);{高点}
2 S7 ~/ w7 s  ~6 {. `3 YA2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3);{低点}
0 u: E& D* N2 iE1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}
9 Y  T4 L: f, U3 k8 |' W3 fH1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
& `% ?/ b1 C4 W: ~; ]L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
' v% K1 T( U5 U1 M9 C; t/ eG1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{过滤后低点}
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
/ i( D2 K! C4 |" \6 N! k# s7 wX2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
# W. T) r! H! Y6 }G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{过滤后高点}
DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1,POINTDOT;
) e& c  m- E9 t& P' j! p$ `& LDRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT;
: d  Y5 B3 l% @+ U3 JJ1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT;
" o5 J% ]+ {0 V{以上语句为新结构波浪}
7 u5 e$ c' C/ K! {+ b
A3:=H<REF(H,REF(BARSLAST(HD),1)+1);
B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));
  e1 b! j0 O2 x4 B4 p% WD3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部长期高点}
  c$ V" G5 x2 W/ I! }% y0 V# DA4:=L>REF(L,REF(BARSLAST(LD),1)+1);
! Y1 L0 O  g' c: Z& XB4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));
D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点}
DRAWICON(HH,H,10),ALIGN2; DRAWICON(LL,L,12),ALIGN1;
2 b9 @* f2 s7 X3 K4 [0 U+ b* P' oH3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤，方法同前。只是不用考虑高低点出现在同一K线}
X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
/ V: `3 Q( X/ m: S, O: @G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1),LINETHICK0; {长期低点，也可供引用}
L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
, r! z- Z: N/ `6 \9 YG4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1),LINETHICK0;{长期高点，也可供引用}
DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK1;
DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK1;{长期连线}
K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);
; A7 E( t' F9 I, b: P: N& gDRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN,LINETHICK1; {最后的长期连线，连在收盘价上}

, }) ]0 E% e3 X' w, f{以下是两条趋势线原码}
6 }# h, i* l7 M$ PUU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
' c% q' v8 r- M+ L) Q3 q4 b+ m+ b  p! fVV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
3 \) x6 }! P( d+ OXX:=WW>REF(WW,1);
DRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;
5 ~$ W! _- t- k' h% y# @UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
9 K& a4 Z5 ]0 ?# m# }VV2:=UU2>REF(UU2,1);
, A$ l# F1 R$ p$ KWW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
+ ?) x' _- N5 B5 K3 FXX2:=WW2>REF(WW2,1);
DRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;

前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3;
- q' t3 F* Y/ j* y% ]& u' s' D前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3;
3 p6 G8 v* Q/ }* w前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3;
" N7 A9 H! C8 B; ]% r; P" G2 |% i前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3;
短高:=REF(H,BARSLAST(VV2)),LINETHICK0;
) F) A% z  v& J" P" v. M% t短低:=REF(L,BARSLAST(VV)),LINETHICK0;
* Y) D/ J; n- q短比: (C-短低)/(短高-短低),LINETHICK0;

# o+ Q7 ^) H: }) t* ?  m* c{以下语句是大盘趋势叠加}
- F  {$ g9 g( |. K常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV));
叠1:INDEXC/常数,COLORGRAY,LINETHICK0;
6 F# g1 L5 |- |* k# g+ `PARTLINE(1,叠1),COLORGRAY;
常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
叠2:INDEXC/常数2,COLORGRAY,LINETHICK0;
) h. m! |3 l( C6 g% [9 EPARTLINE(1,叠2),COLORGRAY;

) k/ }6 m/ A& B  F% m, RDRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN;
. H. }$ @( N. [) CDRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN;
( M; J1 O! G$ C
5 W- U- @7 X) U/ b8 PDRAWNUMBER(HD,H*(1+0.002),H,2),COLORBLUE,ALIGN0;
DRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORBLUE,ALIGN0;
' B0 H, B( L8 H, U* I" Z
{以下语句为三角形部分}
0 b: o( {3 n- ^, z' M
底:REF(L,BARSLAST(VV)),COLORred,LINETHICK2;
( z/ G7 S4 V9 @0 I& w( K頂:REF(H,BARSLAST(VV2)),COLORGreen,LINETHICK2;
$ B* r- D# _6 X. S; F8 x& h
! {, E: p" _* v+ p' `{下迭三角形：藍色三角形畫完介入}
0 o% h/ D) |0 Q+ NStickLine(VV,頂,底,0,0),Colorff6633,linethick3;{}
) P5 D! W6 E+ G9 p/ bDRAWLINE(VV2,H,VV,L,0),Colorff6633,linethick3;{斜}
+ q! ~' C/ n/ G# N0 l5 ^DRAWLINE(VV2,H,VV,頂,0),Colorff6633,linethick3;{?}
3 l) L9 b1 M  ]/ L7 i( O
' f5 A) k% k7 t) O! j5 S{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜}
* k5 L. b0 o1 G4 M* R& H/ j{DRAWLINE(c>1,H,VV,頂,0),Colorcyan,linethick2;}{?}
{上漲三角形：紅色三角形畫完出局}
StickLine(VV2 ,頂,底,0,0),Colorred,linethick3;{}
' x# ^  T. ^/ H( t% D; r- ^( bDRAWLINE(VV,L,VV2,H,0),Colorred,linethick3;{斜}
" a- i7 }: Q' I0 i. y9 l8 `+ zDRAWLINE(VV,L,VV2,底,0),Colorred,linethick3;{?};

& b: U) L' r: Y[ 本帖最后由 恒益 于 2011-1-10 20:31 编辑 ]

恒益

BACKSET算不算未来函数？

tupiter

好公式

悠然踏浪

日期对不上,不是交易日吗?

hippe

好东东！！

woaigutou

辛苦了

天蓝蓝

你们改好了，我再装！

adinos

bibihead

统计高-低，低-高的差值
----指高-低的值 减去 低-高 的值吗？
* `8 S: W$ x! X9 B; E: d
现在显示的是自然日的差值，要自然日还是交易日？

chaosxu

ycng

加

a1:=ref(h,barslast(hd));
a2:=ref(L,barslast(Ld));
' w% M0 }1 ^" A$ z9 D4 S: ja11:=ref(h,barslast(hz));
a22:=ref(L,barslast(Lz));
: R; }1 I  {0 i9 Kdrawtext(ld,a2*0.95,'P '),color009900;
. u& G- l0 w, Odrawnumber(ld,a2*0.95,(a1-a2),2),colorred,shift2;
drawtext(hd,a1*1.05,'P '),color009900;
drawnumber(hd,a1*1.05,(a1-a2),2),colorwhite,shift2;
1 N* Q( E3 y  e. w4 @2 Wdrawtext(Lz,a22*0.87,'P '),color009900;
1 F; }; V9 C" cdrawnumber(Lz,a22*0.87,(a11-a22),2),coloryellow,shift2;
drawtext(hz,a11*1.13,'P '),color009900;
drawnumber(hz,a11*1.13,(a11-a22),2),coloryellow,shift2;

drawtext(ld,a2*0.92,'T '),color999999;
' g* f, L5 I, r1 K! Xdrawnumber(ld,a2*0.92,barslast(hd),0),colorgreen,shift2;
drawtext(hd,a1*1.08,'T '),color999999;
drawnumber(hd,a1*1.08,barslast(Ld),0),colorgreen,shift2;
, g7 |! B- j4 S" h5 F# O. {drawtext(Lz,a22*0.84,'T '),color999999;
drawnumber(Lz,a22*0.84,barslast(hz),0),colorred,shift2;
drawtext(hz,a11*1.17,'T '),color999999;
6 A: m+ |$ V; t8 |9 B) W; ^drawnumber(hz,a11*1.17,barslast(Lz),0),colorred,shift2;
& K# o# P  z' c2 t( J  H9 O& J
8 V  H& l+ k! Z# @; G[ 本帖最后由 ycng 于 2011-1-10 23:58 编辑 ]

bibihead

后面加上这些代码就O了。
网站不给贴，搞个附件上来打开看就可以了。

489km

jwchj

logoslogos

原帖由 bibihead 于 2011-1-10 23:29 发表
统计高-低，低-高的差值
3 ~1 ]! g" ~8 J8 p0 D----指高-低的值 减去 低-高 的值吗？
) O/ t. G! j# j! W! n3 T
现在显示的是自然日的差值，要自然日还是交易日？

2 T# x1 w# w0 O6 |3 T不是统计时间的差值，是统计高-低价格的差值，目的是统计观察价格（空间的）波动距离，
$ q" S+ r. o! j8 c我是要用这个公式去方便验证BAYER的一个股价波动距离的理论。呵呵，多谢！！！

mrgjy1818

有请高手~~~~~~~~~~~~~~~~~~~~~

logoslogos

我一楼没说清楚
我需要统计高-低，低-高的价格差值，谢谢

logoslogos

原公式中红色四句改成以下蓝色的四句，K线上下标注的价格就不会太靠近K线了。

2 I, Y9 Y5 L( V: i7 ?DRAWNUMBER(HD,H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),PXUP70,COLORCYAN;
# m2 s! b# I, A- X, d5 wDRAWNUMBER(LD,L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),PXDN70,COLORCYAN;
DRAWNUMBER(HD,H*(1+0.002),H,2),COLORWHITE,PXUP30,ALIGN0;
  {( d* o# I- V. n) n. N; n+ iDRAWNUMBER(LD,L*(1.001-0.002),L,2),COLORWHITE,PXDN30,ALIGN0;

呵呵，恰恰相反的需要呢。我希望标识的价格差值距离K线近些，现在距离太远了。谢

何时回头是岸

谢

afafaf

原帖由 ycng 于 2011-1-10 23:56 发表
  M  X2 ^/ k# T( T& e4 _! y加
' q9 `( I9 g- ^
a1:=ref(h,barslast(hd));
# R4 u* _; v  t; ba2:=ref(L,barslast(Ld));
4 R# U0 b5 @4 j* c  pa11:=ref(h,barslast(hz));
a22:=ref(L,barslast(Lz));
drawtext(ld,a2*0.95,'P '),color009900;
4 N: D1 i  T. qdrawnumber(ld,a2*0.95,(a1-a2),2),colorred,shift2 ...

3 m" b$ D# m4 i  \! I谢谢ycng兄妙手点缀

散户甲

公式高手不少

axcqy

axcqy

原帖由 于afafaf  2011-1-11 16:06 发表
) C/ H0 {, o0 b  j5 _# O8 i0 F  V
6 b8 I, e7 K4 [0 }$ F3 k: H谢谢ycng兄妙手点缀
99290

+ b6 R* N, B) R! |请问afafaf 兄要修改那条公式才能有这种排列格式呢?谢谢!

afafaf

原帖由 axcqy 于 2011-1-11 19:49 发表
# _9 k9 p; l0 s
请问afafaf 兄要修改那条公式才能有这种排列格式呢?谢谢!

  L1 K3 Z/ w/ R6 R0 B2 \8 X$ zDRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN;
DRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN;
加
a1:=ref(h,barslast(hd));
- _1 a& f% i% v+ H' `7 [a2:=ref(L,barslast(Ld));
6 e7 y6 W; W7 A2 Ia11:=ref(h,barslast(hz));
a22:=ref(L,barslast(Lz));
) ^* u0 Q; b" ^( Bdrawtext(ld,a2*0.95,'P '),color009900;
drawnumber(ld,a2*0.95,(a1-a2),2),colorred,shift2;
0 M3 E. h, P# Z% zdrawtext(hd,a1*1.05,'P '),color009900;
drawnumber(hd,a1*1.05,(a1-a2),2),colorwhite,shift2;
drawtext(Lz,a22*0.87,'P '),color009900;
drawnumber(Lz,a22*0.87,(a11-a22),2),coloryellow,shift2;
drawtext(hz,a11*1.13,'P '),color009900;
drawnumber(hz,a11*1.13,(a11-a22),2),coloryellow,shift2;
drawtext(ld,a2*0.92,'T '),color999999;
. n5 j) n* _$ ]2 [! \. H; k+ |drawnumber(ld,a2*0.92,barslast(hd),0),colorgreen,shift2;
2 w' n3 T6 J  s% S/ Ydrawtext(hd,a1*1.08,'T '),color999999;
drawnumber(hd,a1*1.08,barslast(Ld),0),colorgreen,shift2;
drawtext(Lz,a22*0.84,'T '),color999999;
drawnumber(Lz,a22*0.84,barslast(hz),0),colorred,shift2;
- ~% h2 e- H/ I0 w& Edrawtext(hz,a11*1.17,'T '),color999999;
drawnumber(hz,a11*1.17,barslast(Lz),0),colorred,shift2;

[ 本帖最后由 afafaf 于 2011-1-11 21:13 编辑 ]