【阳光飞狐__与财富同行】

标题: 共享一个星相交易工具，求助会编写指标的朋友 [打印本页]
作者: logoslogos    时间: 2013-12-12 16:41
标题: 共享一个星相交易工具，求助会编写指标的朋友
求助会编写指标的朋友，共同实现一个星相的交易工具：
3 a, x  t: p) J. g. O3 U( L; E2 v[attach]110649[/attach]
7 q* \+ z3 ^( s. W4 r5 U; J9 P5 T# a4 d' T

; x+ l; j8 }3 o$ R1 w9 t2 V  I
+ z) |  i0 _6 X4 a- j6 X. a  j这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的, ?- F& u$ u4 W: e, \( h# ^" l2 F
$ d% |6 H: Z  {/ Q- m

0 B6 O: o& l" S  x" l：9 n: ~0 s' b$ n* Y& i- C! }3 p
1.根据给定的数值，画出这样的曲线
& \: i7 K& o* A( T* W. r/ ?0 q2.分别在曲线的每个拐点出画一竖线
8 G: V# `' e) F0 F% }+ V0 W3.在零值画一竖线6 R: j0 y& T, Q6 B% C' ^
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。. Y% ]) K/ p+ X5 O: z1 Z; x
3 r, F. l6 y3 ?; e7 D

: a4 e. b/ K0 Z. e7 [/ V/ o8 |5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。, o% C+ I, m2 A7 ]

/ J$ V0 ^6 [& T; X数据样本：从星相软件导出的：
4 r; V: h9 h: U0 r$ u* x$ t
' P; a; X9 Q" @. ]! z01 一月 2013   -24°14' 58.7"  
! H+ ]! R3 H! `+ n' v! R7 Q" R. Z. {02 一月 2013   -24°20' 05.2"  
# l/ l( `+ A( F. R2 \3 k* k! R03 一月 2013   -24°23' 54.3"  2 ^4 }$ o) M$ t/ y/ v) X" P3 A7 b
04 一月 2013   -24°26' 24.8"  * l4 X" T' v! i% s5 [; M( l
05 一月 2013   -24°27' 35.6"  
0 F3 W. c4 e0 x" o06 一月 2013   -24°27' 25.5"  0 e" t! Y" M8 e+ Y2 p. B2 ]
07 一月 2013   -24°25' 53.3"  . m% G% x+ F% c6 i
08 一月 2013   -24°22' 58.2"  
' B& H3 \+ W3 t0 f1 d8 X09 一月 2013   -24°18' 39.1"  / W9 D) o2 T6 w
10 一月 2013   -24°12' 55.1"  
4 h" ?8 @# m) }) P3 o8 R11 一月 2013   -24°05' 45.2"  8 \1 U7 H7 _3 v. o- ]
12 一月 2013   -23°57' 08.7"  ; V4 {$ r4 m2 [/ z& f8 p0 d
13 一月 2013   -23°47' 04.8"  
. N2 ]; W" _( h" i14 一月 2013   -23°35' 32.6"  / Z) f' o2 M' A8 {- F
15 一月 2013   -23°22' 31.5"  
4 _6 }0 c5 V0 H5 H16 一月 2013   -23°08' 00.8"  
- w7 t+ j$ \  ^* P17 一月 2013   -22°51' 59.9"  . }" B5 q/ `3 c8 J& B: V/ ^
18 一月 2013   -22°34' 28.2"  . e2 X+ Z! [) q" g; r, F& V% @; D
19 一月 2013   -22°15' 25.2"  
8 M1 @' I: a' v. W- O  B4 s20 一月 2013   -21°54' 50.7"  
; u7 B3 d7 _; I) Z! @8 K21 一月 2013   -21°32' 44.2"  
# ]6 S3 K7 ^" y; n7 V" X22 一月 2013   -21°09' 05.7"  
. c" o& ]! c; X" Y3 G23 一月 2013   -20°43' 55.0"  
7 Y$ x" H" W* C! G+ H' U6 x/ S; H24 一月 2013   -20°17' 12.3"  
0 w! ]* h% K/ @" B8 t% A$ F8 v25 一月 2013   -19°48' 57.7"  ( u& J$ l$ d7 _: H: }, U
26 一月 2013   -19°19' 11.9"  
/ y: w3 ?) z' u+ j  f" Y27 一月 2013   -18°47' 55.5"  
7 o0 Z+ ^1 ^; b2 t/ d28 一月 2013   -18°15' 09.5"  ; {, D( |9 Z4 W$ Y& L
29 一月 2013   -17°40' 55.3"  3 d2 N7 x, D8 _0 l# X
30 一月 2013   -17°05' 14.7"  
# @7 S' S4 w, Q; E+ r31 一月 2013   -16°28' 09.9"  
- C) E; h  d& d" d7 ?  z  _' S01 二月 2013   -15°49' 43.8"  
# r- S& j* G- b+ _% h02 二月 2013   -15°09' 59.8"  % s' ^0 `! s4 R) [- [) L! m
03 二月 2013   -14°29' 02.5"  
" z4 g& K, ?2 ?+ c1 }( M, W04 二月 2013   -13°46' 56.8"  8 h4 G# Y( M* T; d
05 二月 2013   -13°03' 49.3"  8 R6 O8 u1 [- _6 b5 _
06 二月 2013   -12°19' 47.2"  1 z  o8 x: M# m' A2 i
07 二月 2013   -11°34' 59.6"  
+ [. ]6 r# D: h" k! q08 二月 2013   -10°49' 36.8"  1 v# e3 F, L+ Q, L
09 二月 2013   -10°03' 50.6"  ( ^; S: L& |( J% y( [, X9 y6 k
10 二月 2013   -09°17' 54.8"  5 S# d  j& i, a! @" J- E! J
11 二月 2013   -08°32' 04.9"  3 d* n6 {  L" V
12 二月 2013   -07°46' 38.1"  
/ w' i' E" @4 |' w13 二月 2013   -07°01' 53.6"  
1 C! i0 G8 [5 O0 Z& i+ S% O14 二月 2013   -06°18' 12.3"  
; W) g% d3 U2 I: I: @6 ]! q1 J/ s, f15 二月 2013   -05°35' 56.2"  : I3 l7 ]# M8 X  y( u$ Y
16 二月 2013   -04°55' 29.1"  
7 z/ P3 e# R! q" ]" l17 二月 2013   -04°17' 15.1"  8 h, L% @1 v+ D# I9 Z4 Q# d
18 二月 2013   -03°41' 39.2"  ' M6 h/ u' u- S) p* ]' n/ L
19 二月 2013   -03°09' 06.0"  
: T- S. `0 `, o20 二月 2013   -02°39' 59.5"  
, ^8 ]9 ^/ v+ @  y% u9 b* a21 二月 2013   -02°14' 42.3"  , h5 c6 ~9 O& D( U( o0 _1 G
22 二月 2013   -01°53' 35.0"  6 u' X- L* k) ~2 R' y# V/ Y1 [
23 二月 2013   -01°36' 55.5"  
# C( L: [/ D$ U24 二月 2013   -01°24' 58.1"  6 l- @2 X/ n5 L3 f7 ~" k2 N
25 二月 2013   -01°17' 52.7"  ; f& ^9 u3 d. G5 y3 }" |; ^; M
26 二月 2013   -01°15' 44.0"  + g6 v8 G% n' b1 ?2 G
27 二月 2013   -01°18' 30.8"  & i- G' {* Y7 I( v2 e1 i4 a( F, M
28 二月 2013   -01°26' 05.5"    {6 s, Q% B8 c! d& Y) Q
01 三月 2013   -01°38' 13.7"  
4 G: x; Z/ U  e+ Q$ r, ^6 o: I02 三月 2013   -01°54' 34.4"  9 Z  A+ T0 \1 o$ N0 S: {, I* y
03 三月 2013   -02°14' 40.4"  ( w7 o7 I* y4 s& f9 Q5 R* Q) C4 N
04 三月 2013   -02°37' 59.2"  
. c) c, a: Y4 O, p, {- A05 三月 2013   -03°03' 54.3"  
9 i/ x/ C* U$ m' c1 s% ?% @6 ?06 三月 2013   -03°31' 47.0"  - ?7 z4 \! Q7 S8 n# \% o$ {8 w9 G
07 三月 2013   -04°00' 57.8"  
  \0 `8 {6 a& i7 ^08 三月 2013   -04°30' 48.1"  
, s3 R) s% j3 Y09 三月 2013   -05°00' 41.8"  
# f; Y$ q0 [, f10 三月 2013   -05°30' 06.2"  4 ~* }1 T. b1 u
11 三月 2013   -05°58' 32.9"  
; a2 X7 ~4 B( q, Q, a% M  J" t4 M12 三月 2013   -06°25' 37.8"  
: H; I: v0 d3 `" _13 三月 2013   -06°51' 01.6"  
, _) W* l0 b: }2 c3 {$ H14 三月 2013   -07°14' 29.1"  
5 m  r8 n6 }* [1 R4 \" p  T15 三月 2013   -07°35' 49.3"  ; J+ ]( ]% S) A% b0 h' U; \
16 三月 2013   -07°54' 54.2"  $ F( N- c% @2 j/ P1 L- k* |# X
17 三月 2013   -08°11' 39.1"  
, d# S( R5 ~  G) \# j' |18 三月 2013   -08°26' 01.3"  : \, T9 B  M: f# L+ y
19 三月 2013   -08°38' 00.1"  / n3 f: h# f, U4 x7 ]
20 三月 2013   -08°47' 36.2"  
6 N# U5 V1 q: }' H4 R0 l- i21 三月 2013   -08°54' 51.5"  : g  [5 r. t# m: X1 s
22 三月 2013   -08°59' 48.5"  3 y: Y$ c; o/ x* |1 Z
23 三月 2013   -09°02' 30.3"  1 U2 ^6 ?4 z! T
24 三月 2013   -09°03' 00.3"  
! q, J; k8 ]* d/ I& ~25 三月 2013   -09°01' 22.3"  2 G* [: G  x# a: d
26 三月 2013   -08°57' 39.8"  7 Z6 D9 s. b3 |: W
27 三月 2013   -08°51' 56.7"  
# e1 }9 [, a' I! U' c28 三月 2013   -08°44' 16.7"  8 D% b$ s/ R5 b! x
29 三月 2013   -08°34' 43.3"  
6 h. _! K, @) U1 S2 U5 X0 w  a+ T- l30 三月 2013   -08°23' 20.1"
, E: d" o1 Q* `! [. m  Z. G9 X- A$ s" Z$ t* H2 q  m: M- g  T6 v+ W
这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
# f. T" s* V6 J1 J# `% q1 Y4 b! B# y, }" U
[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]
作者: 子傻    时间: 2013-12-12 18:16
.gif" smilieid="273" border="0" alt="" />
作者: tom123    时间: 2013-12-13 00:23
[attach]110651[/attach]
9 ^: S0 R" N$ O; \# @
水星
13-1-10.10625
13-1-20.08514
13-1-30.06365
13-1-40.04182
13-1-50.01966
13-1-6-0.00282
13-1-7-0.02558
13-1-8-0.04865
13-1-9-0.07197
13-1-10-0.09556
13-1-11-0.1194
13-1-12-0.14346
13-1-13-0.16776
13-1-14-0.19226
13-1-15-0.21697
13-1-16-0.24187
13-1-17-0.26692
13-1-18-0.29213
13-1-19-0.31748
13-1-20-0.34293
13-1-21-0.36846
13-1-22-0.39403
13-1-23-0.41963
13-1-24-0.4452
13-1-25-0.4707
13-1-26-0.49606
13-1-27-0.52122
13-1-28-0.5461
13-1-29-0.57061
13-1-30-0.59462
13-1-31-0.61799
13-2-1-0.64059
13-2-2-0.66219
13-2-3-0.68261
13-2-4-0.70156
13-2-5-0.71877
13-2-6-0.73389
13-2-7-0.74655
13-2-8-0.75635
13-2-9-0.76282
13-2-10-0.7655
13-2-11-0.76387
13-2-12-0.75744
13-2-13-0.74569
13-2-14-0.72817
13-2-15-0.70445
13-2-16-0.67422
13-2-17-0.6372
13-2-18-0.59332
13-2-19-0.54256
13-2-20-0.48517
13-2-21-0.42146
13-2-22-0.35203
13-2-23-0.27765
13-2-24-0.19929
13-2-25-0.11818
13-2-26-0.03577
13-2-270.04633
13-2-280.12629
13-3-10.20227
13-3-20.27242
13-3-30.33499
13-3-40.38854
13-3-50.43198
13-3-60.46463
13-3-70.48633
13-3-80.4973
13-3-90.49826
13-3-100.49012
13-3-110.47407
13-3-120.45137
13-3-130.42327
13-3-140.39099
13-3-150.3556
13-3-160.31805
13-3-170.27913
13-3-180.23951
13-3-190.19967
13-3-200.16005
13-3-210.12091
13-3-220.08251
13-3-230.04495
13-3-240.00835
13-3-25-0.02724
13-3-26-0.06178
13-3-27-0.0953
13-3-28-0.12778
13-3-29-0.15927
13-3-30-0.18978
13-3-31-0.21935
13-4-1-0.24802
13-4-2-0.27582
13-4-3-0.3028
13-4-4-0.32898
13-4-5-0.3544
13-4-6-0.37912
13-4-7-0.40314
13-4-8-0.42651
13-4-9-0.44925
13-4-10-0.4714
13-4-11-0.49295
13-4-12-0.51396
13-4-13-0.53442
13-4-14-0.55434
13-4-15-0.57375
13-4-16-0.59262
13-4-17-0.611
13-4-18-0.62883
13-4-19-0.64616
13-4-20-0.66294
13-4-21-0.67916
13-4-22-0.6948
13-4-23-0.70983
13-4-24-0.72419
13-4-25-0.73786
13-4-26-0.75076
13-4-27-0.76282
13-4-28-0.77395
13-4-29-0.78405
13-4-30-0.79299
13-5-1-0.80067
13-5-2-0.80689
13-5-3-0.81151
13-5-4-0.81433
13-5-5-0.81516
13-5-6-0.81379
13-5-7-0.80996
13-5-8-0.80349
13-5-9-0.79413
13-5-10-0.78169
13-5-11-0.76601
13-5-12-0.7471
13-5-13-0.72435
13-5-14-0.69856
13-5-15-0.66933
13-5-16-0.63692
13-5-17-0.60161
13-5-18-0.56373
13-5-19-0.52366
13-5-20-0.48185
13-5-21-0.43876
13-5-22-0.39485
13-5-23-0.35059
13-5-24-0.30636
13-5-25-0.2626
13-5-26-0.2196
13-5-27-0.17767
13-5-28-0.13701
13-5-29-0.09784
13-5-30-0.06029
13-5-31-0.02446
13-6-10.00956
13-6-20.04173
13-6-30.07201
13-6-40.10041
13-6-50.12691
13-6-60.15152
13-6-70.17427
13-6-80.19518
13-6-90.21425
13-6-100.23154
13-6-110.24705
13-6-120.26079
13-6-130.27282
13-6-140.28311
13-6-150.29171
13-6-160.29861
13-6-170.30384
13-6-180.30739
13-6-190.30927
13-6-200.30949
13-6-210.30805
13-6-220.30495
13-6-230.30022
13-6-240.29383
13-6-250.28585
13-6-260.27625
13-6-270.26512
13-6-280.25244
13-6-290.23828
13-6-300.22273
13-7-10.20581
13-7-20.18766
13-7-30.16837
13-7-40.14805
13-7-50.12689
13-7-60.105
13-7-70.0826
13-7-80.05985
13-7-90.03695
13-7-100.01412
13-7-11-0.00843
13-7-12-0.03051
13-7-13-0.05189
13-7-14-0.07237
13-7-15-0.09177
13-7-16-0.10988
13-7-17-0.12654
13-7-18-0.14158
13-7-19-0.15485
13-7-20-0.1662
13-7-21-0.17549
13-7-22-0.18259
13-7-23-0.1874
13-7-24-0.18977
13-7-25-0.18963
13-7-26-0.18684
13-7-27-0.18132
13-7-28-0.17299
13-7-29-0.16174
13-7-30-0.1475
13-7-31-0.1302
2013-8-1-0.10981
2013-8-2-0.08628
2013-8-3-0.05964
2013-8-4-0.02995
2013-8-50.00269
2013-8-60.0381
2013-8-70.07607
2013-8-80.11625
2013-8-90.15829
2013-8-100.20173
2013-8-110.24609
2013-8-120.2908
2013-8-130.33534
2013-8-140.37914
2013-8-150.42172
2013-8-160.46259
2013-8-170.50139
2013-8-180.53778
2013-8-190.57157
2013-8-200.60259
2013-8-210.6308
2013-8-220.65617
2013-8-230.67879
2013-8-240.69871
2013-8-250.71609
2013-8-260.73108
2013-8-270.74381
2013-8-280.75444
2013-8-290.76317
2013-8-300.77012
2013-8-310.77546
2013-9-10.77933
2013-9-20.78187
2013-9-30.78318
2013-9-40.78337
2013-9-50.78256
2013-9-60.78082
2013-9-70.77824
2013-9-80.77487
2013-9-90.7708
2013-9-100.76607
2013-9-110.76071
2013-9-120.75479
2013-9-130.74833
2013-9-140.74135
2013-9-150.73389
2013-9-160.72597
2013-9-170.71759
2013-9-180.70878
2013-9-190.69955
2013-9-200.68988
2013-9-210.67982
2013-9-220.66931
2013-9-230.65838
2013-9-240.64701
2013/09/250.63519
2013/09/260.62288
2013/09/270.61008
2013-9-280.59677
2013-9-290.58291
2013/09/300.56846
2013-10-10.5534
2013-10-20.53767
2013-10-30.52123
2013-10-40.50402
2013-10-50.48598
2013-10-60.46703
2013-10-70.44709
2013/10/080.42606
2013/10/090.40384
2013/10/100.38028
2013/10/110.35527
2013-10-120.32864
2013-10-130.30019
2013-10-140.26972
2013-10-150.23702
2013-10-160.20182
2013-10-170.16383
2013-10-180.12276
2013-10-190.07832
2013-10-200.03015
2013-10-21-0.02198
2013-10-22-0.0783
2013-10-23-0.13891
2013-10-24-0.20366
2013-10-25-0.27217
2013-10-26-0.34357
2013-10-27-0.41652
2013-10-28-0.48904
2013-10-29-0.55842
2013-10-30-0.62143
2013-10-31-0.67431
2013-11-1-0.71331
2013-11-2-0.73502
2013-11-3-0.73694
2013-11-4-0.7179
2013-11-5-0.67829
2013-11-6-0.62002
2013-11-7-0.54625
2013-11-8-0.46094
2013-11-9-0.36831
2013-11-10-0.27245
2013-11-11-0.17696
2013-11-12-0.0847
2013-11-130.00214
2013-11-140.0821
2013-11-150.15435
2013-11-160.21852
2013-11-170.27465
2013-11-180.32299
2013-11-190.36402
2013-11-200.39829
2013-11-210.42641
2013-11-220.44896
2013-11-230.46655
2013-11-240.47975
2013/11/250.48905
2013/11/260.4949
2013/11/270.49775
2013/11/280.49793
2013-11-290.4958
2013-11-300.49159
2013-12-10.48559
2013-12-20.478
2013-12-30.46898
2013-12-40.45871
2013-12-50.44732
2013-12-60.43491
2013-12-70.42159
2013-12-80.40746
2013-12-90.39257
2013-12-100.37698
2013-12-110.36078
2013-12-120.34397
2013-12-130.32662
2013-12-140.30875
2013-12-150.2904
2013-12-160.27158
2013-12-170.25232
2013-12-180.23262
2013-12-190.21252
2013-12-200.19202
2013-12-210.17114
2013-12-220.14987
2013-12-230.12825
2013-12-240.10627
2013-12-250.08395
2013-12-260.06128
2013-12-270.03829
2013-12-280.01499
2013-12-29-0.00862
2013-12-30-0.03253
2013-12-31-0.05671
作者: tom123    时间: 2013-12-13 02:12
[attach]110652[/attach]
作者: logoslogos    时间: 2013-12-13 21:34
编写指标用 的数据，见附件! O+ M2 \/ a# u* F" y
[attach]110653[/attach]
作者: skywater    时间: 2013-12-14 19:50
最好变成飞狐的好
作者: logoslogos    时间: 2013-12-16 22:15
最好变成飞狐的好..
作者: kaiser88    时间: 2013-12-17 09:51
作者: 静芸    时间: 2013-12-17 12:22
飛狐3 s% f/ b7 H' S* X- o( j

/ D5 ~" b/ b9 f: U3 bcc:=數據;0 z! v' ~! o1 C0 L
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
3 o7 `4 q" ]& b" |vertline(ccsh),colorred;  {high}  d1 T5 [0 ?4 C: ?7 t
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);! [* y/ ^/ j; z" ~! r5 \; ~5 Q. W
vertline(ccsL),colorgreen; {low}, Q7 I# c+ ?8 @* J' c/ q

6 o6 x5 h0 _& b3 X6 V- D[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
作者: kaiser88    时间: 2013-12-17 12:28
请问静芸  能改成飞狐公式么？
作者: 静芸    时间: 2013-12-17 12:32
原帖由 kaiser88 于 2013-12-17 12:28 发表
7 U8 O; T" B+ o/ _8 u请问静芸  能改成飞狐公式么？

5 h1 H5 p8 E. d  i% K  P
& h. i$ v* R# \+ A4 l1 D4 F这是飞狐公式
) m! _" w4 ~/ w. \第一列的"数据"要用读进来的星象数据取代
作者: kaiser88    时间: 2013-12-17 12:35
再请问 怎么读写呢？俺不会
作者: 静芸    时间: 2013-12-17 12:58
原帖由 kaiser88 于 2013-12-17 12:35 发表
" ~' ]$ D- r* |  u1 b. ^+ L& e再请问 怎么读写呢？俺不会
  e2 j, C) D' a& g7 h8 d& P
  R1 z' L0 w* F2 I$ A5 h3 a' J
哈,这有些麻烦啊!7 u7 U5 X8 o+ c4 c. Q% [( {' S( \+ k
你把星相数据存在目录C:\Da.txt
3 x) m6 A! X/ C, j8 T/ H档名是Da.txt( p" r4 {  Q, T! q3 x  ^
如果存在别的目录,如D:\hhh\Da.txt! d) n! p  s+ o0 Q- g
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
  w' U' E' V; }$ |( `下面是飞狐公式,我也未试过,你自行试试吧& w8 {1 z! y. o- v% z$ U

8 t  N6 K& i6 T; z" ]. OFoxDE:=DATE; FoxTE:=TIME;- J+ b/ z6 f: A  a6 L. w8 q" b
MyData:=C*0;+ j8 n2 ~1 v, O- I; L
<%
4 S4 d6 u9 Y2 Z  V) G* j, MMyData =FFL.VarData("MyData"); J8 `& z2 ?5 J4 q. [/ P2 O
FoxDE =FFL.VarData("FoxDE")
6 |, z* A: X; P! o5 Q; |% WFoxTE =FFL.VarData("FoxTE"): w& ~* a' b2 j/ c& L- G5 ^! G
Set fs =CreateObject("Scripting.FileSystemObject")
! g% N) a) K( X6 Q. V! C2 aSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
1 @! s% U4 Q# s6 }$ IMyTxt = wrkfs.ReadLine6 ^8 Q- T) p  F# G* g
wrkfs.close
1 _8 N' z5 a* |0 H* z1 l8 JTxtStr=MyTxt
, U( a- E3 @. _TxtAry = Split(TxtStr, ",", -1, 1)& q( j/ I* m( B+ s
GetDE=CLNG(TxtAry(0))
0 a* Q' a3 L- S3 k  d" @  @GetTE=CLNG(TxtAry(1)); t# F8 [$ O0 O: O" _, V8 p
GetVV=CSNG(TxtAry(2))$ `; h: ~" M% y/ z( \
for i=0 to ubound(MyData)! z0 K- p$ \9 F: w
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
, B7 Z9 u3 ]) Q1 d* rMyData(i)=GetVV5 c! D: ?% ^7 F$ C: O1 _: D/ j: I
end if
7 p8 x$ v9 Q+ g  n! J& N( f1 {next1 S0 F( ~6 B" o  y8 n/ t8 _. i3 a% t
FFL.VarData("MyData")=MyData
% |  W1 T* N$ |% V* t% c%>
2 L" i/ Q6 `; u+ p& p5 S' H+ M! x' B$ d7 w3 t/ q$ A
cc:=MyData;
! e+ K! `$ c- x6 Q$ Iccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);8 {# n' E7 N% @! l4 E. s( b* M
vertline(ccsh),colorred;  {high}4 u+ Y, v( d4 W2 S+ ^
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);; J& P. @. t' x( ]
vertline(ccsL),colorgreen; {low}8 M8 d; r, S4 y8 K
! b+ B/ r4 j; l
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
作者: kaiser88    时间: 2013-12-17 13:07
作者: logoslogos    时间: 2013-12-17 19:53
太好了。我试试。。。万分感谢& t# ]! z; f0 \- f2 O

6 i5 V' H) n& h/ C, T% G' d我刚试一下。。。出现错误。。。静云帮忙看看。。。
- P& ]+ x% _+ U* E! F3 `2 ]* p4 W& y等我发图
: g2 x& m5 L( q  ~[attach]110666[/attach]$ w: X5 C* D: {' i2 c. `  ^
! y$ O/ z8 t* s) X0 e0 y  p( ]* k
[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]
作者: logoslogos    时间: 2013-12-17 20:12
静云帮忙修改一下。。。多谢！
作者: prayer    时间: 2013-12-17 21:20
非常感谢静芸MM提供的实例
作者: 静芸    时间: 2013-12-17 21:28
原帖由 logoslogos 于 2013-12-17 19:53 发表 : O$ ^# d# [. W" p) e( N% i
太好了。我试试。。。万分感谢  g0 e# ?" e* T: ~8 r
: Z, z. v! P& o( Z3 j
我刚试一下。。。出现错误。。。静云帮忙看看。。。  E$ H# l/ ^4 P! t
等我发图
8 _, x. d3 I$ @( a- d9 U8 {9 g110666

7 b3 ?1 J# C9 B: M, T
/ I$ ^9 E  ^3 Q, [再试, 这读数据公式不是我编的: y* K7 P& y6 ?- o! R
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
: |# N8 G% n% }8 f! {! L; z3 l
/ S" l2 r8 q8 E, e, ^[attach]110667[/attach], e5 F& N* [* e' [" v0 c7 n

1 p$ U: |7 S1 i% C5 a[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]
作者: logoslogos    时间: 2013-12-17 21:55
[attach]110668[/attach]
/ W2 t% ~: o/ J1 m. `& H* q
4 Z: i3 L5 j* k1 o" V+ K" e还是不行。。。能通过测试，但一运行就出现这个错误：
5 r- A* S% h; K0 x9 G0 k+ t见图。。。
作者: 静芸    时间: 2013-12-17 23:30
原帖由 logoslogos 于 2013-12-17 21:55 发表
+ K  `, \8 A! W7 x) H# Y110668
: Z2 Q4 G  [) O! X
$ B- C0 l3 l  P5 n还是不行。。。能通过测试，但一运行就出现这个错误：
+ s8 T8 Z, I! }1 K1 D; C& |见图。。。

, f9 U% h+ h) m1 v. P3 x5 F  B) l9 ?! Q1 L+ v
可能是数据檔的问题
$ ^- @9 t& o: ^' m$ [- M+ `数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行/ Y- I7 Y+ A* Z  M; v' X; Q
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
作者: logoslogos    时间: 2013-12-18 10:08
好的，理解了。一样感谢。。
作者: He110    时间: 2013-12-18 15:59
应该不用导入数据吧。。。% L/ f4 @% a9 L$ c
直接程序计算declination值数据然后显示
0 \  e7 k8 n! ~; U$ b( ]: q4 b# E
7 K$ P0 T, G* Q# X2 ^7 ?8 L, R# y$ q
* g9 Q# h. A6 J( _6 v6 U
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
作者: He110    时间: 2013-12-18 17:02
0 p9 i8 z% j* _  [5 Q* v

; _0 q2 _. F/ v  u2 ]0 E[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
作者: He110    时间: 2013-12-18 18:09
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
6 l& |7 W( a% s: r1 e8 e0 S' J我是不是用错了？ 有其他办法吗？
作者: 静芸    时间: 2013-12-18 19:03
原帖由 He110 于 2013-12-18 18:09 发表   [7 ~1 j' H  l
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。9 j0 `6 e7 O: l7 k6 F% A  g
我是不是用错了？ 有其他办法吗？

- i1 }% R1 w4 R! D7 L' z/ N9 Y
+ g* k7 L1 X, H. W, S" Q$ T你好, 向下
4 T- D. k1 c: G$ [* qvertline(cross(0,cc)),coloryellow;
作者: kaiser88    时间: 2013-12-18 19:34
he110 请问你公式怎么做的 我的也一样报错
作者: He110    时间: 2013-12-18 20:20
原帖由 静芸 于 2013-12-18 19:03 发表
' G- r! ?# H; u$ o  C$ m% x8 |' ^# `: h4 Z8 Y8 Z. \
) g8 H& I8 z/ z2 I
你好, 向下  c: n' C5 y( `8 e1 \0 G* J
vertline(cross(0,cc)),coloryellow;
, s. h0 \7 _3 m5 p% f/ s1 q7 R

' U, R9 R. L0 g/ f8 z8 O6 b3 k5 p& O- }2 }谢谢，可以了。0 P. [) [5 t$ b' \. v# p
8 Y3 _4 \9 J9 s' g
原帖由 kaiser88 于 2013-12-18 19:34 发表 ' }( X6 u9 M+ |/ Y3 l" Q0 n
he110 请问你公式怎么做的 我的也一样报错
4 W$ t, r' o; ?) }! N8 t4 [

" A$ M6 x* s& H5 H我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
作者: prayer    时间: 2013-12-18 20:42
你好He110，请问如何直接程序计算declination值数据，有直接的公式吗？
作者: tom123    时间: 2013-12-18 23:48
交流[attach]110675[/attach]
作者: He110    时间: 2013-12-19 10:15
tom兄是叠加了其他几个星星吗？ 我的数据就没有tom兄的这么平滑。。。# a  s  G- l5 }( V, J0 w8 x
' C# H# V2 m. A0 }7 M1 k8 t( N
prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
作者: He110    时间: 2013-12-19 10:21
没注意到tom的图是自然日
作者: logoslogos    时间: 2013-12-19 10:24
明确的指示作用。。很好的工具
作者: logoslogos    时间: 2013-12-19 10:25
应用到股指上，才显示威力。。。各位发财
作者: He110    时间: 2013-12-19 10:27
奇怪，改了下公式在主图上不能显示。。。
作者: prayer    时间: 2013-12-19 19:06
好的，谢谢He110
作者: prayer    时间: 2013-12-19 19:07
作者: logoslogos    时间: 2018-12-10 23:11
哪位朋友帮忙看一下这个公式。。总是报错。。现在重新需要这个公式。多谢



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