原帖由 logoslogos 于 2013-7-14 10:08 发表 ![]()
' u" v& B! \! @0 u, EY兄,还有一个思路,能否实现再编写一个:
. K0 Z6 f6 j6 }. |% M1.准许设定开始的日期(日,周,月)
5 z2 y0 }, `1 a" Y% p$ f7 V2.能否搞个用于5分钟图的,并且开始点能否让自如输入设定?这样就可以用于期货的日内短线了。。。我的意思您能明白吧? 万分感谢' J; v5 @8 t$ z5 \, ^% {
...
* ~ Q( \2 A; c4 \4 {
) ?/ j- t9 W( d( D; B有二法可编之0 U1 D! c' K0 d: x' H% E) p
第一法:是输入日期如:
2 ], V& T& p! |5 Y) ~2 K2 K& r/ H2 c! V
1010924 -----> 20010924* N7 K% F1 I* `& p' O5 w
20130124------>公式给入1130124) e, Y8 O( P& _6 r
这是日K线情形,至于周或月飞狐似乎无直接可引用的函数, 在周或月可用第二法
: A4 @$ u6 R, G" m* z9 G& L日期长度超过,可自行加上drawnumber函数' X0 m" ^( L8 `8 C- |, m8 L
----------------------------------------------------------------------------------& a1 {9 ]* Q: H3 V5 {
( \1 Y6 x( ^! y$ ^( b5 }$ ldat1:=barslast(date=1010924);, @. w' G6 M, C+ R" C( P. V
stickline(mod(dat1,15)=0,hhv(h,count(c,0)),llv(L,count(c,0)),1,0),color00ffff,pointdot;
+ y7 \ e3 r6 M; B V3 i- i) hdrawnumber(dat1<=360 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1,0),colorff00ff,shift1;
0 R2 s+ x. P9 `7 ]) vdrawnumber(dat1>360 and dat1<720 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1-360,0),colorff00ff,shift1;
! U# {% c; U, x0 N$ fdrawnumber(dat1>720 and dat1<1080 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1-720,0),colorff00ff,shift1;# f& n1 w+ R x
drawnumber(dat1>1080 and dat1<1440 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1-1080,0),colorff00ff,shift1;
9 c' i6 P) Z* s6 F4 U$ T* ~* rdrawnumber(dat1>1440 and dat1<11800 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1-1440,0),colorff00ff,shift1;
: G8 `7 J! W% v1 ~% l5 c1 t 6 X ~$ s. K8 ]0 C3 A3 V$ T
第二法:是移动飞狐老鼠十字光标到目标日期K线(日周月均可):5 v0 t/ i3 e3 M" S6 z: V$ X
: y% F+ p8 n1 a, _此法是直接沟通公式与老鼠十字光标,应用到sysparam函数,所以执行极慢
( ]; W- p' @2 p9 u& u' K M- s7 [& |- D
dat2:=barslast(barpos=sysparam(1));
. r" x& n) O( astickline(mod(dat2,15)=0,hhv(h,count(c,0)),llv(L,count(c,0)),1,0),color0000ff,pointdot;
3 \/ q5 i, C" T. P. `! d0 Ddrawnumber(dat2<=360 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2,0),colorffffff,shift1;
* @( T- J# V2 f4 G) g8 Jdrawnumber(dat2>360 and dat2<720 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2-360,0),colorffffff,shift1;
- H& t2 {1 o0 \! j4 b& D$ ^drawnumber(dat2>720 and dat2<1080 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2-720,0),colorffffff,shift1;
& k7 }: K* J. u( rdrawnumber(dat2>1080 and dat2<1440 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2-1080,0),colorffffff,shift1;
$ y1 ?, D3 D: }8 [1 J& @. ?drawnumber(dat2>1440 and dat2<11800 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2-1440,0),colorffffff,shift1;
+ C) d$ x+ d3 X* |
b& ?4 U- n/ X, E- h; C1 t$ y我自用的是公式直接自动定位波浪高低点起位,但此法未曾外给 (这与先前说过的含二个理念无关)% N3 q# l9 k! g3 t* c* T+ `7 d- V! V
至于5分钟的分时公式,抱歉未编过,你可以用上面公式商请会编分时公式的朋友依样修改
* n8 j- G8 W0 q2 b& Y
! v+ d+ R k& J* t[ 本帖最后由 ycng 于 2013-7-14 16:52 编辑 ] |