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

标题: 共享一个星相交易工具，求助会编写指标的朋友 [打印本页]
作者: logoslogos    时间: 2013-12-12 16:41
标题: 共享一个星相交易工具，求助会编写指标的朋友
求助会编写指标的朋友，共同实现一个星相的交易工具：
) u4 [. V" V6 R* A& y[attach]110649[/attach]
. V2 G* H: i) K+ [' W: C7 V: o" N2 ]$ K- n+ A* f# t- f, p2 n

2 r7 c8 A2 M  r
0 Y0 |3 M3 B  u6 K0 V8 ?这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的
7 J4 c! {; e) e0 k2 l+ K  K: R& N- l
! `8 Y% ~; ^% m. K+ Z2 m1 Y+ L' j  g' \6 V% o* q0 \
：
( i; w4 H( H. B' f1.根据给定的数值，画出这样的曲线& R$ f7 h- Q# b' w
2.分别在曲线的每个拐点出画一竖线
" Z; c. t/ K3 r3 O0 N3.在零值画一竖线" n: c- W/ l9 C' V* L% m
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。
5 F" J" }. `# Y/ @9 {
. h. V. E5 p8 u( u! \( _
( ~+ X+ r! z# D8 r9 t. p5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。! R8 m% ^7 b, @5 w& }

3 {9 g5 }/ M. Y数据样本：从星相软件导出的：3 G# ]; s  u7 ~# V! n; H+ r; N
; @8 v2 X- z/ U( H0 z8 y
01 一月 2013   -24°14' 58.7"  * p% @. V( I5 y/ d
02 一月 2013   -24°20' 05.2"  & c6 B6 ]4 I: p8 x% o
03 一月 2013   -24°23' 54.3"  $ D* m) o: F2 _& i
04 一月 2013   -24°26' 24.8"  , p; X( C. y% }7 P
05 一月 2013   -24°27' 35.6"  7 m& s" ?4 `: l# t/ Z
06 一月 2013   -24°27' 25.5"  
3 r# M% {. j) |1 \7 }) T07 一月 2013   -24°25' 53.3"  
7 F) M) p! x% o' x3 c1 \6 t1 y08 一月 2013   -24°22' 58.2"  
* t1 R8 \4 A( _5 @" j09 一月 2013   -24°18' 39.1"  / x; o& c* ?6 _" D8 ~
10 一月 2013   -24°12' 55.1"  4 B; b" a9 p* z) J3 E; E5 W' l
11 一月 2013   -24°05' 45.2"  / T( x. f  Q+ Q: R* }: p9 s* y& Y0 e
12 一月 2013   -23°57' 08.7"  % ]' ~1 [9 o+ }" ^3 o+ Y. O0 b- P
13 一月 2013   -23°47' 04.8"  2 B. S! F+ G6 G) P/ x
14 一月 2013   -23°35' 32.6"  7 X' ]9 I; {5 v
15 一月 2013   -23°22' 31.5"  8 s- U: U* D# a1 d/ s5 N" z3 F% {
16 一月 2013   -23°08' 00.8"  
+ p& d& K- ~9 A; _6 g+ u: b17 一月 2013   -22°51' 59.9"  
1 C% _* {  l: n6 P$ e, n18 一月 2013   -22°34' 28.2"  
! k; j9 b! v  p% D( P: o19 一月 2013   -22°15' 25.2"  
4 Z( |6 [5 m2 Z! v  j20 一月 2013   -21°54' 50.7"  
" w! i% N: k& B+ ~21 一月 2013   -21°32' 44.2"  ( y% J9 K+ j( D* q/ E* l& S6 ~. y: k
22 一月 2013   -21°09' 05.7"  
) ?! Q" h7 O# ~1 G/ G  b23 一月 2013   -20°43' 55.0"  
5 U& K1 u6 f  ~4 ^24 一月 2013   -20°17' 12.3"  
. F. O$ N2 w: r' G) l' U2 j% Y& p: d; u+ Q25 一月 2013   -19°48' 57.7"  
. c$ g3 J5 y* X* f6 S26 一月 2013   -19°19' 11.9"  
, o$ [' }! y3 _" ?; M/ @3 {( T27 一月 2013   -18°47' 55.5"  
. h/ R  e" A9 d% b& \0 q28 一月 2013   -18°15' 09.5"  
  l+ J5 L) K8 ?4 C1 A29 一月 2013   -17°40' 55.3"  * h" y' n& d! Z+ m+ Q) C; w: X3 B
30 一月 2013   -17°05' 14.7"  
. D5 A# b: b6 D  S: ]31 一月 2013   -16°28' 09.9"  2 H( s' G( ~1 h$ m" N
01 二月 2013   -15°49' 43.8"  
: [  w3 j6 X( f5 H% y02 二月 2013   -15°09' 59.8"  3 A- t( X/ w2 H6 E0 I) _
03 二月 2013   -14°29' 02.5"  ( N4 v+ g% N/ p4 U0 c$ I+ a7 V
04 二月 2013   -13°46' 56.8"  
8 ]' Z- I" ~# ]" y- N" Z" H05 二月 2013   -13°03' 49.3"  ) A; s* M8 s1 u4 x6 Z' `
06 二月 2013   -12°19' 47.2"  
5 V# R( Q1 `3 {2 |# E07 二月 2013   -11°34' 59.6"  
! D( b: W6 `$ m$ S$ o& v6 a08 二月 2013   -10°49' 36.8"  6 l' b+ f$ ?5 P3 S  \6 c& \% b% G6 X5 U
09 二月 2013   -10°03' 50.6"  
6 i/ c1 ]8 B1 U) W1 ~: e10 二月 2013   -09°17' 54.8"  2 ~0 [" q3 l: E. O$ J( E! [, e3 S
11 二月 2013   -08°32' 04.9"  7 {% V, {1 S# p6 {) \$ k
12 二月 2013   -07°46' 38.1"  
+ ?. d9 @9 q9 Q" G13 二月 2013   -07°01' 53.6"  
( {/ |# G. P9 a. p) ?8 n. a14 二月 2013   -06°18' 12.3"  ; X$ {# O% r) h$ D" M4 {
15 二月 2013   -05°35' 56.2"  
5 W& {. q  r; n7 f# d8 k/ n" y9 B16 二月 2013   -04°55' 29.1"  
4 K2 `5 t5 ]6 Q17 二月 2013   -04°17' 15.1"  
9 N7 l/ m. J1 w+ F2 H( d18 二月 2013   -03°41' 39.2"  8 j1 T: q7 }4 \2 k+ U" U
19 二月 2013   -03°09' 06.0"  
4 a6 m1 K3 q% l. b% U) c  o8 X20 二月 2013   -02°39' 59.5"  
# x$ d. j! _1 v& \. D: m7 I( w0 g21 二月 2013   -02°14' 42.3"  # [8 s+ A% U) {4 }2 z
22 二月 2013   -01°53' 35.0"  
7 J/ I; H5 n- E% S& q9 C) ~1 P23 二月 2013   -01°36' 55.5"  
! S" o5 f4 ^& u, w2 K! f/ L24 二月 2013   -01°24' 58.1"  
6 O, }7 Q0 ]* w- n) q! [, V0 X25 二月 2013   -01°17' 52.7"  . G* k8 s* @1 k8 N
26 二月 2013   -01°15' 44.0"  
( P9 n" M2 |; q) K5 q; N, o7 p4 y27 二月 2013   -01°18' 30.8"  
1 U1 |- d" S) n, S  P2 Z( ]28 二月 2013   -01°26' 05.5"  / V4 D; n1 e) s  W
01 三月 2013   -01°38' 13.7"  $ r$ `+ p' y( q* t2 N& J
02 三月 2013   -01°54' 34.4"  
7 C5 J! u6 `) ]0 V2 ]# v2 r03 三月 2013   -02°14' 40.4"  
7 N6 `" w* _$ v. z7 q2 M04 三月 2013   -02°37' 59.2"  & e4 X: C+ u  I9 S
05 三月 2013   -03°03' 54.3"  6 U$ u0 H2 y! z9 a) \
06 三月 2013   -03°31' 47.0"  
2 `. N! X7 `6 R4 Y  A07 三月 2013   -04°00' 57.8"  
: @  p$ v7 b* ~0 w, M08 三月 2013   -04°30' 48.1"  * b8 M/ h# b+ A/ ^( L5 }5 V0 O
09 三月 2013   -05°00' 41.8"  
0 d  f/ K% C9 T0 y' N/ m: m10 三月 2013   -05°30' 06.2"  
) D4 K& Y1 ^9 U+ N- H11 三月 2013   -05°58' 32.9"  
% s2 k* T1 q) L8 V5 _8 ]# @, U: w; n12 三月 2013   -06°25' 37.8"  6 J5 d% M- b) W
13 三月 2013   -06°51' 01.6"  
( o, @3 c* @! E1 r14 三月 2013   -07°14' 29.1"    O% i, R7 ]" h2 s' A4 s1 e
15 三月 2013   -07°35' 49.3"  9 c6 R: n! P# u2 ], D9 }
16 三月 2013   -07°54' 54.2"  
. G- x1 s* c2 d$ [17 三月 2013   -08°11' 39.1"  
2 i& l% ^/ G, p7 i5 T+ O, A18 三月 2013   -08°26' 01.3"  ! |, K% [* [. m
19 三月 2013   -08°38' 00.1"  
* l# E  J/ M9 a, Q# j20 三月 2013   -08°47' 36.2"  9 ?+ c1 T/ ^( E+ A9 e+ S% h! Z1 t
21 三月 2013   -08°54' 51.5"  " v) p6 W0 ]! O  _; p4 \
22 三月 2013   -08°59' 48.5"  
  d7 V, O' s& C# ~8 I, F- z23 三月 2013   -09°02' 30.3"  : o) v+ N4 D5 B3 v/ t1 q
24 三月 2013   -09°03' 00.3"  0 G: O/ o, b- ?# A" \
25 三月 2013   -09°01' 22.3"  
% ?) ^) u+ u; d% `: |* o! |' ?26 三月 2013   -08°57' 39.8"  
7 J0 i, }9 F) J& q* I6 c$ t5 E27 三月 2013   -08°51' 56.7"  
1 Z. z5 ]; {+ U+ ^% ?% S28 三月 2013   -08°44' 16.7"  
' h  T, y1 b5 }29 三月 2013   -08°34' 43.3"  
4 j" L- Z% ?# O30 三月 2013   -08°23' 20.1", u: j* p0 D) `: L- |
. ]) ?! w* H( P
这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。* @: W+ \9 H" Q9 ^' l
/ S' ~+ b  v% V" [9 x
[ 本帖最后由 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]1 ?. t6 Q* q. L6 ^4 {. X1 v
水星
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
编写指标用 的数据，见附件
& Q) I8 F& d! D1 q# `6 Y% E[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
飛狐$ |8 X1 {( }; D

( n9 s9 S$ J1 `) O- dcc:=數據;
5 f5 m: O1 y+ `3 _0 Bccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
) {1 d; B4 v( z4 O$ }$ v, y, F0 N0 p4 C& Cvertline(ccsh),colorred;  {high}2 Y! c8 d% v* p
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);# p/ E7 x0 Q- V- C/ k( I" V0 ^
vertline(ccsL),colorgreen; {low}
* t- @1 f" I5 U& i# X5 e5 d
; W/ O/ A4 I- ~[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
作者: kaiser88    时间: 2013-12-17 12:28
请问静芸  能改成飞狐公式么？
作者: 静芸    时间: 2013-12-17 12:32
原帖由 kaiser88 于 2013-12-17 12:28 发表
$ `1 e/ B% b& ^4 A' T7 f! D. T请问静芸  能改成飞狐公式么？
4 c% L6 Y" `, g) c. X

$ `5 A5 [1 r; Q1 J这是飞狐公式
4 w' F+ K5 f- d5 u0 J第一列的"数据"要用读进来的星象数据取代
作者: kaiser88    时间: 2013-12-17 12:35
再请问 怎么读写呢？俺不会
作者: 静芸    时间: 2013-12-17 12:58
原帖由 kaiser88 于 2013-12-17 12:35 发表 4 x2 K0 a( e1 z6 t; C
再请问 怎么读写呢？俺不会

: Y1 A& m- o1 D* c# ]
1 ]% F! m" U* j9 U) l哈,这有些麻烦啊!' f0 n* E1 `; |! W0 j
你把星相数据存在目录C:\Da.txt+ {: }8 g( b; ^  `. O! U
档名是Da.txt% ~4 ]8 ]# e7 @& j1 p' O7 z
如果存在别的目录,如D:\hhh\Da.txt
* F0 k. L& @3 y7 ?1 h4 {3 {( X那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt3 H' W) ?6 h0 a: [, }; O  t
下面是飞狐公式,我也未试过,你自行试试吧4 M3 A- P& [4 ^- l. k, O# ~

+ o- B" ?4 h7 H9 x1 eFoxDE:=DATE; FoxTE:=TIME;8 v  a6 ?% `' k. W
MyData:=C*0;" S! q6 o5 K: e; u
<%
( H: O7 R& _4 u' iMyData =FFL.VarData("MyData")) l# _8 U! A! H' T$ l6 f
FoxDE =FFL.VarData("FoxDE")
, |5 B4 R0 A1 B% I, ?FoxTE =FFL.VarData("FoxTE"), _/ I! ^2 v0 }: u$ A+ d
Set fs =CreateObject("Scripting.FileSystemObject")) M8 s2 i- n- x2 C5 Z& J
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)6 I4 F$ n0 `4 g0 L' h
MyTxt = wrkfs.ReadLine0 d. D( ^& j* ?: ~
wrkfs.close( W9 w; J9 ]9 J7 ~0 n
TxtStr=MyTxt
( |1 J+ J; R/ E5 V" d' ]: m6 VTxtAry = Split(TxtStr, ",", -1, 1)
8 B# Q/ {/ n2 @; fGetDE=CLNG(TxtAry(0))
$ _& r0 P/ g  N+ J) s  RGetTE=CLNG(TxtAry(1))
9 v3 j1 J# C5 B3 t( r# CGetVV=CSNG(TxtAry(2)): {3 u# ?0 j, ]# O8 Q
for i=0 to ubound(MyData)( Z- Z6 P# S0 g4 H$ S& k
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then' n- K( J  G' H% N
MyData(i)=GetVV
+ c& c2 _$ n" }1 N4 Hend if  [2 F2 K  s2 u8 u: g
next
/ @  y% A2 u! S" pFFL.VarData("MyData")=MyData
- g9 |# C' [4 L7 u0 F4 x9 U% ?2 t%>% e/ l/ k6 T- `' v' M( Y
/ _% q0 C) S% d# f6 L6 j, k# H
cc:=MyData;) N$ x, v& \! Z  b
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);- h+ c6 V- Q2 x' k
vertline(ccsh),colorred;  {high}
' r  Y  Q. ]! CccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
. d* V9 Z" I+ k! kvertline(ccsL),colorgreen; {low}
' `- O, m4 O% C1 c% l) |( n; E5 ?) Z6 d) A
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
作者: kaiser88    时间: 2013-12-17 13:07
作者: logoslogos    时间: 2013-12-17 19:53
太好了。我试试。。。万分感谢1 t4 p" C. H3 N3 [" M

' @* i7 i" y. O4 C% O( ?3 _% t  o我刚试一下。。。出现错误。。。静云帮忙看看。。。
+ S0 E2 `- o8 O+ ?4 n  s  G等我发图
/ y& o' Q8 |% t. f' J$ ^[attach]110666[/attach]( }; S- v: _$ y$ J% b
" I3 n# k  l8 K  x" c
[ 本帖最后由 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 发表
8 D2 f) l% V1 h* e6 V% V4 f1 P太好了。我试试。。。万分感谢
( a0 j" J2 P6 G5 q2 N1 i
( J# M+ T7 f7 k6 _我刚试一下。。。出现错误。。。静云帮忙看看。。。
2 m3 R% U$ Y0 S( N; W6 x. h2 C& W等我发图
$ {' ]7 P: ^$ }6 q0 ~110666

  u4 W) `/ `6 a+ \. G! T$ X4 c$ _: a3 U- y$ p/ k
再试, 这读数据公式不是我编的
+ _: N3 l. N& Eif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
2 x$ F) t8 ?8 [% y0 d$ I2 L6 \; I
) w0 j3 n0 Y1 f+ A& ~[attach]110667[/attach]2 M9 ^; C! D* O, j
# L5 e+ _+ a. _$ ^
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]
作者: logoslogos    时间: 2013-12-17 21:55
[attach]110668[/attach]
- v2 X- V( y9 e. }" z7 o
& N% U9 M- Z% I' g3 y# \/ r0 ~还是不行。。。能通过测试，但一运行就出现这个错误：7 {) C3 y% U* Z. c4 @
见图。。。
作者: 静芸    时间: 2013-12-17 23:30
原帖由 logoslogos 于 2013-12-17 21:55 发表
  ~+ }+ f, l9 j110668
  n  z6 b7 e+ b5 E# W. m$ T8 B6 m" O  i9 S) e, ~
还是不行。。。能通过测试，但一运行就出现这个错误：7 H# N" U, x: B- D9 M
见图。。。

5 r0 H$ Q# A, b3 `' M( ^4 o+ Q4 h
) Y$ E" _; S8 x& R. }. q  s7 p可能是数据檔的问题  [8 s( y# E8 M" X8 a
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
9 r' e( r1 C2 e( m  j原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
作者: logoslogos    时间: 2013-12-18 10:08
好的，理解了。一样感谢。。
作者: He110    时间: 2013-12-18 15:59
应该不用导入数据吧。。。8 s) \, ^- L3 A* l" k  p$ x
直接程序计算declination值数据然后显示& G' C0 P+ h2 g: M" J7 A, F: P

# C% }% e- ?5 A4 j/ V7 `$ M) [& o! N
, {) v  Z; @! _2 m4 J3 ]& T6 |
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
作者: He110    时间: 2013-12-18 17:02

/ f: P  Z7 I+ @5 r) c: ]# q) k
" O. @0 T0 P, U5 `2 U7 R; ^& Z% G[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
作者: He110    时间: 2013-12-18 18:09
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。+ _1 e  i3 [6 J4 P, i  q. _5 L. Q; l7 m
我是不是用错了？ 有其他办法吗？
作者: 静芸    时间: 2013-12-18 19:03
原帖由 He110 于 2013-12-18 18:09 发表
' H) T: P! n9 O. `请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
- Z, T9 q- \! Z: N我是不是用错了？ 有其他办法吗？
' I5 U1 r0 ^! c+ }

$ I) Y" s# G' F+ r你好, 向下
  x! v: `4 A# U1 _) ~* A; _: \vertline(cross(0,cc)),coloryellow;
作者: kaiser88    时间: 2013-12-18 19:34
he110 请问你公式怎么做的 我的也一样报错
作者: He110    时间: 2013-12-18 20:20
原帖由 静芸 于 2013-12-18 19:03 发表
0 v5 @" i) |9 g+ u3 h
* o  [8 K% A  C" H
2 }1 k: F9 k. u1 Z你好, 向下0 S' S8 k& N- K! s, x2 ?
vertline(cross(0,cc)),coloryellow;

' |4 j2 \" I* D  T% X
) `* a2 a! \. j% T) V8 Q谢谢，可以了。
& @7 g7 r  |2 q( P& t7 {, W: r1 g+ l7 }" Q1 a: w7 e' H  ?6 G
原帖由 kaiser88 于 2013-12-18 19:34 发表
5 Q4 |" F' X1 O5 S# E% f% |he110 请问你公式怎么做的 我的也一样报错

, m5 l- [+ x3 ]8 M8 Z2 w1 \7 b+ N% |# E
我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
作者: 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兄的这么平滑。。。  h5 J9 ]. _5 X4 o
" S/ b1 ~5 U) l4 ~+ e0 Z0 @- v
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