阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
5 j" k/ A  J( z0 {2 Q) p9 f# P2 v% ?
# V* _& M! W0 p- z- Q5 o  ]
2 Z; k5 d* @" m% ]5 b5 G

8 v$ @' G4 F4 s这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
* l4 s  i3 O4 S- c. V( k9 O: b  s5 Q7 q1 r
/ X( S0 E  _3 e. Y; d
  J8 B6 m4 v$ C0 p* y
1.根据给定的数值,画出这样的曲线
5 N0 K2 I- y' Z/ Y, F$ x) E2.分别在曲线的每个拐点出画一竖线
3 [. e" D: s: b( S$ x! J3.在零值画一竖线
2 V  y9 W* H7 L1 d& d4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。4 m5 D  r6 Z3 u( Y& l
0 ]6 G5 k9 {+ O# i4 E' e# w
& F# J; |& f3 Y% F6 j. T
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。
; T5 q2 T4 o/ V) h
" O& [+ Z2 R& E3 y  l$ _数据样本:从星相软件导出的:
; b- ?( ~, a+ I8 J, J
7 B4 s6 ]- W3 L  e4 F01 一月 2013   -24°14' 58.7"  
, w! t0 }: g4 v3 h' b. P- y02 一月 2013   -24°20' 05.2"  
" m" q& j) J; `03 一月 2013   -24°23' 54.3"  
* ?+ W8 S( t' ?% K) t1 ^04 一月 2013   -24°26' 24.8"  
2 @* {9 l. i9 w1 k05 一月 2013   -24°27' 35.6"  / `2 G( f5 V- i5 m7 @
06 一月 2013   -24°27' 25.5"  $ [- l# i0 |! Y! Q
07 一月 2013   -24°25' 53.3"  6 n5 W( y& G7 J2 n0 ?) s
08 一月 2013   -24°22' 58.2"  * a5 o4 j' i- g1 x2 L
09 一月 2013   -24°18' 39.1"  
) K" O8 A1 \4 V: o10 一月 2013   -24°12' 55.1"  4 a6 U0 e: C5 I3 ^, M& @
11 一月 2013   -24°05' 45.2"    X, S4 u, r0 i8 `2 |0 H  C* Y
12 一月 2013   -23°57' 08.7"  
7 y# w/ d, L% t* [( P13 一月 2013   -23°47' 04.8"  
' j0 }/ M7 i$ [7 G14 一月 2013   -23°35' 32.6"  
( |- e" W0 _' |$ X/ @' {- |/ {& c15 一月 2013   -23°22' 31.5"  3 y$ k/ r5 i+ n2 d) I7 V
16 一月 2013   -23°08' 00.8"  4 X, x2 f4 v7 j
17 一月 2013   -22°51' 59.9"  $ t1 r& b8 Z; l8 t0 W& O
18 一月 2013   -22°34' 28.2"  
" ~$ ^8 m1 A  b2 Q19 一月 2013   -22°15' 25.2"  7 M+ I7 [+ B6 Y4 j5 F
20 一月 2013   -21°54' 50.7"  * W6 M9 Y, p9 Y$ t* E9 E
21 一月 2013   -21°32' 44.2"  ; ~5 Q/ @# j! |& ~
22 一月 2013   -21°09' 05.7"  1 b2 w* O+ U$ \1 p  G1 Z; x, h! j; j
23 一月 2013   -20°43' 55.0"  7 ~% F) S$ A. s! m: q; W3 B9 l  I
24 一月 2013   -20°17' 12.3"  
$ n3 C: V+ |% r# k; ~; T25 一月 2013   -19°48' 57.7"  
3 f  J0 o8 Y7 W3 ?; E- i# P26 一月 2013   -19°19' 11.9"  
# H% D- N$ q, [0 |3 Z& `. w27 一月 2013   -18°47' 55.5"  # T% D  z$ B" a  Z5 @
28 一月 2013   -18°15' 09.5"  
' ]3 ?5 \. k- t' s# Y29 一月 2013   -17°40' 55.3"  % ^6 a& N0 f0 e0 v9 w
30 一月 2013   -17°05' 14.7"  2 {: e: _5 O! i0 `: L
31 一月 2013   -16°28' 09.9"  & C. Y& l) z9 y' S# A, ?# i
01 二月 2013   -15°49' 43.8"  
+ e7 ^$ e; S* V) d, Y: J02 二月 2013   -15°09' 59.8"  
5 I' v" Q3 s/ T9 D" x03 二月 2013   -14°29' 02.5"    Z1 |, M# ^$ m8 l; n1 Q5 H
04 二月 2013   -13°46' 56.8"  8 h/ p! p7 X" k8 f0 _2 t3 C+ F
05 二月 2013   -13°03' 49.3"  : v% f% c- [" a: p
06 二月 2013   -12°19' 47.2"  
5 K2 n1 k) @& N' w07 二月 2013   -11°34' 59.6"  
6 F; @* Y) [7 @6 {( b7 H) ]08 二月 2013   -10°49' 36.8"  
! l2 @9 {6 b; }, r! B+ V09 二月 2013   -10°03' 50.6"  / w8 x9 {9 k) m# h% m) O  V/ q/ C8 X
10 二月 2013   -09°17' 54.8"  
9 B3 D7 y( T8 d+ H8 ?* |2 T11 二月 2013   -08°32' 04.9"  7 Q; B, y. T3 ~6 E+ C5 b. {
12 二月 2013   -07°46' 38.1"  
. i, l8 E0 u0 d0 ?8 n" c13 二月 2013   -07°01' 53.6"  & H1 N9 ^( N/ C
14 二月 2013   -06°18' 12.3"  ; p, Z; i  x0 t' J
15 二月 2013   -05°35' 56.2"  
& b( S7 a! i- b% ^0 ^& O$ b16 二月 2013   -04°55' 29.1"  
  s7 F  P% ?, G' F; n. P17 二月 2013   -04°17' 15.1"  
3 s2 A# z/ p, O8 w6 o% U& ~18 二月 2013   -03°41' 39.2"  / s8 T- ^' D5 E# m/ B
19 二月 2013   -03°09' 06.0"  
/ c6 T4 Z' `  ?& I20 二月 2013   -02°39' 59.5"  $ f5 k* A- T# L2 o3 {: C% n0 K
21 二月 2013   -02°14' 42.3"  ( H# R7 W. Z& [" l, Q  V( Y1 X
22 二月 2013   -01°53' 35.0"  
/ N* s& l/ c9 ]6 X( r9 g2 I+ T23 二月 2013   -01°36' 55.5"  8 _7 @' V( J$ ]. Y) Y
24 二月 2013   -01°24' 58.1"  6 Z7 g- J; O4 w3 {& [8 M' V+ n$ h
25 二月 2013   -01°17' 52.7"  2 s) H! a, r6 j  X5 @4 F0 h
26 二月 2013   -01°15' 44.0"  % Z4 U+ \+ A+ M/ s/ U
27 二月 2013   -01°18' 30.8"  
- L" b  }4 d$ s' R( g28 二月 2013   -01°26' 05.5"  
: r, g- r+ R& x) n/ w01 三月 2013   -01°38' 13.7"  
2 g. W6 R  j5 j: \+ w02 三月 2013   -01°54' 34.4"  " |, D) Z: y; P3 D
03 三月 2013   -02°14' 40.4"  
6 Q( b& R1 b: y04 三月 2013   -02°37' 59.2"  
9 M& B5 H2 \! |  h05 三月 2013   -03°03' 54.3"  
7 X% ^/ S! ?, R# p0 c9 J# w06 三月 2013   -03°31' 47.0"  
+ o  `# q2 {4 V07 三月 2013   -04°00' 57.8"  
/ P8 W. ~% e+ [! G08 三月 2013   -04°30' 48.1"  
7 Y' f  f( Q" U- U09 三月 2013   -05°00' 41.8"  % m4 j7 p, h. `3 F. N  h
10 三月 2013   -05°30' 06.2"  ( s( _; O! m* H
11 三月 2013   -05°58' 32.9"  / W' H( f4 P9 I% E3 Q5 D: A
12 三月 2013   -06°25' 37.8"  : d+ m" n! \! s: @" L
13 三月 2013   -06°51' 01.6"  0 K6 g) y5 t+ @
14 三月 2013   -07°14' 29.1"  
- ~& r: T2 ]" M3 l* p15 三月 2013   -07°35' 49.3"  
, E; l( {' Z( d9 `: U+ s16 三月 2013   -07°54' 54.2"    _+ Q# |: g( e/ c+ N# G$ Y$ l) J
17 三月 2013   -08°11' 39.1"  5 Z; R) }, @* G
18 三月 2013   -08°26' 01.3"  
6 O' S, J$ E% q4 i( F19 三月 2013   -08°38' 00.1"  ! {7 \* s- Q1 ]% @3 @/ c$ t0 @
20 三月 2013   -08°47' 36.2"  8 G# h5 e. @0 k2 P6 D& Q/ K2 s" k
21 三月 2013   -08°54' 51.5"  
7 `  B  d0 `; L5 @4 ]4 J22 三月 2013   -08°59' 48.5"  % i0 \/ ]' _  z+ W8 J
23 三月 2013   -09°02' 30.3"  
  [) A( ?& ^* ~0 i9 L- y24 三月 2013   -09°03' 00.3"  
7 {/ ?. a, V- e) ^" \25 三月 2013   -09°01' 22.3"  
9 r+ f' R7 l# u9 L. U* u2 R& K26 三月 2013   -08°57' 39.8"  0 t/ g* A& f; K0 R( k9 p; X
27 三月 2013   -08°51' 56.7"  3 ?! v& _& G) |& _) K+ T9 Q. x6 L
28 三月 2013   -08°44' 16.7"  
* r$ U% u3 z# i, Y4 t29 三月 2013   -08°34' 43.3"  ' }! b2 g: S$ B4 F, N
30 三月 2013   -08°23' 20.1"
8 K4 L1 w+ r" j8 h
4 X" o4 ^% S% Z9 t8 u% E) |5 n3 P这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。4 h/ t2 k5 P8 a2 u6 H

. T/ o" S1 ^& S% c. c' p[ 本帖最后由 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 | 只看该作者

8 b% n/ l0 e! 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

本帖子中包含更多资源

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

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

本帖子中包含更多资源

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

x
5#
 楼主| 发表于 2013-12-13 21:34:08 | 只看该作者
编写指标用 的数据,见附件
) K2 L+ M" Y2 a0 K

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
) s. ?, L0 n+ f2 g- k+ ?
1 l3 n3 O3 F* [cc:=數據;& J" x2 @5 Z+ J. L
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);  _, [$ f3 l; L% o
vertline(ccsh),colorred;  {high}/ L4 {% F- E1 h$ Z- z  U
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);+ Q5 J( A3 y" p4 Z2 d; B7 p7 ?
vertline(ccsL),colorgreen; {low}
2 ^4 @5 v6 J, @* M6 l
* Y. ~0 F1 q' Y) G[ 本帖最后由 静芸 于 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 发表
4 |  a2 L  x* B) D请问静芸  能改成飞狐公式么?
, d9 U& f8 N! p

9 d! k9 `2 j  n" U4 [) m" |这是飞狐公式
9 A1 O7 z  K# s4 V0 z2 m; A第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
  Q& g" Q. K4 [0 J. t3 ^再请问 怎么读写呢?俺不会
3 o* r& I  N, l( Q$ O- f$ b

- {0 @" Y9 B5 i7 d; T& I0 K,这有些麻烦啊!
3 T) H" Y, x( Z+ }8 e你把星相数据存在目录C:\Da.txt
/ r- z. j8 I9 ]3 z档名是Da.txt' N* Q# B, y( ^8 x, ^
如果存在别的目录,D:\hhh\Da.txt
& z% v4 u4 T' K5 F7 k0 i3 j那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
. \* N: j" Z* q  ]6 U+ Y# w, d下面是飞狐公式,我也未试过,你自行试试吧# b3 j9 a6 B! [  [+ r, s; B
% o; d, E+ I2 k' f8 Z
FoxDE:=DATE; FoxTE:=TIME;9 T6 l, b6 y1 e5 {. |5 g) g# F
MyData:=C*0;2 v+ @% `$ e9 t, i
<%
# D4 J- R0 M6 _MyData =FFL.VarData("MyData")
3 {  m: c2 ~$ }5 s% p. _- @FoxDE =FFL.VarData("FoxDE")
9 G5 C3 e  b5 }  h# C' g* Q+ QFoxTE =FFL.VarData("FoxTE")
# \( A4 B5 S0 `. \+ {, U" hSet fs =CreateObject("Scripting.FileSystemObject"). q* m0 K, v4 K$ T
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)9 ?2 d8 ^% m7 ^6 v! J1 c; a- i
MyTxt = wrkfs.ReadLine
/ o  e9 j% @# H# b2 u$ j  @wrkfs.close& [0 H" a3 z9 Y2 ]/ w
TxtStr=MyTxt
- |  X: w# n& C! D, L# OTxtAry = Split(TxtStr, ",", -1, 1). L5 Q5 F/ U* F7 R# k
GetDE=CLNG(TxtAry(0))
. u' w" E# E4 F3 S- l; e& qGetTE=CLNG(TxtAry(1))
& _7 P& t& f2 S7 b' O( pGetVV=CSNG(TxtAry(2))$ ]0 m# R5 W0 R* B* Z
for i=0 to ubound(MyData)
- X' X8 n! v. P8 B. M( G9 F) yif FoxDE(i)=GetDE andFoxTE(i)=GetTE then
8 j% j! f" \6 n5 g: w5 wMyData(i)=GetVV
' R, j& m0 }5 L0 \end if
6 |1 h8 a, n# f! p3 P; j& Fnext
. i1 @. }3 ^- h: ~' a9 rFFL.VarData("MyData")=MyData2 K4 a9 M* S* ?0 c
%>
8 M0 b8 Q9 x6 e2 x, ?5 x* d# h* q, ~& e; Q
cc:=MyData;0 C7 G: l3 U  J% ~: m1 p4 Q: V/ d
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
  T8 ]* S' {# |vertline(ccsh),colorred;  {high}
0 B( Z3 x0 q. a; x8 qccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
  t& [! M: _; E. P/ z3 mvertline(ccsL),colorgreen; {low}1 L) r" J' ~6 a% P( S; b
5 ^) {6 t; ^9 |; @4 M- K8 k
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢; [2 S$ {6 B2 s1 y& {; Z3 Z

5 t1 W) {1 D1 w# d/ Q+ l我刚试一下。。。出现错误。。。静云帮忙看看。。。7 [7 C8 L% q+ w1 \7 B
等我发图# q4 V  M6 o9 U; ~
3 p. n0 r+ m/ W/ V  U" x& I

0 Q0 Q& r& s5 s5 {. L[ 本帖最后由 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 发表 5 d( {/ e% n4 c0 H
太好了。我试试。。。万分感谢8 O& @* B3 e3 x* }/ c
+ I) P/ e: B0 p, u% ]
我刚试一下。。。出现错误。。。静云帮忙看看。。。* E8 W. |+ g$ y" `  ~4 i
等我发图! Z6 x" u' L3 f2 d/ j. C. P0 J. F
110666
1 D/ e( N  E* N1 s/ I  p) W
, @0 F2 n  h' Q* D) h. }. N
再试, 这读数据公式不是我编的. p. x$ h1 {+ j$ j
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then$ f9 ^; {3 ?) i  y) ?+ U; K

! [  d5 i- d9 n8 C0 o" R
, a- @9 Z: X+ f# i( o8 }! i0 N6 w. U6 M0 k# B3 ?/ p
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

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

( u$ `, J5 L6 u+ r7 Y% k
" U6 A3 i( ^4 v- n还是不行。。。能通过测试,但一运行就出现这个错误:
8 D5 e" O( ]/ j, G) m见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 % J1 H- C% B- s7 j' a" i4 Q4 i
1106682 ^; O; P* ^' |" E% f3 l0 P8 D

# L' [5 o- l, p" u) ~7 H还是不行。。。能通过测试,但一运行就出现这个错误:
( g7 e  ]8 q# A0 U$ ]0 g1 ]见图。。。

% _6 o. p/ c  H7 z& `3 @# P" h1 K6 _/ q1 ]/ r/ V! T
可能是数据檔的问题
: p9 O1 Q- j0 p: C8 M) d数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行, W/ x  z/ @- ^- L  \2 F0 E+ d2 ]
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。' e- Z2 B" u8 b' }& H
直接程序计算declination值数据然后显示" `+ O2 ^5 K5 F- v; r

; Q* y" c- V* I8 F/ H, {* I! X" c4 o+ p9 Y- H; d

0 Z, P/ \' C2 }7 Q& R[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

1 k3 p5 F5 ^0 K
# ^% ?' N5 l9 U[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。/ S. d- d. O* @: L0 a& M0 Q
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 - u) b$ X+ q( Y3 b$ ?
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
6 F5 x9 f( q: }1 p( ~3 k7 I& ~! ~我是不是用错了? 有其他办法吗?
/ ~4 ^- X& S1 W; u

3 O9 s! A. j5 f. X9 E5 y你好, 向下
; D" i  \1 J8 N0 h+ B3 qvertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表 2 c. s2 Z4 w/ o, g
6 C$ I) N6 i1 ]% n' ]

# Z8 h0 ^) {  t4 t6 n$ }6 @你好, 向下2 J( H9 l8 p  C, r' Q3 M0 I
vertline(cross(0,cc)),coloryellow;
7 c4 M# x* B3 U" p; b2 p5 r# k

) j* [! m' `% i3 ^- K0 o谢谢,可以了。
4 L6 _' f4 C: y5 s. Y: r8 M+ b' q# m( i) }  V& G
原帖由 kaiser88 于 2013-12-18 19:34 发表
, p$ j; g% `9 _: H6 ], v' Jhe110 请问你公式怎么做的 我的也一样报错
4 j" b! ]2 G1 P9 n  ]4 n6 ?( D

/ K" b7 h3 a% I2 ~我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。
6 E9 E% D6 S2 a. q8 ~2 G1 q7 G& C
# k0 C' F) Y6 w% ]* @prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-18 13:53 , Processed in 0.189733 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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