阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

查看: 6110|回复: 36
打印 上一主题 下一主题

共享一个星相交易工具,求助会编写指标的朋友

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
+ N. y1 v! {# t6 [& Y; i. m4 R4 _+ I' d+ }

* @' ^" C) o: x/ j8 n
  O+ b; w2 @( l. n/ p/ u2 p$ Y

/ t1 M. _5 l. }0 b, G+ p这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
8 M* e, V. D; i: d# t* d
/ t/ W$ j8 {/ ?8 f6 r' A% W$ X

; f9 _: D5 c# D, _4 [
0 a* M. j3 y; {5 U1 |1.根据给定的数值,画出这样的曲线
( u! t; x. l: z% {' k2.分别在曲线的每个拐点出画一竖线
1 L/ m( {" Z# I; [0 ~9 A3.在零值画一竖线4 d; o7 Q! j0 L+ d6 ~+ T
4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。% P4 L7 y# O# x3 `; j

9 F1 F: S* r- @& K- X7 I

8 ?$ e/ @3 Z7 S+ Z7 i5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。
4 @. d2 q5 s" q8 h+ u( e6 g7 ?
$ }- X) s4 `, u6 |( g8 M数据样本:从星相软件导出的:
' L' f; [6 _1 R- {( a# |" Q8 g( ?2 A( w0 q
01 一月 2013   -24°14' 58.7"  / w( g9 L; h% @9 u! I7 V
02 一月 2013   -24°20' 05.2"    U6 m, t& q" T% |8 l9 @% g
03 一月 2013   -24°23' 54.3"  
1 |0 M4 ~% V- m$ u) Y! u04 一月 2013   -24°26' 24.8"  
4 s, i" s! O# ^05 一月 2013   -24°27' 35.6"  
9 N1 s" }$ S% S$ r- b5 t2 Z06 一月 2013   -24°27' 25.5"  
; d1 I$ H: _  \4 w( X; V07 一月 2013   -24°25' 53.3"  
1 t- U$ t  L6 G2 u08 一月 2013   -24°22' 58.2"  
' o! |- a9 u6 N" w' v4 ~; Z09 一月 2013   -24°18' 39.1"  * `- c) R! i5 I! D1 r
10 一月 2013   -24°12' 55.1"  
( f/ }5 n5 K% a- Y11 一月 2013   -24°05' 45.2"  
% S# O+ i1 x+ b1 v12 一月 2013   -23°57' 08.7"  * u/ Y) x, V' F0 |7 }7 z
13 一月 2013   -23°47' 04.8"  ' F6 s, m. n5 m$ M( P
14 一月 2013   -23°35' 32.6"  
7 @- g6 S  U9 v$ _/ P" W" I15 一月 2013   -23°22' 31.5"  
8 c- ^* y2 s: S6 \16 一月 2013   -23°08' 00.8"  5 e+ G. g, t$ s; n9 G& y0 c% b0 d
17 一月 2013   -22°51' 59.9"  
# O1 D$ Y& E1 b6 O+ Z& O) `% W/ a0 X18 一月 2013   -22°34' 28.2"  ) I2 {7 I8 q* \* i& m& `. E, V
19 一月 2013   -22°15' 25.2"  + }1 `/ [) A# o9 H5 K4 r4 P2 |6 L
20 一月 2013   -21°54' 50.7"  * a0 ?+ x1 ~0 k1 E) ^4 z: A) y+ L
21 一月 2013   -21°32' 44.2"  $ w2 w' U4 P7 Q( a" b, `: q" }
22 一月 2013   -21°09' 05.7"  
" K; \0 R0 Z* G5 S: r23 一月 2013   -20°43' 55.0"  6 b0 r5 s4 v3 z! s  C' Q
24 一月 2013   -20°17' 12.3"  ; N0 ~5 Y' i6 e
25 一月 2013   -19°48' 57.7"  / K4 a' F+ {& {9 L" J# p
26 一月 2013   -19°19' 11.9"  : X) w+ L$ ]: F- G2 E1 R
27 一月 2013   -18°47' 55.5"  
6 [5 r. u( g% M28 一月 2013   -18°15' 09.5"  0 e& x9 p+ E: b
29 一月 2013   -17°40' 55.3"  
' m( y- n$ Q9 ^30 一月 2013   -17°05' 14.7"  
) q# ]/ T/ u8 v& n) d8 Z$ S9 e31 一月 2013   -16°28' 09.9"  
5 `. A7 w+ ]4 k+ Q, ^* n' `( |5 D01 二月 2013   -15°49' 43.8"  
4 e8 p- t" V7 z1 \' ?02 二月 2013   -15°09' 59.8"  9 x. k0 U: V: T. g4 M
03 二月 2013   -14°29' 02.5"  , ~" z; V  r/ d7 j
04 二月 2013   -13°46' 56.8"  
: |+ Z2 c9 V2 C05 二月 2013   -13°03' 49.3"  
+ J- N( }* J5 \9 U( r2 `* W06 二月 2013   -12°19' 47.2"  & A# _% r) ?2 t# w' s
07 二月 2013   -11°34' 59.6"  
! o1 \9 W7 a: X" q: P9 r& M  K08 二月 2013   -10°49' 36.8"  
; S: W/ q6 Y4 H  ~6 o- h09 二月 2013   -10°03' 50.6"  
, s/ m( u$ l- v# _/ J: D! g/ P10 二月 2013   -09°17' 54.8"  
- |$ q) v$ c3 s11 二月 2013   -08°32' 04.9"  6 p. [3 A! V- F4 u# {
12 二月 2013   -07°46' 38.1"  4 }8 S  V" I: p
13 二月 2013   -07°01' 53.6"  + ?; C! N7 }) K% I0 `4 `/ n3 N& u
14 二月 2013   -06°18' 12.3"  ; w: q6 d9 I. R
15 二月 2013   -05°35' 56.2"  ) a! W$ t& s) f  M6 b
16 二月 2013   -04°55' 29.1"  
# O* i* N" p& D3 |$ y, l" J17 二月 2013   -04°17' 15.1"  
9 J- D3 {7 L- {3 c: o18 二月 2013   -03°41' 39.2"  - C7 P) ~( e7 Q& w$ b, r
19 二月 2013   -03°09' 06.0"  7 s' @% q" Q& y4 e8 S
20 二月 2013   -02°39' 59.5"  
' p, ?: F) n, Y5 `21 二月 2013   -02°14' 42.3"  
9 P/ C7 V* b8 _! T3 B* g22 二月 2013   -01°53' 35.0"  ; H% g# l* g" q( M/ Q7 O0 X
23 二月 2013   -01°36' 55.5"  
! n' U6 }5 V' A- Z: Q. E: z24 二月 2013   -01°24' 58.1"  8 G  k" T7 F8 U1 e% X! L0 ~
25 二月 2013   -01°17' 52.7"  
3 [" |& l/ _# a: f" ~9 y26 二月 2013   -01°15' 44.0"    Y8 Q- s" h% w9 I1 U2 S
27 二月 2013   -01°18' 30.8"  6 v$ r; {1 g" Y7 o( S7 ~9 o
28 二月 2013   -01°26' 05.5"  
1 i0 C! A8 V3 Z0 ]$ _( T) n4 K01 三月 2013   -01°38' 13.7"  ' p$ C# D5 o# T% E7 p% f
02 三月 2013   -01°54' 34.4"  
7 V( f' a% I1 V. y+ n. E03 三月 2013   -02°14' 40.4"  
' s7 [8 n: X. r* k+ |04 三月 2013   -02°37' 59.2"  
# s0 {" \5 o! d! z7 ^05 三月 2013   -03°03' 54.3"  
9 f) E. M( R- @8 S' t06 三月 2013   -03°31' 47.0"  * [5 W9 W# \) E! y- C0 a# l
07 三月 2013   -04°00' 57.8"  % x4 A3 Z+ g1 i' z/ P
08 三月 2013   -04°30' 48.1"  5 D+ M8 ]6 v2 m  K1 e# G* ]* A$ X
09 三月 2013   -05°00' 41.8"  
2 T! ~" u, D/ l0 H, l10 三月 2013   -05°30' 06.2"  
+ M8 U+ Z+ ^6 G! B  `11 三月 2013   -05°58' 32.9"  ( @) i; @1 h. h2 }
12 三月 2013   -06°25' 37.8"  
/ o5 N# }4 X( p! [8 `! [13 三月 2013   -06°51' 01.6"  
8 I4 G. w/ d0 N' J( d14 三月 2013   -07°14' 29.1"  
4 w5 {( O/ \0 b& e0 |$ M15 三月 2013   -07°35' 49.3"  + B1 X. U4 N/ @* U/ w: L. _
16 三月 2013   -07°54' 54.2"  
' z: ?/ I$ V  n3 a* X17 三月 2013   -08°11' 39.1"  
6 ]1 I  _4 |* J/ D+ v1 N6 L18 三月 2013   -08°26' 01.3"  
% n" q0 \, w; A+ ^19 三月 2013   -08°38' 00.1"  3 Q7 h2 K5 u/ N) l4 Z9 Z4 V
20 三月 2013   -08°47' 36.2"  ) Q  w& U, k0 P- D! u& u
21 三月 2013   -08°54' 51.5"  + P6 Q( m. K6 L% `4 _7 l2 B
22 三月 2013   -08°59' 48.5"  # h* o/ R$ O, u& N
23 三月 2013   -09°02' 30.3"  
- |/ I1 l+ V  v$ e) C# d: C24 三月 2013   -09°03' 00.3"  
' ?1 v& _3 `' Q- ]# F% e25 三月 2013   -09°01' 22.3"  % P' T8 u& V9 K( ?8 f
26 三月 2013   -08°57' 39.8"  
) Z3 a9 q6 m1 Q, A  I5 @# _& A27 三月 2013   -08°51' 56.7"  
: i* ^5 J" |% V$ D( }# g* C28 三月 2013   -08°44' 16.7"  
' [( Y' f' F6 T! C) M0 \: C8 k29 三月 2013   -08°34' 43.3"  
! V" e. A- \: R( i/ f5 Q30 三月 2013   -08°23' 20.1"
! h" g7 R* o4 Z: y  t6 x& L
* _% j  W0 `2 y1 k+ \. \. ^这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。6 o, l  j& W2 j; g

! o/ |& [6 w: L1 c: A[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
2#
发表于 2013-12-12 18:16:02 | 只看该作者
.gif" smilieid="273" border="0" alt="" />
3#
发表于 2013-12-13 00:23:14 | 只看该作者
% |0 J% n/ u. K* G
水星
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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
4#
发表于 2013-12-13 02:12:54 | 只看该作者

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
5#
 楼主| 发表于 2013-12-13 21:34:08 | 只看该作者
编写指标用 的数据,见附件. W- M! t  h% O/ }. F; _

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
6#
发表于 2013-12-14 19:50:30 | 只看该作者
最好变成飞狐的好
7#
 楼主| 发表于 2013-12-16 22:15:31 | 只看该作者
最好变成飞狐的好..
8#
发表于 2013-12-17 09:51:40 | 只看该作者
9#
发表于 2013-12-17 12:22:14 | 只看该作者
飛狐% @/ I0 a: Y- Q, `0 o* u$ R3 B

9 P% _" D" ?& q; \1 K+ g# A2 P' Ucc:=數據;
& S: z+ @7 m! B( Vccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);9 N3 p: t" ]9 b1 g/ l# y) y: A
vertline(ccsh),colorred;  {high}8 |/ u3 y. X! P1 ?
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);* g2 a9 B0 Z& I! }( t; {; ^3 w& ^
vertline(ccsL),colorgreen; {low}
$ W' F6 r3 y5 T1 ^; Z/ v4 U2 _+ p! z5 _
[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
10#
发表于 2013-12-17 12:28:27 | 只看该作者
请问静芸  能改成飞狐公式么?
11#
发表于 2013-12-17 12:32:36 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:28 发表 , [( u( C/ T  ^* Z
请问静芸  能改成飞狐公式么?
2 O2 v9 I( L0 }) t0 a8 R0 F2 x+ X

. e. _5 |: m* S) w$ p7 M这是飞狐公式
( M: {6 p  N1 d7 J第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
7 O3 {* a  X3 T( L/ R再请问 怎么读写呢?俺不会
* ^! K7 @: Q6 a
! p" [) C" Z" e
,这有些麻烦啊!: Z% b# Z3 S5 m$ h" N3 H+ {
你把星相数据存在目录C:\Da.txt
  x5 j0 n1 @6 _$ s9 ~7 d档名是Da.txt% l: l0 t( _7 k, L: Q6 u
如果存在别的目录,D:\hhh\Da.txt
4 Y8 F- M5 o! N% E( ~5 R, p那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt. }5 b: `+ G4 c6 @' |* P3 K
下面是飞狐公式,我也未试过,你自行试试吧
. u& s( s5 l. m
: w# N1 |  h* Y2 g0 HFoxDE:=DATE; FoxTE:=TIME;$ H5 E8 U& Y# W2 R: P! ]- G
MyData:=C*0;) B- w; B% |' F$ G
<%
4 `3 i2 m6 D0 O6 b  p+ OMyData =FFL.VarData("MyData")5 c, e8 R  q- C: `* k% s
FoxDE =FFL.VarData("FoxDE")
/ z/ X) j1 U* C3 }* ^% SFoxTE =FFL.VarData("FoxTE")
* `3 @1 C; y4 JSet fs =CreateObject("Scripting.FileSystemObject")
" f- P5 e) _- \$ W1 W& \Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)2 o/ D6 Q% i* t0 ?
MyTxt = wrkfs.ReadLine
7 `( H  b: b2 Z' A* \wrkfs.close
0 q1 n8 \- w# o1 i% s% q7 PTxtStr=MyTxt
& D( Z/ ?6 R! C8 p" fTxtAry = Split(TxtStr, ",", -1, 1)
& _* p9 n, v# A9 k5 aGetDE=CLNG(TxtAry(0)). n% s7 K. n+ _# l+ c* O2 O8 [; k
GetTE=CLNG(TxtAry(1))8 w& S. {1 |5 G5 h8 P% x7 \* X+ W2 \
GetVV=CSNG(TxtAry(2))' R/ s4 p% r' e& {
for i=0 to ubound(MyData)" I* y6 j- G, z6 Y
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then1 w# Y4 x# G" \7 U5 T( L1 H
MyData(i)=GetVV9 K6 \, y: t' O( C3 d9 u# H$ t
end if$ S( C0 f' Q4 \& u+ [  a
next2 s( R) |( a8 t7 R4 t2 \
FFL.VarData("MyData")=MyData
5 p1 Q' Z: Q9 r' a# h0 d8 w%>* H2 k  ?( i  L  [8 Y6 q
0 ?+ U5 q5 H' h7 P  D: A
cc:=MyData;
- ]9 n! O" E6 I" D9 ^% o1 C  Eccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
2 p% e7 Z9 B& _, H* }/ H5 T" q( |( ivertline(ccsh),colorred;  {high}
$ Z6 R/ X* a" x' M6 PccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);. X+ A, C& m7 w7 ~/ r8 h
vertline(ccsL),colorgreen; {low}
' d* q! I, s2 @, N1 U) ^0 n8 E( ~$ k! |' N5 U* F. h) M+ q
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢/ D2 |2 G8 I( P1 L! U
( y. f, k" ]# ?) \) D! n+ s: @
我刚试一下。。。出现错误。。。静云帮忙看看。。。
& X" X) E! R; y等我发图
9 D6 X; h! g2 K0 p8 c. n
+ m# l$ h% o) D+ u! [: W. g! @2 ]- K) q5 I& u$ k: k: E. j
[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
16#
 楼主| 发表于 2013-12-17 20:12:40 | 只看该作者
静云帮忙修改一下。。。多谢!
17#
发表于 2013-12-17 21:20:26 | 只看该作者
非常感谢静芸MM提供的实例
18#
发表于 2013-12-17 21:28:23 | 只看该作者
原帖由 logoslogos 于 2013-12-17 19:53 发表
1 y, v% t- {% U- b+ R' x+ G2 l6 b太好了。我试试。。。万分感谢; y# q9 `. p- ~$ v3 }! |

8 K+ J3 [' c+ \/ h9 V1 m我刚试一下。。。出现错误。。。静云帮忙看看。。。' t# l+ q1 N! b# u0 U$ Z1 J) M
等我发图
0 X/ z6 ]% [5 j# S: w110666

5 ~) a; ^9 J- s9 v" H7 A. H& H$ S& p% d1 ]0 O
再试, 这读数据公式不是我编的' W* X6 O* I6 l# b- d! P+ Q
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then0 h* r+ z0 C' \5 r3 R, i, c. s1 {
+ C, D! k- V6 F- L$ u! ~! ~' v
5 f' _: ?) L% Z; P& [  t' n8 G
6 t& ~; G* f" ~" }0 \) w9 {
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者

% E2 X; W- A! e/ Z( K8 Q# y6 M$ {% Z  T+ U5 U- H- x
还是不行。。。能通过测试,但一运行就出现这个错误:3 d4 T4 F6 ]3 C$ j3 y
见图。。。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
; R( @: a4 n. @) z! x: h0 B110668* i1 v, x  s9 d2 Q! q/ y7 w5 Z! l

: a4 _% _/ K" q: t; D( ?1 d" }9 ~, r还是不行。。。能通过测试,但一运行就出现这个错误:' J7 p: j! p$ a% e
见图。。。
6 ^* S( u# j$ b* e; D

9 e) X6 l* F7 S0 f- d6 T' L% a可能是数据檔的问题. S6 N; J$ {7 @/ C* S
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
  A3 c* M6 S# F原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
. Y- S) q& e; A% y直接程序计算declination值数据然后显示
0 l  q! R0 F! N7 S* W
8 d3 M: R1 l/ o7 G, o3 K" v7 X4 w
6 D/ m/ x; g) P( m( A/ [0 |
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

9 |) H" r+ C! U3 S$ o. N5 }- b+ }/ [3 Q. U0 R( C
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。7 Q' ?8 @& e) h" N6 l- M
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 8 f2 o7 P6 M: I) e" y2 Z; @8 K
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
/ y/ a/ z# i" C& x' o. A! n, G我是不是用错了? 有其他办法吗?
! u) Y+ _" [1 \  M, i

6 _5 k3 q$ n3 _9 e* E$ _6 e$ V4 M你好, 向下( U% J3 q; U# M+ a
vertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表 & P% ^* |; W7 ]. @& K% [1 K
2 k/ k; U( _" s$ d

' _8 L5 C4 H% M- c你好, 向下
4 b6 T5 M* W" G: V  {5 x3 uvertline(cross(0,cc)),coloryellow;
8 K  r% |( {& G& U$ R& v
! ^- t% L' i9 G. |8 _1 o  Z
谢谢,可以了。2 _7 n$ X" r; Y: K. w
, K% u* o& w8 n5 L- I, j' d  y1 G9 V
原帖由 kaiser88 于 2013-12-18 19:34 发表
, t9 R- F) t* P& R+ lhe110 请问你公式怎么做的 我的也一样报错

6 ^, D* h6 a! q2 p4 G( Q- f9 [; J5 x$ {1 N9 f/ J, ~6 ?' i
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
28#
发表于 2013-12-18 20:42:05 | 只看该作者
你好He110,请问如何直接程序计算declination值数据,有直接的公式吗?
29#
发表于 2013-12-18 23:48:59 | 只看该作者
交流

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
30#
发表于 2013-12-19 10:15:12 | 只看该作者
tom兄是叠加了其他几个星星吗? 我的数据就没有tom兄的这么平滑。。。* M* w: V1 i# R6 g
! P. Z$ j) f) y+ y  H' C
prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

QQ|小黑屋|手机版|Archiver|【阳光飞狐】 ( 网站ICP编号:京ICP备06013475号-7 )

GMT+8, 2026-9-4 02:49 , Processed in 0.238303 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表