原帖由 logoslogos 于 2013-7-14 10:08 发表 ; Y& G0 |- |. Y
Y兄,还有一个思路,能否实现再编写一个:
" [* y% \' `. y7 G, d, j/ J1.准许设定开始的日期(日,周,月)& u' n% m" d6 ^! p& Z* c9 J
2.能否搞个用于5分钟图的,并且开始点能否让自如输入设定?这样就可以用于期货的日内短线了。。。我的意思您能明白吧? 万分感谢- _6 d, e/ P8 ~$ F* K
... . e _( x3 U0 k4 M
0 s/ F- x9 b! C7 ^有二法可编之
; W2 B. D% b7 J" Z第一法:是输入日期如:
/ c3 S8 P) {) M3 l( x& g+ ]8 `9 y8 R9 ?) ^* ]! P( A$ ?* G
1010924 -----> 20010924
, l" Z& w# b1 J$ d20130124------>公式给入1130124
( Z; r5 {$ S* |$ ~* K4 c; F这是日K线情形,至于周或月飞狐似乎无直接可引用的函数, 在周或月可用第二法
- P i8 _' M- A9 P* e日期长度超过,可自行加上drawnumber函数
- H. v$ Z( @2 J. B----------------------------------------------------------------------------------" x0 N: v, f, _
; T/ S0 [: }8 {/ S! Z( ~$ ~dat1:=barslast(date=1010924);; ^! J1 ^7 L, @$ v
stickline(mod(dat1,15)=0,hhv(h,count(c,0)),llv(L,count(c,0)),1,0),color00ffff,pointdot;
4 z1 {9 K! U% i% Q- fdrawnumber(dat1<=360 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1,0),colorff00ff,shift1;2 d3 R! Z [! P5 M% ]1 Z9 j
drawnumber(dat1>360 and dat1<720 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1-360,0),colorff00ff,shift1;6 ]' O( t+ F C, k" {( H% p2 ?
drawnumber(dat1>720 and dat1<1080 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1-720,0),colorff00ff,shift1;$ M0 d" C- g( \
drawnumber(dat1>1080 and dat1<1440 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1-1080,0),colorff00ff,shift1;
1 ]# s+ C8 @& q( ]$ @+ s* Mdrawnumber(dat1>1440 and dat1<11800 and mod(dat1,15)=0,hhv(h,count(c,0)),dat1-1440,0),colorff00ff,shift1;
9 E6 z% m w4 w# Y3 }* Q0 t" K 5 o: d/ A2 p& X% u
第二法:是移动飞狐老鼠十字光标到目标日期K线(日周月均可):
; G' E* Y# |# X2 b6 \7 T8 U7 | Q. m0 O
此法是直接沟通公式与老鼠十字光标,应用到sysparam函数,所以执行极慢; c& _9 X+ ^$ Q9 [0 {
8 z1 n* }8 r; j* A
dat2:=barslast(barpos=sysparam(1));
: X- S5 m6 ]8 Y1 q' G8 tstickline(mod(dat2,15)=0,hhv(h,count(c,0)),llv(L,count(c,0)),1,0),color0000ff,pointdot;
1 q- K- {. H& {drawnumber(dat2<=360 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2,0),colorffffff,shift1;
- e- q, s, v# a: i pdrawnumber(dat2>360 and dat2<720 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2-360,0),colorffffff,shift1;. L0 z( h0 K) W( A8 F4 V F, U
drawnumber(dat2>720 and dat2<1080 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2-720,0),colorffffff,shift1;/ b7 X& D1 V: W/ @$ i
drawnumber(dat2>1080 and dat2<1440 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2-1080,0),colorffffff,shift1;
2 O! {5 V, Z( h, Bdrawnumber(dat2>1440 and dat2<11800 and mod(dat2,15)=0,hhv(h,count(c,0)),dat2-1440,0),colorffffff,shift1;. V2 H- I5 A) w* [7 b
& X* E4 G6 H9 K" _* V K, ^; z% C
我自用的是公式直接自动定位波浪高低点起位,但此法未曾外给 (这与先前说过的含二个理念无关)
z" ~! ^7 \$ q) B7 K% V2 ]$ L R至于5分钟的分时公式,抱歉未编过,你可以用上面公式商请会编分时公式的朋友依样修改5 o/ X8 M. o. z3 i4 P% j
5 }* J# e2 y5 U/ P: B; z N
[ 本帖最后由 ycng 于 2013-7-14 16:52 编辑 ] |